Corretti MI6308, MI6311, MI6312, MI6313, MI6314, relativi al

nuovo prospetto agricolo: spostato lo specchietto riepilogativo
delle compensazioni dopo il prospetto agricolo. Eliminata la stampa
delle compensazioni a 0.


git-svn-id: svn://10.65.10.50/trunk@5661 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-24 17:34:50 +00:00
parent fd9ea3023a
commit 9fd0e7dbc6

View File

@ -352,7 +352,8 @@ void TLiquidazione_app::describe_agricolo(int month, const char* codatt)
p->_r1 = _pia->get_real("R1"); // Imposta
p->_s0 = *_pia_codord; // Codice iva ordinario
p->_s1 = *_pia_codcom; // Codice iva compensazione
agr_array.add(p); // Aggiunge il fottuto item agricolo
if (p->_r0 != ZERO || p->_r1 != ZERO)
agr_array.add(p); // Aggiunge il fottuto item agricolo
}
}
}
@ -1961,40 +1962,6 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
set_row(r++,"@50gPROSPETTO REGIME AGRICOLO");
set_row(r++,"");
// Last pain...
TArray& agr_array = d._arr;
const int pia_items = agr_array.items();
if (pia_items) // Se non siamo ancora nel 1998 questo vale 0, ossia non vi sono items.
{
real t1,t2; // Totale imponibile/imposta
TString des; // Descrizione codice iva ordinario
real al; // Aliquota IVA
// Stampa l' intestazione...
set_row(r++," Codice IVA@45gAliquota IVA@73gCodice IVA@88gAliquota IVA");
set_row(r++," Ordinario@45gOrdinaria@61gImponibile@73gCompensazione@88gCompensazione@108gImposta");
set_row(r++,"");
for (int i=0; i<pia_items; i++)
{
_DescrItem& di = (_DescrItem&) agr_array[i];
if (di._flags != PROGAGR)
continue;
look_iva(di._s0);
des = _iva->get("S0");
al = _iva->get_real("R0");
set_row(r,"%4s %-25s@48g%s %%", (const char*) di._s0, (const char*) des, al.string("#@,@@"));
set_row(r,"@56g%r@75g%4s",&di._r0, (const char*)di._s1);
look_iva(di._s1);
al = _iva->get_real("R0");
set_row(r++,"@92g%s %%@100g%r", al.string("#@,@@"), &di._r1);
t1 += di._r0;
t2 += di._r1;
}
// ... ed il totale minchiativo
r++;
set_row(r++,"Totale@56g%r@100g%r",&t1,&t2);
r+=2;
}
// percentuale detraibilita'
set_row(r++, "Iva vendite beni I parte Tabella A @56g%r",&agr_1);
@ -2058,6 +2025,41 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
}
set_row(r++, "Totale iva ammessa in detrazione@56g%r",&ivadt_amm);
// Last pain...
TArray& agr_array = d._arr;
const int pia_items = agr_array.items();
if (pia_items) // Se non siamo ancora nel 1998 questo vale 0, ossia non vi sono items.
{
real t1,t2; // Totale imponibile/imposta
TString des; // Descrizione codice iva ordinario
real al; // Aliquota IVA
r+=2;
// Stampa l' intestazione...
set_row(r++," Codice IVA@45gAliquota IVA@73gCodice IVA@88gAliquota IVA");
set_row(r++," Ordinario@45gOrdinaria@61gImponibile@73gCompensazione@88gCompensazione@108gImposta");
set_row(r++,"");
for (int i=0; i<pia_items; i++)
{
_DescrItem& di = (_DescrItem&) agr_array[i];
if (di._flags != PROGAGR)
continue;
look_iva(di._s0);
des = _iva->get("S0");
al = _iva->get_real("R0");
set_row(r,"%4s %-25s@48g%s %%", (const char*) di._s0, (const char*) des, al.string("#@,@@"));
set_row(r,"@56g%r@75g%4s",&di._r0, (const char*)di._s1);
look_iva(di._s1);
al = _iva->get_real("R0");
set_row(r++,"@92g%s %%@100g%r", al.string("#@,@@"), &di._r1);
t1 += di._r0;
t2 += di._r1;
}
// ... ed il totale minchiativo
r++;
set_row(r++,"Totale@56g%r@100g%r",&t1,&t2);
}
set_auto_ff(TRUE);
set_print_zero(FALSE);
}