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

Merge remote-tracking branch 'origin/R_10_00' into R_10_00

Browse Source
This commit is contained in:
Simone Palacino 2020-02-10 17:21:38 +01:00
commit 13a2cc7403
25 changed files with 612 additions and 364 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cd/test/cg0938.txt Normal file
View File

@ -0,0 +1,7 @@
cg5.exe
cg5500c.msk
cg5500b.msk
Attivati acconto e interessi con ricalcolo nei trimestrali.
Aggiunta 13 nei trimestrali e sistemata la visualizzazione dei trimestrali.

100
cd/test/cg0938a.ini Normal file
View File

@ -0,0 +1,100 @@
[Main]
Demo=0
[cg5]
File(108) = cg5.exe|X
File(117) = cg5500b.msk|X
File(119) = cg5500c.msk|X
Patch = 938
Versione = 21511200
[cg99]
Kill(0) = batbzon.msk|x
Kill(1) = bastdpn.rep|x
Kill(2) = batbinl.msk|x
Kill(3) = bastzon.msk|x
Kill(4) = bastcve.rep|x
Kill(5) = bastntb.rep|x
Kill(6) = bastpdb.rep|x
Kill(7) = bastnot.msk|x
Kill(8) = batbarb.msk|x
Kill(9) = batbnot.msk|x
Kill(10) = batbcve.msk|x
Kill(11) = cg2fppro.msk|x
Kill(12) = bastmsp.rep|x
Kill(13) = bastcco.msk|x
Kill(14) = batbtra.msk|x
Kill(15) = bastvet.msk|x
Kill(16) = batbleg.msk|x
Kill(17) = bastmsp.msk|x
Kill(18) = bastleg.msk|x
Kill(19) = bastnot.rep|x
Kill(20) = batbind.msk|x
Kill(21) = bastesc.msk|x
Kill(22) = bastpor.msk|x
Kill(23) = batbesc.msk|x
Kill(24) = batbscc.msk|x
Kill(25) = batbdel.msk|x
Kill(26) = bastcve.msk|x
Kill(27) = cgtbcon.msk|x
Kill(28) = batblia.msk|x
Kill(29) = bastarb.rep|x
Kill(30) = batbcam.msk|x
Kill(31) = bastreg.msk|x
Kill(32) = batbver.msk|x
Kill(33) = batbcco.msk|x
Kill(34) = batblbu.msk|x
Kill(35) = bastcam.msk|x
Kill(36) = bastdpn.msk|x
Kill(37) = bastscc.msk|x
Kill(38) = batbcfi.msk|x
Kill(39) = bastver.rep|x
Kill(40) = batbntb.msk|x
Kill(41) = bastntb.msk|x
Kill(42) = batbreg.msk|x
Kill(43) = bastver.msk|x
Kill(44) = bastndo.rep|x
Kill(45) = batbdpn.msk|x
Kill(46) = batbvet.msk|x
Kill(47) = batbpor.msk|x
Kill(48) = bastcam.rep|x
Kill(49) = bastndo.msk|x
Kill(50) = batbins.msk|x
Kill(51) = batbmsp.msk|x
Kill(52) = bastpdb.msk|x
Kill(53) = bastivd.msk|x
Kill(54) = batblia.msk|x
Kill(55) = batbivd.msk|x
Kill(56) = bastpor.rep|x
Kill(57) = batbpdb.msk|x
Kill(58) = bastivd.rep|x
Kill(59) = batbtit.msk|x
Kill(60) = bastcfi.msk|x
Kill(61) = bastvet.rep|x
Kill(62) = batbndo.msk|x
Kill(63) = bastesc.rep|x
Kill(64) = bastreg.rep|x
Kill(65) = bastcfi.rep|x
Kill(66) = bastleg.rep|x
Kill(67) = bastzon.rep|x
Kill(68) = bastarb.msk|x
Kill(69) = bastcco.rep|x
Kill(70) = bastscc.rep|x
[cg]
Data = 31-01-2020
Descrizione = Contabilita' Generale
Dischi = 1
Edit_19 = cg0 -0
Edit_20 = cg0 -1
Edit_26 = cg0 -4
Edit_5 = cg0 -5
Moduli = ba
OEM =
Patch = 938
PostProcess = bainst -0 CG
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/cg0938a1.zip Normal file
View File

Binary file not shown.

4
cd/test/fp0780.txt Normal file
View File

@ -0,0 +1,4 @@
fp0.exe
fp1.exe
Corretto invio mail mancata consegna quando pdf già esistente

20
cd/test/fp0780a.ini Normal file
View File

@ -0,0 +1,20 @@
[Main]
Demo=0
[fp1]
File(1) = fp0.exe|X
File(7) = fp1.exe|X
Patch = 0780
Versione = 21511200
[fp]
Data = 29-04-2019
Descrizione = Fattura Elettronica
Dischi = 1
Moduli = cg,ve
OEM =
Patch = 780
PostProcess =
PreProcess =
Versione = 21511200

BIN
cd/test/fp0780a1.zip Normal file
View File

Binary file not shown.

4
cd/test/fp0938.txt Normal file
View File

@ -0,0 +1,4 @@
fp0.exe
Sistemata fatturazione con ritenute e casse professionali
Corretta contabilizzazione per importi a 0: problema scadenzario

19
cd/test/fp0938a.ini Normal file
View File

@ -0,0 +1,19 @@
[Main]
Demo=0
[fp0]
File(0) = fp0.exe|X
Patch = 0938
Versione = 21511200
[fp]
Data = 06-02-2020
Descrizione = Fattura Elettronica
Dischi = 1
Moduli = cg,ve
OEM =
Patch = 938
PostProcess =
PreProcess =
Versione = 21511200

BIN
cd/test/fp0938a1.zip Normal file
View File

Binary file not shown.

1
cd/test/lv0938.txt Normal file
View File

@ -0,0 +1 @@
lv2.exe

21
cd/test/lv0938a.ini Normal file
View File

@ -0,0 +1,21 @@
[Main]
Demo=0
[lv2]
File(121) = lv2.exe|X
Patch = 938
Versione = 21511200
[lv]
Data = 02-01-2020
Descrizione = Gestione lavanderie
Dischi = 1
Moduli = ve,mg
OEM = 2
Patch = 938
PostProcess = bainst -0 LV
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/lv0938a1.zip Normal file
View File

Binary file not shown.

69
src/cg/cg4301.cpp
View File

