#include "batbbnz.h" TOOLBAR "" 0 20 0 2 #include ENDPAGE PAGE "Benemerenze" -1 -1 78 7 STRING F_TABBNZ_CODTAB 2 BEGIN PROMPT 2 1 "Codice " FIELD CODTAB HELP "Inserire il codice della benemerenza" USE BNZ CHECKTYPE REQUIRED INPUT CODTAB F_TABBNZ_CODTAB DISPLAY "Codice " CODTAB DISPLAY "Descrizione@30" S0 OUTPUT F_TABBNZ_CODTAB CODTAB OUTPUT F_TABBNZ_DESCR S0 KEY 1 FLAGS "U" END STRING F_TABBNZ_DESCR 30 BEGIN PROMPT 2 3 "Descrizione " FIELD S0 HELP "Inserire la descrizione della benemerenza" USE BNZ KEY 2 CHECKTYPE REQUIRED INPUT S0 F_TABBNZ_DESCR DISPLAY "Descrizione@30" S0 DISPLAY "Codice " CODTAB COPY OUTPUT F_TABBNZ_CODTAB KEY 2 END NUMBER F_TABBNZ_NDON 3 BEGIN PROMPT 2 5 "Num. donazioni " FIELD I0 HELP "Inserire il numero di donazioni necessarie per ottenere la benemerenza" CHECKTYPE REQUIRED FLAGS "U" END BOOLEAN F_TABBNZ_STATUTO BEGIN PROMPT 30 5 "Da statuto " FIELD B0 HELP "La benemerenza Š prevista nello statuto AVIS?" END ENDPAGE ENDMASK