#include "ps0330100a.h" PAGE "Rimanenze per marca" -1 -1 78 13 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_CODMAG 3 BEGIN PROMPT 2 6 "Magazzino " USE MAG SELECT CODTAB[4,5]=="" FLAGS "U" INPUT CODTAB F_CODMAG DISPLAY "Codice" CODTAB[1,3] DISPLAY "Denominazione magazzino@50" S0 OUTPUT F_CODMAG CODTAB[1,3] OUTPUT F_DESCRMAG S0 CHECKTYPE REQUIRED END STRING F_DESCRMAG 50 BEGIN PROMPT 22 6 "" USE MAG KEY 2 INPUT S0 F_DESCRMAG DISPLAY "Denominazione magazzino@50" S0 DISPLAY "Codice" CODTAB[1,3] COPY OUTPUT F_CODMAG CHECKTYPE REQUIRED WARNING "Manca la denominazione del magazzino" END STRING F_REPORT 50 BEGIN PROMPT 1 8 "Report " RSELECT "ps0330" CHECKTYPE REQUIRED END STRING F_PATH_FILE 255 50 BEGIN PROMPT 1 9 "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 #include ENDPAGE ENDMASK