root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.0 382

Browse Source 
Files correlati     : cg2.exe cg0500a.msk

Rilevazione automatica delle fatture da emettere o ricevere

git-svn-id: svn://10.65.10.50/branches/R_10_00@23750 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2017-04-21 01:25:38 +00:00
parent 9288c34b3e
commit 7fcdcc999f
8 changed files with 577 additions and 493 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
src/cg/cg0500.h
View File

@ -1,47 +1,49 @@
// cg0500.h
#define F_COD_CAUS 200
#define F_DESCR 201
#define F_TIPO_DOC 202
#define F_COD_REG 203
#define F_DATA_DOC 204
#define F_NUM_DOC 205
#define F_MOV_SEZ 206
#define F_TIPO_MOV_1 207
#define F_TIPO_MOV_2 208
#define F_AUTO_FAT 209
#define F_MOV_VALU 210
#define F_COD_CAUS_IM 211
#define F_FAT_RITARDO 212
#define F_OP_INTRACOM 213
#define F_ALLEGAT 214
#define F_VAL_INTRACOM 215
#define F_COLL_CESP 216
#define F_M_770 217
#define F_COLL_PRIMANOTA 218
#define F_SHEET_GCS 219
#define F_TIPO_REG 220
#define F_ANNOES 221
#define F_TIPO_MOV 222
#define F_OP_FINE_ANNO 223
#define F_VALINTRA 224
#define F_CORRISP 225
#define F_COD_CAUS2 226
#define F_DESCR2 227
#define F_DES_DOC 228
#define F_DES_REG 229
#define F_MOVIND 230
#define F_SOLAIVA 231
#define F_PROVV 232
#define F_CODCAUREG 233
#define F_REGSPIVA 234
#define F_MOVCGIND 235
#define SS_TIPO 101
#define SS_SEZIONE 102
#define SS_TIPOCF 103
#define SS_GRUPPO 104
#define SS_CONTO 105
#define SS_SOTTOCONTO 106
#define SS_DESCAGG 108
#define SS_DESCRIPTION 109
// cg0500.h
#define F_COD_CAUS 200
#define F_DESCR 201
#define F_TIPO_DOC 202
#define F_COD_REG 203
#define F_DATA_DOC 204
#define F_NUM_DOC 205
#define F_MOV_SEZ 206
#define F_TIPO_MOV_1 207
#define F_TIPO_MOV_2 208
#define F_AUTO_FAT 209
#define F_MOV_VALU 210
#define F_COD_CAUS_IM 211
#define F_FAT_RITARDO 212
#define F_OP_INTRACOM 213
#define F_ALLEGAT 214
#define F_VAL_INTRACOM 215
#define F_COLL_CESP 216
#define F_M_770 217
#define F_COLL_PRIMANOTA 218
#define F_SHEET_GCS 219
#define F_TIPO_REG 220
#define F_ANNOES 221
#define F_TIPO_MOV 222
#define F_OP_FINE_ANNO 223
#define F_VALINTRA 224
#define F_CORRISP 225
#define F_COD_CAUS2 226
#define F_DESCR2 227
#define F_DES_DOC 228
#define F_DES_REG 229
#define F_MOVIND 230
#define F_SOLAIVA 231
#define F_PROVV 232
#define F_CODCAUREG 233
#define F_REGSPIVA 234
#define F_MOVCGIND 235
#define F_RIL_FT_EM_RI 236
#define F_DATAREG_PREC 237
#define SS_TIPO 101
#define SS_SEZIONE 102
#define SS_TIPOCF 103
#define SS_GRUPPO 104
#define SS_CONTO 105
#define SS_SOTTOCONTO 106
#define SS_DESCAGG 108
#define SS_DESCRIPTION 109

834
src/cg/cg0500a.uml
View File

