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

Riportati i nomi dei vecchi righi con quelli nuovi, cambiato

Browse Source 
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 1996-12-09 08:36:38 +00:00
parent 4dc504cc0f
commit 3e32e338bb
1 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
cg/cg4301.cpp
View File

@ -613,7 +613,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// speciale in liquidazione annuale // speciale in liquidazione annuale
bool autodafe = tipodoc == "AF"; //Adesso il tipocr==4 non c'entra piu' un tubo 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 // 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); 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 // indica acquisti per rivendita; viene messo in B4 di PIM per
// indicare che e' soggetto al ricalcolo IVA (se voluto) in modo // 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) if (isrimbinfr)
esni_rimb += imponibile; esni_rimb += imponibile;
} }
else if (tipoes_a == "14") else if (tipoes_a == "12")
esenti_b14 += imponibile; 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. */ /* i conturbanti art. 40 c. 5/6/8 a.i. */
TToken_string kr(_pim->get("S0"),'!'); TToken_string kr(_pim->get("S0"),'!');
real a36i(kr.get(0)); real a13i(kr.get(0));
real a36v(kr.get(1)); real a13v(kr.get(1));
/* le porche fatture in ritardo */ /* le porche fatture in ritardo */
TToken_string fr(_pim->get("S1"),'!'); 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 '!'. // Vengono piazzati in una TToken_string con separatore = a '!'.
// La TToken_string viene registrata in S0. // La TToken_string viene registrata in S0.
// La describe_pim() sommera' tutte le storie, scorporandoli // La describe_pim() sommera' tutte le storie, scorporandoli
// dalle vendite e assegnandoli al codice A36 in caso di liq annuale. // dalle vendite e assegnandoli al codice A13 in caso di liq annuale.
a36i += imponibile; a13i += imponibile;
a36v += imposta; a13v += imposta;
} }
if (corrisp && !true_corrisp) 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("B4", (_isricacq && was_riv) ? "X" : "");
_pim->put("S5", tipoiva); _pim->put("S5", tipoiva);
// art 40 c. 5/6/8 per A36. // art 40 c. 5/6/8 per A13.
kr.add(a36i.string(), 0); kr.add(a13i.string(), 0);
kr.add(a36v.string(), 1); kr.add(a13v.string(), 1);
_pim->put("S0",kr); _pim->put("S0",kr);
@ -1475,15 +1475,15 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
array.add(imposta,TAB11_FC208); array.add(imposta,TAB11_FC208);
} }
if (tipoes_a == "01") if (tipoes_a == "13")
array.add(imponibile,TAB11_FC109); array.add(imponibile,TAB11_FC109);
else if (tipoes_a == "12") else if (tipoes_a == "10")
array.add(imponibile,TAB11_FC110); array.add(imponibile,TAB11_FC110);
else if (tipoes_a == "13") else if (tipoes_a == "11")
array.add(imponibile,TAB11_FC111); array.add(imponibile,TAB11_FC111);
else if (tipoes_a == "14") else if (tipoes_a == "12")
array.add(imponibile,TAB11_FC112); array.add(imponibile,TAB11_FC112);
else if (tipoes_a == "15") else if (tipoes_a == "14")
array.add(imponibile,TAB11_FC113); array.add(imponibile,TAB11_FC113);
} }
else else
@ -1528,13 +1528,13 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
array.add(imposta,TAB11_SBI06); array.add(imposta,TAB11_SBI06);
} }
if (tipoes_a == "01") if (tipoes_a == "13")
array.add(imponibile,TAB11_SBF07); array.add(imponibile,TAB11_SBF07);
else if (tipoes_a == "12") else if (tipoes_a == "10")
array.add(imponibile,TAB11_SBF08); array.add(imponibile,TAB11_SBF08);
else if (tipoes_a == "13") else if (tipoes_a == "11")
array.add(imponibile,TAB11_SBF09); array.add(imponibile,TAB11_SBF09);
else if (tipoes_a == "14") else if (tipoes_a == "12")
array.add(imponibile,TAB11_SBF10); array.add(imponibile,TAB11_SBF10);
} }
else 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); array.add(imponibile,TAB11_EC107);
if (tipoes_v == "24") if (tipoes_v == "21")
array.add(imponibile,TAB11_EC108); array.add(imponibile,TAB11_EC108);
else if (tipoes_v == "B1") else if (tipoes_v == "B1")
array.add(imponibile,TAB11_EC109); array.add(imponibile,TAB11_EC109);
@ -1602,11 +1602,11 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
array.add(imponibile,TAB11_EC110); array.add(imponibile,TAB11_EC110);
else if (tipoes_v == "B3") else if (tipoes_v == "B3")
array.add(imponibile,TAB11_EC111); array.add(imponibile,TAB11_EC111);
else if (tipoes_v == "26") else if (tipoes_v == "25")
array.add(imponibile,TAB11_EC112); array.add(imponibile,TAB11_EC112);
else if (tipoes_v == "24B") else if (tipoes_v == "22")
array.add(imponibile,TAB11_EC114); array.add(imponibile,TAB11_EC114);
else if (tipoes_v == "23") else if (tipoes_v == "20")
array.add(imponibile,TAB11_EC115); array.add(imponibile,TAB11_EC115);
if (tipocr == 4) if (tipocr == 4)
@ -1625,7 +1625,7 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
array.add(imposta,TAB11_L2BIS); 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); array.add(imponibile,TAB11_E52);
if (_isagricolo && (tipodoc != "CR" && tipodoc != "SC" && tipodoc != "RF" && tipodoc != "FS")) 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); array.add(_pim->get_real("R10"),TAB11_FBC206);
} }
if (a11 == "12") if (a11 == "10")
array.add(_pim->get_real("R9"),TAB11_FBC107); 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); array.add(_pim->get_real("R9"),TAB11_FBC108);
if (a11 == "15") if (a11 == "14")
array.add(_pim->get_real("R9"),TAB11_FBC109); array.add(_pim->get_real("R9"),TAB11_FBC109);
} }
} // is_acquisto } // is_acquisto
if (is_vendita) if (is_vendita)
{ {
if (v11 == "E50") if (v11 == "G7A")
array.add(imp,TAB11_EC116); array.add(imp,TAB11_EC116);
else if (v11 == "E51") else if (v11 == "G7B")
array.add(imp,TAB11_EC117); 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); array.add(imp,TAB11_R9,LF_TAB1100B);
@ -2474,9 +2474,9 @@ void TLiquidazione_app::recalc_annual(const char* att)
real volaff2 = 0.0; real volaff2 = 0.0;
real imp_ifs = 0.0; real imp_ifs = 0.0;
real imp_af = 0.0; real imp_af = 0.0;
real imp_a36 = 0.0; real imp_a13 = 0.0;
TString16 codiva,reg,tiva; TString16 codiva,reg,tiva;
TToken_string a36("",'!'); TToken_string a13("",'!');
int tipoatt = att[strlen(att) -1] - '0'; int tipoatt = att[strlen(att) -1] - '0';
TString aaa(att); TString aaa(att);
@ -2507,9 +2507,9 @@ void TLiquidazione_app::recalc_annual(const char* att)
const bool simp = _reg->get_bool("B1"); const bool simp = _reg->get_bool("B1");
imp_ifs = _pim->get_real("R0"); imp_ifs = _pim->get_real("R0");
imp_af = _pim->get_real("R7"); imp_af = _pim->get_real("R7");
a36 = _pim->get("S0"); a13 = _pim->get("S0");
imp_a36 = a36.get(0); imp_a13 = a13.get(0);
imp_ifs -= imp_af + imp_a36; // Toglie le autofatture e le op. A36 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 (corrisp) imp_ifs += _pim->get_real("R5"); // Se corrisp. aggiunge le FS
if ( // ESCLUSI: if ( // ESCLUSI: