From 2d2597c77efe34e3d6d90f9029ab078af0167726 Mon Sep 17 00:00:00 2001 From: bonazzi Date: Tue, 26 Dec 2017 02:40:31 +0000 Subject: [PATCH] Patch level : 12.0 490 Files correlati : cg0200a.msk cg2.exe cg5300a.msk Corretta abilitazione per il campo IVA per cassa e per il bottone di ricerca dei fornitori aggiunti campi data inizio e fine reverse charge nei parametri IVA e date inizio fatturazione elettronica e reverse charge nei clienti git-svn-id: svn://10.65.10.50/branches/R_10_00@24244 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- src/cg/cg0200.h | 2 ++ src/cg/cg0200a.uml | 16 ++++++++++++++-- src/cg/cg2100.cpp | 6 +++++- src/cg/cg5300a.h | 2 ++ src/cg/cg5300a.uml | 45 ++++++++++++++++++++++++++++++++------------- src/cg/f20.dir | 2 +- src/cg/f20.trr | 6 ++++-- 7 files changed, 60 insertions(+), 19 deletions(-) diff --git a/src/cg/cg0200.h b/src/cg/cg0200.h index 8e6292e66..2bad9ad19 100755 --- a/src/cg/cg0200.h +++ b/src/cg/cg0200.h @@ -186,6 +186,8 @@ #define F_INDENTE 315 #define F_SPLITPAY 316 #define DLG_PERC 317 +#define DLG_INIFATTEL 318 +#define DLG_INIREVCHG 319 #define F_TPIMBALLO 401 #define F_DIMENSIONE 402 diff --git a/src/cg/cg0200a.uml b/src/cg/cg0200a.uml index c432dfff0..91978bbba 100755 --- a/src/cg/cg0200a.uml +++ b/src/cg/cg0200a.uml @@ -433,16 +433,28 @@ END TEXT DLG_NULL BEGIN - PROMPT 62 17 "Collegamenti esterni" + PROMPT 62 15 "Collegamenti esterni" END GOLEM DLG_OGGETTI 10 2 BEGIN - PROMPT 64 18 "" + PROMPT 64 17 "" FIELD OGGETTI FLAGS "M" END +DATE DLG_INIFATTEL +BEGIN + PROMPT 2 19 "Inizio Fatt.elettronica " + FIELD INIFATTEL +END + +DATE DLG_INIREVCHG +BEGIN + PROMPT 42 19 "Inizio reverse charge " + FIELD INIREVCHG +END + LIST DLG_NULL 1 BEGIN PROMPT 80 80 "" diff --git a/src/cg/cg2100.cpp b/src/cg/cg2100.cpp index 5d7221abd..e2b245676 100755 --- a/src/cg/cg2100.cpp +++ b/src/cg/cg2100.cpp @@ -595,6 +595,10 @@ void TPrimanota_application::init_mask(TMask& m) m.show(-2, forg); } + const bool is_forn = forg || (causale().soloiva() && clifo() == "F"); + + m.show(F_CLIENTE, !is_forn); + m.show(F_FORNITORE, is_forn); m.hide(-7); // Nascondi tutti i campi del modulo FE if (corrisp) @@ -635,7 +639,7 @@ void TPrimanota_application::init_mask(TMask& m) if (ixc) { const TDate dr = m.get(F_DATAREG); - ixc->enable(gestione_IVAxCassa(dr)); + ixc->show(gestione_IVAxCassa(dr)); } TEdit_field& rc = m.efield(F_REVCHARGE); diff --git a/src/cg/cg5300a.h b/src/cg/cg5300a.h index 0eb49bee5..a464d3bba 100755 --- a/src/cg/cg5300a.h +++ b/src/cg/cg5300a.h @@ -17,6 +17,8 @@ #define F_ICDAL 217 #define F_ICAL 218 #define F_GESMANCRED 219 +#define F_RCDAL 223 +#define F_RCAL 224 #define F_ROUNDLIQ 221 #define F_ROUNDDIC 222 diff --git a/src/cg/cg5300a.uml b/src/cg/cg5300a.uml index 7e3079aa0..84b36a241 100755 --- a/src/cg/cg5300a.uml +++ b/src/cg/cg5300a.uml @@ -8,7 +8,7 @@ ENDPAGE PAGE "Liquidazione" 0 0 0 2 -GROUPBOX DLG_NULL 78 10 +GROUPBOX DLG_NULL 78 11 BEGIN PROMPT 1 0 "@bParametri Ditta" FLAGS "R" @@ -112,12 +112,6 @@ BEGIN MODULE IC END -BOOLEAN F_GESMANCRED -BEGIN - PROMPT 4 8 "Gestione manuale del credito compensabile in IVA" - FIELD B6 -END - DATA F_ICDAL BEGIN PROMPT 40 7 "Dal " @@ -134,15 +128,40 @@ BEGIN MODULE IC END +TEXT DLG_NULL +BEGIN + PROMPT 4 8 "Reverse charge" +END + +DATA F_RCDAL +BEGIN + PROMPT 40 8 "Dal " + CHECKTYPE REQUIRED + FIELD D2 +END + +DATA F_RCAL +BEGIN + PROMPT 60 8 "Al " + CHECKTYPE REQUIRED + FIELD D3 +END + +BOOLEAN F_GESMANCRED +BEGIN + PROMPT 4 9 "Gestione manuale del credito compensabile in IVA" + FIELD B6 +END + GROUPBOX DLG_NULL 78 6 BEGIN - PROMPT 1 10 "@bCredito" + PROMPT 1 11 "@bCredito" FLAGS "R" END CURRENCY F_CRED_COST 18 BEGIN - PROMPT 4 11 "Credito di costo (Ag. viaggio) " + PROMPT 4 12 "Credito di costo (Ag. viaggio) " HELP "Eventuale credito di costo dell'anno precedente (Agenzie di viaggio)" FIELD R5 DRIVENBY F_CODVAL @@ -150,7 +169,7 @@ END LISTBOX F_UTCR_IVA 2 34 BEGIN - PROMPT 4 12 "Utilizzo credito IVA " + PROMPT 4 13 "Utilizzo credito IVA " ITEM " |Utilizzato solo in IVA" MESSAGE CLEAR,F_GESMANCRED ITEM "CM|Compensabile con altre imposte" @@ -161,7 +180,7 @@ END CURRENCY F_CRED_PREC 18 BEGIN - PROMPT 4 13 "Credito IVA inizio anno " + PROMPT 4 14 "Credito IVA inizio anno " HELP "Eventuale credito di imposta dell'anno precedente" FIELD R0 DRIVENBY F_CODVAL @@ -169,7 +188,7 @@ END CURRENCY F_CRED_RES 18 BEGIN - PROMPT 4 14 "Credito IVA utilizzato a Gennaio " + PROMPT 4 15 "Credito IVA utilizzato a Gennaio " FIELD R15 DRIVENBY F_CODVAL NUM_EXPR #THIS<=#F_CRED_PREC @@ -178,7 +197,7 @@ END SPREADSHEET F_SHEET_PLA 78 BEGIN -PROMPT 1 16 "Parametri attivitą" +PROMPT 1 17 "Parametri attivitą" ITEM "Attiv.@5F" ITEM "Tipo@3" ITEM "Prorata" diff --git a/src/cg/f20.dir b/src/cg/f20.dir index 74fe19f52..0cf9807df 100755 --- a/src/cg/f20.dir +++ b/src/cg/f20.dir @@ -1,3 +1,3 @@ 20 0 -$clifo|4299|4300|809|0|Clienti/Fornitori||| +$clifo|0|0|825|0|Clienti/Fornitori||| diff --git a/src/cg/f20.trr b/src/cg/f20.trr index c44eef650..ab0ec9931 100755 --- a/src/cg/f20.trr +++ b/src/cg/f20.trr @@ -1,5 +1,5 @@ 20 -65 +67 TIPOCF|1|1|0|Tipo liente ornitore CODCF|3|6|0|Codice RAGSOC|1|50|0|Ragione sociale @@ -64,7 +64,9 @@ SPLITPAY|8|1|0|Ente pubblico soggetto a split payment UTENTE|1|32|0|Utente dell'ultima modifica DATAAGG|5|8|0|Data ultima modifica CODRFSO|1|6|0|Codice Rappresentate Fisc/Stabile Org -DATARFSO|5|8|0| +DATARFSO|5|8|0|Data Rappresentate Fisc/Stabile Org +INIFATTEL|5|8|0|Data inizio fatturazione elettronica +INIREVCHG|5|8|0|Data inizio reverse charge 6 TIPOCF+CODCF| TIPOCF+UPPER(RAGSOC)|X