#include "ps0330100a.h" PAGE "Rimanenze per marca" -1 -1 78 10 NUMBER F_ANNO 4 BEGIN PROMPT 1 1 "Anno " CHECKTYPE REQUIRED END GROUPBOX DLG_NULL 76 4 BEGIN PROMPT 1 2 "@bMarche" END STRING F_DAMARCA 3 BEGIN PROMPT 2 3 "Da " USE LF_ANAMAG SELECT CODART?="???" INPUT CODART[1,3] F_DAMARCA DISPLAY "Marca" CODART[1,3] DISPLAY "Descrizione@50" DESCR OUTPUT F_DAMARCA CODART[1,3] OUTPUT F_DAMARCA_D DESCR CHECKTYPE SEARCH END STRING F_DAMARCA_D 50 BEGIN PROMPT 15 3 "" USE LF_ANAMAG KEY 2 SELECT CODART?="???" INPUT DESCR F_DAMARCA_D DISPLAY "Descrizione@50" DESCR DISPLAY "Marca" CODART[1,3] COPY OUTPUT F_DAMARCA CHECKTYPE SEARCH END STRING F_AMARCA 3 BEGIN PROMPT 2 4 "A " COPY USE F_DAMARCA INPUT CODART[1,3] F_AMARCA COPY DISPLAY F_DAMARCA OUTPUT F_AMARCA CODART[1,3] OUTPUT F_AMARCA_D DESCR CHECKTYPE SEARCH END STRING F_AMARCA_D 50 BEGIN PROMPT 15 4 "" COPY USE F_DAMARCA_D INPUT DESCR F_AMARCA_D COPY DISPLAY F_DAMARCA_D COPY OUTPUT F_AMARCA CHECKTYPE SEARCH END STRING F_REPORT 50 BEGIN PROMPT 1 6 "Report " RSELECT "ps0330" CHECKTYPE REQUIRED END STRING F_PATH_FILE 255 50 BEGIN PROMPT 1 7 "Cartella dest. " DSELECT FLAGS "M" CHECKTYPE REQUIRED WARNING "Selezionare una cartella valida!" END STRING DLG_PROFILE 50 BEGIN PROMPT 1 -2 "Profilo " PSELECT END ENDPAGE TOOLBAR "" 0 0 0 2 BUTTON DLG_OK 10 2 BEGIN PROMPT 1 1 "~Mmmuuu!" PICTURE TOOL_PACK2MAG END #include ENDPAGE ENDMASK