@ -1,418 +1,432 @@
#include "cg0500.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Righe" 0 0 0 2
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
STRING F_COD_CAUS 3
BEGIN
PROMPT 2 1 "Codice "
FIELD CODCAUS
KEY 1
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS F_COD_CAUS
DISPLAY "Cod." CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Tipo movimento" TIPOMOV
DISPLAY "Colleg." CODCAUSIM
DISPLAY "770" M770
DISPLAY "Cespiti" COLLCESP
OUTPUT F_COD_CAUS CODCAUS
OUTPUT F_DESCR DESCR
CHECKTYPE REQUIRED
MESSAGE COPY,F_COD_CAUS2
END
STRING F_DESCR 50
BEGIN
PROMPT 16 1 "Descriz."
FIELD DESCR
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCR
DISPLAY "Descrizione @50" DESCR
DISPLAY "Cod." CODCAUS
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Movimento" TIPOMOV
DISPLAY "Colleg." CODCAUSIM
DISPLAY "770" M770
DISPLAY "Cespiti" COLLCESP
COPY OUTPUT F_COD_CAUS
CHECKTYPE REQUIRED
KEY 2
WARNING "Descrizione assente"
MESSAGE COPY,F_DESCR2
END
STRING F_TIPO_DOC 2
BEGIN
PROMPT 2 3 "Tipo documento "
FIELD TIPODOC
USE %TPD
INPUT CODTAB F_TIPO_DOC
DISPLAY "Tipo " CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_TIPO_DOC CODTAB
OUTPUT F_DES_DOC S0
WARNING "Tipo documento errato"
CHECKTYPE NORMAL
FLAGS "U"
ADD NONE
MESSAGE EMPTY CLEAR,F_SOLAIVA|ENABLE,F_PROVV
MESSAGE ENABLE,F_SOLAIVA|CLEAR,F_PROVV
END
STRING F_DES_DOC 50
BEGIN
PROMPT 24 3 ""
USE %TPD KEY 2
INPUT S0 F_DES_DOC
DISPLAY "Descrizione @50" S0
DISPLAY "Tipo " CODTAB
COPY OUTPUT F_TIPO_DOC
WARNING "Tipo documento errato"
CHECKTYPE NORMAL
ADD NONE
END
STRING F_COD_REG 3
BEGIN
PROMPT 2 4 "Registro "
FIELD REG
USE REG
INPUT CODTAB[1,4] F_ANNOES
INPUT CODTAB[5,7] F_COD_REG
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Registro" CODTAB[5,7]
DISPLAY "Tipo" I0
DISPLAY "Corrispettivi" B0
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_REG CODTAB[5,7]
OUTPUT F_TIPO_REG I0
OUTPUT F_CORRISP B0
OUTPUT F_DES_REG S0
WARNING "Registro assente o non compatibile col tipo documento"
CHECKTYPE REQUIRED
FLAGS "UZ"
END
STRING F_DES_REG 50
BEGIN
PROMPT 24 4 ""
USE REG KEY 2
INPUT S0 F_DES_REG
DISPLAY "Descrizione @50" S0
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice registro " CODTAB[5,7]
DISPLAY "Tipo" I0
DISPLAY "Corrispettivi" B0
COPY OUTPUT F_COD_REG
CHECKTYPE REQUIRED
END
NUMBER F_ANNOES 4
BEGIN
PROMPT 2 5 "Anno liquidaz. "
FLAGS "HA"
END
NUMBER F_TIPO_REG 1
BEGIN
PROMPT 25 5 "Tipo "
FLAGS "H"
END
// Questo rimane quasi sempre nascosto
STRING F_TIPO_MOV 1
BEGIN
PROMPT 2 5 ""
FIELD 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 2 5 "Tipo movimento "
FIELD TIPOMOV
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 2 5 "Tipo movimento "
FIELD TIPOMOV
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV|ENABLE,F_PROVV
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
FLAGS "H"
END
BOOLEAN F_CORRISP
BEGIN
PROMPT 33 5 ""
FLAGS "H"
END
SPREADSHEET F_SHEET_GCS
BEGIN
PROMPT 0 7 "Righe"
ITEM "Tipo conto@21F"
ITEM "D/A@3"
ITEM "C/F@3"
ITEM "Gr."
ITEM "Co."
ITEM "Sottoc."
ITEM "Descrizione Conto@50"
ITEM "Desc. agg."
ITEM "Descrizione Aggiuntiva@50"
END
ENDPAGE
PAGE "Parametri" -1 -1 77 20
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
STRING F_COD_CAUS2 3
BEGIN
PROMPT 2 1 "Codice "
FLAGS "D"
END
STRING F_DESCR2 50
BEGIN
PROMPT 16 1 "Descriz."
FLAGS "D"
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 3 "@BCampi obbligatori in immissione documenti"
END
BOOLEAN F_DATA_DOC
BEGIN
PROMPT 2 4 "Data documento"
FIELD DATADOC
END
BOOLEAN F_NUM_DOC
BEGIN
PROMPT 34 4 "Numero documento"
FIELD NUMDOC
END
BOOLEAN F_AUTO_FAT
BEGIN
PROMPT 2 6 "Autofattura art.34"
FIELD AUTOFATT
GROUP 2
END
BOOLEAN F_ALLEGAT
BEGIN
PROMPT 34 6 "Doc. non va in allegati fine anno"
FIELD ALLEG
GROUP 2
END
BOOLEAN F_FAT_RITARDO
BEGIN
PROMPT 2 8 "Fattura in ritardo"
FIELD RITFATT
GROUP 2
END
STRING F_COD_CAUS_IM 3
BEGIN
PROMPT 34 8 "Codice causale collegata "
FLAGS "UZ"
FIELD CODCAUSIM
USE LF_CAUSALI
INPUT CODCAUS F_COD_CAUS_IM
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Documento" TIPODOC
OUTPUT F_COD_CAUS_IM CODCAUS
CHECKTYPE NORMAL
GROUP 2
END
BOOLEAN F_OP_INTRACOM
BEGIN
PROMPT 2 10 "Operazione intracomunitaria"
FIELD INTRACOM
GROUP 2
END
BOOLEAN F_VALINTRA
BEGIN
PROMPT 34 10 "Gestione valuta per operazioni intrac."
FIELD VALINTRA
GROUP 2
END
BOOLEAN F_MOV_VALU
BEGIN
PROMPT 2 11 "Movimento in valuta"
FIELD MOVVAL
GROUP 2
END
BOOLEAN F_SOLAIVA
BEGIN
PROMPT 34 11 "Movimento di sola IVA"
FIELD SOLOIVA
END
BOOLEAN F_MOV_SEZ
BEGIN
PROMPT 34 11 "Movimento solo sezionale"
FIELD MOVSEZ
FLAGS "H"
END
LIST F_PROVV 1 26
BEGIN
PROMPT 2 13 "Movimento provvisorio "
FIELD PROVV
ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)"
ITEM "C|Cespiti"
END
LIST F_OP_FINE_ANNO 1 11
BEGIN
PROMPT 2 14 "Operazioni di fine anno "
ITEM " | "
ITEM "C|Chiusura"
ITEM "A|Apertura"
FIELD MOVAP
FLAGS "H"
END
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 15 "@bCollegamenti"
END
LISTBOX F_M_770 1 48
BEGIN
PROMPT 2 16 "Modello 770 "
FIELD M770
ITEM " |Nessuno"
ITEM "1|Ricevuta e/o pagamento fattura percipiente"
ITEM "2|Versamento ritenute percipiente"
ITEM "3|Versamento ritenute dipendente"
ITEM "4|Versamento contributi dipendente"
ITEM "5|Compensi non soggetti"
ITEM "6|Ritenute per prestazioni occasionali"
MODULE 77
END
LIST F_COLL_CESP 1 40
BEGIN
PROMPT 2 17 "Cespiti "
FIELD COLLCESP
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"
MODULE ce
END
BOOLEAN F_MOVIND
BEGIN
PROMPT 2 18 "Contabilità analitica"
FIELD MOVIND
MODULE ca,cm
MESSAGE FALSE CLEAR,F_MOVCGIND
MESSAGE TRUE ENABLE,F_MOVCGIND
END
BOOLEAN F_MOVCGIND
BEGIN
PROMPT 34 18 "Contabilità industriale"
FIELD MOVCGIND
MODULE CI
END
NUMBER F_REGSPIVA 2
BEGIN
PROMPT 2 19 "Regimi speciali IVA "
INPUT F_REGSPIVA
SHEET "Codice|Descrizione@75"
ITEM "|Nessuno"
ITEM "1|Acquisti beni dallo Stato del Vaticano e dalla Repubblica di San Marino"
ITEM "2|Estrazione beni da depositi Iva"
ITEM "3|Acquisti beni e servizi da soggetti non residenti"
ITEM "4|Operazioni di cui all'art.74,c.1,lett.e)"
ITEM "5|Provvigioni corrisposte dalle agenzie di viaggio ai loro intermediari"
ITEM "6|Acquisti di rottami e mat.di di recupero art. 74, commi 7 e 8"
ITEM "7|Acquisti di oro industriale e argento puro (art. 17, comma 5)"
ITEM "8|Acquisti di oro da investimento imp.per opzione (art. 17, comma 5)"
#include "cg0500.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Righe" 0 0 0 2
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
STRING F_COD_CAUS 3
BEGIN
PROMPT 2 1 "Codice "
FIELD CODCAUS
KEY 1
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS F_COD_CAUS
DISPLAY "Cod." CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Tipo movimento" TIPOMOV
DISPLAY "Colleg." CODCAUSIM
DISPLAY "770" M770
DISPLAY "Cespiti" COLLCESP
OUTPUT F_COD_CAUS CODCAUS
OUTPUT F_DESCR DESCR
CHECKTYPE REQUIRED
MESSAGE COPY,F_COD_CAUS2
END
STRING F_DESCR 50
BEGIN
PROMPT 16 1 "Descriz."
FIELD DESCR
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCR
DISPLAY "Descrizione @50" DESCR
DISPLAY "Cod." CODCAUS
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Movimento" TIPOMOV
DISPLAY "Colleg." CODCAUSIM
DISPLAY "770" M770
DISPLAY "Cespiti" COLLCESP
COPY OUTPUT F_COD_CAUS
CHECKTYPE REQUIRED
KEY 2
WARNING "Descrizione assente"
MESSAGE COPY,F_DESCR2
END
STRING F_TIPO_DOC 2
BEGIN
PROMPT 2 3 "Tipo documento "
FIELD TIPODOC
USE %TPD
INPUT CODTAB F_TIPO_DOC
DISPLAY "Tipo " CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_TIPO_DOC CODTAB
OUTPUT F_DES_DOC S0
WARNING "Tipo documento errato"
CHECKTYPE NORMAL
FLAGS "U"
ADD NONE
MESSAGE EMPTY CLEAR,F_SOLAIVA|ENABLE,F_PROVV|ENABLE,9@
MESSAGE ENABLE,F_SOLAIVA|CLEAR,F_PROVV|CLEAR,9@
END
STRING F_DES_DOC 50
BEGIN
PROMPT 24 3 ""
USE %TPD KEY 2
INPUT S0 F_DES_DOC
DISPLAY "Descrizione @50" S0
DISPLAY "Tipo " CODTAB
COPY OUTPUT F_TIPO_DOC
WARNING "Tipo documento errato"
CHECKTYPE NORMAL
ADD NONE
END
STRING F_COD_REG 3
BEGIN
PROMPT 2 4 "Registro "
FIELD REG
USE REG
INPUT CODTAB[1,4] F_ANNOES
INPUT CODTAB[5,7] F_COD_REG
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Registro" CODTAB[5,7]
DISPLAY "Tipo" I0
DISPLAY "Corrispettivi" B0
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_REG CODTAB[5,7]
OUTPUT F_TIPO_REG I0
OUTPUT F_CORRISP B0
OUTPUT F_DES_REG S0
WARNING "Registro assente o non compatibile col tipo documento"
CHECKTYPE REQUIRED
FLAGS "UZ"
END
STRING F_DES_REG 50
BEGIN
PROMPT 24 4 ""
USE REG KEY 2
INPUT S0 F_DES_REG
DISPLAY "Descrizione @50" S0
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice registro " CODTAB[5,7]
DISPLAY "Tipo" I0
DISPLAY "Corrispettivi" B0
COPY OUTPUT F_COD_REG
CHECKTYPE REQUIRED
END
NUMBER F_ANNOES 4
BEGIN
PROMPT 2 5 "Anno liquidaz. "
FLAGS "HA"
END
NUMBER F_TIPO_REG 1
BEGIN
PROMPT 25 5 "Tipo "
FLAGS "H"
END
// Questo rimane quasi sempre nascosto
STRING F_TIPO_MOV 1
BEGIN
PROMPT 2 5 ""
FIELD 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 2 5 "Tipo movimento "
FIELD TIPOMOV
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 2 5 "Tipo movimento "
FIELD TIPOMOV
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV|ENABLE,F_PROVV
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
FLAGS "H"
END
BOOLEAN F_CORRISP
BEGIN
PROMPT 33 5 ""
FLAGS "H"
END
SPREADSHEET F_SHEET_GCS
BEGIN
PROMPT 0 7 "Righe"
ITEM "Tipo conto@21F"
ITEM "D/A@3"
ITEM "C/F@3"
ITEM "Gr."
ITEM "Co."
ITEM "Sottoc."
ITEM "Descrizione Conto@50"
ITEM "Desc. agg."
ITEM "Descrizione Aggiuntiva@50"
END
ENDPAGE
PAGE "Parametri" -1 -1 77 20
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
STRING F_COD_CAUS2 3
BEGIN
PROMPT 2 1 "Codice "
FLAGS "D"
END
STRING F_DESCR2 50
BEGIN
PROMPT 16 1 "Descriz."
FLAGS "D"
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 3 "@BCampi obbligatori in immissione documenti"
END
BOOLEAN F_DATA_DOC
BEGIN
PROMPT 2 4 "Data documento"
FIELD DATADOC
END
BOOLEAN F_NUM_DOC
BEGIN
PROMPT 34 4 "Numero documento"
FIELD NUMDOC
END
BOOLEAN F_AUTO_FAT
BEGIN
PROMPT 2 6 "Autofattura art.34"
FIELD AUTOFATT
GROUP 2
END
BOOLEAN F_ALLEGAT
BEGIN
PROMPT 34 6 "Doc. non va in allegati fine anno"
FIELD ALLEG
GROUP 2
END
BOOLEAN F_FAT_RITARDO
BEGIN
PROMPT 2 8 "Fattura in ritardo"
FIELD RITFATT
GROUP 2
END
STRING F_COD_CAUS_IM 3
BEGIN
PROMPT 34 8 "Codice causale collegata "
FLAGS "UZ"
FIELD CODCAUSIM
USE LF_CAUSALI
INPUT CODCAUS F_COD_CAUS_IM
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Documento" TIPODOC
OUTPUT F_COD_CAUS_IM CODCAUS
CHECKTYPE NORMAL
GROUP 2
END
BOOLEAN F_OP_INTRACOM
BEGIN
PROMPT 2 10 "Operazione intracomunitaria"
FIELD INTRACOM
GROUP 2
END
BOOLEAN F_VALINTRA
BEGIN
PROMPT 34 10 "Gestione valuta per operazioni intrac."
FIELD VALINTRA
GROUP 2
END
BOOLEAN F_MOV_VALU
BEGIN
PROMPT 2 11 "Movimento in valuta"
FIELD MOVVAL
GROUP 2
END
BOOLEAN F_SOLAIVA
BEGIN
PROMPT 34 11 "Movimento di sola IVA"
FIELD SOLOIVA
END
BOOLEAN F_MOV_SEZ
BEGIN
PROMPT 34 11 "Movimento solo sezionale"
FIELD MOVSEZ
FLAGS "H"
END
BOOLEAN F_RIL_FT_EM_RI
BEGIN
PROMPT 2 12 "Rilevazione fatt.da ric./em."
FIELD RILFTEMRI
GROUP 9
END
BOOLEAN F_DATAREG_PREC
BEGIN
PROMPT 34 12 "Regis.ril. fatt.da ric./em.a fine esercizio"
FIELD DATAREGPR
GROUP 9
END
LIST F_PROVV 1 26
BEGIN
PROMPT 2 13 "Movimento provvisorio "
FIELD PROVV
ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)"
ITEM "C|Cespiti"
END
LIST F_OP_FINE_ANNO 1 11
BEGIN
PROMPT 2 14 "Operazioni di fine anno "
ITEM " | "
ITEM "C|Chiusura"
ITEM "A|Apertura"
FIELD MOVAP
FLAGS "H"
END
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 15 "@bCollegamenti"
END
LISTBOX F_M_770 1 48
BEGIN
PROMPT 2 16 "Modello 770 "
FIELD M770
ITEM " |Nessuno"
ITEM "1|Ricevuta e/o pagamento fattura percipiente"
ITEM "2|Versamento ritenute percipiente"
ITEM "3|Versamento ritenute dipendente"
ITEM "4|Versamento contributi dipendente"
ITEM "5|Compensi non soggetti"
ITEM "6|Ritenute per prestazioni occasionali"
MODULE 77
END
LIST F_COLL_CESP 1 40
BEGIN
PROMPT 2 17 "Cespiti "
FIELD COLLCESP
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"
MODULE ce
END
BOOLEAN F_MOVIND
BEGIN
PROMPT 2 18 "Contabilità analitica"
FIELD MOVIND
MODULE ca,cm
MESSAGE FALSE CLEAR,F_MOVCGIND
MESSAGE TRUE ENABLE,F_MOVCGIND
END
BOOLEAN F_MOVCGIND
BEGIN
PROMPT 34 18 "Contabilità industriale"
FIELD MOVCGIND
MODULE CI
END
NUMBER F_REGSPIVA 2
BEGIN
PROMPT 2 19 "Regimi speciali IVA "
INPUT F_REGSPIVA
SHEET "Codice|Descrizione@75"
ITEM "|Nessuno"
ITEM "1|Acquisti beni dallo Stato del Vaticano e dalla Repubblica di San Marino"
ITEM "2|Estrazione beni da depositi Iva"
ITEM "3|Acquisti beni e servizi da soggetti non residenti"
ITEM "4|Operazioni di cui all'art.74,c.1,lett.e)"
ITEM "5|Provvigioni corrisposte dalle agenzie di viaggio ai loro intermediari"
ITEM "6|Acquisti di rottami e mat.di di recupero art. 74, commi 7 e 8"
ITEM "7|Acquisti di oro industriale e argento puro (art. 17, comma 5)"
ITEM "8|Acquisti di oro da investimento imp.per opzione (art. 17, comma 5)"
ITEM "9|Acquisti intrac. di CPU,PC, tablet,cellulari,console,microproc."
item "10|Importazioni rottami e altri mat.di recupero imposta non è versata"
ITEM "12|Acquisti di tartufi (art.1,c.109,legge 311/2004)"
ITEM "13|Subappalti in edilizia (Reverse charge)"
ITEM "12|Acquisti di tartufi (art.1,c.109,legge 311/2004)"
ITEM "13|Subappalti in edilizia (Reverse charge)"
ITEM "14|Acquisti di fabbricati (art. 17, comma 6, lett. a-bis)"
ITEM "15|Acquisti di telefoni cellulari (art. 17, comma 6, lett. b)"
ITEM "16|Acquisti di prodotti elettronici (art. 17, comma 6, lett. c)"
ITEM "17|Acquisti di servizi del comp.edile e sett.connessi art. 17, comma 6, lett. a-ter "
ITEM "18|Acquisti di beni e servizi del sett.energetico art. 17, c.6 d-bis,ter,d-quater"
ITEM "19|Acquisti delle P.A., titolari di partita IVA art. 17-ter"
ITEM "50|Importazione di oro o argento (Reverse charge)"
ITEM "51|Rottami (Reverse charge)"
ITEM "52|Operazioni effettuate nei confronti di condominii"
OUTPUT F_REGSPIVA
FIELD REGSPIVA
END
STRING F_CODCAUREG 3
BEGIN
PROMPT 34 19 "Codice causale regolarizzazione IVA "
FLAGS "UZ"
FIELD CODCAUREG
USE LF_CAUSALI SELECT (SOLOIVA="X")&&(CODCAUS!=#F_COD_CAUS)&&((REGSPIVA=="")||(REGSPIVA==#F_REGSPIVA))
INPUT CODCAUS F_CODCAUREG
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Registro" REG
DISPLAY "Documento" TIPODOC
OUTPUT F_CODCAUREG CODCAUS
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK
#include "cg0500b.uml"
ITEM "50|Importazione di oro o argento (Reverse charge)"
ITEM "51|Rottami (Reverse charge)"
ITEM "52|Operazioni effettuate nei confronti di condominii"
OUTPUT F_REGSPIVA
FIELD REGSPIVA
END
STRING F_CODCAUREG 3
BEGIN
PROMPT 34 19 "Codice causale regolarizzazione IVA "
FLAGS "UZ"
FIELD CODCAUREG
USE LF_CAUSALI SELECT (SOLOIVA="X")&&(CODCAUS!=#F_COD_CAUS)&&((REGSPIVA=="")||(REGSPIVA==#F_REGSPIVA))
INPUT CODCAUS F_CODCAUREG
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Registro" REG
DISPLAY "Documento" TIPODOC
OUTPUT F_CODCAUREG CODCAUS
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK
#include "cg0500b.uml"

56
src/cg/cg2100.cpp
View File

@ -31,7 +31,7 @@ public:
int _tipo, _step;
TString4 _causale, _codiva;
TBill _clifo;
TDate _datadoc;
TDate _datadoc, _datareg;
TString8 _numdoc;
real _totale;
TString4 _causale_originale;
@ -1441,6 +1441,12 @@ int TPrimanota_application::write(const TMask& m)
causauto = causale().causale_reg_iva();
tipauto = causauto.full() ? 2 : 0;
}
if (tipauto <= 1)
{
causauto = causale().causale_collegata();
if (cached_causale(causauto, causale().reg().year()).ril_fat_em_ric())
tipauto = 4;
}
if (tipauto <= 0)
{
causauto = causale().causale_collegata();
@ -1577,6 +1583,25 @@ void TPrimanota_application::genera_automatico(int tipo, const char* causimm)
if (_automatico->_codiva.blank() && _rel->iva_items() > 0)
_automatico->_codiva = _rel->iva(0).get(RMI_CODIVA);
}
else
if (_automatico->_tipo == 4)
{
const int esercizio = m.get_int(F_ANNOES);
const int esprec = esercizi().pred(esercizio);
TEsercizio e = esercizi().esercizio(esprec);
TDate last(e.fine());
_automatico->_datadoc = last;
if (cached_causale(causimm, caus.reg().year()).datareg_prec())
_automatico->_datareg = last;
else
_automatico->_datareg = m.get(F_DATAREG);
const int nrows = _rel->iva_items();
_automatico->_totale = ZERO;
for (int i = 0; i < nrows; i++)
_automatico->_totale += _rel->iva(i).get_real(RMI_IMPONIBILE);
}
_automatico->_step = 1;
}
@ -1611,6 +1636,8 @@ void TPrimanota_application::genera_automatico(int tipo, const char* causimm)
row2.add(caus.desc_agg(2));
row2.add(_automatico->_clifo.string(0x3));
fill_sheet(m);
if (TRelation_application::is_transaction())
m.send_key(K_CTRL+'R', 0);
}
break;
case 2: // Regolarizzazione IVA
@ -1626,6 +1653,33 @@ void TPrimanota_application::genera_automatico(int tipo, const char* causimm)
}
break;
case 4: // Rilevazione fatture da emettere/ricevere
{
m.set(F_DATAREG, _automatico->_datareg);
m.set(F_DATACOMP, _automatico->_datadoc);
TBill conto; caus.bill(1, conto);
TBill contro; caus.bill(2, contro);
cgs().reset();
TToken_string& row1 = cgs().row(0);
TImporto imp(caus.sezione_clifo(), _automatico->_totale);
imp.add_to(row1, 0);
row1.add(conto.string(0x3));
row1.add(" ");
row1.add(" ");
row1.add(contro.string(0x3));
TToken_string& row2 = cgs().row(1);
imp.swap_section();
imp.add_to(row2, 0);
row2.add(contro.string(0x3));
row2.add(" ");
row2.add(caus.desc_agg(2));
row2.add(conto.string(0x3));
fill_sheet(m);
if (TRelation_application::is_transaction())
m.send_key(K_CTRL+'R', 0);
}
default:
break;
}

