campo-sirio/ci/ci1400a.uml
luca 63e847f578 Patch level :10.0 1028
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
altre aggiunte alle stampe della rilevazione ore (sheet cms speciali anche nella stampa per risorsa)


git-svn-id: svn://10.65.10.50/branches/R_10_00@22279 c028cbd2-c16b-5b4b-a496-9718f37d4682
2011-06-17 09:47:02 +00:00

184 lines
2.9 KiB
Plaintext
Executable File

#include "ci1400a.h"
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Rilevazione ore per Commessa - CdC" -1 -1 0 0
GROUPBOX -1 78 4
BEGIN
PROMPT 1 1 "@bFiltri su Commesse / CdC"
END
LISTBOX F_CMSOCDC 1 16
BEGIN
PROMPT 2 2 "@bTipo "
ITEM "C|Commessa"
MESSAGE HIDE,2@|SHOW,1@|SHOW,3@
ITEM "S|Centro di Costo"
MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
FLAGS "Z"
FIELD #CMSOCDC
END
STRING F_CODCMS 20
BEGIN
PROMPT 2 3 "Commessa "
USE LF_COMMESSE
INPUT CODCMS F_CODCMS
DISPLAY "Codice@20" CODCMS
DISPLAY "Descrizione@50" DESCRIZ
OUTPUT F_CODCMS CODCMS
OUTPUT F_DESCMS DESCRIZ
CHECKTYPE NORMAL
GROUP 1
END
STRING F_DESCMS 50 42
BEGIN
PROMPT 34 3 ""
USE LF_COMMESSE KEY 2
INPUT DESCRIZ F_DESCMS
DISPLAY "Descrizione@50" DESCRIZ
DISPLAY "Codice@20" CODCMS
COPY OUTPUT F_CODCMS
CHECKTYPE NORMAL
GROUP 1
END
STRING F_CODCDC 20
BEGIN
PROMPT 2 3 "CdC "
USE LF_CDC
INPUT CODCOSTO F_CODCDC
DISPLAY "Codice@20" CODCOSTO
DISPLAY "Descrizione@50" DESCRIZ
OUTPUT F_CODCDC CODCOSTO
OUTPUT F_DESCDC DESCRIZ
CHECKTYPE NORMAL
GROUP 2
END
STRING F_DESCDC 50 47
BEGIN
PROMPT 29 3 ""
USE LF_CDC KEY 2
INPUT DESCRIZ F_DESCDC
DISPLAY "Descrizione@50" DESCRIZ
DISPLAY "Codice@20" CODCOSTO
COPY OUTPUT F_CODCDC
CHECKTYPE NORMAL
GROUP 2
END
GROUPBOX -1 78 4
BEGIN
PROMPT 1 5 "@bFiltri su anno / mese"
END
LISTBOX F_TIPOSTAMPA 10
BEGIN
PROMPT 2 6 "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 7 "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 7 "Da mese "
FLAGS "AM"
END
LISTBOX F_A_MESE 10
BEGIN
PROMPT 42 7 "A Mese "
FLAGS "AM"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 9 "@bCommesse da considerare separatamente"
GROUP 3
END
SPREADSHEET F_RIGHE 78 -2
BEGIN
PROMPT 1 10 ""
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