Как я могу написать умный и простой запрос для FILL IN Hide?

Question

Я написал запрос на скрытие более чем 11 заполненных полей, но я не удовлетворился и не выдал плохую идею. Как вы знаете, когда мы пишем запрос, это должен быть простой способ получить результат.Позвольте мне поделиться с вами тем, что я написал, и поделится вашим мнением с приемлемым решением.

DO  WITH FRAME {&FRAME-NAME}: 
ASSIGN
     ParaName:HIDDEN = YES
     ParaValue1:HIDDEN = YES
     ParaValue2:HIDDEN = YES
     ParaMaint:HIDDEN = YES
     RECT-12:HIDDEN   = YES
     RECT-13:HIDDEN   = YES
     btnEdit:HIDDEN = YES
     btnSave:HIDDEN = YES
     TBParaName1:HIDDEN = YES
     TBParaName2:HIDDEN = YES
     TBParaName3:HIDDEN = YES
     TBParaName4:HIDDEN = YES
     TBParaName5:HIDDEN = YES
     TBParaName6:HIDDEN = YES
     TBParaName7:HIDDEN = YES
     TBParaName8:HIDDEN = YES
     TBParaName9:HIDDEN = YES
     TBParaName10:HIDDEN = YES
     TBParaName11:HIDDEN = YES
     TBParaName12:HIDDEN = YES
     TBParaName13:HIDDEN = YES
     TBParaName14:HIDDEN = YES
     TBParaName15:HIDDEN = YES
     TBParaName16:HIDDEN = YES 
     TBParaName17:HIDDEN = YES
     TBParaName18:HIDDEN = YES
END.

Answer 1

Это должно помочь вам начать:

def var tb as logical no-undo extent 5 view-as toggle-box.

define frame fr
   tb[1] label "1"
   tb[2] label "2" 
   tb[3] label "3" 
   tb[4] label "4"  
   tb[5] label "5"   
   .

do with frame fr:

   def var hw as handle no-undo.

   enable all.

   hw = frame fr:handle:first-child. /* field-group */
   hw = hw:first-child.
   do while valid-handle( hw ) and hw:type = "toggle-box":
     if integer( hw:label ) modulo 2 = 0 then /* or use hw:name or whatever */
         hw:visible = false.
      hw = hw:next-sibling.
   end.

end.

wait-for close of frame fr.