Riportati i nomi dei vecchi righi con quelli nuovi, cambiato
l'utilizzo di A36 con A13. git-svn-id: svn://10.65.10.50/trunk@3980 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
4dc504cc0f
commit
3e32e338bb
@ -613,7 +613,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
|
||||
// speciale in liquidazione annuale
|
||||
bool autodafe = tipodoc == "AF"; //Adesso il tipocr==4 non c'entra piu' un tubo
|
||||
// vendite art. 40 c. 5/6/8 acq.intra., con trattamento
|
||||
// speciale in liquidazione annuale (A36 in stampa)
|
||||
// speciale in liquidazione annuale (A13 in stampa)
|
||||
bool art40 = (tipodoc != "AF" && tipoiva != "NS" && !rcs.get_bool("AUTOFATT") && rcs.get_bool("VALINTRA") && !intra);
|
||||
// indica acquisti per rivendita; viene messo in B4 di PIM per
|
||||
// indicare che e' soggetto al ricalcolo IVA (se voluto) in modo
|
||||
@ -788,7 +788,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
|
||||
if (isrimbinfr)
|
||||
esni_rimb += imponibile;
|
||||
}
|
||||
else if (tipoes_a == "14")
|
||||
else if (tipoes_a == "12")
|
||||
esenti_b14 += imponibile;
|
||||
}
|
||||
|
||||
@ -974,8 +974,8 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
|
||||
|
||||
/* i conturbanti art. 40 c. 5/6/8 a.i. */
|
||||
TToken_string kr(_pim->get("S0"),'!');
|
||||
real a36i(kr.get(0));
|
||||
real a36v(kr.get(1));
|
||||
real a13i(kr.get(0));
|
||||
real a13v(kr.get(1));
|
||||
|
||||
/* le porche fatture in ritardo */
|
||||
TToken_string fr(_pim->get("S1"),'!');
|
||||
@ -1127,9 +1127,9 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
|
||||
// Vengono piazzati in una TToken_string con separatore = a '!'.
|
||||
// La TToken_string viene registrata in S0.
|
||||
// La describe_pim() sommera' tutte le storie, scorporandoli
|
||||
// dalle vendite e assegnandoli al codice A36 in caso di liq annuale.
|
||||
a36i += imponibile;
|
||||
a36v += imposta;
|
||||
// dalle vendite e assegnandoli al codice A13 in caso di liq annuale.
|
||||
a13i += imponibile;
|
||||
a13v += imposta;
|
||||
}
|
||||
|
||||
if (corrisp && !true_corrisp)
|
||||
@ -1162,9 +1162,9 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
|
||||
_pim->put("B4", (_isricacq && was_riv) ? "X" : "");
|
||||
_pim->put("S5", tipoiva);
|
||||
|
||||
// art 40 c. 5/6/8 per A36.
|
||||
kr.add(a36i.string(), 0);
|
||||
kr.add(a36v.string(), 1);
|
||||
// art 40 c. 5/6/8 per A13.
|
||||
kr.add(a13i.string(), 0);
|
||||
kr.add(a13v.string(), 1);
|
||||
_pim->put("S0",kr);
|
||||
|
||||
|
||||
@ -1475,15 +1475,15 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
|
||||
array.add(imposta,TAB11_FC208);
|
||||
}
|
||||
|
||||
if (tipoes_a == "01")
|
||||
if (tipoes_a == "13")
|
||||
array.add(imponibile,TAB11_FC109);
|
||||
else if (tipoes_a == "12")
|
||||
else if (tipoes_a == "10")
|
||||
array.add(imponibile,TAB11_FC110);
|
||||
else if (tipoes_a == "13")
|
||||
else if (tipoes_a == "11")
|
||||
array.add(imponibile,TAB11_FC111);
|
||||
else if (tipoes_a == "14")
|
||||
else if (tipoes_a == "12")
|
||||
array.add(imponibile,TAB11_FC112);
|
||||
else if (tipoes_a == "15")
|
||||
else if (tipoes_a == "14")
|
||||
array.add(imponibile,TAB11_FC113);
|
||||
}
|
||||
else
|
||||
@ -1528,13 +1528,13 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
|
||||
array.add(imposta,TAB11_SBI06);
|
||||
}
|
||||
|
||||
if (tipoes_a == "01")
|
||||
if (tipoes_a == "13")
|
||||
array.add(imponibile,TAB11_SBF07);
|
||||
else if (tipoes_a == "12")
|
||||
else if (tipoes_a == "10")
|
||||
array.add(imponibile,TAB11_SBF08);
|
||||
else if (tipoes_a == "13")
|
||||
else if (tipoes_a == "11")
|
||||
array.add(imponibile,TAB11_SBF09);
|
||||
else if (tipoes_a == "14")
|
||||
else if (tipoes_a == "12")
|
||||
array.add(imponibile,TAB11_SBF10);
|
||||
}
|
||||
else
|
||||
@ -1592,9 +1592,9 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
|
||||
}
|
||||
}
|
||||
|
||||
if (tipoes_v == "10")
|
||||
if (tipoes_v == "24")
|
||||
array.add(imponibile,TAB11_EC107);
|
||||
if (tipoes_v == "24")
|
||||
if (tipoes_v == "21")
|
||||
array.add(imponibile,TAB11_EC108);
|
||||
else if (tipoes_v == "B1")
|
||||
array.add(imponibile,TAB11_EC109);
|
||||
@ -1602,11 +1602,11 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
|
||||
array.add(imponibile,TAB11_EC110);
|
||||
else if (tipoes_v == "B3")
|
||||
array.add(imponibile,TAB11_EC111);
|
||||
else if (tipoes_v == "26")
|
||||
else if (tipoes_v == "25")
|
||||
array.add(imponibile,TAB11_EC112);
|
||||
else if (tipoes_v == "24B")
|
||||
else if (tipoes_v == "22")
|
||||
array.add(imponibile,TAB11_EC114);
|
||||
else if (tipoes_v == "23")
|
||||
else if (tipoes_v == "20")
|
||||
array.add(imponibile,TAB11_EC115);
|
||||
|
||||
if (tipocr == 4)
|
||||
@ -1625,7 +1625,7 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
|
||||
array.add(imposta,TAB11_L2BIS);
|
||||
}
|
||||
|
||||
if (!autofattura && !sosp_imp && intra && tipoes_v == "24B")
|
||||
if (!autofattura && !sosp_imp && intra && tipoes_v == "22")
|
||||
array.add(imponibile,TAB11_E52);
|
||||
|
||||
if (_isagricolo && (tipodoc != "CR" && tipodoc != "SC" && tipodoc != "RF" && tipodoc != "FS"))
|
||||
@ -1795,22 +1795,22 @@ void TLiquidazione_app::iva11_set_arr_pim(const TString& codatt)
|
||||
array.add(_pim->get_real("R10"),TAB11_FBC206);
|
||||
}
|
||||
|
||||
if (a11 == "12")
|
||||
if (a11 == "10")
|
||||
array.add(_pim->get_real("R9"),TAB11_FBC107);
|
||||
if (a11 == "13" || a11 == "14")
|
||||
if (a11 == "11" || a11 == "12")
|
||||
array.add(_pim->get_real("R9"),TAB11_FBC108);
|
||||
if (a11 == "15")
|
||||
if (a11 == "14")
|
||||
array.add(_pim->get_real("R9"),TAB11_FBC109);
|
||||
}
|
||||
} // is_acquisto
|
||||
|
||||
if (is_vendita)
|
||||
{
|
||||
if (v11 == "E50")
|
||||
if (v11 == "G7A")
|
||||
array.add(imp,TAB11_EC116);
|
||||
else if (v11 == "E51")
|
||||
else if (v11 == "G7B")
|
||||
array.add(imp,TAB11_EC117);
|
||||
else if (v11 == "R9")
|
||||
else if (v11 == "R9") // Divenuto obsoleto prima ancora di utilizzarlo...
|
||||
array.add(imp,TAB11_R9,LF_TAB1100B);
|
||||
|
||||
|
||||
@ -2474,9 +2474,9 @@ void TLiquidazione_app::recalc_annual(const char* att)
|
||||
real volaff2 = 0.0;
|
||||
real imp_ifs = 0.0;
|
||||
real imp_af = 0.0;
|
||||
real imp_a36 = 0.0;
|
||||
real imp_a13 = 0.0;
|
||||
TString16 codiva,reg,tiva;
|
||||
TToken_string a36("",'!');
|
||||
TToken_string a13("",'!');
|
||||
|
||||
int tipoatt = att[strlen(att) -1] - '0';
|
||||
TString aaa(att);
|
||||
@ -2507,9 +2507,9 @@ void TLiquidazione_app::recalc_annual(const char* att)
|
||||
const bool simp = _reg->get_bool("B1");
|
||||
imp_ifs = _pim->get_real("R0");
|
||||
imp_af = _pim->get_real("R7");
|
||||
a36 = _pim->get("S0");
|
||||
imp_a36 = a36.get(0);
|
||||
imp_ifs -= imp_af + imp_a36; // Toglie le autofatture e le op. A36
|
||||
a13 = _pim->get("S0");
|
||||
imp_a13 = a13.get(0);
|
||||
imp_ifs -= imp_af + imp_a13; // Toglie le autofatture e le op. A13
|
||||
if (corrisp) imp_ifs += _pim->get_real("R5"); // Se corrisp. aggiunge le FS
|
||||
|
||||
if ( // ESCLUSI:
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user