diff --git a/build/fp0.vcxproj b/build/fp0.vcxproj
index 60e4cb8c2..7c40b413f 100644
--- a/build/fp0.vcxproj
+++ b/build/fp0.vcxproj
@@ -193,20 +193,27 @@
false
-
+
+
+ true
+
-
+
+
+ true
+
false
+
diff --git a/build/fp0.vcxproj.filters b/build/fp0.vcxproj.filters
index 586aed1e2..eb98f06b9 100644
--- a/build/fp0.vcxproj.filters
+++ b/build/fp0.vcxproj.filters
@@ -10,9 +10,6 @@
{aa4d5fac-6242-4e34-8b78-263ec3e4d15f}
-
- {06bc8aeb-f506-4c2e-85fb-bdeb92f2c77e}
-
{714df3f7-26ac-4abe-b7fc-6359cc2a263f}
@@ -22,6 +19,9 @@
{022385bd-474b-4d1f-a01c-6d799bae0328}
+
+ {06bc8aeb-f506-4c2e-85fb-bdeb92f2c77e}
+
@@ -48,6 +48,9 @@
Sources
+
+ Sources
+
@@ -65,6 +68,9 @@
Headers
+
+ Headers
+
@@ -79,6 +85,9 @@
Masks
+
+ Masks
+
diff --git a/cd/test/770700.txt b/cd/test/770700.txt
new file mode 100644
index 000000000..621e799d9
--- /dev/null
+++ b/cd/test/770700.txt
@@ -0,0 +1,3 @@
+777.exe
+
+Sistemato campo ragione sociale del dichiarante ( non veniva scritta la 2 parte nel campo nome.
\ No newline at end of file
diff --git a/cd/test/770700a.ini b/cd/test/770700a.ini
new file mode 100644
index 000000000..25cf5b674
--- /dev/null
+++ b/cd/test/770700a.ini
@@ -0,0 +1,27 @@
+[Main]
+Demo=0
+
+[777]
+File(134) = 777.exe|X
+Patch = 700
+Versione = 21511200
+
+[7799]
+Kill(0) = batbcaf.msk|x
+Kill(1) = batbca7.msk|x
+Kill(2) = batbent.msk|x
+
+[77]
+Data = 06-06-2016
+Descrizione = Percipienti (Mod.770)
+Dischi = 1
+Edit_4 = 770 -3
+Moduli = ba
+OEM =
+Patch = 700
+PostProcess =
+PreProcess =
+Prezzo(1) =
+Prezzo(2) =
+Versione = 21511200
+
diff --git a/cd/test/770700a1.zip b/cd/test/770700a1.zip
new file mode 100644
index 000000000..908f55163
Binary files /dev/null and b/cd/test/770700a1.zip differ
diff --git a/cd/test/cg0700.txt b/cd/test/cg0700.txt
new file mode 100644
index 000000000..368a918b9
--- /dev/null
+++ b/cd/test/cg0700.txt
@@ -0,0 +1,3 @@
+cg5.exe
+
+Visualizzazione liquidazione nella pagina dei versamenti veniva disabilitato Npvembre invece dell'acconto di dicembre
\ No newline at end of file
diff --git a/cd/test/cg0700a.ini b/cd/test/cg0700a.ini
new file mode 100644
index 000000000..67dda5ad9
--- /dev/null
+++ b/cd/test/cg0700a.ini
@@ -0,0 +1,94 @@
+[Main]
+Demo=0
+
+[cg1]
+Edit_23 = cg2 -0
+File(60) = cg5.exe|X
+Patch = 700
+Versione = 21511200
+
+[cg99]
+Kill(0) = bastvet.rep|x
+Kill(1) = bastivd.msk|x
+Kill(2) = bastcfi.rep|x
+Kill(3) = batbarb.msk|x
+Kill(4) = batbcve.msk|x
+Kill(5) = batbscc.msk|x
+Kill(6) = bastscc.msk|x
+Kill(7) = bastcco.rep|x
+Kill(8) = bastzon.rep|x
+Kill(9) = batblia.msk|x
+Kill(10) = batbmsp.msk|x
+Kill(11) = bastscc.rep|x
+Kill(12) = bastesc.msk|x
+Kill(13) = batbind.msk|x
+Kill(14) = bastmsp.rep|x
+Kill(15) = batbcfi.msk|x
+Kill(16) = batbleg.msk|x
+Kill(17) = batbndo.msk|x
+Kill(18) = bastcve.msk|x
+Kill(19) = bastcfi.msk|x
+Kill(20) = bastcco.msk|x
+Kill(21) = batbpor.msk|x
+Kill(22) = bastmsp.msk|x
+Kill(23) = bastndo.msk|x
+Kill(24) = bastntb.rep|x
+Kill(25) = batbver.msk|x
+Kill(26) = bastvet.msk|x
+Kill(27) = bastpor.rep|x
+Kill(28) = bastntb.msk|x
+Kill(29) = bastleg.rep|x
+Kill(30) = batblbu.msk|x
+Kill(31) = bastndo.rep|x
+Kill(32) = batbntb.msk|x
+Kill(33) = bastnot.msk|x
+Kill(34) = batbreg.msk|x
+Kill(35) = bastver.rep|x
+Kill(36) = bastdpn.msk|x
+Kill(37) = bastcam.rep|x
+Kill(38) = batblia.msk|x
+Kill(39) = bastivd.rep|x
+Kill(40) = bastesc.rep|x
+Kill(41) = bastpdb.msk|x
+Kill(42) = batbzon.msk|x
+Kill(43) = bastleg.msk|x
+Kill(44) = bastpdb.rep|x
+Kill(45) = bastarb.rep|x
+Kill(46) = bastreg.msk|x
+Kill(47) = bastdpn.rep|x
+Kill(48) = batbins.msk|x
+Kill(49) = cgtbcon.msk|x
+Kill(50) = batbtra.msk|x
+Kill(51) = batbdel.msk|x
+Kill(52) = batbinl.msk|x
+Kill(53) = bastcam.msk|x
+Kill(54) = batbdpn.msk|x
+Kill(55) = bastzon.msk|x
+Kill(56) = bastnot.rep|x
+Kill(57) = batbnot.msk|x
+Kill(58) = batbcam.msk|x
+Kill(59) = bastpor.msk|x
+Kill(60) = batbcco.msk|x
+Kill(61) = batbpdb.msk|x
+Kill(62) = batbvet.msk|x
+Kill(63) = bastarb.msk|x
+Kill(64) = bastcve.rep|x
+Kill(65) = bastreg.rep|x
+Kill(66) = bastver.msk|x
+Kill(67) = batbesc.msk|x
+Kill(68) = batbtit.msk|x
+Kill(69) = batbivd.msk|x
+
+[cg]
+Data = 18-02-2019
+Descrizione = Contabilita' Generale
+Dischi = 1
+Moduli = ba
+OEM =
+Patch = 700
+PostProcess = bainst -0 CG
+PreProcess =
+Prezzo(1) =
+Prezzo(2) =
+Versione = 21511200
+
diff --git a/cd/test/cg0700a1.zip b/cd/test/cg0700a1.zip
new file mode 100644
index 000000000..07692814a
Binary files /dev/null and b/cd/test/cg0700a1.zip differ
diff --git a/cd/test/cg0702.txt b/cd/test/cg0702.txt
new file mode 100644
index 000000000..799bcc86c
--- /dev/null
+++ b/cd/test/cg0702.txt
@@ -0,0 +1,3 @@
+cgtbvet.msk
+
+Sistemato errore inserimento vettori
\ No newline at end of file
diff --git a/cd/test/cg0702a.ini b/cd/test/cg0702a.ini
new file mode 100644
index 000000000..ca0ab482f
--- /dev/null
+++ b/cd/test/cg0702a.ini
@@ -0,0 +1,97 @@
+[Main]
+Demo=0
+
+[cg9]
+Edit_19 = cg0 -0
+Edit_20 = cg0 -1
+Edit_26 = cg0 -4
+Edit_5 = cg0 -5
+File(224) = cgtbvet.msk|X
+Patch = 0702
+Versione = 21511200
+
+[cg99]
+Kill(0) = bastcfi.msk|x
+Kill(1) = batbver.msk|x
+Kill(2) = bastndo.rep|x
+Kill(3) = bastcve.msk|x
+Kill(4) = bastntb.rep|x
+Kill(5) = batblbu.msk|x
+Kill(6) = bastpor.rep|x
+Kill(7) = bastnot.msk|x
+Kill(8) = bastvet.msk|x
+Kill(9) = batbntb.msk|x
+Kill(10) = batbcfi.msk|x
+Kill(11) = batbpor.msk|x
+Kill(12) = bastmsp.rep|x
+Kill(13) = bastcco.msk|x
+Kill(14) = batbndo.msk|x
+Kill(15) = bastndo.msk|x
+Kill(16) = batbleg.msk|x
+Kill(17) = bastmsp.msk|x
+Kill(18) = bastscc.rep|x
+Kill(19) = batbmsp.msk|x
+Kill(20) = batbind.msk|x
+Kill(21) = bastesc.msk|x
+Kill(22) = bastpor.msk|x
+Kill(23) = bastreg.rep|x
+Kill(24) = batbcam.msk|x
+Kill(25) = bastcve.rep|x
+Kill(26) = batbesc.msk|x
+Kill(27) = bastver.msk|x
+Kill(28) = cgtbcon.msk|x
+Kill(29) = bastzon.msk|x
+Kill(30) = batbpdb.msk|x
+Kill(31) = batbins.msk|x
+Kill(32) = batbdpn.msk|x
+Kill(33) = batbcco.msk|x
+Kill(34) = batbnot.msk|x
+Kill(35) = bastarb.msk|x
+Kill(36) = bastnot.rep|x
+Kill(37) = batbvet.msk|x
+Kill(38) = bastivd.rep|x
+Kill(39) = bastarb.rep|x
+Kill(40) = batbdel.msk|x
+Kill(41) = batblia.msk|x
+Kill(42) = bastpdb.rep|x
+Kill(43) = batbtra.msk|x
+Kill(44) = bastdpn.rep|x
+Kill(45) = bastcam.msk|x
+Kill(46) = bastreg.msk|x
+Kill(47) = batbinl.msk|x
+Kill(48) = bastleg.rep|x
+Kill(49) = bastver.rep|x
+Kill(50) = bastpdb.msk|x
+Kill(51) = bastntb.msk|x
+Kill(52) = batbreg.msk|x
+Kill(53) = bastesc.rep|x
+Kill(54) = bastcam.rep|x
+Kill(55) = bastleg.msk|x
+Kill(56) = bastdpn.msk|x
+Kill(57) = batbzon.msk|x
+Kill(58) = batbivd.msk|x
+Kill(59) = batbtit.msk|x
+Kill(60) = batblia.msk|x
+Kill(61) = bastzon.rep|x
+Kill(62) = bastivd.msk|x
+Kill(63) = bastvet.rep|x
+Kill(64) = batbscc.msk|x
+Kill(65) = batbcve.msk|x
+Kill(66) = batbarb.msk|x
+Kill(67) = bastcfi.rep|x
+Kill(68) = bastcco.rep|x
+Kill(69) = bastscc.msk|x
+
+[cg]
+Data = 20-02-2019
+Descrizione = Contabilita' Generale
+Dischi = 1
+Moduli = ba
+OEM =
+Patch = 702
+PostProcess = bainst -0 CG
+PreProcess =
+Prezzo(1) =
+Prezzo(2) =
+Versione = 21511200
+
diff --git a/cd/test/cg0702a1.zip b/cd/test/cg0702a1.zip
new file mode 100644
index 000000000..b1f2209aa
Binary files /dev/null and b/cd/test/cg0702a1.zip differ
diff --git a/cd/test/cg0704.txt b/cd/test/cg0704.txt
new file mode 100644
index 000000000..d962170ff
--- /dev/null
+++ b/cd/test/cg0704.txt
@@ -0,0 +1,8 @@
+cg4.exe
+
+Modificato salvataggio percentuale pro-rata (diana2000) per sistemare si puo azzerare il campo R12 della tabella PLM del mese in oggetto (è 1999) o ricalcolare la liquidazione
+Va provato anche con un pro-rata per verificare che salvi la % giusta.
+
+Modificato prospetto pro-rata annuale.
+
+Modificato il calcolo interessi per i trimestrali. Ora anche a dicembre (Pastore).
\ No newline at end of file
diff --git a/cd/test/cg0704a.ini b/cd/test/cg0704a.ini
new file mode 100644
index 000000000..387824f2f
--- /dev/null
+++ b/cd/test/cg0704a.ini
@@ -0,0 +1,94 @@
+[Main]
+Demo=0
+
+[cg1]
+Edit_23 = cg2 -0
+File(39) = cg4.exe|X
+Patch = 704
+Versione = 21511200
+
+[cg99]
+Kill(0) = batbmsp.msk|x
+Kill(1) = bastcve.rep|x
+Kill(2) = batbins.msk|x
+Kill(3) = bastscc.rep|x
+Kill(4) = batbcam.msk|x
+Kill(5) = batbpdb.msk|x
+Kill(6) = bastver.msk|x
+Kill(7) = batbcco.msk|x
+Kill(8) = batbesc.msk|x
+Kill(9) = batbdpn.msk|x
+Kill(10) = bastndo.msk|x
+Kill(11) = bastesc.msk|x
+Kill(12) = batbndo.msk|x
+Kill(13) = batbind.msk|x
+Kill(14) = bastmsp.msk|x
+Kill(15) = bastreg.rep|x
+Kill(16) = batbleg.msk|x
+Kill(17) = bastpor.msk|x
+Kill(18) = batbpor.msk|x
+Kill(19) = batbcfi.msk|x
+Kill(20) = bastcco.msk|x
+Kill(21) = bastmsp.rep|x
+Kill(22) = batbtit.msk|x
+Kill(23) = batbcve.msk|x
+Kill(24) = batbivd.msk|x
+Kill(25) = batbscc.msk|x
+Kill(26) = bastcfi.rep|x
+Kill(27) = batbarb.msk|x
+Kill(28) = bastver.rep|x
+Kill(29) = bastleg.msk|x
+Kill(30) = bastzon.rep|x
+Kill(31) = bastleg.rep|x
+Kill(32) = bastcam.rep|x
+Kill(33) = batblia.msk|x
+Kill(34) = batbzon.msk|x
+Kill(35) = bastvet.rep|x
+Kill(36) = bastdpn.msk|x
+Kill(37) = bastivd.msk|x
+Kill(38) = bastarb.rep|x
+Kill(39) = bastcam.msk|x
+Kill(40) = bastntb.msk|x
+Kill(41) = bastivd.rep|x
+Kill(42) = bastdpn.rep|x
+Kill(43) = bastpdb.msk|x
+Kill(44) = batbinl.msk|x
+Kill(45) = bastesc.rep|x
+Kill(46) = bastreg.msk|x
+Kill(47) = batbreg.msk|x
+Kill(48) = bastzon.msk|x
+Kill(49) = bastarb.msk|x
+Kill(50) = batblia.msk|x
+Kill(51) = cgtbcon.msk|x
+Kill(52) = batbnot.msk|x
+Kill(53) = batbdel.msk|x
+Kill(54) = batbvet.msk|x
+Kill(55) = batbtra.msk|x
+Kill(56) = bastnot.rep|x
+Kill(57) = bastpdb.rep|x
+Kill(58) = bastscc.msk|x
+Kill(59) = bastcco.rep|x
+Kill(60) = batbntb.msk|x
+Kill(61) = bastvet.msk|x
+Kill(62) = batbver.msk|x
+Kill(63) = bastcfi.msk|x
+Kill(64) = batblbu.msk|x
+Kill(65) = bastntb.rep|x
+Kill(66) = bastcve.msk|x
+Kill(67) = bastndo.rep|x
+Kill(68) = bastnot.msk|x
+Kill(69) = bastpor.rep|x
+
+[cg]
+Data = 20-02-2019
+Descrizione = Contabilita' Generale
+Dischi = 1
+Moduli = ba
+OEM =
+Patch = 704
+PostProcess = bainst -0 CG
+PreProcess =
+Prezzo(1) =
+Prezzo(2) =
+Versione = 21511200
+
diff --git a/cd/test/cg0704a1.zip b/cd/test/cg0704a1.zip
new file mode 100644
index 000000000..14865bde8
Binary files /dev/null and b/cd/test/cg0704a1.zip differ
diff --git a/cd/test/fp0700.txt b/cd/test/fp0700.txt
new file mode 100644
index 000000000..80884e286
--- /dev/null
+++ b/cd/test/fp0700.txt
@@ -0,0 +1,8 @@
+fp0.exe
+fp0100a.msk
+fp0400a.msk
+fp0300a.msk
+fpmenu.men
+
+- Aggiunto programma interrogazione fatture passive
+- Aggiunta customizzazione calcolo righe merci
\ No newline at end of file
diff --git a/cd/test/fp0700a.ini b/cd/test/fp0700a.ini
new file mode 100644
index 000000000..081ad6d06
--- /dev/null
+++ b/cd/test/fp0700a.ini
@@ -0,0 +1,23 @@
+[Main]
+Demo=0
+
+[fp1]
+File(0) = fp0.exe|X
+File(1) = fp0100a.msk|X
+File(3) = fp0300a.msk|X
+File(4) = fp0400a.msk|X
+File(6) = fpmenu.men|X
+Patch = 700
+Versione = 21511200
+
+[fp]
+Data = 15-02-2019
+Descrizione = Fattura Elettronica
+Dischi = 1
+Moduli = cg,ve
+OEM =
+Patch = 700
+PostProcess =
+PreProcess =
+Versione = 21511200
+
diff --git a/cd/test/fp0700a1.zip b/cd/test/fp0700a1.zip
new file mode 100644
index 000000000..b69da5ddc
Binary files /dev/null and b/cd/test/fp0700a1.zip differ
diff --git a/cd/test/fp0704.txt b/cd/test/fp0704.txt
new file mode 100644
index 000000000..ed6ea0cc7
--- /dev/null
+++ b/cd/test/fp0704.txt
@@ -0,0 +1,3 @@
+fp0.exe
+
+Aggiunto controllo tipo documento SDI per dati sporchi
\ No newline at end of file
diff --git a/cd/test/fp0704a.ini b/cd/test/fp0704a.ini
new file mode 100644
index 000000000..3442b3a7b
--- /dev/null
+++ b/cd/test/fp0704a.ini
@@ -0,0 +1,19 @@
+[Main]
+Demo=0
+
+[fp1]
+File(0) = fp0.exe|X
+Patch = 0704
+Versione = 21511200
+
+[fp]
+Data = 21-02-2019
+Descrizione = Fattura Elettronica
+Dischi = 1
+Moduli = cg,ve
+OEM =
+Patch = 704
+PostProcess =
+PreProcess =
+Versione = 21511200
+
diff --git a/cd/test/fp0704a1.zip b/cd/test/fp0704a1.zip
new file mode 100644
index 000000000..caf398973
Binary files /dev/null and b/cd/test/fp0704a1.zip differ
diff --git a/cd/test/fp0706.txt b/cd/test/fp0706.txt
new file mode 100644
index 000000000..e80b0ae29
--- /dev/null
+++ b/cd/test/fp0706.txt
@@ -0,0 +1,7 @@
+fp0.exe
+fp0100a.msk
+
+- Aggiunto piccolo controllo preventivo durante l'esportazione degli XML
+- Aggiunto flag per non rendere il controllo bloccante
+- Sistemata banca di appoggio
+- Aggiunta gestione casse professionali
\ No newline at end of file
diff --git a/cd/test/fp0706a.ini b/cd/test/fp0706a.ini
new file mode 100644
index 000000000..a78e51341
--- /dev/null
+++ b/cd/test/fp0706a.ini
@@ -0,0 +1,20 @@
+[Main]
+Demo=0
+
+[fp1]
+File(0) = fp0.exe|X
+File(1) = fp0100a.msk|X
+Patch = 0706
+Versione = 21511200
+
+[fp]
+Data = 21-02-2019
+Descrizione = Fattura Elettronica
+Dischi = 1
+Moduli = cg,ve
+OEM =
+Patch = 706
+PostProcess =
+PreProcess =
+Versione = 21511200
+
diff --git a/cd/test/fp0706a1.zip b/cd/test/fp0706a1.zip
new file mode 100644
index 000000000..33cac6d70
Binary files /dev/null and b/cd/test/fp0706a1.zip differ
diff --git a/src/cg/cg0800a.h b/src/cg/cg0800a.h
new file mode 100644
index 000000000..ecb00cc38
--- /dev/null
+++ b/src/cg/cg0800a.h
@@ -0,0 +1,6 @@
+#define F_CODDITTA 101
+#define F_RAGSOC 102
+#define F_ANNO 103
+#define F_DAMESE 104
+#define F_AMESE 105
+#define F_REPORT 106
diff --git a/src/cg/cg4301.cpp b/src/cg/cg4301.cpp
index 896f345c9..deafac616 100755
--- a/src/cg/cg4301.cpp
+++ b/src/cg/cg4301.cpp
@@ -2981,7 +2981,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
acquisti_iva += agr_detIA;
}
- _plm->put("R12", _prorata.percentuale(_year));
+ _plm->put("R12", _prorata.percentuale(_year) != INVALID_PRORATA ? _prorata.percentuale(_year) : ZERO);
_plm->put("R4", percentuale1);
_plm->put("R16", percentuale2);
_plm->put("R17", cred_fattrit);
@@ -4379,7 +4379,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
lim.put("R1",rimborsi);
lim.put("R5",rettifiche);
- lim.put("R17", variazioni_imposta);
+ lim.put("R17", variazioni_imposta);
lim.put("R18", imposta_non_versata);
lim.put("R19", crediti_speciali);
}
@@ -4391,22 +4391,25 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
* false per ditte mensili e liq. annuale
* Ulteriormente smentito e rettificato
*/
- bool true_trim = (month == 3 || month == 6 || month == 9);
- if (_isintr && ( true_trim || (month == 12 && _isbenzinaro && _gest4)
- || (month == 13 && !(_isbenzinaro && _gest4)) ))
- {
+ // bool true_trim = (month == 3 || month == 6 || month == 9);
+ // if (_isintr && ( true_trim || (month == 12 && _isbenzinaro && _gest4)
+ // || (month == 13 && !(_isbenzinaro && _gest4)) )) // cambiato 2019
+
+ if (_isintr && (month == 3 || month == 6 || month == 9 || month == 12 || month ==13))
+ {
const real interesse = interesse_trimestrale(_month);
const real r = risultato - imposta_non_versata; // CM 26-09-2000
real ivi = r.sign() > 0 ? (r * interesse / CENTO) : ZERO;
round_al_centesimo(ivi);
lim.put("R14", ivi);
- }
+ lim.put("R10", interesse_trimestrale(_month));
+ }
//questo serve anche per la visualizzazione e per l'estrazione deleghe
- if (_isintr && ( true_trim || (month == 12 && _isbenzinaro && _gest4)
- || (month == 13 && !(_isbenzinaro && _gest4)) ))
- lim.put("R10", interesse_trimestrale(_month));
-
+// if (_isintr && ( true_trim || (month == 12 && _isbenzinaro && _gest4)
+// || (month == 13 && !(_isbenzinaro && _gest4)) )) cambiato 2019
+// lim.put("R10", interesse_trimestrale(_month));
+
lim.put("R7", tot_cong); // totale conguaglio su tutte le attivita'
lim.put("R8", versamenti);
lim.put("R9", vers_int);
@@ -4429,10 +4432,10 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
_lam->put("R1", iva_acq);
_lam->put("R2", cred_prec);
_lam->put("R3", debt_precd);
- _lam->put("R5", _imposta_inc_diff_ven);
- _lam->put("R6", _imposta_inc_cassa_ven);
- _lam->put("R7", _imposta_inc_diff_acq);
- _lam->put("R8", _imposta_inc_cassa_acq);
+ _lam->put("R5", _imposta_inc_diff_ven);
+ _lam->put("R6", _imposta_inc_cassa_ven);
+ _lam->put("R7", _imposta_inc_diff_acq);
+ _lam->put("R8", _imposta_inc_cassa_acq);
lim.put("B0","");
diff --git a/src/cg/cg4304.cpp b/src/cg/cg4304.cpp
index b07692b47..178473231 100755
--- a/src/cg/cg4304.cpp
+++ b/src/cg/cg4304.cpp
@@ -1197,7 +1197,8 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
if ((e1+e2+e3+e4) > ZERO)
{
dd->_f0 |= IS_PRORATA;
- }
+ dd->_r18 = _pla->get_real("R18");
+ }
dd->_r0 = ris;
dd->_r1 = e1;
dd->_r2 = pr > ZERO ? pr : ZERO;
@@ -1208,7 +1209,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
dd->_r7 = e4;
dd->_r8 = e5;
dd->_r9 = e6;
- dd->_r10 = vrc;
+ dd->_r10 = vrc;
t->_arr.add(dd);
}
}
@@ -2809,20 +2810,25 @@ bool TLiquidazione_app::set_annual(_DescrItem& d)
const real perc_det = CENTO - d._r2;
_perc_ind_annual = d._r2;
- const real vol_aff = d._r0;
+ real vol_aff = d._r0;
+ const real rev_charge = d._r18;
const TString16 s1 = perc_det.stringa();
const TString16 s2 = d._r2.stringa();
set_row(row++, FR("%% PRO-RATA (%s%%) ed IVA non detraibile (%s%%)@69g%r"),
(const char*)s1, (const char*)s2, &(d._r6));
-
- set_row(row++,FR("C1 - Operazioni esenti escluse da nr. 1 a 9 e 11 art. 10 @69g%r"), &(d._r1));
- set_row(row++,FR("C2 - Operazioni esenti di cui nr. 11 art. 10 @69g%r"), &(d._r4));
- set_row(row++,FR("C3 - Operazioni esenti da nr. 1 a 9 art. 10 @69g%r"), &(d._r5));
- set_row(row++,FR("@6gdi cui cessione beni ammortizzabili @69g%r"), &(d._r8));
- set_row(row++,FR("C1A - Operazioni esenti di cui all'art.10 n. 27 quinquies @69g%r"), &(d._r7));
- set_row(row++,FR("@6gdi cui cessione beni ammortizzabili @69g%r"), &(d._r9));
- set_row(row++,FR("Totale vendite al fine del calcolo del pro-rata @69g%r"), &vol_aff);
- set_row(row++,FR("Detraibilità @69g%r%%"), &perc_det);
+ const real denom = vol_aff - rev_charge;
+ const real num = denom - d._r1 - d._r4 - d._r5 + d._r8 - d._r7 + d._r9;
+ set_row(row++, FR("Numeratore pro-rata @69g%r"), &num);
+ set_row(row++, FR("Denominatore @69g%r"), &denom);
+// set_row(row++,FR("C1 - Operazioni esenti escluse da nr. 1 a 9 e 11 art. 10 @69g%r"), &(d._r1));
+// set_row(row++,FR("C2 - Operazioni esenti di cui nr. 11 art. 10 @69g%r"), &(d._r4));
+// set_row(row++,FR("C3 - Operazioni esenti da nr. 1 a 9 art. 10 @69g%r"), &(d._r5));
+// set_row(row++,FR("@6gdi cui cessione beni ammortizzabili @69g%r"), &(d._r8));
+// set_row(row++,FR("C1A - Operazioni esenti di cui all'art.10 n. 27 quinquies @69g%r"), &(d._r7));
+// set_row(row++,FR("@6gdi cui cessione beni ammortizzabili @69g%r"), &(d._r9));
+// set_row(row++, FR("Volume d'affari @69g%r"), &vol_aff);
+// set_row(row++, FR("Totale vendite al fine del calcolo del pro-rata @69g%r"), &vol_aff);
+ set_row(row++,FR("Detraibilità @69g%r%%"), &perc_det);
set_print_zero(false);
}
diff --git a/src/cg/cg5500.cpp b/src/cg/cg5500.cpp
index 40a155996..d6b0bb796 100755
--- a/src/cg/cg5500.cpp
+++ b/src/cg/cg5500.cpp
@@ -1725,7 +1725,7 @@ void Visliq_app::read_general(TMask& m)
tt.add(versamenti[i-1].string(),5);// versamenti
sv.row(-1) = tt;
- if (i == 11)
+ if (i == 12)
sv.enable_cell(sv.items() - 1, -1, false);
}
diff --git a/src/cg/cgtbvet.uml b/src/cg/cgtbvet.uml
index 3c2bf70ac..cd23e7549 100755
--- a/src/cg/cgtbvet.uml
+++ b/src/cg/cgtbvet.uml
@@ -17,7 +17,7 @@ BEGIN
PROMPT 2 2 "Codice vettore "
FIELD CODTAB
HELP "Codice del vettore"
-FLAGS "ZU"
+FLAGS "AZR"
USE %VET
CHECKTYPE REQUIRED
INPUT CODTAB F_CODVETT
@@ -41,8 +41,9 @@ BEGIN
PROMPT 2 3 "Cognome/Ragione sociale "
HELP "Ragione sociale del vettore"
FIELD S0[1,30]
+KEY 2
USE %VET KEY 2
-INPUT S0 F_RAGSO
+INPUT S0[1,30] F_RAGSO
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
COPY OUTPUT F_CODVETT
@@ -53,10 +54,8 @@ STRING F_RAGSOA 20
BEGIN
PROMPT 2 4 "Nome/Seconda parte Rag. Soc."
FIELD S0[31,50]
- USE %VET KEY 2
+ KEY 2
HELP "Seconda parte della ragione sociale o nome"
- COPY OUTPUT F_CODVETT
- MESSAGE COPY,6@
END
diff --git a/src/fp/fp0100.cpp b/src/fp/fp0100.cpp
index f20467e49..00c0e2fa9 100644
--- a/src/fp/fp0100.cpp
+++ b/src/fp/fp0100.cpp
@@ -44,6 +44,7 @@ void TParametri_mask::save_all() const
fp_settings().set_gest_alleg(get_bool(F_ESPORTAALLEG));
fp_settings().set_allega_fat(get_bool(F_ESPORTADOC));
fp_settings().set_f8(get_bool(F_F8));
+ fp_settings().set_check_not_block(get_bool(F_CHECK_NOT_BLOCK));
TFP_righe_custom().save_sheet(sfield(F_FORMPERS));
}
@@ -59,6 +60,7 @@ void TParametri_mask::load_all()
set(F_ESPORTAALLEG, fp_settings().get_gest_alleg());
set(F_ESPORTADOC, fp_settings().get_allega_fat());
set(F_F8, fp_settings().is_f8());
+ set(F_CHECK_NOT_BLOCK, fp_settings().get_check_not_block());
TFP_righe_custom().load_sheet(sfield(F_FORMPERS));
}
diff --git a/src/fp/fp0100a.h b/src/fp/fp0100a.h
index c6f9d6b0d..d7508bfb6 100644
--- a/src/fp/fp0100a.h
+++ b/src/fp/fp0100a.h
@@ -1,24 +1,25 @@
-#define F_INDIRIZZO 201
-#define F_DATABASE 202
-#define F_USER 203
-#define F_PASSWORD 204
-#define F_FLDDEST 205
-#define F_FLDUSRDEST 206
-#define F_COFI 207
-#define F_ESPORTAALLEG 208
-#define F_ESPORTADOC 209
-#define F_F8 210
+#define F_INDIRIZZO 201
+#define F_DATABASE 202
+#define F_USER 203
+#define F_PASSWORD 204
+#define F_FLDDEST 205
+#define F_FLDUSRDEST 206
+#define F_COFI 207
+#define F_ESPORTAALLEG 208
+#define F_ESPORTADOC 209
+#define F_F8 210
+#define F_CHECK_NOT_BLOCK 211
-#define F_SETPATCH 301
-#define F_ENPTYTABLE 302
-#define F_DROPTABLE 303
-#define F_REBORNDB 304
+#define F_SETPATCH 301
+#define F_ENPTYTABLE 302
+#define F_DROPTABLE 303
+#define F_REBORNDB 304
-#define F_FORMPERS 401
+#define F_FORMPERS 401
-#define S_TIPODOC 101
-#define S_TIPORIGA 102
-#define S_QTA 103
-#define S_PREZZO 104
-#define S_IMPONIBILE 105
\ No newline at end of file
+#define S_TIPODOC 101
+#define S_TIPORIGA 102
+#define S_QTA 103
+#define S_PREZZO 104
+#define S_IMPONIBILE 105
\ No newline at end of file
diff --git a/src/fp/fp0100a.uml b/src/fp/fp0100a.uml
index bb14396e5..0d3bdfb50 100644
--- a/src/fp/fp0100a.uml
+++ b/src/fp/fp0100a.uml
@@ -89,6 +89,32 @@ END
ENDPAGE
+PAGE "Configurazione (2) " 0 2 0 0
+
+SPREADSHEET F_FORMPERS 60 6
+BEGIN
+ PROMPT 1 1 "Personalizzazioni calcolo tipi righe "
+ ITEM "Tipo\nDoc@4"
+ ITEM "Tipo\nRiga@4"
+ ITEM "Qta"
+ ITEM "Prezzo"
+ ITEM "Imponibile"
+END
+
+
+GROUPBOX DLG_NULL 78 2
+BEGIN
+ PROMPT 1 8 "@BControlli preventivi"
+END
+
+BOOLEAN F_CHECK_NOT_BLOCK
+BEGIN
+ PROMPT 2 11 "Rendi controlli XML non bloccanti"
+END
+
+
+
+ENDPAGE
PAGE "Assistenza FP" 0 2 0 0
@@ -118,19 +144,6 @@ END
ENDPAGE
-PAGE "Formule Pers " 0 2 0 0
-
-SPREADSHEET F_FORMPERS 60 6
-BEGIN
- PROMPT 1 1 "Personalizzazioni calcolo tipi righe "
- ITEM "Tipo\nDoc@4"
- ITEM "Tipo\nRiga@4"
- ITEM "Qta"
- ITEM "Prezzo"
- ITEM "Imponibile"
-END
-
-ENDPAGE
ENDMASK
PAGE "Elementi spredsheet" 0 2 0 0
@@ -185,7 +198,6 @@ BEGIN
OUTPUT S_IMPONIBILE CODTAB
END
-
ENDPAGE
TOOLBAR "Riga" 0 0 0 2
diff --git a/src/fp/fp0500.cpp b/src/fp/fp0500.cpp
index 0f126eb15..b6b6fa9e5 100644
--- a/src/fp/fp0500.cpp
+++ b/src/fp/fp0500.cpp
@@ -124,7 +124,7 @@ void TMancati_mask::fill()
#ifdef DBG
enable(DLG_OK);
#else
- enable(DLG_OK, filter_selected != "X" && filter_selected != "P");
+ enable(DLG_OK, false);
#endif
// Record di controllo per eventuali elaborazioni precedenti
diff --git a/src/fp/fplib.h b/src/fp/fplib.h
index fa39d1f5f..10f3a6e49 100644
--- a/src/fp/fplib.h
+++ b/src/fp/fplib.h
@@ -147,15 +147,28 @@ private:
protected:
- bool initialize(const TDocumentoEsteso& doc);
+
+ /**< Funzioni di controllo */
+ /**< Controlli di testata, non è const per il calcolo della codizione di pagamento */
+ bool check_initial(TDocumentoEsteso& doc);
+ /**< Controllo di riga */
+ bool check_row(const TRiga_documento& rdoc);
+ /**< Controllo riepilogo IVA */
+ bool check_riepilogo(const TDocumentoEsteso& doc, const TRiepilogo_iva& riva);
+
+
+ bool initialize(TDocumentoEsteso& doc);
bool parse_sconto(const TString& formula, TToken_string& sconti) const;
static bool get_bnp_iban(const TString& abi, const TString& cab, int prg, TString& iban);
- bool get_bank(const TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const;
+ bool get_bank(TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const;
+ bool get_bank_presentazione(const TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const;
+ bool get_bank_appoggio(const TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const;
const TString& descrizione(const TRiga_documento& rdoc);
const TRectype& cco(const TRectype& doc) const; // Contratto/Convenzione/Offerta
void log(int severity, const char* msg);
const char* natura(const TString& codiva) const;
+ const char* get_esigibilita_iva(const TDocumentoEsteso& doc);
void set_IVA(TString codiva, TPaf_record& paf) const;
void set_IVA(const TRiga_documento& rdoc, TPaf_record& paf) const;
bool add_row_art(long& riga_art, const TString& codice_tipo, const TString& codice_valore, TPaf_record& paf);
@@ -211,6 +224,7 @@ public:
const bool get_esp_est() const;
const TString& get_esp_est_cod() const;
const bool is_f8() const;
+ const bool get_check_not_block() const;
// Setters
void set_db_indirizzo(const TString& ind) const;
@@ -226,6 +240,7 @@ public:
void set_esp_est(bool esp_est) const;
void set_esp_est_cod(const TString& esp_est_cod) const;
void set_f8(bool f8) const;
+ void set_check_not_block(bool not_block) const;
};
inline TFP_settings& fp_settings()
diff --git a/src/fp/fplib01.cpp b/src/fp/fplib01.cpp
index 4d1e4d373..03aaf3169 100644
--- a/src/fp/fplib01.cpp
+++ b/src/fp/fplib01.cpp
@@ -190,7 +190,7 @@ bool get_coddest(const char tipocf, const long codcf, TString& coddest, TString&
}
else
pec = "";
- // Dopo la versione 1.2 torna sempre true
+
return coddest.full();
}
inline const TString& no_special(char a)
@@ -207,7 +207,16 @@ inline const TString& no_special(char a)
}
const TString& tipo_doc_sdi(const TDocumento& doc)
{
- return doc.get(DOC_TIPODOCSDI).full() ? doc.get(DOC_TIPODOCSDI) : doc.tipo().tipo_doc_sdi();
+ static TString tipo_doc_sdi;
+ tipo_doc_sdi.cut(0) << doc.get(DOC_TIPODOCSDI);
+
+ // Controlli da fare per clienti a cui si fotte la conversione e mi trovo dati sporchi nella colonna
+ if (tipo_doc_sdi.len() == 4 && tipo_doc_sdi.starts_with("TD"))
+ {
+ return tipo_doc_sdi;
+ }
+
+ return doc.tipo().tipo_doc_sdi();
}
bool is_fattura(const TRectype& doc)
@@ -529,47 +538,74 @@ bool TDoc_fp::get_bnp_iban(const TString& abi, const TString& cab, int nprog, TS
iban = bnp.get("S3");
return err == NOERR;
}
-bool TDoc_fp::get_bank(const TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const
+bool TDoc_fp::get_bank(TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const
{
- bool found = false;
- abi = doc.get(DOC_CODABIP);
- cab = doc.get(DOC_CODCABP);
- int prg = doc.get_int(DOC_PROGBNP);
+ bool found = false;
+ if(doc.pagamento().tipo_rata(0) == TTipo_pag::_bonfico)
+ {
+ found = get_bank_presentazione(doc, iban, abi, cab, istituto);
+ }
+ else if(doc.pagamento().tipo_rata(0) == TTipo_pag::_ric_ban || doc.pagamento().tipo_rata(0) == TTipo_pag::_rid)
+ {
+ found = get_bank_appoggio(doc, iban, abi, cab, istituto);
+ }
+ return found;
+}
+
+bool TDoc_fp::get_bank_presentazione(const TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const
+{
+ bool found = false;
+ abi = doc.get(DOC_CODABIP);
+ cab = doc.get(DOC_CODCABP);
+ int prg = doc.get_int(DOC_PROGBNP);
+ found = abi.full() && cab.full();
+ if (found)
+ get_bnp_iban(abi, cab, prg, iban);
+ if (!found) // Se non trovo banca su CFBAN la cerco su CFVEN
+ {
+ const TRectype& cfven = doc.clifor().vendite();
+ abi = cfven.get(CFV_CODABIPR);
+ cab = cfven.get(CFV_CODCABPR);
found = abi.full() && cab.full();
if (found)
- get_bnp_iban(abi, cab, prg, iban);
- if (!found) // Se non trovo banca sul DOC la cerco su CFBAN
- {
- TToken_string key;
- key.add("C");
- key.add(doc.codcf());
- key.add("N");
- key.add(1);
- const TRectype& cfban = cache().get(LF_CFBAN, key);
- if (!cfban.empty())
- {
- abi = cfban.get(CFBAN_ABI);
- cab = cfban.get(CFBAN_CAB);
- prg = cfban.get_int(CFBAN_PROGPR);
- found = abi.full() && cab.full();
- iban = cfban.get(CFBAN_IBAN);
- if (found && iban.blank())
- get_bnp_iban(abi, cab, prg, iban);
- }
- }
- if (!found) // Se non trovo banca su CFBAN la cerco su CFVEN
- {
- const TRectype& cfven = doc.clifor().vendite();
- abi = cfven.get(CFV_CODABIPR);
- cab = cfven.get(CFV_CODCABPR);
- found = abi.full() && cab.full();
- if (found)
- get_bnp_iban(abi, cab, 0, iban);
- }
- if (found)
- istituto = cache().get("%BAN", abi, "S0");
- return found;
+ get_bnp_iban(abi, cab, 0, iban);
+ }
+ if (found)
+ istituto = cache().get("%BAN", abi, "S0");
+ return found;
}
+
+bool TDoc_fp::get_bank_appoggio(const TDocumento& doc, TString& iban, TString& abi, TString& cab,
+ TString& istituto) const
+{
+ bool found = false;
+ abi = doc.get(DOC_CODABIA);
+ cab = doc.get(DOC_CODCABA);
+ iban = doc.get(DOC_IBAN);
+ found = iban.full();
+ if (!found) // Se non trovo banca sul DOC la cerco su CFBAN
+ {
+ TToken_string key;
+ key.add("C");
+ key.add(doc.codcf());
+ key.add("N");
+ key.add(1);
+ const TRectype& cfban = cache().get(LF_CFBAN, key);
+ if (!cfban.empty())
+ {
+ abi = cfban.get(CFBAN_ABI);
+ cab = cfban.get(CFBAN_CAB);
+ found = abi.full() && cab.full();
+ iban = cfban.get(CFBAN_IBAN);
+ if (found && iban.blank())
+ get_bnp_iban(abi, cab, -1, iban);
+ }
+ }
+ if (found)
+ istituto = cache().get("%BAN", abi, "S0");
+ return found;
+}
+
const TString& TDoc_fp::descrizione(const TRiga_documento& rdoc)
{
if (rdoc.get_bool(RDOC_DESCLUNGA))
@@ -687,7 +723,91 @@ bool TDoc_fp::save_paf()
return ok;
}
-bool TDoc_fp::initialize(const TDocumentoEsteso& doc)
+bool TDoc_fp::check_initial(TDocumentoEsteso& doc)
+{
+ bool ok = true;
+ static TString msg;
+
+ if (_coddest.len() != 6 && _coddest.len() != 7)
+ {
+ log(1, "Il codice destinatario ha una lunghezza non conforme.");
+ ok = false;
+ }
+
+ if (_rec_clifo.get(CLI_PAIV).empty() && _rec_clifo.get(CLI_COFI).empty())
+ {
+ log(1, "Sia la partita IVA che il codice fiscale del cessionario committente sono vuoti, almeno uno dei due deve essere valorizzato.");
+ ok = false;
+ }
+
+ TPagamento& pag = doc.pagamento();
+ if(pag.cond_pag_sdi().empty())
+ {
+
+ msg.cut(0) << "Non è valorizzata la condizione di pagamento SDI (TP01, TP02, TP03) per la condizione di pagamento " << pag.code();
+ log(1, msg);
+ ok = false;
+ }
+
+ for (int nr = 0; nr < doc.scadenze().items(); nr++)
+ {
+ const int rp = nr < pag.n_rate() ? nr : 0;
+ static TString key_class; key_class.cut(0) << pag.tipo_rata(rp) << pag.ulc_rata(rp);
+
+ if(cache().get("%CLR", key_class, "S12").empty())
+ {
+ msg.cut(0) << "Non è valorizzata la tipologia di pagamento SDI (MPXX) per la condizione di pagamento " << pag.code();
+ log(1, msg);
+ ok = false;
+ }
+
+ }
+
+ return ok;
+}
+
+bool TDoc_fp::check_row(const TRiga_documento& rdoc)
+{
+ bool ok = false;
+ static TString msg;
+
+ if(rdoc.is_spese())
+ {
+ const TSpesa_prest& spesa = rdoc.spesa();
+ if(spesa.perc().is_zero())
+ {
+ msg.cut(0) << "É corretto che per la spesa " << spesa.codice() << " la percentuale sia zero?";
+ log(1, msg);
+ }
+ }
+
+ const TCodiceIVA& codice_iva = rdoc.iva();
+ if (codice_iva.codice().full() && codice_iva.percentuale() == ZERO && codice_iva.natura().empty())
+ {
+ msg.cut(0) << "Impossibile avere la natura non valorizzata a fronte di una aliquota con percentuale zero. Codice IVA: "; msg << codice_iva.codice();
+ log(1, msg);
+ ok = false;
+ }
+
+ return ok;
+}
+
+bool TDoc_fp::check_riepilogo(const TDocumentoEsteso& doc, const TRiepilogo_iva& riva)
+{
+ bool ok = true;
+ static TString msg;
+
+ if(*get_esigibilita_iva(doc) == 'S' && riva.cod_iva().natura() == "N6")
+ {
+ msg.cut(0) << "Impossibile avere un documento con scissione dei pagamenti e natura iva N6, codice: " << riva.cod_iva().codice();
+ log(1, msg);
+ ok = false;
+ }
+
+ return ok;
+}
+
+bool TDoc_fp::initialize(TDocumentoEsteso& doc)
{
// Azzero
_hfatt.cut(0);
@@ -723,7 +843,10 @@ bool TDoc_fp::initialize(const TDocumentoEsteso& doc)
#ifndef DBG
_is_pa = doc.clifor().get_int("ALLEG") == 7;
if (!get_coddest(doc.clifor().tipo(), doc.clifor().codice(), _coddest, _pec))
+ {
+ log(1, "Impossibile trovare il codice destinatario per la fattura");
return false;
+ }
#else
_is_pa = true;
_coddest = "WSUHKZ";
@@ -747,7 +870,7 @@ bool TDoc_fp::initialize(const TDocumentoEsteso& doc)
// Azzero indici
_index_cassa_previdenziale = 1;
- return true;
+ return check_initial(doc) || fp_settings().get_check_not_block();
}
const TRectype& TDoc_fp::cco(const TRectype& doc) const
@@ -835,6 +958,18 @@ const char* TDoc_fp::natura(const TString& codiva) const
return cache().get("%IVA", codiva, "S12");
}
+const char* TDoc_fp::get_esigibilita_iva(const TDocumentoEsteso& doc)
+{
+ // Esigibilità IVA: Immediata, Differita, Split payment
+ const char* eiva = "I";
+ if (doc.is_split_payment())
+ eiva = "S";
+ else if (doc.get_bool(DOC_LIQDIFF) || doc.get_bool(DOC_IVAXCASSA))
+ eiva = "D";
+
+ return eiva;
+}
+
void TDoc_fp::set_IVA(TString codiva, TPaf_record& paf) const
{
if (codiva.empty())
@@ -1097,6 +1232,7 @@ bool TDoc_fp::export_paf0100f()
paf0100f.set("P1_TELEFONO", tel);
paf0100f.set("P1_MAIL", get_firm().get(NDT_MAIL));
paf0100f.set("P1_GESTIONE", "D");
+ paf0100f.set("P1_ERRINT", "");
//
return insert(paf0100f);
}
@@ -1402,46 +1538,50 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
FOR_EACH_PHYSICAL_RDOC(doc, r, rdoc)
{
+ // Controllo la riga
+ if (check_row(*rdoc) && !fp_settings().get_check_not_block())
+ return false;
+
bool skip_riga = false;
- paf1800f.reset();
- paf1800f.set("PI_KEYHEADERFATT", _hfatt);
- paf1800f.set("PI_KEYBODYFATT", _bfatt);
- paf1800f.set("PI_NUMEROLINEA", riga);
- const TString& descrizione_riga = descrizione(*rdoc);
- if (descrizione_riga.empty())
- continue;
- paf3000f.reset();
- paf3000f.set("PT_KEYHEADERFATT", _hfatt);
- paf3000f.set("PT_KEYBODYFATT", _bfatt);
- paf3000f.set("PT_RIFNUMLINEA", riga);
- paf3000f.set("PT_COMMENTO", descrizione_riga);
- //
- if (rdoc->is_articolo())
- {
- TString codartmag = rdoc->get(RDOC_CODARTMAG);
- TString codart = rdoc->get(RDOC_CODART);
- long riga_art = 0;
- if (codart.full())
+ paf1800f.reset();
+ paf1800f.set("PI_KEYHEADERFATT", _hfatt);
+ paf1800f.set("PI_KEYBODYFATT", _bfatt);
+ paf1800f.set("PI_NUMEROLINEA", riga);
+ const TString& descrizione_riga = descrizione(*rdoc);
+ if (descrizione_riga.empty())
+ continue;
+ paf3000f.reset();
+ paf3000f.set("PT_KEYHEADERFATT", _hfatt);
+ paf3000f.set("PT_KEYBODYFATT", _bfatt);
+ paf3000f.set("PT_RIFNUMLINEA", riga);
+ paf3000f.set("PT_COMMENTO", descrizione_riga);
+ //
+ if (rdoc->is_articolo())
{
- if (codartmag.full())
+ TString codartmag = rdoc->get(RDOC_CODARTMAG);
+ TString codart = rdoc->get(RDOC_CODART);
+ long riga_art = 0;
+ if (codart.full())
{
- paf1900f.reset();
- paf1900f.set("PY_KEYHEADERFATT", _hfatt);
- paf1900f.set("PY_KEYBODYFATT", _bfatt);
- paf1900f.set("PY_KEYNLINEA", riga);
- ok &= add_row_art(riga_art, "Codice articolo interno", codartmag, paf1900f);
- }
- // Se il codice articolo del magazzino è diverso quello è del cliente
- if (codart.full() && codart != codartmag)
- {
- paf1900f.reset();
- paf1900f.set("PY_KEYHEADERFATT", _hfatt);
- paf1900f.set("PY_KEYBODYFATT", _bfatt);
- paf1900f.set("PY_KEYNLINEA", riga);
- ok &= add_row_art(riga_art, "Codice articolo cliente", codart, paf1900f);
+ if (codartmag.full())
+ {
+ paf1900f.reset();
+ paf1900f.set("PY_KEYHEADERFATT", _hfatt);
+ paf1900f.set("PY_KEYBODYFATT", _bfatt);
+ paf1900f.set("PY_KEYNLINEA", riga);
+ ok &= add_row_art(riga_art, "Codice articolo interno", codartmag, paf1900f);
+ }
+ // Se il codice articolo del magazzino è diverso quello è del cliente
+ if (codart.full() && codart != codartmag)
+ {
+ paf1900f.reset();
+ paf1900f.set("PY_KEYHEADERFATT", _hfatt);
+ paf1900f.set("PY_KEYBODYFATT", _bfatt);
+ paf1900f.set("PY_KEYNLINEA", riga);
+ ok &= add_row_art(riga_art, "Codice articolo cliente", codart, paf1900f);
+ }
}
}
- }
//
if(rdoc->is_descrizione())
{
@@ -1561,6 +1701,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
// Controllo se è una ritenuta fiscale
if (sp.tipo_ritenuta() == 'F')
{
+ paf1800f.set("PI_RITENUTA", "SI");
add_ritenuta(doc, rdoc->spesa(), paf0700f);
}
}
@@ -1833,17 +1974,16 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf2200f.set("PL_KEYHEADERFATT", _hfatt);
paf2200f.set("PL_KEYBODYFATT", _bfatt);
remove(paf2200f); // Cancella tutte le righe di riepilogo IVA
- const char* eiva = "I"; // Esigibilità IVA: Immediata, Differita, Split payment
- if (doc.is_split_payment())
- eiva = "S";
- else if (doc.get_bool(DOC_LIQDIFF) || doc.get_bool(DOC_IVAXCASSA))
- eiva = "D";
+ const char* eiva = get_esigibilita_iva(doc);
long num_riep = 0;
TAssoc_array& tiva = doc.tabella_iva(false);
FOR_EACH_ASSOC_OBJECT(tiva, obj, key, itm)
{
const TRiepilogo_iva& riva = *dynamic_cast(itm);
-
+
+ if (!check_riepilogo(doc, riva) && !fp_settings().get_check_not_block())
+ return false;
+
add_riepilogo_iva(paf2200f, riva.cod_iva(), eiva, riva.imponibile(), riva.imposta());
}
@@ -1886,10 +2026,10 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
TString8 abi, cab;
if (get_bank(doc, iban, abi, cab, istituto))
{
- paf2500f.set("PO_ISTFINANZ", istituto);
- paf2500f.set("PO_IBAN", iban);
- paf2500f.set("PO_ABI", abi);
- paf2500f.set("PO_CAB", cab);
+ paf2500f.set("PO_ISTFINANZ", istituto);
+ paf2500f.set("PO_IBAN", iban);
+ paf2500f.set("PO_ABI", abi);
+ paf2500f.set("PO_CAB", cab);
}
if (tipo_pag == 3 && cab.blank()) // Ricevuta bancaria
log(2, TR("Non sono presenti ABI, CAB, IBAN per il pagamento"));
@@ -1899,15 +2039,15 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
}
for (int nr = 0; nr < nrate; nr++)
{
- paf2500f.set("PO_RIGA", long(nr + 1)); // Numero rata
- int rp = nr < pag.n_rate() ? nr : 0;
- static TString key_class; key_class.cut(0) << pag.tipo_rata(rp) << pag.ulc_rata(rp);
- paf2500f.set("PO_MODALITAPAGAM", cache().get("%CLR", key_class, "S12")); // Si assicura che il numero riga sia accettabile
- TToken_string& riga_scadenze = scad.row(nr); // Data|Importo
- paf2500f.set("PO_DATASCADENZA", TDate(riga_scadenze.get(0))); // Data scadenza
- paf2500f.set("PO_IMPORTO", converti_prezzo(real(riga_scadenze.get()))); // Importo rata
- paf2500f.set("PO_GESTIONE", "D");
- ok &= insert(paf2500f);
+ paf2500f.set("PO_RIGA", long(nr + 1)); // Numero rata
+ const int rp = nr < pag.n_rate() ? nr : 0;
+ static TString key_class; key_class.cut(0) << pag.tipo_rata(rp) << pag.ulc_rata(rp);
+ paf2500f.set("PO_MODALITAPAGAM", cache().get("%CLR", key_class, "S12")); // Si assicura che il numero riga sia accettabile
+ TToken_string& riga_scadenze = scad.row(nr); // Data|Importo
+ paf2500f.set("PO_DATASCADENZA", TDate(riga_scadenze.get(0))); // Data scadenza
+ paf2500f.set("PO_IMPORTO", converti_prezzo(real(riga_scadenze.get()))); // Importo rata
+ paf2500f.set("PO_GESTIONE", "D");
+ ok &= insert(paf2500f);
}
//
if (_gestioneallegati)
diff --git a/src/fp/fplib02.cpp b/src/fp/fplib02.cpp
index d0db3d38a..9e0a0b369 100644
--- a/src/fp/fplib02.cpp
+++ b/src/fp/fplib02.cpp
@@ -19,6 +19,7 @@
#define FP_ESP_EST "espest"
#define FP_ESP_EST_COD "espestcod"
#define FP_F8 "f8"
+#define FP_CHECK_NOT_BLOCK "checknotblock"
// Sheet fp0300
#define FP_SLD_COD "SLD"
@@ -112,6 +113,11 @@ const bool TFP_settings::is_f8() const
return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_F8);
}
+const bool TFP_settings::get_check_not_block() const
+{
+ return ini_get_bool(FILE_CONFIG, FILE_SECTION, FP_CHECK_NOT_BLOCK);
+}
+
void TFP_settings::set_db_indirizzo(const TString& ind) const
{
ini_set_string(FILE_CONFIG, FILE_SECTION, FP_IP, ind);
@@ -177,6 +183,11 @@ void TFP_settings::set_f8(const bool f8) const
ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_F8, f8);
}
+void TFP_settings::set_check_not_block(const bool not_block) const
+{
+ ini_set_bool(FILE_CONFIG, FILE_SECTION, FP_CHECK_NOT_BLOCK, not_block);
+}
+
TRectype TFP_selected_docs::fill_rectype() const
{
TRectype r(LF_TABMOD);
diff --git a/src/m770/777200.cpp b/src/m770/777200.cpp
index e51f48e67..ecffc04be 100755
--- a/src/m770/777200.cpp
+++ b/src/m770/777200.cpp
@@ -649,8 +649,11 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
rec.np_put("DA001002", sost.cognome());
rec.np_put("DA001003", sost.nome());
}
- else
- rec.np_put("DA001002", sost.ragione_sociale());
+ else
+ {
+ rec.np_put("DA001002", sost.ragione_sociale().left(30));
+ rec.np_put("DA001003", sost.ragione_sociale().mid(30));
+ }
rec.np_put("DA001004", sost.comune_residenza());
rec.np_put("DA001005", sost.provincia_residenza());
diff --git a/src/m770/777201.cpp b/src/m770/777201.cpp
index 8a263cead..0a96c2b8c 100644
--- a/src/m770/777201.cpp
+++ b/src/m770/777201.cpp
@@ -699,7 +699,7 @@ void TCU_report::create_D()
begin_paragraph(body, 12, 9, "DATI ANAGRAFICI\nDATI RELATIVI\nAL DATORE DI LAVORO,\nENTE PENSIONISTICO O\nALTRO SOSTITUTO\nD'IMPOSTA", 0x3);
add_labeled_field(body, 0, 0, 16, "#DA001001", "Codice Fiscale");
- add_labeled_field(body, 0, CU_AFTER_LAST, 30, "#DA001002", "Cognome o Denominazione");
+ add_labeled_field(body, 0, CU_AFTER_LAST, 31, "#DA001002", "Cognome o Denominazione");
add_labeled_field(body, 0, CU_AFTER_LAST, CU_ALIGN_RIGHT, "#DA001003", "Nome"); // La colonna segue il cognome
add_labeled_field(body, 1, 0, 24, "#DA001004", "Comune");