2
src/cg/cg2102.h
View File

@ -196,7 +196,7 @@ protected: // TRelation_application
protected:
void check_saldi();
void genera_automatico(int tipo, const char* causimm); // 0=nessuno, 1=incasso, 2=regolarizzazione
void genera_automatico(int tipo, const char* causimm); // 0=nessuno, 1=incasso, 2=regolarizzazione 3= ?? 4 = rilevazione fatture da emettere/ricevere
void gioca_cambi(int force = 0x00);
TMask* load_mask(int n);

10
src/cg/cg2103.cpp
View File

@ -162,6 +162,16 @@ bool TCausale::regolarizzazione()
return _regolarizzazione != 0;
}
bool TCausale::ril_fat_em_ric() const
{
return _rec.get_bool(CAU_RILFTEMRI);
}
bool TCausale::datareg_prec() const
{
return _rec.get_bool(CAU_DATAREGPR);
}
bool TCausale::reverse_charge() const
{
const int rsi = regime_speciale();

2
src/cg/cg2103.h
View File

@ -42,6 +42,8 @@ public:
bool soloiva() const;
bool reverse_charge() const;
bool regolarizzazione();
bool ril_fat_em_ric() const;
bool datareg_prec() const;
char provvisorio() const { return _provvisorio; }
const TString& causale_collegata() const;
const TString& causale_reg_iva() const;

6
src/cg/f26.dir
View File

@ -1,3 +1,3 @@
26
0
$caus|0|0|86|0|Causali contabili|||
26
0
$caus|0|0|88|0|Causali contabili|60||

64
src/cg/f26.trr
View File

@ -1,31 +1,33 @@
26
26
CODCAUS|1|3|0|Codice causale
DESCR|1|50|0|Descrizione causale
TIPODOC|1|2|0|Tipo documento
MOVAP|1|1|0|Movimento d'apertura
ALLEG|8|1|0|Moivmento in allegato
INTRACOM|8|1|0|Movimento intra-comunitario
REG|1|3|0|Codice registro
MOVVAL|8|1|0|Gestione valuta movimento
DATADOC|8|1|0|Data documento
NUMDOC|8|1|0|Numero documento
AUTOFATT|8|1|0|Autofattura art. ??
MOVSEZ|8|1|0|Movimento sezionale ??
TIPOMOV|2|1|0|Tipo movimento saldaconto
RITFATT|8|1|0|
COLLCESP|1|1|0|Collegamnto ai cespiti
M770|1|1|0|Collegamento al 770
CODCAUSIM|1|3|0|Codice causale incasso immediato
SOSPESO|8|1|0|Causale sospesa
VALINTRA|8|1|0|Gestione valuta intra-comunitaria
MOVIND|1|1|0|Causale per contabilità analitica
MOVCGIND|8|1|0|Causale per contabilità industriale
SOLOIVA|8|1|0|Movimento di sola IVA
PROVV|1|1|0|Tipo movimento (" " Normale, "P" Provvisorio cancellabile, "C" Provvisorio da cepiti)
REGSPIVA|2|2|0|Regimi speciali IVA
CODCAUREG|1|3|0|Causale regolarizzazione IVA
LIQDIFF|8|1|0|Fatture a liquidazione differita
2
CODCAUS|
UPPER(DESCR)|X
26
28
CODCAUS|1|3|0|Codice causale
DESCR|1|50|0|Descrizione causale
TIPODOC|1|2|0|Tipo documento
MOVAP|1|1|0|Movimento d'apertura
ALLEG|8|1|0|Moivmento in allegato
INTRACOM|8|1|0|Movimento intra-comunitario
REG|1|3|0|Codice registro
MOVVAL|8|1|0|Gestione valuta movimento
DATADOC|8|1|0|Data documento
NUMDOC|8|1|0|Numero documento
AUTOFATT|8|1|0|Autofattura art. ??
MOVSEZ|8|1|0|Movimento sezionale ??
TIPOMOV|2|1|0|Tipo movimento saldaconto
RITFATT|8|1|0|
COLLCESP|1|1|0|Collegamnto ai cespiti
M770|1|1|0|Collegamento al 770
CODCAUSIM|1|3|0|Codice causale incasso immediato
SOSPESO|8|1|0|Causale sospesa
VALINTRA|8|1|0|Gestione valuta intra-comunitaria
MOVIND|1|1|0|Causale per contabilità analitica
MOVCGIND|8|1|0|Causale per contabilità industriale
SOLOIVA|8|1|0|Movimento di sola IVA
PROVV|1|1|0|Tipo movimento (" " Normale, "P" Provvisorio cancellabile, "C" Provvisorio da cepiti)
REGSPIVA|2|2|0|Regimi speciali IVA
CODCAUREG|1|3|0|Causale regolarizzazione IVA
LIQDIFF|8|1|0|Fatture a liquidazione differita
RILFTEMRI|8|1|0|Causale di rilevazione fatture de emettere o ricevere
DATAREGPR|8|1|0|Data di registrazion nell'ereserciozio precedente per il caso del campo precedente
2
CODCAUS|
UPPER(DESCR)|X