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:
parent
fd9ea3023a
commit
9fd0e7dbc6
@ -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);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user