Corretto conflitto precedente
git-svn-id: svn://10.65.10.50/trunk@186 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
c4c3f7bae3
commit
d846d8490f
582
cg/cg0500a.uml
582
cg/cg0500a.uml
@ -1,291 +1,291 @@
|
||||
#include "cg0500.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL -1 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
STRING F_COD_CAUS 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Codice "
|
||||
FIELD LF_CAUSALI->CODCAUS
|
||||
KEY 1
|
||||
FLAGS "U"
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_COD_CAUS
|
||||
DISPLAY "Cod. causale" CODCAUS
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
DISPLAY "Tipo documento" TIPODOC
|
||||
DISPLAY "Codice registro" REG
|
||||
DISPLAY "Tipo movimento" TIPOMOV
|
||||
OUTPUT F_COD_CAUS CODCAUS
|
||||
OUTPUT F_DESCR DESCR
|
||||
HELP "Codice causale"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 40
|
||||
BEGIN
|
||||
PROMPT 17 1 "Descrizione "
|
||||
FIELD LF_CAUSALI->DESCR
|
||||
COPY USE F_COD_CAUS
|
||||
INPUT CODCAUS F_COD_CAUS
|
||||
INPUT DESCR F_DESCR
|
||||
DISPLAY "Cod. causale" CODCAUS
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
DISPLAY "Tipo documento" TIPODOC
|
||||
DISPLAY "Codice registro" REG
|
||||
DISPLAY "Tipo movimento" TIPOMOV
|
||||
OUTPUT F_COD_CAUS CODCAUS
|
||||
OUTPUT F_DESCR DESCR
|
||||
HELP "Descrizione della causale"
|
||||
END
|
||||
|
||||
STRING F_TIPO_DOC 2
|
||||
BEGIN
|
||||
PROMPT 2 4 "Tipo doc. "
|
||||
FIELD LF_CAUSALI->TIPODOC
|
||||
USE %TPD
|
||||
INPUT CODTAB F_TIPO_DOC
|
||||
DISPLAY "Tipo " CODTAB
|
||||
DISPLAY "Descrizione @50 " S0
|
||||
OUTPUT F_TIPO_DOC CODTAB
|
||||
HELP "Tipo documento"
|
||||
CHECKTYPE NORMAL
|
||||
// MESSAGE SHOW, 2@
|
||||
// MESSAGE EMPTY HIDE, 2@
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
STRING F_COD_REG 3
|
||||
BEGIN
|
||||
PROMPT 23 4 "Cod. reg. "
|
||||
FIELD LF_CAUSALI->REG
|
||||
USE REG
|
||||
INPUT CODTAB[1,4] F_ANNOES
|
||||
INPUT CODTAB[5,7] F_COD_REG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice registro " CODTAB[5,7]
|
||||
DISPLAY "Tipo" I0
|
||||
DISPLAY "Registro corrispettivi" B0
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT F_ANNOES CODTAB[1,4]
|
||||
OUTPUT F_COD_REG CODTAB[5,7]
|
||||
OUTPUT F_TIPO_REG I0
|
||||
OUTPUT F_CORRISP B0
|
||||
HELP "Codice registro"
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
// Questo rimane sempre nascosto
|
||||
STRING F_TIPO_MOV 2
|
||||
BEGIN
|
||||
PROMPT 68 4 ""
|
||||
FIELD LF_CAUSALI->TIPOMOV
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG
|
||||
LISTBOX F_TIPO_MOV_1 1 20
|
||||
BEGIN
|
||||
PROMPT 44 4 "Tipo mov. "
|
||||
FIELD LF_CAUSALI->TIPOMOV
|
||||
HELP "Tipo movimento"
|
||||
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV
|
||||
// GROUP 2
|
||||
END
|
||||
|
||||
// Viene mostrato questo se TPD vuoto o uguale a IN AN PG
|
||||
LISTBOX F_TIPO_MOV_2 1 20
|
||||
BEGIN
|
||||
PROMPT 44 4 "Tipo mov. "
|
||||
FIELD LF_CAUSALI->TIPOMOV
|
||||
HELP "Inserire il tipo movimento"
|
||||
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 2 6 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_TIPO_REG 4
|
||||
BEGIN
|
||||
PROMPT 23 5 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
BOOLEAN F_CORRISP
|
||||
BEGIN
|
||||
PROMPT 33 5 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_GCS
|
||||
BEGIN
|
||||
PROMPT 2 7 ""
|
||||
ITEM "Tipo conto@21"
|
||||
ITEM "C/F"
|
||||
ITEM "Gr."
|
||||
ITEM "Co."
|
||||
ITEM "Sottoc."
|
||||
ITEM "D/A"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Descr. agg."
|
||||
ITEM "Iva"
|
||||
ITEM "Cod.Iva"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL -1 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BCampi obbligatori in caricamento documenti"
|
||||
END
|
||||
|
||||
BOOLEAN F_DATA_DOC
|
||||
BEGIN
|
||||
PROMPT 2 1 "Data documento"
|
||||
FIELD LF_CAUSALI->DATADOC
|
||||
HELP ""
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN F_NUM_DOC
|
||||
BEGIN
|
||||
PROMPT 34 1 "Numero documento"
|
||||
FIELD LF_CAUSALI->NUMDOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN F_AUTO_FAT
|
||||
BEGIN
|
||||
PROMPT 2 4 "Autofattura art.34"
|
||||
FIELD LF_CAUSALI->AUTOFATT
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGAT
|
||||
BEGIN
|
||||
PROMPT 34 4 "Doc. non va in allegati fine anno"
|
||||
FIELD LF_CAUSALI->ALLEG
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_FAT_RITARDO
|
||||
BEGIN
|
||||
PROMPT 2 6 "Fattura in ritardo"
|
||||
FIELD LF_CAUSALI->RITFATT
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_COD_CAUS_IM 3
|
||||
BEGIN
|
||||
PROMPT 34 6 "Codice causale per l'incasso immediato "
|
||||
FIELD LF_CAUSALI->CODCAUSIM
|
||||
COPY USE F_COD_CAUS
|
||||
INPUT CODCAUS F_COD_CAUS_IM
|
||||
COPY DISPLAY F_COD_CAUS
|
||||
OUTPUT F_COD_CAUS_IM CODCAUS
|
||||
CHECKTYPE NORMAL
|
||||
// MESSAGE CLEAR, F_M_770
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_OP_INTRACOM
|
||||
BEGIN
|
||||
PROMPT 2 8 "Operazione intracomunitaria"
|
||||
FIELD LF_CAUSALI->INTRACOM
|
||||
// MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU
|
||||
// MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_VALINTRA
|
||||
BEGIN
|
||||
PROMPT 34 8 "Gestione valuta per operazioni intrac."
|
||||
FIELD LF_CAUSALI->VALINTRA
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_MOV_VALU
|
||||
BEGIN
|
||||
PROMPT 2 10 "Movimento in valuta"
|
||||
FIELD LF_CAUSALI->MOVVAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_MOV_SEZ
|
||||
BEGIN
|
||||
PROMPT 34 10 "Movimento solo sezionale"
|
||||
FIELD LF_CAUSALI->MOVSEZ
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
LISTBOX F_OP_FINE_ANNO 1 10
|
||||
BEGIN
|
||||
PROMPT 2 12 "Operazioni di fine anno "
|
||||
ITEM " | "
|
||||
ITEM "C|Chiusura"
|
||||
ITEM "A|Apertura"
|
||||
FIELD LF_CAUSALI->MOVAP
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
|
||||
LISTBOX F_COLL_CESP 1 40
|
||||
BEGIN
|
||||
PROMPT 2 14 "Collegamento cespiti "
|
||||
FIELD LF_CAUSALI->COLLCESP
|
||||
HELP "Inserire il tipo di collegamento cespiti"
|
||||
ITEM " |Nessuno"
|
||||
ITEM "A|Acquisto cespite"
|
||||
ITEM "B|Rettifica acquisto"
|
||||
ITEM "C|Sostenimento costi"
|
||||
ITEM "E|Eliminazione dal processo produttivo"
|
||||
ITEM "M|Rivalutazione monetaria"
|
||||
ITEM "P|Reinvestimento plusvalenze"
|
||||
ITEM "R|Rivalutazione economica"
|
||||
ITEM "T|Trasferimento"
|
||||
ITEM "V|Vendita cespite"
|
||||
ITEM "Z|Rettifica vendita"
|
||||
END
|
||||
|
||||
LISTBOX F_M_770 1 40
|
||||
BEGIN
|
||||
PROMPT 2 16 "Collegamento Mod.770 "
|
||||
FIELD LF_CAUSALI->M770
|
||||
HELP "Inserire il tipo di collegamento Mod.770"
|
||||
ITEM " |Nessuno" // MESSAGE ENABLE,F_COD_CAUS_IM
|
||||
ITEM "1|Ricevuta e/o pagamento fattura percip." // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "2|Versamento ritenute percip." // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "3|Versamento ritenute dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "4|Versamento contributi dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "5|Compensi non soggetti" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "6|Ritenute per operazioni occasionali" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg0500b.uml"
|
||||
#include "cg0500.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL -1 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
STRING F_COD_CAUS 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Codice "
|
||||
FIELD LF_CAUSALI->CODCAUS
|
||||
KEY 1
|
||||
FLAGS "U"
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_COD_CAUS
|
||||
DISPLAY "Cod. causale" CODCAUS
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
DISPLAY "Tipo documento" TIPODOC
|
||||
DISPLAY "Codice registro" REG
|
||||
DISPLAY "Tipo movimento" TIPOMOV
|
||||
OUTPUT F_COD_CAUS CODCAUS
|
||||
OUTPUT F_DESCR DESCR
|
||||
HELP "Codice causale"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 40
|
||||
BEGIN
|
||||
PROMPT 17 1 "Descrizione "
|
||||
FIELD LF_CAUSALI->DESCR
|
||||
COPY USE F_COD_CAUS
|
||||
INPUT CODCAUS F_COD_CAUS
|
||||
INPUT DESCR F_DESCR
|
||||
DISPLAY "Cod. causale" CODCAUS
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
DISPLAY "Tipo documento" TIPODOC
|
||||
DISPLAY "Codice registro" REG
|
||||
DISPLAY "Tipo movimento" TIPOMOV
|
||||
OUTPUT F_COD_CAUS CODCAUS
|
||||
OUTPUT F_DESCR DESCR
|
||||
HELP "Descrizione della causale"
|
||||
END
|
||||
|
||||
STRING F_TIPO_DOC 2
|
||||
BEGIN
|
||||
PROMPT 2 4 "Tipo doc. "
|
||||
FIELD LF_CAUSALI->TIPODOC
|
||||
USE %TPD
|
||||
INPUT CODTAB F_TIPO_DOC
|
||||
DISPLAY "Tipo " CODTAB
|
||||
DISPLAY "Descrizione @50 " S0
|
||||
OUTPUT F_TIPO_DOC CODTAB
|
||||
HELP "Tipo documento"
|
||||
CHECKTYPE NORMAL
|
||||
// MESSAGE SHOW, 2@
|
||||
// MESSAGE EMPTY HIDE, 2@
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
STRING F_COD_REG 3
|
||||
BEGIN
|
||||
PROMPT 23 4 "Cod. reg. "
|
||||
FIELD LF_CAUSALI->REG
|
||||
USE REG
|
||||
INPUT CODTAB[1,4] F_ANNOES
|
||||
INPUT CODTAB[5,7] F_COD_REG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice registro " CODTAB[5,7]
|
||||
DISPLAY "Tipo" I0
|
||||
DISPLAY "Registro corrispettivi" B0
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT F_ANNOES CODTAB[1,4]
|
||||
OUTPUT F_COD_REG CODTAB[5,7]
|
||||
OUTPUT F_TIPO_REG I0
|
||||
OUTPUT F_CORRISP B0
|
||||
HELP "Codice registro"
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
// Questo rimane sempre nascosto
|
||||
STRING F_TIPO_MOV 2
|
||||
BEGIN
|
||||
PROMPT 68 4 ""
|
||||
FIELD LF_CAUSALI->TIPOMOV
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG
|
||||
LISTBOX F_TIPO_MOV_1 1 20
|
||||
BEGIN
|
||||
PROMPT 44 4 "Tipo mov. "
|
||||
FIELD LF_CAUSALI->TIPOMOV
|
||||
HELP "Tipo movimento"
|
||||
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV
|
||||
// GROUP 2
|
||||
END
|
||||
|
||||
// Viene mostrato questo se TPD vuoto o uguale a IN AN PG
|
||||
LISTBOX F_TIPO_MOV_2 1 20
|
||||
BEGIN
|
||||
PROMPT 44 4 "Tipo mov. "
|
||||
FIELD LF_CAUSALI->TIPOMOV
|
||||
HELP "Inserire il tipo movimento"
|
||||
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
|
||||
ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 2 6 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_TIPO_REG 4
|
||||
BEGIN
|
||||
PROMPT 23 5 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
BOOLEAN F_CORRISP
|
||||
BEGIN
|
||||
PROMPT 33 5 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_GCS
|
||||
BEGIN
|
||||
PROMPT 2 7 ""
|
||||
ITEM "Tipo conto@21"
|
||||
ITEM "C/F"
|
||||
ITEM "Gr."
|
||||
ITEM "Co."
|
||||
ITEM "Sottoc."
|
||||
ITEM "D/A"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Descr. agg."
|
||||
ITEM "Iva"
|
||||
ITEM "Cod.Iva"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL -1 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BCampi obbligatori in caricamento documenti"
|
||||
END
|
||||
|
||||
BOOLEAN F_DATA_DOC
|
||||
BEGIN
|
||||
PROMPT 2 1 "Data documento"
|
||||
FIELD LF_CAUSALI->DATADOC
|
||||
HELP ""
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN F_NUM_DOC
|
||||
BEGIN
|
||||
PROMPT 34 1 "Numero documento"
|
||||
FIELD LF_CAUSALI->NUMDOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN F_AUTO_FAT
|
||||
BEGIN
|
||||
PROMPT 2 4 "Autofattura art.34"
|
||||
FIELD LF_CAUSALI->AUTOFATT
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGAT
|
||||
BEGIN
|
||||
PROMPT 34 4 "Doc. non va in allegati fine anno"
|
||||
FIELD LF_CAUSALI->ALLEG
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_FAT_RITARDO
|
||||
BEGIN
|
||||
PROMPT 2 6 "Fattura in ritardo"
|
||||
FIELD LF_CAUSALI->RITFATT
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_COD_CAUS_IM 3
|
||||
BEGIN
|
||||
PROMPT 34 6 "Codice causale per l'incasso immediato "
|
||||
FIELD LF_CAUSALI->CODCAUSIM
|
||||
COPY USE F_COD_CAUS
|
||||
INPUT CODCAUS F_COD_CAUS_IM
|
||||
COPY DISPLAY F_COD_CAUS
|
||||
OUTPUT F_COD_CAUS_IM CODCAUS
|
||||
CHECKTYPE NORMAL
|
||||
// MESSAGE CLEAR, F_M_770
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_OP_INTRACOM
|
||||
BEGIN
|
||||
PROMPT 2 8 "Operazione intracomunitaria"
|
||||
FIELD LF_CAUSALI->INTRACOM
|
||||
// MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU
|
||||
// MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_VALINTRA
|
||||
BEGIN
|
||||
PROMPT 34 8 "Gestione valuta per operazioni intrac."
|
||||
FIELD LF_CAUSALI->VALINTRA
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_MOV_VALU
|
||||
BEGIN
|
||||
PROMPT 2 10 "Movimento in valuta"
|
||||
FIELD LF_CAUSALI->MOVVAL
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_MOV_SEZ
|
||||
BEGIN
|
||||
PROMPT 34 10 "Movimento solo sezionale"
|
||||
FIELD LF_CAUSALI->MOVSEZ
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
LISTBOX F_OP_FINE_ANNO 1 10
|
||||
BEGIN
|
||||
PROMPT 2 12 "Operazioni di fine anno "
|
||||
ITEM " | "
|
||||
ITEM "C|Chiusura"
|
||||
ITEM "A|Apertura"
|
||||
FIELD LF_CAUSALI->MOVAP
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
|
||||
LISTBOX F_COLL_CESP 1 40
|
||||
BEGIN
|
||||
PROMPT 2 14 "Collegamento cespiti "
|
||||
FIELD LF_CAUSALI->COLLCESP
|
||||
HELP "Inserire il tipo di collegamento cespiti"
|
||||
ITEM " |Nessuno"
|
||||
ITEM "A|Acquisto cespite"
|
||||
ITEM "B|Rettifica acquisto"
|
||||
ITEM "C|Sostenimento costi"
|
||||
ITEM "E|Eliminazione dal processo produttivo"
|
||||
ITEM "M|Rivalutazione monetaria"
|
||||
ITEM "P|Reinvestimento plusvalenze"
|
||||
ITEM "R|Rivalutazione economica"
|
||||
ITEM "T|Trasferimento"
|
||||
ITEM "V|Vendita cespite"
|
||||
ITEM "Z|Rettifica vendita"
|
||||
END
|
||||
|
||||
LISTBOX F_M_770 1 40
|
||||
BEGIN
|
||||
PROMPT 2 16 "Collegamento Mod.770 "
|
||||
FIELD LF_CAUSALI->M770
|
||||
HELP "Inserire il tipo di collegamento Mod.770"
|
||||
ITEM " |Nessuno" // MESSAGE ENABLE,F_COD_CAUS_IM
|
||||
ITEM "1|Ricevuta e/o pagamento fattura percip." // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "2|Versamento ritenute percip." // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "3|Versamento ritenute dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "4|Versamento contributi dipendente" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "5|Compensi non soggetti" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
ITEM "6|Ritenute per operazioni occasionali" // MESSAGE CLEAR,F_COD_CAUS_IM
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg0500b.uml"
|
||||
|
||||
434
cg/cg0500b.uml
434
cg/cg0500b.uml
@ -1,223 +1,223 @@
|
||||
|
||||
#include "cg0500.h"
|
||||
|
||||
PAGE "" -1 -1 68 11
|
||||
|
||||
STRING 101 22
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LISTBOX 102 1 11
|
||||
BEGIN
|
||||
PROMPT 33 1 "C/F "
|
||||
ITEM " |Conto"
|
||||
MESSAGE SHOW,105|HIDE,205|HIDE,305
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE SHOW,205|HIDE,105|HIDE,305
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE SHOW,305|HIDE,105|HIDE,205
|
||||
FLAGS "DG"
|
||||
GROUP 1
|
||||
// FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER 103 3
|
||||
BEGIN
|
||||
PROMPT 1 3 "Gruppo "
|
||||
FIELD LF_RCAUSALI->GRUPPO
|
||||
USE LF_PCON KEY 1 SELECT (CONTO="") && (SOTTOCONTO="")
|
||||
INPUT GRUPPO 103
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Tipo C/F" TMCF
|
||||
CHECKTYPE NORMAL
|
||||
OUTPUT 103 GRUPPO
|
||||
OUTPUT 107 DESCR
|
||||
// OUTPUT 102 TMCF
|
||||
WARNING "Gruppo inesistente o mancante"
|
||||
// CHECKTYPE REQUIRED
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER 104 3
|
||||
BEGIN
|
||||
PROMPT 15 3 "Conto "
|
||||
FIELD LF_RCAUSALI->CONTO
|
||||
USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||
INPUT GRUPPO 103
|
||||
INPUT CONTO 104
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Tipo C/F" TMCF
|
||||
CHECKTYPE NORMAL
|
||||
OUTPUT 102 TMCF
|
||||
OUTPUT 104 CONTO
|
||||
OUTPUT 103 GRUPPO
|
||||
OUTPUT 107 DESCR
|
||||
WARNING "Conto inesistente o mancante"
|
||||
ADD RUN CG0 -0
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
// Sottoconto NORMALE
|
||||
NUMBER 105 6
|
||||
BEGIN
|
||||
PROMPT 29 3 "Sottoconto "
|
||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
INPUT GRUPPO 103
|
||||
INPUT CONTO 104
|
||||
INPUT SOTTOCONTO 105
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 103 GRUPPO
|
||||
OUTPUT 104 CONTO
|
||||
OUTPUT 105 SOTTOCONTO
|
||||
OUTPUT 107 DESCR
|
||||
ADD RUN CG0 -0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
||||
// Sottoconto CLIENTI
|
||||
NUMBER 205 6
|
||||
BEGIN
|
||||
PROMPT 29 3 "Cliente "
|
||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="C")
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF 205
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Tipo C/F" TIPOCF
|
||||
OUTPUT 205 CODCF
|
||||
OUTPUT 107 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,105
|
||||
ADD RUN CG0 -1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
// Sottoconto FORNITORI
|
||||
NUMBER 305 6
|
||||
BEGIN
|
||||
PROMPT 29 3 "Fornitore "
|
||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="F")
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF 305
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Tipo C/F" TIPOCF
|
||||
OUTPUT 305 CODCF
|
||||
OUTPUT 107 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,105
|
||||
ADD RUN CG0 -1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTBOX 106 5
|
||||
BEGIN
|
||||
PROMPT 51 3 "Sezione "
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
FIELD LF_RCAUSALI->SEZIONE
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
|
||||
#include "cg0500.h"
|
||||
|
||||
PAGE "" -1 -1 68 11
|
||||
|
||||
STRING 101 22
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LISTBOX 102 1 11
|
||||
BEGIN
|
||||
PROMPT 33 1 "C/F "
|
||||
ITEM " |Conto"
|
||||
MESSAGE SHOW,105|HIDE,205|HIDE,305
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE SHOW,205|HIDE,105|HIDE,305
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE SHOW,305|HIDE,105|HIDE,205
|
||||
FLAGS "DG"
|
||||
GROUP 1
|
||||
// FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER 103 3
|
||||
BEGIN
|
||||
PROMPT 1 3 "Gruppo "
|
||||
FIELD LF_RCAUSALI->GRUPPO
|
||||
USE LF_PCON KEY 1 SELECT (CONTO="") && (SOTTOCONTO="")
|
||||
INPUT GRUPPO 103
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Tipo C/F" TMCF
|
||||
CHECKTYPE NORMAL
|
||||
OUTPUT 103 GRUPPO
|
||||
OUTPUT 107 DESCR
|
||||
// OUTPUT 102 TMCF
|
||||
WARNING "Gruppo inesistente o mancante"
|
||||
// CHECKTYPE REQUIRED
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER 104 3
|
||||
BEGIN
|
||||
PROMPT 15 3 "Conto "
|
||||
FIELD LF_RCAUSALI->CONTO
|
||||
USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||
INPUT GRUPPO 103
|
||||
INPUT CONTO 104
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Tipo C/F" TMCF
|
||||
CHECKTYPE NORMAL
|
||||
OUTPUT 102 TMCF
|
||||
OUTPUT 104 CONTO
|
||||
OUTPUT 103 GRUPPO
|
||||
OUTPUT 107 DESCR
|
||||
WARNING "Conto inesistente o mancante"
|
||||
ADD RUN CG0 -0
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
// Sottoconto NORMALE
|
||||
NUMBER 105 6
|
||||
BEGIN
|
||||
PROMPT 29 3 "Sottoconto "
|
||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
INPUT GRUPPO 103
|
||||
INPUT CONTO 104
|
||||
INPUT SOTTOCONTO 105
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 103 GRUPPO
|
||||
OUTPUT 104 CONTO
|
||||
OUTPUT 105 SOTTOCONTO
|
||||
OUTPUT 107 DESCR
|
||||
ADD RUN CG0 -0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
||||
// Sottoconto CLIENTI
|
||||
NUMBER 205 6
|
||||
BEGIN
|
||||
PROMPT 29 3 "Cliente "
|
||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="C")
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF 205
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Tipo C/F" TIPOCF
|
||||
OUTPUT 205 CODCF
|
||||
OUTPUT 107 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,105
|
||||
ADD RUN CG0 -1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
// Sottoconto FORNITORI
|
||||
NUMBER 305 6
|
||||
BEGIN
|
||||
PROMPT 29 3 "Fornitore "
|
||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="F")
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF 305
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Tipo C/F" TIPOCF
|
||||
OUTPUT 305 CODCF
|
||||
OUTPUT 107 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,105
|
||||
ADD RUN CG0 -1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTBOX 106 5
|
||||
BEGIN
|
||||
PROMPT 51 3 "Sezione "
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
FIELD LF_RCAUSALI->SEZIONE
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
// Descrizione normale
|
||||
STRING 107 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
STRING 107 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
USE LF_PCON KEY 2
|
||||
FIELD LF_RCAUSALI->DESC
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
FIELD LF_RCAUSALI->DESC
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
// Descrizione CLIENTE
|
||||
STRING 207 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
FIELD LF_RCAUSALI->DESC
|
||||
GROUP 1
|
||||
STRING 207 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
FIELD LF_RCAUSALI->DESC
|
||||
GROUP 1
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
// Descrizione FORNITORE
|
||||
STRING 307 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
FIELD LF_RCAUSALI->DESC
|
||||
GROUP 1
|
||||
STRING 307 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
FIELD LF_RCAUSALI->DESC
|
||||
GROUP 1
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING 108 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Descrizione aggiuntiva "
|
||||
FIELD LF_RCAUSALI->CODDESC
|
||||
USE %DPN
|
||||
INPUT CODTAB 108
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT 108 CODTAB
|
||||
FLAGS "R"
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN 109
|
||||
BEGIN
|
||||
PROMPT 34 7 "Riga iva "
|
||||
FIELD LF_RCAUSALI->RIGAIVA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 110 4
|
||||
BEGIN
|
||||
USE %IVA
|
||||
PROMPT 48 7 "Codice iva "
|
||||
INPUT CODTAB 110
|
||||
FIELD LF_RCAUSALI->CODIVA
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT 110 CODTAB
|
||||
FLAGS "D"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_NULL 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Azzera"
|
||||
MESSAGE RESET,1@
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
END
|
||||
|
||||
STRING 108 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Descrizione aggiuntiva "
|
||||
FIELD LF_RCAUSALI->CODDESC
|
||||
USE %DPN
|
||||
INPUT CODTAB 108
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT 108 CODTAB
|
||||
FLAGS "R"
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN 109
|
||||
BEGIN
|
||||
PROMPT 34 7 "Riga iva "
|
||||
FIELD LF_RCAUSALI->RIGAIVA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 110 4
|
||||
BEGIN
|
||||
USE %IVA
|
||||
PROMPT 48 7 "Codice iva "
|
||||
INPUT CODTAB 110
|
||||
FIELD LF_RCAUSALI->CODIVA
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT 110 CODTAB
|
||||
FLAGS "D"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_NULL 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Azzera"
|
||||
MESSAGE RESET,1@
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -24,12 +24,6 @@
|
||||
|
||||
#include "cglib03.h"
|
||||
|
||||
<<<<<<< cg4400.h
|
||||
const int MAXSTR = 255;
|
||||
static char __tmp[MAXSTR];
|
||||
|
||||
=======
|
||||
>>>>>>> 1.6
|
||||
//enum STAMPA { bollati=1, unici=2 };
|
||||
const int TABREG = (int)TTable::name2log("REG");
|
||||
|
||||
|
||||
472
cg/cg4400a.uml
472
cg/cg4400a.uml
@ -1,236 +1,236 @@
|
||||
// cg4400a.uml
|
||||
// Stampa tabella registri
|
||||
|
||||
#include "cg4400a.h"
|
||||
|
||||
PAGE "Stampa registri IVA" -1 -1 56 19
|
||||
|
||||
/*
|
||||
LISTBOX TIPO_STAMPA 2 27
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo stampa "
|
||||
ITEM "1|Libri bollati della ditta"
|
||||
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
||||
ITEM "2|Libri unici dello studio"
|
||||
MESSAGE SHOW,2@|HIDE,1@|HIDE,3@
|
||||
ITEM "3|Stampa di prova"
|
||||
MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|SHOW,CODICE_LIBRO
|
||||
ITEM "4|Stampa libri con riferimenti al libro giornale"
|
||||
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
||||
END
|
||||
*/
|
||||
|
||||
NUMBER TIPO_STAMPA 1
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo stampa "
|
||||
SHEET "Cod|Descrizione@50"
|
||||
INPUT TIPO_STAMPA
|
||||
OUTPUT TIPO_STAMPA
|
||||
ITEM "1|Libri bollati della ditta"
|
||||
ITEM "2|Libri unici dello studio"
|
||||
ITEM "3|Stampa di prova"
|
||||
ITEM "4|Stampa libri con riferimenti al libro giornale"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 35 5
|
||||
BEGIN
|
||||
PROMPT 20 1 "Scelta ditte"
|
||||
END
|
||||
|
||||
NUMBER DA_CODICE 6
|
||||
BEGIN
|
||||
PROMPT 21 2 "Da codice "
|
||||
HELP "Immettere codice ditta di partenza per la selezione"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA DA_CODICE
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT DA_CODICE CODDITTA
|
||||
END
|
||||
|
||||
NUMBER A_CODICE 6
|
||||
BEGIN
|
||||
PROMPT 21 3 "A codice "
|
||||
HELP "Immettere codice ditta di fine selezione"
|
||||
COPY USE DA_CODICE
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA A_CODICE
|
||||
COPY DISPLAY DA_CODICE
|
||||
OUTPUT A_CODICE CODDITTA
|
||||
END
|
||||
|
||||
STRING F_SELECT 6
|
||||
BEGIN
|
||||
PROMPT 21 4 "Scelte n. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_SELECT 9
|
||||
BEGIN
|
||||
PROMPT 42 2 "Selezione"
|
||||
//MESSAGE EXIT,DLG_SELECT
|
||||
END
|
||||
|
||||
BUTTON F_ANNULLA 9
|
||||
BEGIN
|
||||
PROMPT 42 3 "Annulla"
|
||||
//MESSAGE EXIT,F_ANNULLA
|
||||
END
|
||||
|
||||
BUTTON F_VERIFICA 9
|
||||
BEGIN
|
||||
PROMPT 42 4 "Verifica"
|
||||
//MESSAGE EXIT,F_VERIFICA
|
||||
END
|
||||
|
||||
DATE DATA_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 6 "Data stampa "
|
||||
FLAG "AH"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Anno "
|
||||
FLAGS "A"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING CODICE_LIBRO 3
|
||||
BEGIN
|
||||
PROMPT 20 7 "Codice libro "
|
||||
HELP "Specificare il codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
|
||||
USE REG SELECT (I0<"3") && (S6=="") && (CODTAB[1,4]==#111)
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIBRO
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIBRO CODTAB[5,7]
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "UR"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING CODICE_LIBRO_PROVA 3
|
||||
BEGIN
|
||||
PROMPT 20 7 "Codice libro "
|
||||
HELP "Specificare il codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
|
||||
USE REG SELECT (I0<"3") && (CODTAB[1,4]==#111)
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIBRO_PROVA
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7]
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "UR"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING CODICE_LIB_UN 3
|
||||
BEGIN
|
||||
PROMPT 20 7 "Cod.libro unico "
|
||||
HELP "Specificare il codice del libro unico su cui deve essere effettuata la stampa"
|
||||
USE %LBU SELECT CODTAB[1,4]==#111
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIB_UN
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIB_UN CODTAB[5,7]
|
||||
FLAGS "UR"
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 52 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa movimenti"
|
||||
END
|
||||
|
||||
DATE DA_DATA
|
||||
BEGIN
|
||||
PROMPT 5 10 "Dalla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE A_DATA
|
||||
BEGIN
|
||||
PROMPT 30 10 "Alla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
LISTBOX FINO_A_MESE 10
|
||||
BEGIN
|
||||
PROMPT 5 10 "Fino al mese "
|
||||
FLAGS "M"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTBOX MESE 10
|
||||
BEGIN
|
||||
PROMPT 5 10 "Mese "
|
||||
FLAGS "M"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
LISTBOX TIPO_RIEPILOGATIVO 11
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo riepilogativo "
|
||||
HELP "Selezionare Del periodo/Annuale a seconda che si desideri la stampa della liquidazione periodica/annuale"
|
||||
ITEM "P|Del periodo"
|
||||
ITEM "A|Annuale"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTBOX ULTIMO_MESE 10
|
||||
BEGIN
|
||||
PROMPT 2 13 "Ultimo mese stampa su libro unico "
|
||||
FLAGS "MD"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER ULTIMA_PAGINA 4
|
||||
BEGIN
|
||||
PROMPT 2 14 "Ultimo numero di pagina stampata libro unico "
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING CODICE_LIBRO_IVA 3
|
||||
BEGIN
|
||||
PROMPT 2 15 "Eventuale codice libro IVA "
|
||||
HELP "Se non viene indicato nessun cod. libro IVA, vengono stampati tutti i registri delle ditte selezionate"
|
||||
USE REG SELECT (I0<"3") && (S6=="") && (CODTAB[1,4]==#111)
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIBRO_IVA
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIBRO_IVA CODTAB[5,7]
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "UR"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
// cg4400a.uml
|
||||
// Stampa tabella registri
|
||||
|
||||
#include "cg4400a.h"
|
||||
|
||||
PAGE "Stampa registri IVA" -1 -1 56 19
|
||||
|
||||
/*
|
||||
LISTBOX TIPO_STAMPA 2 27
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo stampa "
|
||||
ITEM "1|Libri bollati della ditta"
|
||||
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
||||
ITEM "2|Libri unici dello studio"
|
||||
MESSAGE SHOW,2@|HIDE,1@|HIDE,3@
|
||||
ITEM "3|Stampa di prova"
|
||||
MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|SHOW,CODICE_LIBRO
|
||||
ITEM "4|Stampa libri con riferimenti al libro giornale"
|
||||
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
||||
END
|
||||
*/
|
||||
|
||||
NUMBER TIPO_STAMPA 1
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo stampa "
|
||||
SHEET "Cod|Descrizione@50"
|
||||
INPUT TIPO_STAMPA
|
||||
OUTPUT TIPO_STAMPA
|
||||
ITEM "1|Libri bollati della ditta"
|
||||
ITEM "2|Libri unici dello studio"
|
||||
ITEM "3|Stampa di prova"
|
||||
ITEM "4|Stampa libri con riferimenti al libro giornale"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 35 5
|
||||
BEGIN
|
||||
PROMPT 20 1 "Scelta ditte"
|
||||
END
|
||||
|
||||
NUMBER DA_CODICE 6
|
||||
BEGIN
|
||||
PROMPT 21 2 "Da codice "
|
||||
HELP "Immettere codice ditta di partenza per la selezione"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA DA_CODICE
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT DA_CODICE CODDITTA
|
||||
END
|
||||
|
||||
NUMBER A_CODICE 6
|
||||
BEGIN
|
||||
PROMPT 21 3 "A codice "
|
||||
HELP "Immettere codice ditta di fine selezione"
|
||||
COPY USE DA_CODICE
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA A_CODICE
|
||||
COPY DISPLAY DA_CODICE
|
||||
OUTPUT A_CODICE CODDITTA
|
||||
END
|
||||
|
||||
STRING F_SELECT 6
|
||||
BEGIN
|
||||
PROMPT 21 4 "Scelte n. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_SELECT 9
|
||||
BEGIN
|
||||
PROMPT 42 2 "Selezione"
|
||||
//MESSAGE EXIT,DLG_SELECT
|
||||
END
|
||||
|
||||
BUTTON F_ANNULLA 9
|
||||
BEGIN
|
||||
PROMPT 42 3 "Annulla"
|
||||
//MESSAGE EXIT,F_ANNULLA
|
||||
END
|
||||
|
||||
BUTTON F_VERIFICA 9
|
||||
BEGIN
|
||||
PROMPT 42 4 "Verifica"
|
||||
//MESSAGE EXIT,F_VERIFICA
|
||||
END
|
||||
|
||||
DATE DATA_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 6 "Data stampa "
|
||||
FLAG "AH"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Anno "
|
||||
FLAGS "A"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING CODICE_LIBRO 3
|
||||
BEGIN
|
||||
PROMPT 20 7 "Codice libro "
|
||||
HELP "Specificare il codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
|
||||
USE REG SELECT (I0<"3") && (S6=="") && (CODTAB[1,4]==#111)
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIBRO
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIBRO CODTAB[5,7]
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "UR"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING CODICE_LIBRO_PROVA 3
|
||||
BEGIN
|
||||
PROMPT 20 7 "Codice libro "
|
||||
HELP "Specificare il codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
|
||||
USE REG SELECT (I0<"3") && (CODTAB[1,4]==#111)
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIBRO_PROVA
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7]
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "UR"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING CODICE_LIB_UN 3
|
||||
BEGIN
|
||||
PROMPT 20 7 "Cod.libro unico "
|
||||
HELP "Specificare il codice del libro unico su cui deve essere effettuata la stampa"
|
||||
USE %LBU SELECT CODTAB[1,4]==#111
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIB_UN
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIB_UN CODTAB[5,7]
|
||||
FLAGS "UR"
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 52 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa movimenti"
|
||||
END
|
||||
|
||||
DATE DA_DATA
|
||||
BEGIN
|
||||
PROMPT 5 10 "Dalla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE A_DATA
|
||||
BEGIN
|
||||
PROMPT 30 10 "Alla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
LISTBOX FINO_A_MESE 10
|
||||
BEGIN
|
||||
PROMPT 5 10 "Fino al mese "
|
||||
FLAGS "M"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTBOX MESE 10
|
||||
BEGIN
|
||||
PROMPT 5 10 "Mese "
|
||||
FLAGS "M"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
LISTBOX TIPO_RIEPILOGATIVO 11
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo riepilogativo "
|
||||
HELP "Selezionare Del periodo/Annuale a seconda che si desideri la stampa della liquidazione periodica/annuale"
|
||||
ITEM "P|Del periodo"
|
||||
ITEM "A|Annuale"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTBOX ULTIMO_MESE 10
|
||||
BEGIN
|
||||
PROMPT 2 13 "Ultimo mese stampa su libro unico "
|
||||
FLAGS "MD"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER ULTIMA_PAGINA 4
|
||||
BEGIN
|
||||
PROMPT 2 14 "Ultimo numero di pagina stampata libro unico "
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING CODICE_LIBRO_IVA 3
|
||||
BEGIN
|
||||
PROMPT 2 15 "Eventuale codice libro IVA "
|
||||
HELP "Se non viene indicato nessun cod. libro IVA, vengono stampati tutti i registri delle ditte selezionate"
|
||||
USE REG SELECT (I0<"3") && (S6=="") && (CODTAB[1,4]==#111)
|
||||
INPUT CODTAB[1,4] ANNO
|
||||
INPUT CODTAB[5,7] CODICE_LIBRO_IVA
|
||||
DISPLAY "Anno " CODTAB[1,4]
|
||||
DISPLAY "Codice " CODTAB[5,7]
|
||||
DISPLAY "Descrizione @40" S0
|
||||
OUTPUT ANNO CODTAB[1,4]
|
||||
OUTPUT CODICE_LIBRO_IVA CODTAB[5,7]
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "UR"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
628
cg/cg4600a.uml
628
cg/cg4600a.uml
@ -1,314 +1,314 @@
|
||||
#include "cg4600.h"
|
||||
|
||||
PAGE "" -1 -1 76 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CHIUSURA 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Codice causale chiusura "
|
||||
USE LF_CAUSALI KEY 1
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
OUTPUT F_CHIUSURA CODCAUS
|
||||
INPUT CODCAUS F_CHIUSURA
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_APERTURA 3
|
||||
BEGIN
|
||||
PROMPT 2 5 "Codice causale apertura "
|
||||
COPY USE F_CHIUSURA
|
||||
COPY DISPLAY F_CHIUSURA
|
||||
OUTPUT F_APERTURA CODCAUS
|
||||
INPUT CODCAUS F_APERTURA
|
||||
END
|
||||
|
||||
DATE F_DATAC
|
||||
BEGIN
|
||||
PROMPT 36 4 "Data/Anno chiusura "
|
||||
END
|
||||
|
||||
DATE F_DATAAP
|
||||
BEGIN
|
||||
PROMPT 36 5 "Data/Anno apertura "
|
||||
WARNING "Inserire una data non inferiore alla data di chiusura"
|
||||
VALIDATE DATE_CMP_FUNC >= F_DATAC
|
||||
END
|
||||
|
||||
NUMBER F_ANNOCH 4
|
||||
BEGIN
|
||||
PROMPT 69 4 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 69 5 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 60 10
|
||||
BEGIN
|
||||
PROMPT 2 7 "Codici sottoconto"
|
||||
END
|
||||
|
||||
NUMBER F_BILCHG 3
|
||||
BEGIN
|
||||
PROMPT 3 9 "Bilancio di chiusura "
|
||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||||
CHECKTYPE REQUIRED
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
OUTPUT F_BILCHG GRUPPO
|
||||
OUTPUT F_BILCHC CONTO
|
||||
OUTPUT F_BILCHS SOTTOCONTO
|
||||
INPUT GRUPPO F_BILCHG
|
||||
INPUT CONTO F_BILCHC
|
||||
INPUT SOTTOCONTO F_BILCHS
|
||||
END
|
||||
|
||||
NUMBER F_BILCHC 3
|
||||
BEGIN
|
||||
PROMPT 44 9 ""
|
||||
COPY ALL F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_BILCHS 6
|
||||
BEGIN
|
||||
PROMPT 51 9 ""
|
||||
COPY ALL F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_PROPERG 3
|
||||
BEGIN
|
||||
PROMPT 3 10 "Profitti e perdite "
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_PROPERG GRUPPO
|
||||
OUTPUT F_PROPERC CONTO
|
||||
OUTPUT F_PROPERS SOTTOCONTO
|
||||
INPUT GRUPPO F_PROPERG
|
||||
INPUT CONTO F_PROPERC
|
||||
INPUT SOTTOCONTO F_PROPERS
|
||||
END
|
||||
|
||||
NUMBER F_PROPERC 3
|
||||
BEGIN
|
||||
PROMPT 44 10 ""
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_PROPERG
|
||||
COPY INPUT F_PROPERG
|
||||
END
|
||||
|
||||
NUMBER F_PROPERS 6
|
||||
BEGIN
|
||||
PROMPT 51 10 ""
|
||||
COPY ALL F_PROPERC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_BILAPG 3
|
||||
BEGIN
|
||||
PROMPT 3 11 "Bilancio di apertura "
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_BILAPG GRUPPO
|
||||
OUTPUT F_BILAPC CONTO
|
||||
OUTPUT F_BILAPS SOTTOCONTO
|
||||
INPUT GRUPPO F_BILAPG
|
||||
INPUT CONTO F_BILAPC
|
||||
INPUT SOTTOCONTO F_BILAPS
|
||||
END
|
||||
|
||||
NUMBER F_BILAPC 3
|
||||
BEGIN
|
||||
PROMPT 44 11 ""
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_BILAPG
|
||||
COPY INPUT F_BILAPG
|
||||
END
|
||||
|
||||
NUMBER F_BILAPS 6
|
||||
BEGIN
|
||||
PROMPT 51 11 ""
|
||||
COPY ALL F_BILAPC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_UTILPG 3
|
||||
BEGIN
|
||||
PROMPT 3 12 "Utile d'esercizio c/to patrim. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_UTILPG GRUPPO
|
||||
OUTPUT F_UTILPC CONTO
|
||||
OUTPUT F_UTILPS SOTTOCONTO
|
||||
INPUT GRUPPO F_UTILPG
|
||||
INPUT CONTO F_UTILPC
|
||||
INPUT SOTTOCONTO F_UTILPS
|
||||
END
|
||||
|
||||
NUMBER F_UTILPC 3
|
||||
BEGIN
|
||||
PROMPT 44 12 ""
|
||||
COPY USE F_UTILPG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_UTILPG
|
||||
COPY INPUT F_UTILPG
|
||||
END
|
||||
|
||||
NUMBER F_UTILPS 6
|
||||
BEGIN
|
||||
PROMPT 51 12 ""
|
||||
COPY ALL F_UTILPC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_PERDPG 3
|
||||
BEGIN
|
||||
PROMPT 3 13 "Perdita d'esercizio c/to patr. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_PERDPG GRUPPO
|
||||
OUTPUT F_PERDPC CONTO
|
||||
OUTPUT F_PERDPS SOTTOCONTO
|
||||
INPUT GRUPPO F_PERDPG
|
||||
INPUT CONTO F_PERDPC
|
||||
INPUT SOTTOCONTO F_PERDPS
|
||||
END
|
||||
|
||||
NUMBER F_PERDPC 3
|
||||
BEGIN
|
||||
PROMPT 44 13 ""
|
||||
COPY USE F_PERDPG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_PERDPG
|
||||
COPY INPUT F_PERDPG
|
||||
END
|
||||
|
||||
NUMBER F_PERDPS 6
|
||||
BEGIN
|
||||
PROMPT 51 13 ""
|
||||
COPY ALL F_PERDPC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_UTILEG 3
|
||||
BEGIN
|
||||
PROMPT 3 14 "Utile d'esercizio c/to econom. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="3")||(INDBIL="4"))
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_UTILEG GRUPPO
|
||||
OUTPUT F_UTILEC CONTO
|
||||
OUTPUT F_UTILES SOTTOCONTO
|
||||
INPUT GRUPPO F_UTILEG
|
||||
INPUT CONTO F_UTILEC
|
||||
INPUT SOTTOCONTO F_UTILES
|
||||
END
|
||||
|
||||
NUMBER F_UTILEC 3
|
||||
BEGIN
|
||||
PROMPT 44 14 ""
|
||||
COPY USE F_UTILEG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_UTILEG
|
||||
COPY INPUT F_UTILEG
|
||||
END
|
||||
|
||||
NUMBER F_UTILES 6
|
||||
BEGIN
|
||||
PROMPT 51 14 ""
|
||||
COPY ALL F_UTILEC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_PERDEG 3
|
||||
BEGIN
|
||||
PROMPT 3 15 "Perdita d'esercizio c/to econ. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ( (INDBIL="3")||(INDBIL="4") )
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_PERDEG GRUPPO
|
||||
OUTPUT F_PERDEC CONTO
|
||||
OUTPUT F_PERDES SOTTOCONTO
|
||||
INPUT GRUPPO F_PERDEG
|
||||
INPUT CONTO F_PERDEC
|
||||
INPUT SOTTOCONTO F_PERDES
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_PERDEC 3
|
||||
BEGIN
|
||||
PROMPT 44 15 ""
|
||||
COPY USE F_PERDEG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_PERDEG
|
||||
COPY INPUT F_PERDEG
|
||||
END
|
||||
|
||||
NUMBER F_PERDES 6
|
||||
BEGIN
|
||||
PROMPT 51 15 ""
|
||||
COPY ALL F_PERDEC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#include "cg4600.h"
|
||||
|
||||
PAGE "" -1 -1 76 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CHIUSURA 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Codice causale chiusura "
|
||||
USE LF_CAUSALI KEY 1
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
OUTPUT F_CHIUSURA CODCAUS
|
||||
INPUT CODCAUS F_CHIUSURA
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_APERTURA 3
|
||||
BEGIN
|
||||
PROMPT 2 5 "Codice causale apertura "
|
||||
COPY USE F_CHIUSURA
|
||||
COPY DISPLAY F_CHIUSURA
|
||||
OUTPUT F_APERTURA CODCAUS
|
||||
INPUT CODCAUS F_APERTURA
|
||||
END
|
||||
|
||||
DATE F_DATAC
|
||||
BEGIN
|
||||
PROMPT 36 4 "Data/Anno chiusura "
|
||||
END
|
||||
|
||||
DATE F_DATAAP
|
||||
BEGIN
|
||||
PROMPT 36 5 "Data/Anno apertura "
|
||||
WARNING "Inserire una data non inferiore alla data di chiusura"
|
||||
VALIDATE DATE_CMP_FUNC >= F_DATAC
|
||||
END
|
||||
|
||||
NUMBER F_ANNOCH 4
|
||||
BEGIN
|
||||
PROMPT 69 4 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 69 5 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 60 10
|
||||
BEGIN
|
||||
PROMPT 2 7 "Codici sottoconto"
|
||||
END
|
||||
|
||||
NUMBER F_BILCHG 3
|
||||
BEGIN
|
||||
PROMPT 3 9 "Bilancio di chiusura "
|
||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||||
CHECKTYPE REQUIRED
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione @50" DESCR
|
||||
OUTPUT F_BILCHG GRUPPO
|
||||
OUTPUT F_BILCHC CONTO
|
||||
OUTPUT F_BILCHS SOTTOCONTO
|
||||
INPUT GRUPPO F_BILCHG
|
||||
INPUT CONTO F_BILCHC
|
||||
INPUT SOTTOCONTO F_BILCHS
|
||||
END
|
||||
|
||||
NUMBER F_BILCHC 3
|
||||
BEGIN
|
||||
PROMPT 44 9 ""
|
||||
COPY ALL F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_BILCHS 6
|
||||
BEGIN
|
||||
PROMPT 51 9 ""
|
||||
COPY ALL F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_PROPERG 3
|
||||
BEGIN
|
||||
PROMPT 3 10 "Profitti e perdite "
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_PROPERG GRUPPO
|
||||
OUTPUT F_PROPERC CONTO
|
||||
OUTPUT F_PROPERS SOTTOCONTO
|
||||
INPUT GRUPPO F_PROPERG
|
||||
INPUT CONTO F_PROPERC
|
||||
INPUT SOTTOCONTO F_PROPERS
|
||||
END
|
||||
|
||||
NUMBER F_PROPERC 3
|
||||
BEGIN
|
||||
PROMPT 44 10 ""
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_PROPERG
|
||||
COPY INPUT F_PROPERG
|
||||
END
|
||||
|
||||
NUMBER F_PROPERS 6
|
||||
BEGIN
|
||||
PROMPT 51 10 ""
|
||||
COPY ALL F_PROPERC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_BILAPG 3
|
||||
BEGIN
|
||||
PROMPT 3 11 "Bilancio di apertura "
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_BILAPG GRUPPO
|
||||
OUTPUT F_BILAPC CONTO
|
||||
OUTPUT F_BILAPS SOTTOCONTO
|
||||
INPUT GRUPPO F_BILAPG
|
||||
INPUT CONTO F_BILAPC
|
||||
INPUT SOTTOCONTO F_BILAPS
|
||||
END
|
||||
|
||||
NUMBER F_BILAPC 3
|
||||
BEGIN
|
||||
PROMPT 44 11 ""
|
||||
COPY USE F_BILCHG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_BILAPG
|
||||
COPY INPUT F_BILAPG
|
||||
END
|
||||
|
||||
NUMBER F_BILAPS 6
|
||||
BEGIN
|
||||
PROMPT 51 11 ""
|
||||
COPY ALL F_BILAPC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_UTILPG 3
|
||||
BEGIN
|
||||
PROMPT 3 12 "Utile d'esercizio c/to patrim. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_UTILPG GRUPPO
|
||||
OUTPUT F_UTILPC CONTO
|
||||
OUTPUT F_UTILPS SOTTOCONTO
|
||||
INPUT GRUPPO F_UTILPG
|
||||
INPUT CONTO F_UTILPC
|
||||
INPUT SOTTOCONTO F_UTILPS
|
||||
END
|
||||
|
||||
NUMBER F_UTILPC 3
|
||||
BEGIN
|
||||
PROMPT 44 12 ""
|
||||
COPY USE F_UTILPG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_UTILPG
|
||||
COPY INPUT F_UTILPG
|
||||
END
|
||||
|
||||
NUMBER F_UTILPS 6
|
||||
BEGIN
|
||||
PROMPT 51 12 ""
|
||||
COPY ALL F_UTILPC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_PERDPG 3
|
||||
BEGIN
|
||||
PROMPT 3 13 "Perdita d'esercizio c/to patr. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_PERDPG GRUPPO
|
||||
OUTPUT F_PERDPC CONTO
|
||||
OUTPUT F_PERDPS SOTTOCONTO
|
||||
INPUT GRUPPO F_PERDPG
|
||||
INPUT CONTO F_PERDPC
|
||||
INPUT SOTTOCONTO F_PERDPS
|
||||
END
|
||||
|
||||
NUMBER F_PERDPC 3
|
||||
BEGIN
|
||||
PROMPT 44 13 ""
|
||||
COPY USE F_PERDPG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_PERDPG
|
||||
COPY INPUT F_PERDPG
|
||||
END
|
||||
|
||||
NUMBER F_PERDPS 6
|
||||
BEGIN
|
||||
PROMPT 51 13 ""
|
||||
COPY ALL F_PERDPC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_UTILEG 3
|
||||
BEGIN
|
||||
PROMPT 3 14 "Utile d'esercizio c/to econom. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="3")||(INDBIL="4"))
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_UTILEG GRUPPO
|
||||
OUTPUT F_UTILEC CONTO
|
||||
OUTPUT F_UTILES SOTTOCONTO
|
||||
INPUT GRUPPO F_UTILEG
|
||||
INPUT CONTO F_UTILEC
|
||||
INPUT SOTTOCONTO F_UTILES
|
||||
END
|
||||
|
||||
NUMBER F_UTILEC 3
|
||||
BEGIN
|
||||
PROMPT 44 14 ""
|
||||
COPY USE F_UTILEG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_UTILEG
|
||||
COPY INPUT F_UTILEG
|
||||
END
|
||||
|
||||
NUMBER F_UTILES 6
|
||||
BEGIN
|
||||
PROMPT 51 14 ""
|
||||
COPY ALL F_UTILEC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_PERDEG 3
|
||||
BEGIN
|
||||
PROMPT 3 15 "Perdita d'esercizio c/to econ. "
|
||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ( (INDBIL="3")||(INDBIL="4") )
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
OUTPUT F_PERDEG GRUPPO
|
||||
OUTPUT F_PERDEC CONTO
|
||||
OUTPUT F_PERDES SOTTOCONTO
|
||||
INPUT GRUPPO F_PERDEG
|
||||
INPUT CONTO F_PERDEC
|
||||
INPUT SOTTOCONTO F_PERDES
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_PERDEC 3
|
||||
BEGIN
|
||||
PROMPT 44 15 ""
|
||||
COPY USE F_PERDEG
|
||||
CHECKTYPE REQUIRED
|
||||
COPY DISPLAY F_BILCHG
|
||||
COPY OUTPUT F_PERDEG
|
||||
COPY INPUT F_PERDEG
|
||||
END
|
||||
|
||||
NUMBER F_PERDES 6
|
||||
BEGIN
|
||||
PROMPT 51 15 ""
|
||||
COPY ALL F_PERDEC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user