#include "batbval.h" TOOLBAR "" 0 20 0 2 #include ENDPAGE PAGE "Valute" -1 -1 78 12 GROUPBOX DLG_NULL 75 7 BEGIN PROMPT 1 0 "" FLAGS "R" END STRING FLD_TABVAL_CODTAB 3 BEGIN PROMPT 2 2 "Codice " FIELD LF_TABCOM->CODTAB FLAGS "UZ" KEY 1 USE %VAL INPUT CODTAB FLD_TABVAL_CODTAB DISPLAY "Codice" CODTAB DISPLAY "Valuta@25" S0 OUTPUT FLD_TABVAL_CODTAB CODTAB OUTPUT FLD_TABVAL_S0 S0 HELP "Codice della valuta" CHECKTYPE REQUIRED END STRING FLD_TABVAL_S0 50 BEGIN PROMPT 2 4 "Descrizione " FIELD LF_TABCOM->S0 KEY 2 USE %VAL KEY 2 INPUT S0 FLD_TABVAL_S0 DISPLAY "Valuta@25" S0 DISPLAY "Codice" CODTAB COPY OUTPUT FLD_TABVAL_CODTAB HELP "Descrizione della valuta" CHECKTYPE REQUIRED WARNING "Manca la descrizione" END NUMBER FLD_TABVAL_R0 15 5 BEGIN PROMPT 2 7 "Cambio " FIELD LF_TABCOM->R10 PICTURE ".5" FLAGS "R" END DATE FLD_TABVAL_D0 BEGIN PROMPT 2 9 "Data " FIELD LF_TABCOM->D0 HELP "Data di ultimo aggiornamento" END NUMBER FLD_DECSVAL_I0 1 BEGIN PROMPT 2 11 "Decimali " FIELD LF_TABCOM->I0 HELP "Numero di decimali da utilizzare per l'arrotondamento" END ENDPAGE ENDMASK