campo-sirio/ca/ca0300a.uml
guy 08d0526d91 Patch level : 2.2 bopath
Files correlati     : ca0, ca2 e tracciati
Ricompilazione Demo : [ ]
Commento            :

Prima versione funzionante :-) dei movimenti di contabilita' analitica
Richiesto aggiornamento modulo 'include' per poter utilizzare il nuovo
fantastico costruttore dei TRecord_array


git-svn-id: svn://10.65.10.50/trunk@12688 c028cbd2-c16b-5b4b-a496-9718f37d4682
2005-02-11 15:31:10 +00:00

409 lines
6.1 KiB
Plaintext
Executable File

#include "ca0300a.h"
TOOLBAR "" 0 -2 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE "Pagina 1" -1 -1 78 10
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 1 "@bLivelli generali"
END
DATE F_DATAATTCA
BEGIN
PROMPT 2 2 "Data attivazione "
FIELD DtAttCa
END
LIST F_LEVEL_1 3 15
BEGIN
PROMPT 2 3 "Primo livello "
ITEM "CDC|Centro di Costo"
ITEM "CMS|Commessa"
FIELD Level(1)
END
LIST F_LEVEL_2 3 15
BEGIN
PROMPT 2 4 "Secondo livello "
ITEM " |Nessuno"
ITEM "CDC|Centro di Costo"
ITEM "CMS|Commessa"
FIELD Level(2)
END
BOOLEAN F_ATTIVA_FASI
BEGIN
PROMPT 2 5 "Utilizza le fasi "
MESSAGE FALSE CLEAR,F_FATHER_FASI
MESSAGE TRUE ENABLE,F_FATHER_FASI
FIELD AttFasi
END
LIST F_FATHER_FASI 3 15
BEGIN
PROMPT 2 6 "Liv. sup. fase "
ITEM " |Nessuno"
ITEM "CDC|Centro di Costo"
ITEM "CMS|Commessa"
FIELD FathFasi
END
ENDPAGE
PAGE "Pagina 2" -1 -1 78 10
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 1 "@bCentro di costo"
END
TEXT -1
BEGIN
PROMPT 4 2 "Formato codice"
END
TEXT -1
BEGIN
PROMPT 27 2 "Descrizione"
END
STRING F_CDC_1 20
BEGIN
PROMPT 2 3 "1 "
MESSAGE EMPTY CLEAR,F_CDC_2|CLEAR,F_DESCDC_2|K_TAB,F_CDC_2|RESET,F_DESCDC_1
MESSAGE ENABLE,F_CDC_2|ENABLE,F_DESCDC_2
FIELD CdC(1)
END
STRING F_DESCDC_1 50
BEGIN
PROMPT 27 3 ""
FIELD CdCDes(1)
END
STRING F_CDC_2 20
BEGIN
PROMPT 2 4 "2 "
MESSAGE EMPTY CLEAR,F_CDC_3|CLEAR,F_DESCDC_3|K_TAB,F_CDC_3|RESET,F_DESCDC_2
MESSAGE ENABLE,F_CDC_3|ENABLE,F_DESCDC_3
FLAGS "G"
FIELD CdC(2)
END
STRING F_DESCDC_2 50
BEGIN
PROMPT 27 4 ""
FIELD CdCDes(2)
END
STRING F_CDC_3 20
BEGIN
PROMPT 2 5 "3 "
MESSAGE EMPTY CLEAR,F_CDC_4|CLEAR,F_DESCDC_4|K_TAB,F_CDC_4|RESET,F_DESCDC_3
MESSAGE ENABLE,F_CDC_4|ENABLE,F_DESCDC_4
FLAGS "G"
FIELD CdC(3)
END
STRING F_DESCDC_3 50
BEGIN
PROMPT 27 5 ""
FIELD CdCDes(3)
END
STRING F_CDC_4 20
BEGIN
PROMPT 2 6 "4 "
MESSAGE EMPTY RESET,F_DESCDC_4
FLAGS "G"
FIELD CdC(4)
END
STRING F_DESCDC_4 50
BEGIN
PROMPT 27 6 ""
FIELD CdCDes(4)
END
BOOLEAN F_CDCREQ
BEGIN
PROMPT 2 7 "Obbligatorio nelle righe dei movimenti"
FIELD CdcRequired
END
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 9 "@bCommessa"
END
TEXT -1
BEGIN
PROMPT 4 10 "Formato codice"
END
TEXT -1
BEGIN
PROMPT 27 10 "Descrizione"
END
STRING F_CMS_1 20
BEGIN
PROMPT 2 11 "1 "
MESSAGE EMPTY CLEAR,F_CMS_2|CLEAR,F_DESCMS_2|K_TAB,F_CMS_2|RESET,F_DESCMS_1
MESSAGE ENABLE,F_CMS_2|ENABLE,F_DESCMS_2
FIELD Cms(1)
END
STRING F_DESCMS_1 50
BEGIN
PROMPT 27 11 ""
FIELD CmsDes(1)
END
STRING F_CMS_2 20
BEGIN
PROMPT 2 12 "2 "
MESSAGE EMPTY CLEAR,F_CMS_3|CLEAR,F_DESCMS_3|K_TAB,F_CMS_3|RESET,F_DESCMS_2
MESSAGE ENABLE,F_CMS_3|ENABLE,F_DESCMS_3
FLAGS "G"
FIELD Cms(2)
END
STRING F_DESCMS_2 50
BEGIN
PROMPT 27 12 ""
FIELD CmsDes(2)
END
STRING F_CMS_3 20
BEGIN
PROMPT 2 13 "3 "
MESSAGE EMPTY CLEAR,F_CMS_4|CLEAR,F_DESCMS_4|K_TAB,F_CMS_4|RESET,F_DESCMS_3
MESSAGE ENABLE,F_CMS_4|ENABLE,F_DESCMS_4
FLAGS "G"
FIELD Cms(3)
END
STRING F_DESCMS_3 50
BEGIN
PROMPT 27 13 ""
FIELD CmsDes(3)
END
STRING F_CMS_4 20
BEGIN
PROMPT 2 14 "4 "
MESSAGE EMPTY RESET,F_DESCMS_4
FLAGS "G"
FIELD Cms(4)
END
STRING F_DESCMS_4 50
BEGIN
PROMPT 27 14 ""
FIELD CmsDes(4)
END
BOOLEAN F_CMSREQ
BEGIN
PROMPT 2 15 "Obbligatorio nelle righe dei movimenti"
FIELD CmsRequired
END
ENDPAGE
PAGE "Pagina 3" -1 -1 78 10
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 1 "@bFase"
END
TEXT -1
BEGIN
PROMPT 4 2 "Formato codice"
END
TEXT -1
BEGIN
PROMPT 21 2 "Descrizione"
END
STRING F_FASE_1 10
BEGIN
PROMPT 2 3 "1 "
MESSAGE EMPTY CLEAR,F_FASE_2|CLEAR,F_DESFASE_2|K_TAB,F_FASE_2|RESET,F_DESFASE_1
MESSAGE ENABLE,F_FASE_2|ENABLE,F_DESFASE_2
FIELD Fsc(1)
END
STRING F_DESFASE_1 50
BEGIN
PROMPT 21 3 ""
FIELD FscDes(1)
END
STRING F_FASE_2 10
BEGIN
PROMPT 2 4 "2 "
MESSAGE EMPTY CLEAR,F_FASE_3|CLEAR,F_DESFASE_3|K_TAB,F_FASE_3|RESET,F_DESFASE_2
MESSAGE ENABLE,F_FASE_3|ENABLE,F_DESFASE_3
FLAGS "G"
FIELD Fsc(2)
END
STRING F_DESFASE_2 50
BEGIN
PROMPT 21 4 ""
FIELD FscDes(2)
END
STRING F_FASE_3 10
BEGIN
PROMPT 2 5 "3 "
MESSAGE EMPTY CLEAR,F_FASE_4|CLEAR,F_DESFASE_4|K_TAB,F_FASE_4|RESET,F_DESFASE_3
MESSAGE ENABLE,F_FASE_4|ENABLE,F_DESFASE_4
FLAGS "G"
FIELD Fsc(3)
END
STRING F_DESFASE_3 50
BEGIN
PROMPT 21 5 ""
FIELD FscDes(3)
END
STRING F_FASE_4 10
BEGIN
PROMPT 2 6 "4 "
MESSAGE EMPTY RESET,F_DESFASE_4
FLAGS "G"
FIELD Fsc(4)
END
STRING F_DESFASE_4 50
BEGIN
PROMPT 21 6 ""
FIELD FscDes(4)
END
BOOLEAN F_FSCREQ
BEGIN
PROMPT 2 7 "Obbligatorio nelle righe dei movimenti"
FIELD FscRequired
END
GROUPBOX DLG_NULL 78 9
BEGIN
PROMPT 1 10 "@bPiano dei conti industriale"
END
BOOLEAN F_USE_PDCC
BEGIN
PROMPT 2 11 "Utilizza il piano dei conti contabile"
MESSAGE TRUE HIDE,5@
MESSAGE FALSE SHOW,5@
FIELD UsePdcc
END
TEXT -1
BEGIN
PROMPT 4 12 "Formato codice"
GROUP 5
END
TEXT -1
BEGIN
PROMPT 27 12 "Descrizione"
GROUP 5
END
STRING F_PDCI_1 20
BEGIN
PROMPT 2 13 "1 "
MESSAGE EMPTY CLEAR,F_PDCI_2|CLEAR,F_DESPDCI_2|K_TAB,F_PDCI_2|RESET,F_DESPDCI_1
MESSAGE ENABLE,F_PDCI_2|ENABLE,F_DESPDCI_2
FIELD Pdci(1)
GROUP 5
END
STRING F_DESPDCI_1 50
BEGIN
PROMPT 27 13 ""
FIELD PdciDes(1)
GROUP 5
END
STRING F_PDCI_2 20
BEGIN
PROMPT 2 14 "2 "
MESSAGE EMPTY CLEAR,F_PDCI_3|CLEAR,F_DESPDCI_3|K_TAB,F_PDCI_3|RESET,F_DESPDCI_2
MESSAGE ENABLE,F_PDCI_3|ENABLE,F_DESPDCI_3
FLAGS "G"
FIELD Pdci(2)
GROUP 5
END
STRING F_DESPDCI_2 50
BEGIN
PROMPT 27 14 ""
FIELD PdciDes(2)
GROUP 5
END
STRING F_PDCI_3 20
BEGIN
PROMPT 2 15 "3 "
MESSAGE EMPTY CLEAR,F_PDCI_4|CLEAR,F_DESPDCI_4|K_TAB,F_PDCI_4|RESET,F_DESPDCI_3
MESSAGE ENABLE,F_PDCI_4|ENABLE,F_DESPDCI_4
FLAGS "G"
FIELD Pdci(3)
GROUP 5
END
STRING F_DESPDCI_3 50
BEGIN
PROMPT 27 15 ""
FIELD PdciDes(3)
GROUP 5
END
STRING F_PDCI_4 20
BEGIN
PROMPT 2 16 "4 "
MESSAGE EMPTY RESET,F_DESPDCI_4
FLAGS "G"
FIELD Pdci(4)
GROUP 5
END
STRING F_DESPDCI_4 50
BEGIN
PROMPT 27 16 ""
FIELD PdciDes(4)
GROUP 5
END
BOOLEAN F_PDCREQ
BEGIN
PROMPT 2 17 "Obbligatorio nelle righe dei movimenti"
FIELD PdciRequired
GROUP 5
END
ENDPAGE
ENDMASK