@ -398,6 +398,9 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
_pla->zero("R16"); _pla->zero("R16");
_pla->zero("R17"); _pla->zero("R17");
_pla->zero("R18"); _pla->zero("R18");
_pla->zero("R19");
_pla->zero("R20");
_pla->zero("R21");
_pla->put("S1","0"); _pla->put("S1","0");
_pla->put("S2","0"); _pla->put("S2","0");
_pla->put("S3", "0"); _pla->put("S3", "0");
@ -917,6 +920,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
real esenti_c1a = ZERO; real esenti_c1a = ZERO;
real esenti_c3_bam = ZERO; // Beni ammorizzabili esenti c3 real esenti_c3_bam = ZERO; // Beni ammorizzabili esenti c3
real esenti_c1a_bam = ZERO; // Beni ammorizzabili esenti c1a real esenti_c1a_bam = ZERO; // Beni ammorizzabili esenti c1a
real esenti_num_amm;
real esenti_b14 = ZERO; real esenti_b14 = ZERO;
real vendite_rev = ZERO; // Vendire in reverse charge (da escludere in prorata) real vendite_rev = ZERO; // Vendire in reverse charge (da escludere in prorata)
real cred_fattrit; real cred_fattrit;
@ -1499,6 +1503,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
int isrimbinfr = _iva->get_bool("B3"); // vale per calcolo rimborso se ES o NI int isrimbinfr = _iva->get_bool("B3"); // vale per calcolo rimborso se ES o NI
const real perciva = _iva->get_real("R0") / CENTO; const real perciva = _iva->get_real("R0") / CENTO;
int ivarimb = !_iva->get_bool("B4"); // non escluso calcolo rimb. per al. media int ivarimb = !_iva->get_bool("B4"); // non escluso calcolo rimb. per al. media
const bool den_prorata = _iva->get_bool("B7"); // denominatore prorata nel caso di calcolo pro rata con numeratore e denominatore
const TString4 tipocr_s = _rmoviva->get(RMI_TIPOCR); const TString4 tipocr_s = _rmoviva->get(RMI_TIPOCR);
const int tipocr = atoi(tipocr_s); const int tipocr = atoi(tipocr_s);
@ -2207,28 +2212,31 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
} }
// operazioni esenti // operazioni esenti
if (tipoiva == "ES" && !imponibile.is_zero()) if (tipoiva == "ES" && !imponibile.is_zero())
{ {
if (tipomov == vendita) if (tipomov == vendita)
{ {
if (sosp_imp != normale && sosp_imp != vol_affari) // CM500308 if (sosp_imp != normale && sosp_imp != vol_affari) // CM500308
{ {
if (tipoes_v == "B1") // C1 if (tipoes_v == "B1")
esenti_c1 += imponibile; esenti_c1 += imponibile;
else if (tipoes_v == "B2") // C2 else if (tipoes_v == "B2")
esenti_c2 += imponibile; esenti_c2 += imponibile;
else if (tipoes_v == "B3") // C3 else if (tipoes_v == "B3")
{ {
esenti_c3 += imponibile; esenti_c3 += imponibile;
if (tipocr == 4) if (tipocr == 4)
esenti_c3_bam += imponibile; esenti_c3_bam += imponibile;
} }
else if (tipoes_v == "B4") // C1A else if (tipoes_v == "B4")
{ {
esenti_c1a += imponibile; esenti_c1a += imponibile;
if (tipocr == 4) if (tipocr == 4)
esenti_c1a_bam += imponibile; esenti_c1a_bam += imponibile;
} }
if (den_prorata && tipocr == 4)
esenti_num_amm += imponibile;
// se e' il caso sommare esenti per rimborso // se e' il caso sommare esenti per rimborso
if (isrimbinfr) if (isrimbinfr)
esni_rimb += imponibile; esni_rimb += imponibile;
@ -2922,11 +2930,11 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
// Somma i vari prorata calcolati per gli anni precedenti // Somma i vari prorata calcolati per gli anni precedenti
prorata += prorata_precedente1 + prorata_precedente2; prorata += prorata_precedente1 + prorata_precedente2;
prorata += prorata_diff; prorata += prorata_diff;
if (!lia.get_bool("B7")) /* if (!lia.get_bool("B7"))
prorata = ZERO; prorata = ZERO; */
acquisti_iva -= prorata; // Rettifica acquisti_iva acquisti_iva -= prorata; // Rettifica acquisti_iva
fdiffinc_iva_acq -= prorata_diff; // Rettifica acquisti_iva differiti incassati fdiffinc_iva_acq -= prorata_diff; // Rettifica acquisti_iva differiti incassati
} }
look_plm(month, codatt, true); look_plm(month, codatt, true);
@ -3029,7 +3037,8 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
_pum->put("R6", esenti_c3); _pum->put("R6", esenti_c3);
_pum->put("R13", esenti_c1a); _pum->put("R13", esenti_c1a);
_pum->put("S4", esenti_c3_bam); _pum->put("S4", esenti_c3_bam);
_pum->put("S5", esenti_c1a_bam); _pum->put("S5", esenti_c1a_bam);
_pum->put("S6", esenti_num_amm);
_pum->put("R7", esenti_b14); _pum->put("R7", esenti_b14);
_pum->put("R12", esni_rimb); _pum->put("R12", esni_rimb);
_pum->put("R28", vendite_rev); // Vendite in reverse charge da escludere da prorata _pum->put("R28", vendite_rev); // Vendite in reverse charge da escludere da prorata
@ -4251,37 +4260,36 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
vol_aff_2 += vf2; vol_aff_2 += vf2;
vol_aff_l += _pla->get_real("R0"); // volume affari lordo vol_aff_l += _pla->get_real("R0"); // volume affari lordo
real es_c1 = _pla->get_real("R1"); // Tipo esenzione B1 real es_b1 = _pla->get_real("R1"); // Tipo esenzione B1
real es_c2 = _pla->get_real("R2"); real es_b2 = _pla->get_real("R2");
real es_c3 = _pla->get_real("R3"); real es_b3 = _pla->get_real("R3");
real es_c1a = _pla->get_real("R15"); real es_b4 = _pla->get_real("R15");
real es_c3_am = _pla->get_real("R16"); real es_b3_am = _pla->get_real("R16");
real es_c1a_am = _pla->get_real("R17"); real es_b4_am = _pla->get_real("R17");
real csamm = _pla->get_real("R4"); real csamm = _pla->get_real("R4");
real ven_rev = _pla->get_real("R18"); real ven_rev = _pla->get_real("R18");
real num_amm = _pla->get_real("R21");
real prorata; real prorata;
real conguaglio; real conguaglio;
real topay; real topay;
real ris; // gia' esclusi: NS, B3, cess. amm
real rsd;
real rsn;
// calcola nuovo prorata dal 1998 per ogni attivita' (miste: 1+2) // calcola nuovo prorata dal 1998 per ogni attivita' (miste: 1+2)
if (_prorata_nd) if (_prorata_nd)
{ {
const real rsd = _pla->get_real("R20"); rsd = _pla->get_real("R20") + num_amm;
const real rsn = _pla->get_real("R19"); rsn = _pla->get_real("R19");
if (rsd != ZERO)
prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
} }
else else
{ {
const real ris = vf1 + vf2; // gia' esclusi: NS, B3, cess. amm ris = vf1 + vf2; // gia' esclusi: NS, B3, cess. amm
const real rsd = ris - (es_c1a - es_c1a_am) - (es_c3 - es_c3_am) - ven_rev; rsd = ris - (es_b4 - es_b4_am) - (es_b3 - es_b3_am) - ven_rev;
const real rsn = rsd - es_c1; rsn = rsd - es_b1;
if (!rsd.is_zero())
prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilità: reciproco della detraibilità
} }
if (rsd != ZERO)
prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
prorata.round(0); prorata.round(0);
// calcolo conguaglio -- se positivo e' a debito // calcolo conguaglio -- se positivo e' a debito
if (prorata > ZERO && lia.get_bool("B7")) if (prorata > ZERO && lia.get_bool("B7"))
@ -4614,6 +4622,7 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
real volaff1; real volaff1;
real volaff2; real volaff2;
real ven_rev; real ven_rev;
real num_amm;
TString4 codiva,reg,tiva; TString4 codiva,reg,tiva;
TToken_string va7("",'!'); TToken_string va7("",'!');
@ -4638,6 +4647,8 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
iva_acq = _pla->get_real("R11"); iva_acq = _pla->get_real("R11");
ven_rev = _pla->get_real("R18"); ven_rev = _pla->get_real("R18");
volaff1 -= _pla->get_real("R34"); volaff1 -= _pla->get_real("R34");
num_amm = _pla->get_real("R21");;
// Per avere un risultato corretto, si deve totalizzare PIM->R3 per codice iva // Per avere un risultato corretto, si deve totalizzare PIM->R3 per codice iva
// e quindi effettuare lo scorporo dell'imponibile e aggiungere al relativo volume d'affari // e quindi effettuare lo scorporo dell'imponibile e aggiungere al relativo volume d'affari
@ -4746,6 +4757,7 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
es_c1a += _pum->get_real("R13"); es_c1a += _pum->get_real("R13");
es_c3_am += _pum->get_real("S4"); es_c3_am += _pum->get_real("S4");
es_c1a_am += _pum->get_real("S5"); es_c1a_am += _pum->get_real("S5");
num_amm += _pum->get_real("S6");
cess_amm += _pum->get_real("R0"); cess_amm += _pum->get_real("R0");
ven_rev += _pum->get_real("R28"); ven_rev += _pum->get_real("R28");
@ -4840,6 +4852,7 @@ void TLiquidazione_app::recalc_annual(const char* att, bool & first)
{ {
_pla->put("R19", num_pro_rata); _pla->put("R19", num_pro_rata);
_pla->put("R20", den_pro_rata); _pla->put("R20", den_pro_rata);
_pla->put("R21", num_amm);
} }
_pla->rewrite(); _pla->rewrite();
} }

72
src/cg/cg4304.cpp
View File

@ -1098,16 +1098,17 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
real v1 = _pla->get_real("R14"); // Volume d'affari I attività real v1 = _pla->get_real("R14"); // Volume d'affari I attività
real v2 = _pla->get_real("S1"); // Volume d'affari II attività real v2 = _pla->get_real("S1"); // Volume d'affari II attività
real ris = v1 + v2; real ris = v1 + v2;
real e1 = _pla->get_real("R1"); // Totale vendite esenti C1 real e1 = _pla->get_real("R1"); // Totale vendite esenti B1
real e2 = _pla->get_real("R2"); // Totale vendite esenti C2 real e2 = _pla->get_real("R2"); // Totale vendite esenti B2
real e3 = _pla->get_real("R3"); // Totale vendite esenti C3 real e3 = _pla->get_real("R3"); // Totale vendite esenti B3
real e4 = _pla->get_real("R15"); // Totale vendite esenti C1A real e4 = _pla->get_real("R15"); // Totale vendite esenti B4
real e5 = _pla->get_real("R16"); // Totale vendite beni ammortizzabili esenti C3 real e5 = _pla->get_real("R16"); // Totale vendite beni ammortizzabili esenti B3
real e6 = _pla->get_real("R17"); // Totale vendite beni ammortizzabili esenti C1A real e6 = _pla->get_real("R17"); // Totale vendite beni ammortizzabili esenti B4
real bam = _pla->get_real("R4"); // Cessione beni ammortizzabili real bam = _pla->get_real("R4"); // Cessione beni ammortizzabili
real vrc = _pla->get_real("R18"); // Vendite reverse charge real vrc = _pla->get_real("R18"); // Vendite reverse charge
real iaq = _pla->get_real("R11"); // IVA acquisti real iaq = _pla->get_real("R11"); // IVA acquisti
real ppg = _pla->get_real("R12"); // pro-rata pagato real ppg = _pla->get_real("R12"); // pro-rata pagato
real num_amm = _pla->get_real("R21");
// calcola nuovo prorata per ogni attivita' (miste: 1+2) // calcola nuovo prorata per ogni attivita' (miste: 1+2)
real prorata; real prorata;
real rsd; real rsd;
@ -1115,20 +1116,16 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
if (_prorata_nd) if (_prorata_nd)
{ {
rsd = _pla->get_real("R20"); rsd = _pla->get_real("R20") + num_amm;
rsn = _pla->get_real("R19"); rsn = _pla->get_real("R19");
if (!rsd.is_zero())
prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
} }
else else
{ {
rsd = ris - (e3 - e5) - (e4 - e6) - vrc; rsd = ris - (e3 - e5) - (e4 - e6) - vrc;
rsn = rsd - e1; rsn = rsd - e1;
if (!rsd.is_zero())
prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
} }
if (!rsd.is_zero())
prorata = CENTO - (rsn * CENTO / rsd); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
prorata.round(0); prorata.round(0);
real co = 0.0; real co = 0.0;
@ -1149,7 +1146,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
_DescrItem* dd = new _DescrItem(ANNUAL); _DescrItem* dd = new _DescrItem(ANNUAL);
// MonsterFish: arrotonda all'Euro C1,C2,C3,C1A // MonsterFish: arrotonda all'Euro B1,B2,B3,B4
round_imposta(e1); round_imposta(e1);
round_imposta(e2); round_imposta(e2);
round_imposta(e3); round_imposta(e3);
@ -1159,6 +1156,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
round_imposta(bam); round_imposta(bam);
round_imposta(ris); round_imposta(ris);
round_imposta(vrc); round_imposta(vrc);
round_imposta(num_amm);
// segna flag prorata // segna flag prorata
if ((e1+e2+e3+e4) > ZERO) if ((e1+e2+e3+e4) > ZERO)
@ -1180,6 +1178,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
dd->_ra0 = rsn; dd->_ra0 = rsn;
dd->_ra1 = rsd; dd->_ra1 = rsd;
dd->_ra2 = vrc; dd->_ra2 = vrc;
dd->_ra3 = num_amm;
t->_arr.add(dd); t->_arr.add(dd);
} }
} }
@ -2834,45 +2833,52 @@ bool TLiquidazione_app::set_annual(_DescrItem& d)
row++; row++;
if (_prorata_nd) if (_prorata_nd)
{ {
set_row(row++, FR("Numeratore pro-rata @69g%r"), &(d._ra0)); set_row(row++, FR(" - Numeratore pro-rata @69g%r"), &d._ra0);
set_row(row++, FR("Denominatore @69g%r"), &(d._ra1)); set_row(row++, FR(" - cessioni esenti di beni ammortizzabili @69g%r"), &d._ra3);
const real tot = d._ra0 + d._ra3;
if (tot != ZERO)
{
set_row(row++, FR("@69g----------------"));
set_row(row++, FR("@6gTotale @69g%r"), &tot);
row++;
}
set_row(row++, FR(" - Denominatore @69g%r"), &d._ra1);
} }
else else
{ {
set_row(row++, FR(" - Volume d'affari @69g%r"), &(vol_aff)); set_row(row++, FR(" - Volume d'affari @69g%r"), &vol_aff);
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("B1 - 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("B2 - 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("B3 - 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("@6gdi cui cessione beni ammortizzabili @69g%r"), &d._r8);
const real diff1 = d._r5 - d._r8; const real diff1 = d._r5 - d._r8;
if (diff1 != ZERO) if (diff1 != ZERO)
{ {
set_row(row++, FR("@69g----------------")); set_row(row++, FR("@69g----------------"));
set_row(row++, FR("6g Differenza @69g%r"), &(diff1)); set_row(row++, FR("6gDifferenza @69g%r"), &diff1);
row++; row++;
} }
set_row(row++, FR("C1A - Operazioni esenti di cui all'art.10 n. 27 quinquies @69g%r"), &(d._r7)); set_row(row++, FR("B4 - 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("@6gdi cui cessione beni ammortizzabili @69g%r"), &d._r9);
const real diff2 = d._r7 - d._r9; const real diff2 = d._r7 - d._r9;
if (diff2 != ZERO) if (diff2 != ZERO)
{ {
set_row(row++, FR("@69g----------------")); set_row(row++, FR("@69g----------------"));
set_row(row++, FR("6g Differenza @69g%r"), &(diff2)); set_row(row++, FR("6gDifferenza @69g%r"), &diff2);
row++; row++;
} }
set_row(row++, FR(" - Vendite Reverse Charge @69g%r"), &(d._ra2)); set_row(row++, FR(" - Vendite Reverse Charge @69g%r"), &d._ra2);
set_row(row++, FR("Numeratore pro-rata @69g%r"), &(d._ra0)); row++;
set_row(row++, FR(" Volume d'affari - C3(senza beni amm.) - C1A(senza beni amm.) - vendite reverse charge ")); set_row(row++, FR(" - Numeratore pro-rata @69g%r"), &d._ra0);
set_row(row++, FR("Denominatore @69g%r"), &(d._ra1)); set_row(row++, FR(" Volume d'affari - B3(senza beni amm.) - B4(senza beni amm.) - vendite reverse charge "));
set_row(row++, FR(" Denominatore - C1 ")); set_row(row++, FR(" - Denominatore @69g%r"), &d._ra1);
set_row(row++, FR(" Denominatore - B1 "));
} }
// 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_print_zero(false); set_print_zero(false);
} }
return ret; return ret;

420
src/cg/cg5500.cpp
View File

@ -382,70 +382,73 @@ bool Visliq_app::print_handler(TMask_field& f, KEY k)
bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k) bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
{ {
if (k != K_SPACE) return true; if (k == K_SPACE)
{
TMask& m = *(app().get_main_mask()); TMask& m = *(app().get_main_mask());
TSheet_field& sh = m.sfield(F_VISLIQ1); TSheet_field& sh = m.sfield(F_VISLIQ1);
TSheet_field& sv = m.sfield(F_VISLIQ2); TSheet_field& sv = m.sfield(F_VISLIQ2);
int sel = sh.selected(); int sel = sh.selected();
int month = sh.selected()+1; int month = sh.selected() + 1;
TToken_string& tt = sh.row(sh.selected()); TToken_string& tt = sh.row(sh.selected());
TMask& sm = sh.sheet_mask(); TMask& sm = sh.sheet_mask();
if (sh.items() == 4) if (sh.items() == 5)
month *= 3; month *= 3;
if (sm.is_running() && !sm.stop_run(K_ENTER)) if (month >13)
return true; month = 13;
bool ok = true; if (sm.is_running() && !sm.stop_run(K_ENTER))
return true;
//if (m.dirty() || sh.sheet_mask().dirty())
if (m.field(F_CREDPREC).dirty() || app()._sh_dirty || app()._sv_dirty || sm.dirty()) bool ok = true;
{
KEY k = yesnocancel_box(TR("Registrare le modifiche effettuate?")); //if (m.dirty() || sh.sheet_mask().dirty())
if (k == K_YES) if (m.field(F_CREDPREC).dirty() || app()._sh_dirty || app()._sv_dirty || sm.dirty())
app().write_general(m); {
else if (k == K_NO) KEY k = yesnocancel_box(TR("Registrare le modifiche effettuate?"));
app().read_general(m); if (k == K_YES)
ok = (k == K_YES || k == K_NO); app().write_general(m);
} else if (k == K_NO)
app().read_general(m);
ok = (k == K_YES || k == K_NO);
}
if (ok) if (ok)
{ {
app().vis_one(month); app().vis_one(month);
app().read_general(m); app().read_general(m);
} }
app().set_liq_rows(sh);
if (sm.is_running())
{
// TBC controllare se sono i dati giusti in tt
sm.field(S_RISULTATO).set(tt.get(cid2index(S_RISULTATO)));
sm.field(S_DEBCRED1 ).set(tt.get(cid2index(S_DEBCRED1)));
sm.field(S_RIMBORSO).set(tt.get(cid2index(S_RIMBORSO)));
sm.field(S_RETTIFICHE).set(tt.get(cid2index(S_RETTIFICHE)));
sm.field(S_DEBCRED2).set(tt.get(cid2index(S_DEBCRED2)));
}
sh.row(sel) = tt;
sh.force_update(sel);
if (app().look_del(month,1)) app().set_liq_rows(sh);
{
const int nrow = sel == (sh.items() - 1) ? sel - 1 : sel;
sv.set_row_cell(S_DATA, app().del()->get("D0"), nrow); if (sm.is_running())
sv.set_row_cell(S_ABI, app().del()->get("S7"), nrow); {
sv.set_row_cell(S_CAB, app().del()->get("S8"),nrow); // TBC controllare se sono i dati giusti in tt
sv.set_row_cell(S_CONC, app().del()->get("S9"),nrow); sm.field(S_RISULTATO).set(tt.get(cid2index(S_RISULTATO)));
sv.set_row_cell(S_VERSAMENTO, app().del()->get("R0"), nrow); sm.field(S_DEBCRED1).set(tt.get(cid2index(S_DEBCRED1)));
sv.force_update(nrow); sm.field(S_RIMBORSO).set(tt.get(cid2index(S_RIMBORSO)));
} sm.field(S_RETTIFICHE).set(tt.get(cid2index(S_RETTIFICHE)));
sm.field(S_DEBCRED2).set(tt.get(cid2index(S_DEBCRED2)));
}
sh.row(sel) = tt;
sh.force_update(sel);
if (app().look_del(month, 1))
{
const int nrow = sel == (sh.items() - 1) ? sel - 1 : sel;
sv.set_row_cell(S_DATA, app().del()->get("D0"), nrow);
sv.set_row_cell(S_ABI, app().del()->get("S7"), nrow);
sv.set_row_cell(S_CAB, app().del()->get("S8"), nrow);
sv.set_row_cell(S_CONC, app().del()->get("S9"), nrow);
sv.set_row_cell(S_VERSAMENTO, app().del()->get("R0"), nrow);
sv.force_update(nrow);
}
}
return true; return true;
} }
@ -471,8 +474,16 @@ bool Visliq_app::check_date(TMask_field& f, KEY k)
if (d.year() != app().year()) if (d.year() != app().year())
return f.error_box(FR("L'anno deve essere %d"), app().year()); return f.error_box(FR("L'anno deve essere %d"), app().year());
if (d.month() != row + 1) if (app()._freqviva == "M")
return f.error_box(FR("Il mese deve essere %s"), itom(row + 1)); {
if (d.month() != row + 1)
return f.error_box(FR("Il mese deve essere %s"), itom(row + 1));
}
else
{
if (d.month() != (row + 1) * 3)
return f.error_box(FR("Il mese deve essere %s"), itom((row + 1) * 3));
}
} }
return true; return true;
} }
@ -487,12 +498,11 @@ bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k)
int month = sh.selected()+1; int month = sh.selected()+1;
if (sh.items() < 12) if (sh.items() < 12)
month *= 3; month *= 3;
if (month > 13)
month = 13;
TMask& sv = sh.sheet_mask(); TMask& sv = sh.sheet_mask();
// click su acconto
if (month > 12) return true;
if (sv.is_running() && !sv.stop_run(K_ENTER)) if (sv.is_running() && !sv.stop_run(K_ENTER))
return true; return true;
@ -913,7 +923,7 @@ bool Visliq_app::vis_one(int m)
if (k == K_SAVE) if (k == K_SAVE)
{ {
{ write_liq(); recalc_next_liq(m, _liq_sheet, _vers_sheet); } { write_liq(); recalc_next_liq(m, _liq_sheet, _vers_sheet); }
if (d_mod) { write_del(); } if (d_mod) { write_del(m); }
l_mod = d_mod = false; l_mod = d_mod = false;
recorded = true; recorded = true;
} }
@ -925,7 +935,7 @@ bool Visliq_app::vis_one(int m)
if (kk == K_YES) if (kk == K_YES)
{ {
if (l_mod) { write_liq(); recalc_next_liq(m, _liq_sheet, _vers_sheet); } if (l_mod) { write_liq(); recalc_next_liq(m, _liq_sheet, _vers_sheet); }
if (d_mod) { write_del(); } if (d_mod) { write_del(m); }
l_mod = d_mod = false; l_mod = d_mod = false;
recorded = true; recorded = true;
} }
@ -1550,65 +1560,57 @@ void Visliq_app::recalc_next_liq(int start_month, TSheet_field* sl, TSheet_field
look_lim(start_month); look_lim(start_month);
} }
void Visliq_app::write_liq() void Visliq_app::write_del(const int month, const char * codabi, const char * codcab, const char * codcon,
const TDate & d, const real& v, const real& i, bool stampato)
{ {
// piccola, ma simpatica int tipodel = 1;
// naturalmente era much bigger
_lim->rewrite();
}
void Visliq_app::write_del(const real& v) if (month == 12)
{ tipodel = 7;
bool wasdel = false; else
if (month == 13)
int month = atoi(*_lim_mese); tipodel = 2;
TString8 abi(_lim->get("S4")); const bool wasdel = look_del(month, tipodel);
TString8 cab(_lim->get("S5")); TString8 abi(codabi == nullptr ? _lim->get("S4") : codabi);
TString4 con(_lim->get("S6")); TString8 cab(codcab == nullptr ? _lim->get("S5") : codcab);
TDate date(_lim->get("D0")); TString4 con(codcon == nullptr ? _lim->get("S6") : codcon);
real vers = v; TDate date(d == TDate(NULLDATE) ? _lim->get_date("D0") : d);
const real vers(v >= ZERO ? v : _lim->get_real("R8"));
if (vers == ZERO) if (!wasdel)
vers = _lim->get_real("R8"); {
real intr(_lim->get_real("R10"));
if (vers.is_zero() && (wasdel = look_del(month,1))) look_del(month, tipodel, true); // Crea delega
{ }
_del->remove();
//_del->rewrite(); // ???
return;
}
if (!wasdel)
look_del(month,1,true); // Crea delega
real inter; if (vers == ZERO)
_del->remove();
else
{
real inter = i;
if (!intr.is_zero()) if (i == ZERO)
{ {
// riapplica il tasso di interesse real percint = _lim->get_real("R10");
// se trimestrale e' stato scorporato rispetto all'eventuale input utente
TExchange c;
real vers_netto = vers * CENTO / (intr + CENTO);
vers_netto.round(c.decimals()); // riapplica il tasso di interesse
inter = vers - vers_netto; // se trimestrale e' stato scorporato rispetto all'eventuale input utente
round_imposta(inter); inter = v - (v * CENTO / (percint + CENTO));
vers = vers_netto + inter; round_imposta(inter);
} }
_del->put("R0", vers);
_del->put("R0",vers); _del->put("R1", inter);
_del->put("R1",inter); _del->put("D0", date);
_del->put("D0",date); _del->put("S7", abi);
_del->put("S7",abi); _del->put("S8", cab);
_del->put("S8",cab); _del->put("S9", con);
_del->put("S9",con); _del->put("B0", stampato); // Preimposta flag di stampato, altrimenti viene ignorato dalla liquidazione 04-12-2014
_del->put("B0", true); // Preimposta flag di stampato, altrimenti viene ignorato dalla liquidazione 04-12-2014
const int ctri = _freqviva == "M" ? 6000 + month : 6030 + (month/3); const int ctri = _freqviva == "M" ? 6000 + month : 6030 + (month / 3);
_del->put("S6", ctri); _del->put("S6", ctri);
_del->rewrite(); _del->rewrite();
}
} }
@ -1636,13 +1638,17 @@ void Visliq_app::read_general(TMask& m)
cr_res -= cr_util; cr_res -= cr_util;
int last_month = freq_ver_IVA() == "M" ? 14 : 16;
// set sheet // set sheet
for (int i = step; i < 13; i+=step) for (int i = step; i < last_month; i+=step)
{ {
if (is_month_ok(i)) int m = (i > 12) ? 13 : i;
if (is_month_ok(m) || m == 13)
{ {
const int row = (i/step) - 1; const int row = (i/step) - 1;
if (!look_lim(i)) if (!look_lim(m))
{ {
sh.set_row_cell(S_MESE, itoname(i), row); sh.set_row_cell(S_MESE, itoname(i), row);
sh.disable_cell(row, -1); sh.disable_cell(row, -1);
@ -1658,7 +1664,7 @@ void Visliq_app::read_general(TMask& m)
real r0 = _lim->get_real("R0"); real r0 = _lim->get_real("R0");
const TString debcred3 = r0 == ZERO ? "" : (r0 > ZERO ? "D" : "C"); const TString debcred3 = r0 == ZERO ? "" : (r0 > ZERO ? "D" : "C");
sh.set_row_cell(S_MESE, itoname(i), row); sh.set_row_cell(S_MESE, itoname(m), row);
sh.set_row_cell(S_IVA, abs(r0), row); sh.set_row_cell(S_IVA, abs(r0), row);
sh.set_row_cell(S_DEBCRED3, debcred3, row); sh.set_row_cell(S_DEBCRED3, debcred3, row);
sh.set_row_cell(S_RISULTATO, abs(ris), row); sh.set_row_cell(S_RISULTATO, abs(ris), row);
@ -1713,14 +1719,17 @@ void Visliq_app::read_general(TMask& m)
real interessi[13]; real interessi[13];
TDate date[13]; TDate date[13];
TToken_string banche[13]; TToken_string banche[13];
bool stampato[13] = { false, false, false, false, false, false, false, false, false, false, false, false, false};
for (_del->first(); !_del->eof(); _del->next()) for (_del->first(); !_del->eof(); _del->next())
{ {
if (atol(*_del_ditta) == get_firm() && atoi(*_del_anno) == _year) if (atol(*_del_ditta) == get_firm() && atoi(*_del_anno) == _year)
{ {
// uso solo deleghe normali (tipo == 1) e acconti (tipo == 7)
// uso solo deleghe normali (tipo == 1), annuali (tipo == 2) e acconti (tipo == 7)
int tipod = atoi(*_del_tipo); int tipod = atoi(*_del_tipo);
if (tipod == 1 || tipod == 7)
if (tipod < 3 || tipod == 7)
{ {
// somma versamenti nel mese adeguato // somma versamenti nel mese adeguato
@ -1738,6 +1747,7 @@ void Visliq_app::read_general(TMask& m)
b.add(_del->get("S7"), 0); b.add(_del->get("S7"), 0);
b.add(_del->get("S8"), 1); b.add(_del->get("S8"), 1);
b.add(_del->get("S9"), 2); b.add(_del->get("S9"), 2);
stampato[m - 1] = _del->get_bool("B0");
} }
} }
} }
@ -1746,27 +1756,32 @@ void Visliq_app::read_general(TMask& m)
// Sheet versamenti // Sheet versamenti
TString nomemese; TString nomemese;
sv.destroy(); sv.destroy();
for (int i = 1; i <= 13; i++) // for (int i = 1; i <= 13; i++)
for (int i = step; i < last_month; i += step)
{ {
if (!is_month_ok(i) && i != 13) int m = (i > 12) ? 13 : i;
continue;
nomemese = itoname(i == 13 ? 12 : i);
if (nomemese == "4 Trimestre")
nomemese = TR("4 Tr.");
if (i == 12) nomemese << TR(" acconto");
if (i == 13) nomemese << TR(" saldo");
const int row = sv.set_row_cell(S_MESE, nomemese); // mese if (is_month_ok(m) || m == 13)
{
sv.set_row_cell(S_DATA, date[i - 1], row); // data vers. nomemese = itoname(m == 13 ? 12 : i);
sv.set_row_cell(S_ABI, banche[i - 1].get(0), row); // azienda if (nomemese == "4 Trimestre")
sv.set_row_cell(S_CAB, banche[i - 1].get(1), row); // dipendenza nomemese = TR("4 Tr.");
sv.set_row_cell(S_CONC, banche[i - 1].get(2), row); // concessionaria if (m == 12) nomemese << TR(" acconto");
sv.set_row_cell(S_VERSAMENTO, versamenti[i - 1], row);// versamenti if (m == 13) nomemese << TR(" saldo");
sv.set_row_cell(S_INTERESSI, interessi[i - 1], row);// interessi
if (i == 12) const int row = sv.set_row_cell(S_MESE, nomemese); // mese
sv.disable_cell(sv.items() - 1, -1);
sv.set_row_cell(S_DATA, date[m - 1], row); // data vers.
sv.set_row_cell(S_ABI, banche[m - 1].get(0), row); // azienda
sv.set_row_cell(S_CAB, banche[m - 1].get(1), row); // dipendenza
sv.set_row_cell(S_CONC, banche[m - 1].get(2), row); // concessionaria
sv.set_row_cell(S_VERSAMENTO, versamenti[m - 1], row);// versamenti
sv.set_row_cell(S_INTERESSI, interessi[m - 1], row);// interessi
sv.set_row_cell(S_STAMPATO, stampato[m - 1], row);// stampato
// if (i == 12)
// sv.disable_cell(11, cid2index(S_INTERESSI));
}
} }
sv.force_update(); sv.force_update();
@ -1802,15 +1817,19 @@ void Visliq_app::write_general(TMask& m)
else else
cr_res = rstart; cr_res = rstart;
// indicatore ricalcolo crediti e debiti OK const int row_acc = freq_ver_IVA() == "M" ? 11 : 3;
int step = _freqviva == "M" ? 1 : 3;
// indicatore ricalcolo crediti e debiti OK
int step = freq_ver_IVA() == "M" ? 1 : 3;
bool carry = true; bool carry = true;
bool was_lim; bool was_lim;
TMask& shm = sh.sheet_mask(); TMask& shm = sh.sheet_mask();
TMask& svm = sv.sheet_mask(); TMask& svm = sv.sheet_mask();
int last_month = freq_ver_IVA() == "M" ? 14 : 16;
for (int i = step; i < 13; i += step) for (int i = step; i < last_month; i += step)
{ {
int m = (i > 12) ? 13 : i;
// this is a true bordel // this is a true bordel
const int row = (i/step) - 1; const int row = (i/step) - 1;
@ -1818,21 +1837,21 @@ void Visliq_app::write_general(TMask& m)
bool vfrommask = sv.selected() == (i == 12 ? row + 1 : row) && svm.is_running(); bool vfrommask = sv.selected() == (i == 12 ? row + 1 : row) && svm.is_running();
TToken_string& tt_lo = (TToken_string&)_liq_rows[row]; TToken_string& tt_lo = (TToken_string&)_liq_rows[row];
// TToken_string& tt_ln = sh.row(row);
// risolve menata del dettaglio si'/no // risolve menata del dettaglio si'/no
if (lfrommask) if (lfrommask)
for (int i = 1; i <= 13; i++) for (int j = 1; j <= 13; j++)
sh.set_row_cell(101 + i, shm.get(101+i), row); sh.set_row_cell(101 + j, shm.get(101 + j), row);
// saltare una riga se dicembre (riga 11 == acconto) // saltare una riga se dicembre (riga 11 == acconto)
TToken_string& tt_vo = (TToken_string&)_vers_rows[i == 12 ? row + 1 : row]; TToken_string& tt_vo = (TToken_string&)_vers_rows[row];
TToken_string& tt_vn = sv.row(i == 12 ? row + 1 : row); TToken_string& tt_vn = sv.row(row);
if (vfrommask) if (vfrommask)
{ {
for (int i = 1; i <= 5; i++) for (int j = 1; j <= 5; j++)
sh.set_row_cell(101 + i, svm.get(101+i), row); sh.set_row_cell(101 + j, svm.get(101+j), row);
} }
// traduci contenuto righe in real pila // traduci contenuto righe in real pila
@ -1850,6 +1869,8 @@ void Visliq_app::write_general(TMask& m)
real overs(tt_vo.get(cid2index(S_VERSAMENTO))); real overs(tt_vo.get(cid2index(S_VERSAMENTO)));
real nvers(sv.get_real_row_cell(row, S_VERSAMENTO)); real nvers(sv.get_real_row_cell(row, S_VERSAMENTO));
real oint(tt_vo.get(cid2index(S_INTERESSI)));
real nint(sv.get_real_row_cell(row, S_INTERESSI));
TDate odate(tt_vo.get(cid2index(S_DATA))); TDate odate(tt_vo.get(cid2index(S_DATA)));
TDate ndate(sv.get_date_row_cell(row, S_DATA)); TDate ndate(sv.get_date_row_cell(row, S_DATA));
TString8 oabi(tt_vo.get(cid2index(S_ABI))); TString8 oabi(tt_vo.get(cid2index(S_ABI)));
@ -1858,85 +1879,54 @@ void Visliq_app::write_general(TMask& m)
TString8 ncab(sv.get_str_row_cell(row, S_CAB)); TString8 ncab(sv.get_str_row_cell(row, S_CAB));
TString ocon(tt_vo.get(cid2index(S_CONC))); TString ocon(tt_vo.get(cid2index(S_CONC)));
TString ncon(sv.get_str_row_cell(row, S_CONC)); TString ncon(sv.get_str_row_cell(row, S_CONC));
bool osta(tt_vo.get_bool(cid2index(S_STAMPATO)));
bool nsta(sv.get_bool_row_cell(row, S_STAMPATO));
if (odbcr == "C") orett = -orett; if (odbcr == "C") orett = -orett;
if (ndbcr == "C") nrett = -nrett; if (ndbcr == "C") nrett = -nrett;
// acconto (si considererà solo a dicembre) // acconto (si considererà solo a dicembre)
TToken_string& vo = (TToken_string&)_vers_rows[_freqviva == "M" ? 11 : 3];
const int row_acc = _freqviva == "M" ? 11 : 3;
real oacct(tt_vo.get(cid2index(S_VERSAMENTO)));
real nacct(sv.get_real_row_cell(row_acc, S_VERSAMENTO));
TDate aodate(tt_vo.get(cid2index(S_DATA)));
TDate andate(sv.get_date_row_cell(row_acc, S_DATA));
TString8 aoabi(tt_vo.get(cid2index(S_ABI)));
TString8 anabi(sv.get_str_row_cell(row_acc, S_ABI));
TString8 aocab(tt_vo.get(cid2index(S_CAB)));
TString8 ancab(sv.get_str_row_cell(row_acc, S_CAB));
TString aocon(tt_vo.get(cid2index(S_CONC)));
TString ancon(sv.get_str_row_cell(row_acc, S_CONC));
was_lim = look_lim(i); was_lim = look_lim(m);
if (!was_lim) if (!was_lim)
carry = false; // blocca riporto crediti e debiti carry = false; // blocca riporto crediti e debiti
// ricalcola crediti e debiti se non ci sono // ricalcola crediti e debiti se non ci sono
// liquidazioni non calcolate in mezzo // non calcolate in mezzo
if (carry) if (carry)
{ {
bool rt_mod = false, rm_mod = false, vr_mod = false;
real risl = _lim->get_real("R0"); real risl = _lim->get_real("R0");
real vers = _lim->get_real("R8"); real vers = _lim->get_real("R8");
real risc = _lim->get_real("R12"); real risc = _lim->get_real("R12");
real risd = _lim->get_real("R13"); real risd = _lim->get_real("R13");
// ricalcola acconto se occorre if (row == row_acc)
// e crea/aggiorna la delega {
if (i == 12) if (overs != nvers)
{ {
bool ac_mod = false; risc -= overs;
if (oacct != nacct) risc += nvers;
{ risl += overs;
risc -= oacct; risl -= nvers;
risc += nacct; _lim->put("R11", nvers);
risl += oacct; }
risl -= nacct; }
_lim->put("R11", nacct); // ricalcola versamenti se occorre
ac_mod = true; // e crea/aggiorna le deleghe
}
if (ndate != odate || anabi != aoabi || ancab != aocab || ancon != aocon)
ac_mod = true;
// write delega acconto
if (ac_mod)
{
look_del(12,7,true);
_del->put("R0",nacct);
_del->put("R1","");
_del->put("S7",anabi);
_del->put("S8",ancab);
_del->put("S9",ancon);
_del->put("S6","6013");
_del->rewrite();
}
}
// ricalcola versamenti se occorre
// e crea/aggiorna le deleghe
if (nvers != overs)
vr_mod = true;
if (vr_mod || ndate != odate || nabi != oabi || ncab != ocab || ncon != ocon) if (nvers != overs || nint != oint|| ndate != odate || nabi != oabi || ncab != ocab || ncon != ocon || osta != nsta)
{ {
_lim->put("R8", nvers); _lim->put("R8", nvers);
_lim->put("D0", ndate); real percint = (nint / (nvers - nint)) * CENTO;
_lim->put("S4", nabi);
_lim->put("S5", ncab); percint.round(2);
_lim->put("S6", ncon); _lim->put("R10", percint);
write_del(nvers); _lim->put("D0", ndate);
vr_mod = true; _lim->put("S4", nabi);
} _lim->put("S5", ncab);
_lim->put("S6", ncon);
write_del(m, nabi, ncab, ncon, ndate, nvers, nint, nsta);
}
// se modificate rettifiche // se modificate rettifiche
// sistemare // sistemare

9
src/cg/cg5500.h
View File

@ -68,6 +68,7 @@ protected:
static bool sheet_action(TSheet_field& s, int r, KEY k); static bool sheet_action(TSheet_field& s, int r, KEY k);
static bool vers_action(TSheet_field& s, int r, KEY k); static bool vers_action(TSheet_field& s, int r, KEY k);
virtual void print(); virtual void print();
public: public:
@ -85,12 +86,14 @@ public:
void read_general(TMask& m); void read_general(TMask& m);
void write_general(TMask& m); void write_general(TMask& m);
void write_liq(); void write_liq() { _lim->rewrite(); }
void write_del(const real &v = ZERO); void write_del(const int month, const char * codabi = nullptr, const char * codcab = nullptr, const char * codcon = nullptr,
const TDate & d = TDate(NULLDATE), const real &v = MENOUNO, const real &i = ZERO, bool stampato = false);
void set_freqviva(); void set_freqviva();
void set_freqviva(const char* f) { _freqviva = f; } void set_freqviva(const char* f) { _freqviva = f; }
void set_mask_freq(TMask&); const TString & freq_ver_IVA() const { return _freqviva; }
void set_mask_freq(TMask&);
void set_year(const char* y) { _year = atoi(y); } void set_year(const char* y) { _year = atoi(y); }
void set_year(int y) { _year = y; } void set_year(int y) { _year = y; }
void reset_fields(); void reset_fields();

1
src/cg/cg5500a.h
View File

@ -56,3 +56,4 @@
#define S_CONC 105 #define S_CONC 105
#define S_VERSAMENTO 106 #define S_VERSAMENTO 106
#define S_INTERESSI 107 #define S_INTERESSI 107
#define S_STAMPATO 108

87
src/cg/cg5500b.uml
View File

@ -63,8 +63,8 @@ SPREADSHEET F_VISLIQ1 -2 -1
BEGIN BEGIN
PROMPT 0 7 "Liquidazione" PROMPT 0 7 "Liquidazione"
ITEM "Mese@10" ITEM "Mese@10"
ITEM "IVA dovuta o\na credito@15" ITEM "IVA dovuta o\na credito@15"
ITEM "D/C@3" ITEM "D/C@3"
ITEM "Risultato@15" ITEM "Risultato@15"
ITEM "D/C@3" ITEM "D/C@3"
ITEM "IVA rimborso@15" ITEM "IVA rimborso@15"
@ -108,7 +108,8 @@ BEGIN
ITEM "CAB@5" ITEM "CAB@5"
ITEM "Conc.@5" ITEM "Conc.@5"
ITEM "Versamenti@15" ITEM "Versamenti@15"
ITEM "Interessi@15" ITEM "Interessi@15"
ITEM "Stampato"
END END
ENDPAGE ENDPAGE
@ -120,7 +121,7 @@ TOOLBAR "topbar" 0 0 0 2
ENDPAGE ENDPAGE
PAGE "Prospetto mensile" -1 -1 75 22 PAGE "Prospetto mensile" -1 -1 -1 -1
STRING S_MESE 20 STRING S_MESE 20
BEGIN BEGIN
@ -129,13 +130,13 @@ BEGIN
END END
CURRENCY S_RISULTATO 15 CURRENCY S_IVA 15
BEGIN BEGIN
PROMPT 1 2 "Risultato " PROMPT 1 2 "IVA dovuta o credito "
FLAGS "D" FLAGS "D"
END END
LIST S_DEBCRED1 1 10 LIST S_DEBCRED3 1 10
BEGIN BEGIN
PROMPT 57 2 "" PROMPT 57 2 ""
ITEM " | " ITEM " | "
@ -144,22 +145,37 @@ BEGIN
FLAGS "DU" FLAGS "DU"
END END
CURRENCY S_RISULTATO 15
BEGIN
PROMPT 1 3 "Risultato "
FLAGS "D"
END
LIST S_DEBCRED1 1 10
BEGIN
PROMPT 57 3 ""
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
FLAGS "DU"
END
CURRENCY S_RIMBORSO 15 CURRENCY S_RIMBORSO 15
BEGIN BEGIN
PROMPT 1 3 "IVA rimborso " PROMPT 1 4 "IVA rimborso "
PICTURE "." PICTURE "."
GROUP 11 GROUP 11
END END
CURRENCY S_RETTIFICHE 15 CURRENCY S_RETTIFICHE 15
BEGIN BEGIN
PROMPT 1 4 "IVA rettifiche " PROMPT 1 5 "IVA rettifiche "
GROUP 11 GROUP 11
END END
LIST S_DEBCRED2 1 10 LIST S_DEBCRED2 1 10
BEGIN BEGIN
PROMPT 57 4 "" PROMPT 57 5 ""
ITEM " | " ITEM " | "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
@ -169,28 +185,28 @@ END
CURRENCY S_CREDIVA 15 CURRENCY S_CREDIVA 15
BEGIN BEGIN
PROMPT 1 5 "Credito utilizzato IVA " PROMPT 1 6 "Credito utilizzato IVA "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
CURRENCY S_CREDF24PRE 15 CURRENCY S_CREDF24PRE 15
BEGIN BEGIN
PROMPT 1 6 "Credito utilizzato F24 anno precedente " PROMPT 1 7 "Credito utilizzato F24 anno precedente "
GROUP 12 GROUP 12
FLAGS "D" FLAGS "D"
END END
CURRENCY S_CREDF24 15 CURRENCY S_CREDF24 15
BEGIN BEGIN
PROMPT 1 7 "Credito autorizzato F24 anno in corso " PROMPT 1 8 "Credito autorizzato F24 anno in corso "
GROUP 12 GROUP 12
FLAGS "D" FLAGS "D"
END END
DATE S_DATAAUT DATE S_DATAAUT
BEGIN BEGIN
PROMPT 1 8 "Data di autorizzazione " PROMPT 1 9 "Data di autorizzazione "
GROUP 12 GROUP 12
CHECTYPE REQUIRED CHECTYPE REQUIRED
WARNING "La data è obbligatoria" WARNING "La data è obbligatoria"
@ -199,27 +215,11 @@ END
CURRENCY S_CREDRES 15 CURRENCY S_CREDRES 15
BEGIN BEGIN
PROMPT 1 9 "Credito IVA residuo " PROMPT 1 10 "Credito IVA residuo "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
CURRENCY S_IVA 15
BEGIN
PROMPT 1 10 "IVA dovuta o credito "
FLAGS "D"
GROUP 12
END
LIST S_DEBCRED3 1 10
BEGIN
PROMPT 57 10 ""
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
FLAGS "UD"
GROUP 11
END
STRING S_DESCR 50 35 STRING S_DESCR 50 35
BEGIN BEGIN
@ -230,7 +230,7 @@ END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -11 -1 "Dettaglio" PROMPT -11 -2 "<D>ettaglio"
END END
ENDPAGE ENDPAGE
@ -242,7 +242,7 @@ TOOLBAR "topbar" 0 0 0 2
ENDPAGE ENDPAGE
PAGE "Prospetto versamenti" -1 -1 50 12 PAGE "Prospetto versamenti" -1 -1 -1 -1
STRING S_MESE 20 STRING S_MESE 20
BEGIN BEGIN
@ -314,12 +314,27 @@ END
CURRENCY S_INTERESSI 15 CURRENCY S_INTERESSI 15
BEGIN BEGIN
PROMPT 1 7 "Interessi " PROMPT 1 7 "Interessi "
FLAGS "RD" FLAGS "R"
END
BOOLEAN S_STAMPATO
BEGIN
PROMPT 1 8 "Stampato"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -2 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -2 ""
END END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -11 -1 "Dettaglio" PROMPT -11 -2 "<D>ettaglio"
END END
ENDPAGE ENDPAGE

115
src/cg/cg5500c.uml
View File

@ -58,10 +58,12 @@ BEGIN
PROMPT 1 6 "Credito utilizzato a Gennaio " PROMPT 1 6 "Credito utilizzato a Gennaio "
END END
SPREADSHEET F_VISLIQ1 -2 7 SPREADSHEET F_VISLIQ1 -2 -1
BEGIN BEGIN
PROMPT 0 7 "Liquidazione" PROMPT 0 7 "Liquidazione"
ITEM "Mese@10" ITEM "Mese@10"
ITEM "IVA dovuta o\na credito@15"
ITEM "D/C@3"
ITEM "Risultato@15" ITEM "Risultato@15"
ITEM "D/C@3" ITEM "D/C@3"
ITEM "IVA rimborso@15" ITEM "IVA rimborso@15"
@ -78,56 +80,72 @@ END
SPREADSHEET F_VISLIQ2 -2 7 SPREADSHEET F_VISLIQ2 -2 7
BEGIN BEGIN
PROMPT 0 16 "Versamenti" PROMPT 0 16 "Versamenti"
ITEM "Mese@10" ITEM "Mese@15"
ITEM "Data@10" ITEM "Data@10"
ITEM "ABI@5" ITEM "ABI@5"
ITEM "CAB@5" ITEM "CAB@5"
ITEM "Conc.@5" ITEM "Conc.@5"
ITEM "Versamenti@15" ITEM "Versamenti@15"
ITEM "Interessi@15" ITEM "Interessi@15"
ITEM "Stampato"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 10 PAGE "Prospetto mensile" -1 -1 -1 -1
STRING 101 20 STRING S_MESE 20
BEGIN BEGIN
PROMPT 1 1 "Mese " PROMPT 1 1 "Mese "
FLAGS "D" FLAGS "D"
END END
CURRENCY 102 15 CURRENCY S_IVA 15
BEGIN BEGIN
PROMPT 1 2 "Risultato " PROMPT 1 2 "IVA dovuta o credito "
FLAGS "D" FLAGS "D"
END END
LIST 103 1 10 LIST S_DEBCRED3 1 10
BEGIN BEGIN
PROMPT 35 2 "" PROMPT 57 2 ""
ITEM " | " ITEM " | "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
FLAGS "DU" FLAGS "DU"
END END
CURRENCY 104 15 CURRENCY S_RISULTATO 15
BEGIN BEGIN
PROMPT 1 3 "IVA rimborso " PROMPT 1 3 "Risultato "
FLAGS "D"
END
LIST S_DEBCRED1 1 10
BEGIN
PROMPT 57 3 ""
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
FLAGS "DU"
END
CURRENCY S_RIMBORSO 15
BEGIN
PROMPT 1 4 "IVA rimborso "
GROUP 11 GROUP 11
END END
CURRENCY 105 15 CURRENCY S_RETTIFICHE 15
BEGIN BEGIN
PROMPT 1 4 "IVA rettifiche " PROMPT 1 5 "IVA rettifiche "
GROUP 11 GROUP 11
END END
LIST 106 1 10 LIST S_DEBCRED2 1 10
BEGIN BEGIN
PROMPT 35 4 "" PROMPT 57 5 ""
ITEM " | " ITEM " | "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
@ -135,80 +153,80 @@ BEGIN
GROUP 11 GROUP 11
END END
CURRENCY 107 15 CURRENCY S_CREDIVA 15
BEGIN BEGIN
PROMPT 1 3 "Credito utilizzato IVA " PROMPT 1 6 "Credito utilizzato IVA "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
CURRENCY 108 15 CURRENCY S_CREDF24PRE 15
BEGIN BEGIN
PROMPT 1 4 "Credito utilizzato F24 " PROMPT 1 7 "Credito utilizzato F24 "
GROUP 12 GROUP 12
END END
CURRENCY 109 15 CURRENCY S_CREDF24 15
BEGIN BEGIN
PROMPT 1 7 "Credito autorizzato F24 anno in corso " PROMPT 1 8 "Credito autorizzato F24 anno in corso "
GROUP 12 GROUP 12
FLAGS "D" FLAGS "D"
END END
DATE 110 DATE S_DATAAUT
BEGIN BEGIN
PROMPT 1 8 "Data di autorizzazione " PROMPT 1 9 "Data di autorizzazione "
GROUP 12 GROUP 12
CHECTYPE REQUIRED CHECTYPE REQUIRED
WARNING "La data è obbligatoria" WARNING "La data è obbligatoria"
FLAGS "D" FLAGS "D"
END END
CURRENCY 111 15 CURRENCY S_CREDRES 15
BEGIN BEGIN
PROMPT 1 5 "Credito IVA residuo " PROMPT 1 10 "Credito IVA residuo "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
STRING 112 50 35 STRING S_DESCR 50 35
BEGIN BEGIN
PROMPT 1 6 "Descr. " PROMPT 1 11 "Descr. "
GROUP 12 GROUP 12
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -2 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -2 ""
END END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -33 -1 "Dettaglio" PROMPT -33 -2 "<D>ettaglio"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 12 PAGE "Prospetto versamenti" -1 -1 -1 -1
STRING 101 20 STRING S_MESE 20
BEGIN BEGIN
PROMPT 1 1 "Mese " PROMPT 1 1 "Mese "
FLAGS "D" FLAGS "D"
END END
DATE 102 DATE S_DATA
BEGIN BEGIN
PROMPT 1 2 "Data " PROMPT 1 2 "Data "
END END
NUMBER 103 5 NUMBER S_ABI 5
BEGIN BEGIN
PROMPT 1 3 "Codice ABI " PROMPT 1 3 "Codice ABI "
HELP "Codice ABI banca di appoggio" HELP "Codice ABI banca di appoggio"
@ -224,8 +242,7 @@ BEGIN
WARNING "Codice ABI assente" WARNING "Codice ABI assente"
END END
NUMBER S_CAB 5
NUMBER 104 5
BEGIN BEGIN
PROMPT 1 4 "Codice CAB " PROMPT 1 4 "Codice CAB "
HELP "Codice CAB banca di appoggio" HELP "Codice CAB banca di appoggio"
@ -244,42 +261,44 @@ BEGIN
WARNING "Banca assente" WARNING "Banca assente"
END END
NUMBER S_CONC 3
NUMBER 105 3
BEGIN BEGIN
PROMPT 1 5 "Concessione " PROMPT 1 5 "Concessione "
HELP "Codice Concessione del Comune di residenza fiscale" HELP "Codice Concessione del Comune di residenza fiscale"
// FIELD S9
FLAGS "RZ" FLAGS "RZ"
END END
CURRENCY S_VERSAMENTO 15
CURRENCY 106 15
BEGIN BEGIN
PROMPT 1 6 "Versamenti " PROMPT 1 6 "Versamenti "
FLAGS "R" FLAGS "R"
END END
CURRENCY 107 15 CURRENCY S_INTERESSI 15
BEGIN BEGIN
PROMPT 1 6 "Interessi " PROMPT 1 7 "Interessi "
FLAGS "RD" FLAGS "R"
END
BOOLEAN S_STAMPATO
BEGIN
PROMPT 1 8 "Stampato"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -2 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -2 ""
END END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -33 -1 "Dettaglio" PROMPT -33 -2 "<D>ettaglio"
// FLAGS "H"
END END
ENDPAGE ENDPAGE

11
src/include/msksheet.cpp
View File

@ -3135,6 +3135,17 @@ int TSheet_field::set_row_cell(short id, const TDate& value, int nrow)
return nrow; return nrow;
} }
int TSheet_field::set_row_cell(short id, const bool value, int nrow)
{
if (nrow < 0)
nrow = first_empty();
set_row_cell(row(nrow), id, value);
#ifdef DBG
const TToken_string & r = row(nrow);
#endif
return nrow;
}
// Certified 100% // Certified 100%
// Ritorna l'indice della prima riga vuota dello sheet // Ritorna l'indice della prima riga vuota dello sheet
int TSheet_field::first_empty() const int TSheet_field::first_empty() const

3
src/include/msksheet.h
View File

@ -157,6 +157,7 @@ public:
virtual void set_row_cell(TToken_string & row, short id, int value) { row.add(value, cid2index(id)); } virtual void set_row_cell(TToken_string & row, short id, int value) { row.add(value, cid2index(id)); }
virtual void set_row_cell(TToken_string & row, short id, const real& value) { row.add(value, cid2index(id)); } virtual void set_row_cell(TToken_string & row, short id, const real& value) { row.add(value, cid2index(id)); }
virtual void set_row_cell(TToken_string & row, short id, const TDate& value) { row.add(value, cid2index(id)); } virtual void set_row_cell(TToken_string & row, short id, const TDate& value) { row.add(value, cid2index(id)); }
virtual void set_row_cell(TToken_string & row, short id, const bool value) { row.add(value ? "X" : "", cid2index(id)); }
virtual int set_row_cell(short id, const char * value, int nrow = -1); virtual int set_row_cell(short id, const char * value, int nrow = -1);
virtual int set_row_cell(short id, char value, int nrow = -1); virtual int set_row_cell(short id, char value, int nrow = -1);
@ -164,6 +165,7 @@ public:
virtual int set_row_cell(short id, int value, int nrow = -1); virtual int set_row_cell(short id, int value, int nrow = -1);
virtual int set_row_cell(short id, const real& value, int nrow = -1); virtual int set_row_cell(short id, const real& value, int nrow = -1);
virtual int set_row_cell(short id, const TDate& value, int nrow = -1); virtual int set_row_cell(short id, const TDate& value, int nrow = -1);
virtual int set_row_cell(short id, const bool value, int nrow = -1);
virtual const char * get_str_row_cell(int nrow, short id) { return row(nrow).get(cid2index(id)); } virtual const char * get_str_row_cell(int nrow, short id) { return row(nrow).get(cid2index(id)); }
virtual char get_char_row_cell(int nrow, short id) { return row(nrow).get_char(cid2index(id)); } virtual char get_char_row_cell(int nrow, short id) { return row(nrow).get_char(cid2index(id)); }
@ -171,6 +173,7 @@ public:
virtual int get_int_row_cell(int nrow, short id) { return row(nrow).get_int(cid2index(id)); } virtual int get_int_row_cell(int nrow, short id) { return row(nrow).get_int(cid2index(id)); }
virtual real get_real_row_cell(int nrow, short id) { return real(row(nrow).get(cid2index(id))); } virtual real get_real_row_cell(int nrow, short id) { return real(row(nrow).get(cid2index(id))); }
virtual TDate get_date_row_cell(int nrow, short id) { return TDate(row(nrow).get(cid2index(id))); } virtual TDate get_date_row_cell(int nrow, short id) { return TDate(row(nrow).get(cid2index(id))); }
virtual bool get_bool_row_cell(int nrow, short id) { const TString s = get_str_row_cell(nrow, id); return s == "X"; }
char separator() const { return _separator; } char separator() const { return _separator; }

1
src/include/real.cpp
View File

@ -2,6 +2,7 @@
#include <real.h> #include <real.h>
#include <strings.h> #include <strings.h>
const real MENOUNO(-1.0);
const real ZERO(0.0); const real ZERO(0.0);
const real PUNTO_UNO(UNO/DIECI); const real PUNTO_UNO(UNO/DIECI);
const real PUNTO_DUE(DUE/DIECI); const real PUNTO_DUE(DUE/DIECI);

1
src/include/real.h
View File

@ -11,6 +11,7 @@
class real; class real;
extern const real MENOUNO;
extern const real ZERO; extern const real ZERO;
extern const real PUNTO_UNO; extern const real PUNTO_UNO;
extern const real PUNTO_DUE; extern const real PUNTO_DUE;

7
src/include/strings.cpp
View File

@ -1679,6 +1679,13 @@ long TToken_string::get_long(int n)
return num ? atol(num) : 0L; return num ? atol(num) : 0L;
} }
bool TToken_string::get_bool(int n)
{
const TString s = get(n);
return s == "X";
}
// const TToken_string new age! // const TToken_string new age!

4
src/include/strings.h
View File

@ -673,7 +673,9 @@ public:
int get_int(int n = -1); int get_int(int n = -1);
// @cmember Ritorna un intero esteso (chiama <mf TToken_string::get>) // @cmember Ritorna un intero esteso (chiama <mf TToken_string::get>)
long get_long(int n = -1); long get_long(int n = -1);
// @cmember Ritorna un booleano (chiama <mf TToken_string::get>)
bool get_bool(int n = -1);
// TToken_string new age: const methods; // TToken_string new age: const methods;
// @cmember Ritorna l'ennesimo token // @cmember Ritorna l'ennesimo token
bool get(int n, TString& tok) const; bool get(int n, TString& tok) const;