#include "tptbtps.h" TOOLBAR "topbar" 0 0 0 2 #include "relapbar.h" ENDPAGE PAGE "Conversione tabella stati Pack" 0 2 0 0 STRING FLD_TABTPS_CODTAB 15 BEGIN PROMPT 3 1 "Cod. stato Pack " FIELD CODTAB KEY 1 USE %TPS FLAGS "U" INPUT CODTAB FLD_TABTPS_CODTAB DISPLAY "Cod. stato pack@15" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT FLD_TABTPS_CODTAB CODTAB OUTPUT FLD_TABTPS_DESCR S0 CHECKTYPE REQUIRED END STRING FLD_TABTPS_DESCR 50 BEGIN PROMPT 3 2 "Descrizione " USE %TPS KEY 2 FIELD S0 END STRING FLD_TABTPS_CODSTA 3 BEGIN PROMPT 3 3 "Cod. corrispondente " HELP "Codice stato" FIELD S6 FLAGS "U" USE %STA KEY 1 INPUT CODTAB FLD_TABTPS_CODSTA DISPLAY "Codice" CODTAB DISPLAY "Stato@50" S0 OUTPUT FLD_TABTPS_CODSTA CODTAB CHECKTYPE REQUIRED END ENDPAGE ENDMASK