Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunto recordset per gestire "trasparentemente" i piani dei conti contabile o analitico. Potenziato calcolo saldi per gestire anche i livelli intermedi dei conti e soprattutto gestire la riclassificazione dei conti analitici tramite la tabella panapdc Potenziato il generatore di movimenti casuale per gestire anche il piano dei conti contabile nonche' la generazione automatica della tabela panapdc. git-svn-id: svn://10.65.10.50/trunk@13265 c028cbd2-c16b-5b4b-a496-9718f37d4682
409 lines
6.2 KiB
Plaintext
Executable File
409 lines
6.2 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"
|
|
FIELD UsePdcc
|
|
MESSAGE FALSE HIDE,F_PREFIX
|
|
MESSAGE TRUE SHOW,F_PREFIX
|
|
END
|
|
|
|
LIST F_PREFIX 1 10
|
|
BEGIN
|
|
PROMPT 54 11 "Prefisso "
|
|
ITEM "0|Nessuno"
|
|
ITEM "1|Livello 1"
|
|
ITEM "2|Livello 2"
|
|
ITEM "3|Livello 3"
|
|
FIELD PdcPrefix
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 4 12 "Formato codice"
|
|
GROUP 5
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 27 12 "Descrizione"
|
|
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)
|
|
END
|
|
|
|
STRING F_DESPDCI_1 50
|
|
BEGIN
|
|
PROMPT 27 13 ""
|
|
FIELD PdciDes(1)
|
|
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|CLEAR,F_PREFIX
|
|
MESSAGE ENABLE,F_PDCI_3|ENABLE,F_DESPDCI_3|ENABLE,F_PREFIX
|
|
FLAGS "G"
|
|
FIELD Pdci(2)
|
|
END
|
|
|
|
STRING F_DESPDCI_2 50
|
|
BEGIN
|
|
PROMPT 27 14 ""
|
|
FIELD PdciDes(2)
|
|
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)
|
|
END
|
|
|
|
STRING F_DESPDCI_3 50
|
|
BEGIN
|
|
PROMPT 27 15 ""
|
|
FIELD PdciDes(3)
|
|
END
|
|
|
|
STRING F_PDCI_4 20
|
|
BEGIN
|
|
PROMPT 2 16 "4 "
|
|
MESSAGE EMPTY RESET,F_DESPDCI_4
|
|
FLAGS "G"
|
|
FIELD Pdci(4)
|
|
END
|
|
|
|
STRING F_DESPDCI_4 50
|
|
BEGIN
|
|
PROMPT 27 16 ""
|
|
FIELD PdciDes(4)
|
|
END
|
|
|
|
BOOLEAN F_PDCREQ
|
|
BEGIN
|
|
PROMPT 2 17 "Obbligatorio nelle righe dei movimenti"
|
|
FIELD PdciRequired
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |