#include "ci1300a.h" TOOLBAR "topbar" 0 0 0 2 #include ENDPAGE PAGE "Rilevazione ore per Risorsa - Attrezzatura" -1 -1 0 0 GROUPBOX -1 78 5 BEGIN PROMPT 1 1 "@bFiltri su risorse / attrezzature" END LISTBOX F_RISOATT 1 12 BEGIN PROMPT 2 2 "@bTipo " ITEM "R|Risorsa" MESSAGE HIDE,2@|SHOW,1@ ITEM "A|Attrezzatura" MESSAGE HIDE,1@|SHOW,2@ FLAGS "Z" FIELD #RISOATT END STRING F_DA_CODRIS 16 BEGIN PROMPT 2 3 "Da codice " USE RSS INPUT CODTAB F_DA_CODRIS DISPLAY "Codice@16" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_DA_CODRIS CODTAB OUTPUT F_DA_DESRIS S0 CHECKTYPE NORMAL FLAGS "U" GROUP 1 END STRING F_DA_DESRIS 50 43 BEGIN PROMPT 32 3 "" USE RSS KEY 2 INPUT S0 F_DA_DESRIS DISPLAY "Descrizione@50" S0 DISPLAY "Codice@16" CODTAB COPY OUTPUT F_DA_CODRIS CHECKTYPE NORMAL GROUP 1 END STRING F_A_CODRIS 16 BEGIN PROMPT 2 4 "A codice " USE RSS INPUT CODTAB F_A_CODRIS DISPLAY "Codice@16" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_A_CODRIS CODTAB OUTPUT F_A_DESRIS S0 CHECKTYPE NORMAL FLAGS "U" GROUP 1 END STRING F_A_DESRIS 50 43 BEGIN PROMPT 32 4 "" USE RSS KEY 2 INPUT S0 F_DA_DESRIS DISPLAY "Descrizione@50" S0 DISPLAY "Codice@16" CODTAB COPY OUTPUT F_A_CODRIS CHECKTYPE NORMAL GROUP 1 END STRING F_DA_CODATT 16 BEGIN PROMPT 2 3 "Da codice " USE ATR INPUT CODTAB F_DA_CODATT DISPLAY "Codice@16" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_DA_CODATT CODTAB OUTPUT F_DA_DESATT S0 CHECKTYPE NORMAL FLAGS "U" GROUP 2 END STRING F_DA_DESATT 50 43 BEGIN PROMPT 32 3 "" USE ATR KEY 2 INPUT S0 F_DA_DESATT DISPLAY "Descrizione@50" S0 DISPLAY "Codice@16" CODTAB COPY OUTPUT F_DA_CODATT CHECKTYPE NORMAL GROUP 2 END STRING F_A_CODATT 16 BEGIN PROMPT 2 4 "A codice " USE ATR INPUT CODTAB F_A_CODATT DISPLAY "Codice@16" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_A_CODATT CODTAB OUTPUT F_A_DESATT S0 FLAGS "U" CHECKTYPE NORMAL GROUP 2 END STRING F_A_DESATT 50 43 BEGIN PROMPT 32 4 "" USE ATR KEY 2 INPUT S0 F_A_DESATT DISPLAY "Descrizione@50" S0 DISPLAY "Codice@16" CODTAB COPY OUTPUT F_A_CODATT CHECKTYPE NORMAL GROUP 2 END GROUPBOX -1 78 4 BEGIN PROMPT 1 6 "@bFiltri su anno / mese" END LISTBOX F_TIPOSTAMPA 10 BEGIN PROMPT 2 7 "Tipo di stampa " ITEM "M|Mensile" MESSAGE SHOW,F_DA_MESE|SHOW,F_A_MESE ITEM "A|Annuale" MESSAGE HIDE,F_DA_MESE|HIDE,F_A_MESE FLAGS "Z" FIELD #TIPOSTAMPA END NUMBER F_ANNO 4 BEGIN PROMPT 2 8 "Anno " CHECKTYPE REQUIRED FLAGS "A" FIELD #ANNO NUM_EXPR (#F_A_MESE>=#F_DA_MESE) WARNING "Il mese finale deve essere uguale o successivo a quello iniziale" END LISTBOX F_DA_MESE 10 BEGIN PROMPT 17 8 "Da mese " FLAGS "AM" END LISTBOX F_A_MESE 10 BEGIN PROMPT 42 8 "A mese " FLAGS "AM" END RADIOBUTTON F_ORDINAMENTO 25 BEGIN PROMPT 1 10 "@bStampa e ordina per:" ITEM "1|Commessa" MESSAGE SHOW,3@ ITEM "2|Commessa - CdC" MESSAGE SHOW,3@ ITEM "3|Commessa - Fase" MESSAGE SHOW,3@ ITEM "4|Commessa - CdC - Fase" MESSAGE SHOW,3@ ITEM "5|CdC" MESSAGE HIDE,3@ ITEM "6|CdC - Commessa" MESSAGE HIDE,3@ ITEM "7|CdC - Fase" MESSAGE HIDE,3@ ITEM "8|CdC - Commessa - Fase" MESSAGE HIDE,3@ FIELD #ORDINAMENTO END TEXT DLG_NULL BEGIN PROMPT 27 10 "@bCommesse da considerare separatamente" GROUP 3 END SPREADSHEET F_RIGHE 50 9 BEGIN PROMPT 27 11 "" ITEM "Codice@20" ITEM "Descrizione@50" GROUP 3 END STRING DLG_PROFILE 50 BEGIN PROMPT 1 -1 "Profilo " PSELECT END ENDPAGE ENDMASK //maschera di riga dello sheet PAGE "Riga commessa" -1 -1 72 3 STRING S_CODCMS 20 BEGIN PROMPT 1 1 "Codice " USE LF_COMMESSE INPUT CODCMS S_CODCMS DISPLAY "Codice@20" CODCMS DISPLAY "Descrizione@50" DESCRIZ OUTPUT S_CODCMS CODCMS OUTPUT S_DESCRCMS DESCRIZ CHECKTYPE NORMAL END STRING S_DESCRCMS 50 BEGIN PROMPT 1 2 "Descrizione " USE LF_COMMESSE KEY 2 INPUT DESCRIZ S_DESCRCMS DISPLAY "Descrizione@50" DESCRIZ DISPLAY "Codice@20" CODCMS COPY OUTPUT S_CODCMS CHECKTYPE NORMAL END ENDPAGE TOOLBAR "topbar" 0 0 0 2 BUTTON DLG_OK 2 2 BEGIN PROMPT 1 1 "" END BUTTON DLG_DELREC 2 2 BEGIN PROMPT 2 1 "" END BUTTON DLG_CANCEL 2 2 BEGIN PROMPT 3 1 "" END ENDPAGE ENDMASK