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

Correzione errori MI2365 e MI2364, relativi al calcolo volume

Browse Source 
d'affari - B3 in percentuale indetraibilta' in annuale e trasferimento
campi EC107-EC117 sul file TAB1100 per dichiarazione IVA.


git-svn-id: svn://10.65.10.50/trunk@5572 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-06 15:28:13 +00:00
parent e5350ebd43
commit 465b3a7da6
1 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
cg/cg4301.cpp
View File

@ -1333,7 +1333,11 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
* calcolate per le agenzie di viaggio (che sembra non vadano
* comunque sottratte nel calcolo del volume di affari)
*/
/*
* Il prorata pagato in annuale viene scritto a 0, perche' in realta' sarebbe
* la somma di quelli pagati nei mesi precedenti.
*/
_plm->put("R2", prorata);
if (_isviaggio)
@ -1644,8 +1648,6 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
if (is_vendita)
{
if (corrisp && tipoiva != "VE" && (tipodoc == "CR" || tipodoc == "RF" || tipodoc == "SC") )
return;
if (tipodoc == "CN" || tipodoc == "SN" || tipodoc == "RN") // salta i non incassati
return;
if (!valintra)
@ -1666,11 +1668,21 @@ void TLiquidazione_app::iva11_set_arr(const TString& codatt)
array.add(imponibile,TAB11_EC114);
else if (tipoes_v == "20")
array.add(imponibile,TAB11_EC115);
else if (tipoes_v == "G7A")
array.add(imponibile,TAB11_EC116);
else if (tipoes_v == "G7B")
array.add(imponibile,TAB11_EC117);
else if (tipoes_v == "R9") // Divenuto obsoleto prima ancora di utilizzarlo...
array.add(imponibile,TAB11_R9,LF_TAB1100B);
if (tipocr == 4 && tipodoc != "AF")
array.add(imponibile,TAB11_EC113);
}
if (corrisp && tipoiva != "VE" && (tipodoc == "CR" || tipodoc == "RF" || tipodoc == "SC") )
return;
if (!autofattura && tipoiva != "NS")
if (tipodoc == "AF")
{
@ -1870,13 +1882,6 @@ void TLiquidazione_app::iva11_set_arr_pim(const TString& codatt)
if (is_vendita)
{
if (v11 == "G7A")
array.add(imp,TAB11_EC116);
else if (v11 == "G7B")
array.add(imp,TAB11_EC117);
else if (v11 == "R9") // Divenuto obsoleto prima ancora di utilizzarlo...
array.add(imp,TAB11_R9,LF_TAB1100B);
if ((_isagricolo && tagr==2) || !_isagricolo)
{
// Accumula i corrispettivi da scorporare per codice iva
@ -2707,25 +2712,27 @@ void TLiquidazione_app::recalc_annual(const char* att)
if (!look_plm(i,aaa))
continue;
pro_pag += _plm->get_real("R2"); // Can't do anyway else...
}
// Modifiche per PIM13
if (look_plm(13,aaa))
{
vendite += _pam->get_real("R1");
iva_acq += _plm->get_real("R1");
es_b1 += _pum->get_real("R4");
es_b2 += _pum->get_real("R5");
es_b3 += _pum->get_real("R6");
cess_amm += _pum->get_real("R0");
pro_pag += _plm->get_real("R2");
}
// Modifiche per PIM13
if (look_plm(13,aaa))
{
// Nota:
// l'iva acquisti del mese 13 memorizzata in PLM->R1, e' si' la sommatoria
// di tutte le imposte relative agli acquisti di tutti i mesi, ma andrebbe sottratto il
// totale prorata pagato (pro_pag), reperibile dai mesi precedenti (PLM->R2)
real iv = _plm->get_real("R1"); // Iva acquisti annuale
iv -= pro_pag; // Si sottraggano i prorata pagati
_plm->put("R1",iv); // Si riscriva il tutto
//real iv = _plm->get_real("R1"); // Iva acquisti annuale
//iv -= pro_pag;
iva_acq -= pro_pag; // Si sottraggano i prorata pagati
_plm->put("R1",iva_acq); // Si riscriva il tutto
_plm->rewrite();
}