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

Modifiche per correzione mese 13: corretto confronto tra il mese

Browse Source 
ricavato dal TRecfield di PIM e quello corrente nelle funzioni
per l'IVA11. Correzione nella write_liq(): in caso di mese 13,
vanno considerati tutti i mesi precedenti per quanto riguarda
rimborsi, versamenti, rettifiche (memorizzati in LIM).


git-svn-id: svn://10.65.10.50/trunk@5486 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-10-29 14:52:58 +00:00
parent 13716d81ca
commit 3bb3075200
1 changed files with 64 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
cg/cg4301.cpp
View File

@ -1689,7 +1689,7 @@ void TLiquidazione_app::iva11_set_arr_pim(const TString& codatt)
for (_pim->first(); !_pim->eof(); _pim->next()) for (_pim->first(); !_pim->eof(); _pim->next())
{ {
if (_year != *_pim_anno) continue; if (_year != *_pim_anno) continue;
if (*_pim_mese != "13") continue; if (atoi(*_pim_mese) != 13) continue;
cur_att = *_pim_codatt; cur_att = *_pim_codatt;
cur_att.rtrim(1); cur_att.rtrim(1);
if (codatt != cur_att) continue; // considera solo quelli dell'anno, obviously. if (codatt != cur_att) continue; // considera solo quelli dell'anno, obviously.
@ -1940,7 +1940,7 @@ void TLiquidazione_app::iva11_set_arr_pim(const TString& codatt)
// ATTENZIONE: solo per i regimi 74ter (ag. viaggio) // ATTENZIONE: solo per i regimi 74ter (ag. viaggio)
for (_plm->first();!_plm->eof();_plm->next()) for (_plm->first();!_plm->eof();_plm->next())
{ {
if (_year != *_plm_anno || *_plm_mese == "13") continue; if (_year != *_plm_anno || atoi(*_plm_mese) != 13) continue;
cur_att = *_plm_codatt; cur_att = *_plm_codatt;
cur_att.rtrim(1); cur_att.rtrim(1);
if (codatt != cur_att) continue; if (codatt != cur_att) continue;
@ -2094,9 +2094,8 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
differita = FALSE; differita = FALSE;
} }
} }
// Modifiche per PIM13
int m = (month == 13) ? 13 : 1; for (int m = 1; m <= 13; m++)
for (; m <= 13; m++)
{ {
// ciclo su tutti i mesi del caso (1 o 3; // ciclo su tutti i mesi del caso (1 o 3;
// tutti se annuale) // tutti se annuale)
@ -2106,6 +2105,9 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
look_plm(differita ? 12 : m, att); look_plm(differita ? 12 : m, att);
bool is_lim = look_lim(_isdifferita ? m+deltam : m); bool is_lim = look_lim(_isdifferita ? m+deltam : m);
// Se trattasi di annuale considera solo PLM/PUM del mese 13
if ((month == 13 && m == 13) || month != 13)
{
// gia' conteggiato: prorata // gia' conteggiato: prorata
// da conteggiare: IVA vendite ag. viaggio // da conteggiare: IVA vendite ag. viaggio
// a debito: IVA vendite, debito precedente // a debito: IVA vendite, debito precedente
@ -2144,6 +2146,24 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
risultato -= (_plm->get_real("R3") + _plm->get_real("R4")); risultato -= (_plm->get_real("R3") + _plm->get_real("R4"));
res_cred += (_plm->get_real("R3") + _plm->get_real("R4")); res_cred += (_plm->get_real("R3") + _plm->get_real("R4"));
} }
/* totalizza importi 74 ter */
if (_isviaggio)
{
// somma totali per calcolo successivo
c_iCEE += _plm->get_real("R5");
c_eCEE += _plm->get_real("R6");
a_iCEE += _plm->get_real("R7");
a_eCEE += _plm->get_real("R8");
c_mCEE += _plm->get_real("R9");
a_mCEE += _plm->get_real("R10");
a_meCEE += _plm->get_real("R11");
}
} // endif per considerare solo PLM del mese 13
// Le seguenti cose (versamenti, rettifiche e rimborsi)
// vanno considerate per tutti i mesi (tabella lim)
/* se annuale, somma versamenti mesi 1-12 /* se annuale, somma versamenti mesi 1-12
* solo una volta (non per tutte le attivita') * solo una volta (non per tutte le attivita')
*/ */
@ -2168,6 +2188,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
rimborsi += _lim->get_real("R1"); rimborsi += _lim->get_real("R1");
res_debt += _lim->get_real("R1"); res_debt += _lim->get_real("R1");
} }
/* /*
* rettifiche gia' col loro bravo segno * rettifiche gia' col loro bravo segno
*/ */
@ -2194,19 +2215,6 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
res_debt += abs(_lim->get_real("R5")); res_debt += abs(_lim->get_real("R5"));
} }
} }
/* totalizza importi 74 ter */
if (_isviaggio)
{
// somma totali per calcolo successivo
c_iCEE += _plm->get_real("R5");
c_eCEE += _plm->get_real("R6");
a_iCEE += _plm->get_real("R7");
a_eCEE += _plm->get_real("R8");
c_mCEE += _plm->get_real("R9");
a_mCEE += _plm->get_real("R10");
a_meCEE += _plm->get_real("R11");
}
} // fine ciclo sul mese } // fine ciclo sul mese
// counter attivita' per evitare troppi versamenti // counter attivita' per evitare troppi versamenti