User Tools

Site Tools


restrict_define_section_use_constraints_.htm

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Next revision
Previous revision
restrict_define_section_use_constraints_.htm [2021/04/15 15:57] – external edit 127.0.0.1restrict_define_section_use_constraints_.htm [2022/04/28 02:32] (current) – More code carlbarnes
Line 22: Line 22:
 **Example:** **Example:**
  
-**#CODE(ChangeControlSize,'Change control size')**+<code> 
 +#CODE(ChangeControlSize,'Change control size') 
 +#RESTRICT 
 +   #CASE(%ControlType) 
 +   #OF('LIST'
 +   #OROF('BUTTON'
 +     #REJECT 
 +   #ELSE 
 +     #ACCEPT 
 +   #ENDCASE 
 + #ENDRESTRICT 
 + #PROMPT('Control to change',CONTROL),%MyField,REQ 
 + #PROMPT('New Width',@n04),%NewWidth 
 + #PROMPT('New Height',@n04),%NewHeight 
 + %MyField{PROP:Width} = %NewWidth 
 + %MyField{PROP:Height} = %NewHeight 
 +</code>
  
-** ****#RESTRICT**+<code> 
 +#CODE(ControlValueValidation,'Control Value Validation'
 +#RESTRICT 
 +  #CASE(%ControlType) 
 +  #OF('ENTRY'
 +  #OROF('SPIN'
 +  #OROF('COMBO'
 +    #CASE(%ControlEvent) 
 +    #OF('Accepted'
 +    #OROF('Selected'
 +      #ACCEPT 
 +    #ELSE 
 +      #REJECT 
 +    #ENDCASE 
 +  #ELSE 
 +    #REJECT 
 +  #ENDCASE 
 +#ENDRESTRICT 
 +#DISPLAY('This Code Template is used to perform a control value'
 +</code>
  
-**    #CASE(%ControlType)** +<code> 
- +#CONTROL(PauseButton,'Pause the Process'),WINDOW 
-**    #OF('LIST')** +#RESTRICT 
- +  #IF UPPER(%ProcedureTemplate) = 'REPORT' OR UPPER(%ProcedureTemplate) = 'PROCESS' ) 
-**    #OROF('BUTTON')** +    #ACCEPT 
- +  #ELSE 
-**      #REJECT** +    #REJECT 
- +  #ENDIF 
-**    #ELSE** +#ENDRESTRICT 
- +  #PROMPT('Pause Text',@S20),%PauseText,DEFAULT('Pause') 
-**      #ACCEPT** +  #PROMPT('Restart Text',@S20),%RestartText,DEFAULT('Restart') 
- +</code>
-**    #ENDCASE** +
- +
-**  #ENDRESTRICT** +
- +
-**  #PROMPT('Control to change',CONTROL),%MyField,REQ** +
- +
-**  #PROMPT('New Width',@n04),%NewWidth** +
- +
-**  #PROMPT('New Height',@n04),%NewHeight** +
- +
-**%MyField{PROP:Width} = %NewWidth** +
- +
-**%MyField{PROP:Height} = %NewHeight**+
  
 **See Also:     **[[ accept  section valid for use .htm|#ACCEPT]] ,[[ reject  section invalid for use .htm|#REJECT]] **See Also:     **[[ accept  section valid for use .htm|#ACCEPT]] ,[[ reject  section invalid for use .htm|#REJECT]]
  
restrict_define_section_use_constraints_.htm.txt · Last modified: 2022/04/28 02:32 by carlbarnes