#include "ba9b00.h" TOOLBAR "topbar" 0 0 0 2 #include ENDPAGE PAGE "Riga Selezione Zona" -1 -1 78 19 STRING S_DESCR 25 BEGIN PROMPT 2 2 "Campo" FLAGS "D" END STRING S_DA 2 BEGIN PROMPT 2 4 "Da " USE ZON INPUT CODTAB S_DA DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT S_DA CODTAB END STRING S_A 2 BEGIN PROMPT 2 6 "A " COPY USE S_DA INPUT CODTAB S_A COPY DISPLAY S_DA OUTPUT S_A CODTAB STR_EXPR (#S_A=="")||(#S_A>=#S_DA) WARNING "Il limite superiore deve essere maggiore di quello inferiore" END STRING S_FIELD 25 BEGIN PROMPT 2 8 "Nome campo" FLAGS "D" END ENDPAGE ENDMASK