// ------------------------------------------------------------
// Calcolo liquidazioni
// Part 5: stampa
// fv 21-1-94
// ------------------------------------------------------------
#include <currency.h>
#include <recarray.h>
#include <utility.h>
#include "cg4300.h"
#include <attiv.h>
// flags per annuale
#define IS_PRORATA 0x0001
// minchietta per prospetto ventilazione
class _vDesc : public TObject
{
public:
TString4 _codiva;
real _acq;
real _vnd;
real _viv;
_vDesc() {}
virtual ~_vDesc() {}
};
const char* const sep =
"------------------------------------------------------------------"
"------------------------------------------------------------------";
void TLiquidazione_app::set_page(int file, int cnt)
{
_DescrItem& d = (_DescrItem&)_descr_arr[cnt];
set_auto_ff(FALSE);
reset_print();
switch(d._flags)
{
case CHG_PARMS:
set_att(d);
break;
case SET_FIRM:
set_firm(d);
break;
case PIS_ROW:
case PIM_ROW:
case PIS_ROW_D:
case PIM_ROW_D:
case PIS_ROW_DI:
case PIM_ROW_DI:
set_pim(d);
break;
case PIS_HEAD:
case PIM_HEAD:
case PIS_HEAD_D:
case PIM_HEAD_D:
case PIS_HEAD_DI:
case PIM_HEAD_DI:
set_pim_head(d);
break;
case MISC_LIQ:
set_pumpam(d);
break;
case TOT_ROW:
set_plm(d);
break;
case TOT_ROW_D:
case TOT_ROW_DI:
set_plm_diff(d);
break;
case PLAFOND:
set_plafond(d);
break;
case VENTILA:
set_ventila(d);
break;
case REGAGR:
set_regagr(d);
break;
case REGVIA:
set_viaggio(d);
break;
case THE_END:
set_grand(d);
break;
case LIQACC:
if (atoi(_year) >= 2000)
set_liqacc_2000(d);
else
set_liqacc_1999(d);
break;
case ACCONTO:
set_acconto_p(d);
break;
case ACCHEAD:
set_acchead_p(d);
break;
case DELDEB:
set_deltab(d, false);
break;
case DELCRED:
set_deltab(d, true);
break;
default:
break;
}
}
print_action TLiquidazione_app::postprocess_page(int file, int cnt)
{
if (_descr_arr.items() == 0 || cnt == _descr_arr.items()-1)
return NEXT_PAGE;
return REPEAT_PAGE;
}
bool TLiquidazione_app::preprocess_page(int file, int cnt)
{
return _descr_arr.items() != 0;
}
// ----------------------------------------------------------------
// Print description
// ----------------------------------------------------------------
void TLiquidazione_app::describe_att(int month, const char* codatt,
bool isresult, char flags)
{
TToken_string atts(codatt);
if (_isprint && _canprint)
{
describe_name(month, atts, flags);
if (atts.items() == 1 && _isplafond)
describe_plafond(month, codatt);
if (atts.items() == 1 && _isvent)
describe_ventilation(month, codatt);
if (atts.items() == 1 && _isagricolo)
describe_agricolo(month, codatt);
if (atts.items() == 1 && _isviaggio)
describe_viaggio(month, codatt);
describe_pims(month,codatt,FALSE);
if (atoi(_year) > 1997) // Descrive anche i PIS se esistono
describe_pims(month,codatt,TRUE);
if (atts.items() == 1)
describe_consistence(codatt);
}
}
void TLiquidazione_app::describe_name(int month, TToken_string& codatts, char flags)
{
_DescrItem* d = new _DescrItem(CHG_PARMS);
d->_s0 = _nditte->curr().get("CODDITTA");
d->_s1 = _nditte->curr().get("RAGSOC");
if (atoi(_year) > 2007)
{
const TString16 codateco = _nditte->curr(LF_ATTIV).get(ATT_CODATECO);
d->_s2 = codateco;
}
else
d->_s2 = _nditte->curr(LF_ATTIV).get("CODATT");
d->_s3 = codatts.items() == 1 ? (const char*)_nditte->curr(LF_ATTIV).get("DESCR") : "";
d->_s4 = _freqviva;
d->_f1 = month;
d->_f2 = _isbenzinaro;
d->_f3 = (word)flags;
if (_mixed && codatts.items() == 1)
d->_f0 = atoi(codatts.mid(5));
else d->_f0 = 0;
_descr_arr.add(d);
}
void TLiquidazione_app::describe_firm(int month)
{
if (!_isprint || !_canprint) return;
_DescrItem* d = new _DescrItem(SET_FIRM);
d->_s0 = _nditte->curr().get("CODDITTA");
d->_s1 = _nditte->curr().get("RAGSOC");
d->_s2 = _freqviva;
d->_f1 = month;
_descr_arr.add(d);
}
void TLiquidazione_app::describe_liqacc()
{
if (!_isprint || !_canprint) return;
if (!look_lia()) return;
if (_lia->get("S8") != "A") return;
_DescrItem* d = new _DescrItem(LIQACC);
d->_r0 = _lia->get_real("R7");
d->_r1 = _lia->get_real("R13");
d->_r2 = _lia->get_real("R14");
d->_r3 = _lia->get_real("R9");
d->_r4 = _lia->get_real("R10");
d->_r5 = _lia->get_real("R8");
d->_r6 = _lia->get_real("R12");
d->_r7 = _lia->get_real("R11");
d->_r8 = _lia->get_real("R4");
d->_r29 = _lia->get_real("R29");
d->_r33 = _lia->get_real("R33");
TToken_string ff(_lia->get("S1"),'!');
real cre_pre (ff.get(0));
real acq_intr (ff.get(1));
d->_r9 = cre_pre;
d->_r10 = acq_intr;
_descr_arr.add(d);
}
void TLiquidazione_app::describe_plafond(int month, const char* codatt)
{
TString att(codatt);
// prepara la descrizione del riepilogo da stampare e lo accoda
real t1, t2, t3;
_DescrItem* d = new _DescrItem(PLAFOND);
if (month == 13)
look_pla(codatt);
for (int jj = 1; jj <= 3; jj++) // three types of plafond
{
t1 = 0.0; t2 = 0.0; t3 = 0.0;
if (month < 13)
{
look_ppa(_freqviva == "M" ? month : next_trim(month) -2, codatt,jj);
t3 = _ppa->get_real("R2");
}
for (int m = 1; m <= month && m < 13; m++)
{
if (is_month_ok(m,month) && look_ppa(m,codatt,jj))
{
t1 += _ppa->get_real("R0");
t2 += _ppa->get_real("R1");
}
}
switch (jj)
{
case 1:
d->_r0 = t1; d->_r1 = t2;
d->_r2 = month < 13 ? t3 : _pla->get_real("R5");
break;
case 2:
d->_r3 = t1; d->_r4 = t2;
d->_r5 = month < 13 ? t3 : _pla->get_real("R6");
break;
case 3:
d->_r6 = t1; d->_r7 = t2;
d->_r8 = month < 13 ? t3 : _pla->get_real("R7");
break;
}
} // for tipo esenzione plafond
_descr_arr.add(d);
// bookmark
}
void TLiquidazione_app::describe_ventilation(int month, const char* codatt)
{
if (!_isvent || _isagricolo || _isviaggio) return;
_DescrItem* d = new _DescrItem(VENTILA);
TString att(codatt);
look_plm(month, att);
for (_pim->first(); !_pim->eof(); _pim->next())
{
if (strcmp(*_pim_codatt,att) != 0)
continue;
look_reg(*_pim_codreg);
look_iva(*_pim_codiva);
int tipocr = atoi(*_pim_tipocr);
int tipodet = atoi(*_pim_tipodet);
int mese = atoi(*_pim_mese);
bool corrisp = _reg->get_bool("B0");
real imponibile = _pim->get_real("R0");
real imposta = _pim->get_real("R1");
tiporeg tipomov = (tiporeg)_reg->get_long("I0");
TString tipoiva = _iva->get("S1");
if (_year != *_pim_anno || (month == 13 && mese < 13))
continue;
if (imponibile.is_zero() && imposta.is_zero()) continue;
// questi non vanno in liquidazione, i totali sono
// gia' calcolati altrove
if (tipodet == 1 || (tipodet == 3 && tipocr == 5) || tipodet == 9)
continue;
// questi non si devono vedere perche' so' bbrutti
if (tipoiva == "NS" || tipoiva == "ES" || tipoiva == "NI")
continue;
if (mese <= month)
{
if (tipocr == 1 && tipomov == acquisto)
{
// somma agli acquisti
_vDesc* vd = NULL;
for (int i = 0; i < d->_arr.items(); i++)
{
_vDesc* vv = (_vDesc*)&(d->_arr[i]);
if (strcmp(vv->_codiva,*_pim_codiva) == 0)
{ vd = vv; break; }
}
if (vd == NULL) { vd = new _vDesc; }
vd->_acq += (imponibile+imposta);
d->_r0 += (imponibile+imposta);
if (vd->_codiva.empty())
{
vd->_codiva = *_pim_codiva;
d->_arr.add(vd);
}
}
else if ((is_month_ok(mese,month) || month == 13) && corrisp
&& _pim->get_bool("B1") &&
tipocr == 0 && tipomov == vendita)
// non sono sicurissimo della above condition
{
// somma alle vendite
_vDesc* vd = NULL;
for (int i = 0; i < d->_arr.items(); i++)
{
_vDesc* vv = (_vDesc*)&(d->_arr[i]);
if (strcmp(vv->_codiva,*_pim_codiva) == 0)
{ vd = vv; break; }
}
if (vd == NULL) { vd = new _vDesc; }
vd->_vnd += imponibile;
vd->_viv += imposta;
d->_r1 += imponibile+imposta;
if (vd->_codiva.empty())
{
vd->_codiva = *_pim_codiva;
d->_arr.add(vd);
}
}
}
}
d->_r0 = _pam->get_real("R2"); // Totale acquisti
d->_r1 = _pam->get_real("R3"); // Totale vendite
if (d->_r1.is_zero() || d->_r0.is_zero())
delete d;
else
{
// Questo e' il fantastico moltiplicatore
d->_r2 = d->_r1 / d->_r0;
_descr_arr.add(d);
}
}
void TLiquidazione_app::describe_agricolo(int month, const char* codatt)
{
_DescrItem* d = new _DescrItem(REGAGR);
if (_isagr98) // Setta l'array interno con tutti gli items relativi alla tabella PIA
{
TArray& agr_array = d->_arr;
for (_pia->first(); !_pia->eof(); _pia->next()) // Scorre i progressivi agricoli
{
if (strcmp((const char*)*_pia_codatt, codatt) == 0 &&
is_month_plain(atoi(*_pia_mese)) && _year == *_pia_anno) // E sono gia' in ordine di codice...
{
_DescrItem* p = new _DescrItem(PROGAGR);
p->_r0 = _pia->get_real("R0"); // Imponibile
p->_r1 = _pia->get_real("R1"); // Imposta
p->_s0 = *_pia_codord; // Codice iva ordinario
p->_s1 = *_pia_codcom; // Codice iva compensazione
if (p->_r0 != ZERO || p->_r1 != ZERO)
agr_array.add(p); // Aggiunge il fottuto item agricolo
}
}
}
for (int mese = month == 13 ? 13 : 1; mese <= month; mese++)
{
if (!is_month_ok(mese,month))
continue;
if (!look_plm(mese, codatt))
continue;
d->_r0 += _plm->get_real("R5");
d->_r1 += _plm->get_real("R6");
d->_r2 += _plm->get_real("R7");
d->_r3 += _plm->get_real("R8");
d->_r4 += _plm->get_real("R9");
d->_r5 += _plm->get_real("R10");
d->_r6 += _plm->get_real("R11");
d->_r7 += _pum->get_real("R10");
d->_r8 += _pum->get_real("R11");
d->_r11 += _plm->get_real("R13");
}
// Aggiungo anche questi per comodita' futura.
// in caso di ditta a regime agricolo
// alias:
// _r9 mantiene la percentuale (gia' arrotondata!)
// _r10 mantiene l'iva detraibile calcolata!
d->_r9 = d->_r8 / (d->_r7 + d->_r8);
d->_r9.round(2);
d->_r10 = d->_r6 * d->_r9;
d->_r9 *= CENTO;
round_alla_lira(d->_r10, TRUE);
_descr_arr.add(d);
}
void TLiquidazione_app::describe_viaggio(int month, const char* codatt)
{
if (!look_lim(month)) return;
_DescrItem* d = new _DescrItem(REGVIA);
for (int mese = month == 13 ? 13 : 1; mese <= month; mese++)
{
if (!is_month_ok(mese,month) || !look_plm(mese, codatt))
continue;
d->_r0 += _plm->get_real("R5"); // corrispettivi CEE
d->_r1 += _plm->get_real("R9"); // corrispettivi misti CEE
d->_r2 += _plm->get_real("R6"); // corrispettivi fuori CE
d->_r3 += _plm->get_real("R7"); // acquisti CEE
d->_r4 += _plm->get_real("R10"); // acquisti misti parte CEE
d->_r5 += _plm->get_real("R8"); // acquisti fuori CEE
d->_r6 += _plm->get_real("R11"); // acquisti misti parte fuori CEE
}
// credito di costo precedente (CHECK annuale)
d->_r8 = credito_costo_prec(month);
// Solita minchiatina dell'arrotondamento alle 1000 lirette se siamo in annuale
if (month == 13 || atoi(_year) >= 2000) // CM500314 e CM500315
{
round_imposta(d->_r0);
round_imposta(d->_r1);
round_imposta(d->_r2);
round_imposta(d->_r3);
round_imposta(d->_r4);
round_imposta(d->_r5);
round_imposta(d->_r6);
round_imposta(d->_r8);
}
d->_r7 = d->_r4.is_zero() ? ZERO : (d->_r4 * CENTO)/(d->_r4 + d->_r6); d->_r7.round(2); // percentuale
d->_r9 = (d->_r1 * d->_r7)/CENTO;
if (month == 13)
round_imposta(d->_r9);
else
round_alla_lira(d->_r9);
// Calcola l'iva a debito, visto che servira' anche nel calcolo liquidazione (solo annuale)
const real aliva = aliquota_agvia();
const real alcnt = aliva + CENTO;
d->_r10 = (d->_r0 + d->_r9) - (d->_r3 + d->_r4 + d->_r8); // base imponibile lorda
if (d->_r10.sign() > 0)
{
// d->_r11 = (d->_r10/(alcnt/CENTO)) * (aliva/CENTO); // iva dovuta
d->_r11 = d->_r10 * aliva / alcnt; // iva dovuta
if (month == 13)
round_imposta(d->_r11);
else
round_alla_lira(d->_r11, TRUE);
}
_descr_arr.add(d);
}
void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool describe_pis)
// le si passa una tokenstring (o un codatt) e lei, da brava, calcola
// cumulando per tutte le attivita' nominatele
// ogni riga riguarda un codiva ma tutti i registri
// se il mese e' 13 si guarda tutto l'anno
// se si tratta di una sola attivita' in att. mista evidenziata o servizievole,
// stampa solo vendite e corrispettivi
// L'ultimo parametro serve per calcolare i PIS (progressivi del periodo successivo)
{
TToken_string atts(codatt);
TString ref(atts.items() == 1 ? codatt : "ALL");
const char* tmpatt;
int last = _descr_arr.last();
bool issosp = false;
real t0, t1, t2, t3, t4, t5, t26, t27, t28, t29, t30, t31, t32, t33;
real rt0, rt1, rt2, rt3, rt4, rt5;
real autodafe, autodafe_iva, art40, art40_iva;
real diffimp, diffiva, diffincimp, diffinciva;
real diffimp_acq, diffiva_acq, diffincimp_acq, diffinciva_acq;
bool skip_acq = atts.items() == 1 && _mixed;
// descrittore riga autodafe'
_DescrItem* ads = NULL;
// descrittore riga iva dovuta ag. viaggio'
_DescrItem* iads = NULL;
// Seleziona la tabella corretta: PIM o PIS e l'identificatore
TTable * tab = describe_pis ? _pis : _pim;
const word PIM_PIS = describe_pis ? PIS_ROW : PIM_ROW;
// questa cazzata serve per far apparire l'intestazione delle colonne
// anche se le colonne non ci sono; in tal modo si ottiene una peggior
// chiarezza, una peggiore efficienza, una gran rottura di coglioni,
// ma risulta identico al dio Sistema.
_DescrItem * hea = NULL;
_DescrItem * head = NULL;
_DescrItem * headi = NULL;
_DescrItem * tot = NULL;
_DescrItem * totd = NULL;
_DescrItem * totdi = NULL;
int totpos = 0;
// Assoc array per memorizzare i corrispettivi da scorporare. Tali corrispettivi verranno
// aggiunti alla fine del ciclo, scorrendo tutte le righe generate.
TAssoc_array corr_ann;
_CorrItem cx;
bool is_key;
// Never mind the bollox
TString codtab, codreg, codiva, activity, anno;
int mese;
while ((tmpatt = atts.get()) != NULL)
{
TString att(tmpatt);
for (tab->first(); !tab->eof(); tab->next())
{
_DescrItem* d = NULL;
// compute
codtab = tab->get("CODTAB");
anno = codtab.mid(0,4);
activity= codtab.mid(4,6);
codreg = codtab.mid(10,3);
mese = atoi(codtab.mid(13,2));
codiva = codtab.mid(16,4);
bool ok = look_reg(codreg);
ok |= look_iva(codiva);
if (!ok) continue;
tiporeg tipomov = (tiporeg)_reg->get_long("I0");
bool corrisp = _reg->get_bool("B0");
TString tipoiva = _iva->get("S1");
int tipodet = atoi(codtab.mid(20,1));
TString other = tab->get("S4");
TToken_string s1(tab->get("S1"),'!'); // Imponibile/iva fatture in ritardo
real rit_imp(s1.get(0));
real rit_iva(s1.get(1));
// if (tipomov == vendita)
// {
diffimp = _pim->get_real("R26");
diffiva = _pim->get_real("R27");
diffincimp = _pim->get_real("R28");
diffinciva = _pim->get_real("R29");
diffimp_acq = _pim->get_real("R30");
diffiva_acq = _pim->get_real("R31");
diffincimp_acq = _pim->get_real("R32");
diffinciva_acq = _pim->get_real("R33");
// }
const bool is_rit= tipodet != 0 && month == 13 && rit_imp != 0.0; //Se fattura in ritardo con tipo detr. != 0 e si sta calcolando l'annuale
const tipo_sospensione sosp_imp = _reg->get_bool("B1") ? (tipo_sospensione) _reg->get_int("I9") : nessuna;
issosp |= (sosp_imp != nessuna); // Setta il flag di presenza registri in sospensione (qualsiasi tipo: normale, vol_affari, liquidazione)
// ACHTUNG! Corrispettivi da ventileer possono ventilare
// ad un altro codiva; in tal caso si scrive quello
if (corrisp && !other.empty())
{
look_iva(other);
codiva = other;
}
// se e' corrispettivo da ventilare non
// scrivo un cannolo ripieno visto che e' stato ventilato
if (tipomov == vendita && tipoiva == "VE" && !describe_pis) continue;
// se e' il dettaglio di una attivita' mista non stampa
// gli acquisti, il perche' losalamadonna
if (tipomov == acquisto && skip_acq) continue;
// questi non vanno in liquidazione, i totali sono
// gia' calcolati altrove
if ((tipodet == 1 || tipodet == 3 || tipodet == 9) && !is_rit)
continue;
// se ha tutti gli importi nulli viene da un annullamento di
// progressivi esistenti (achtung fatture con scontrino)
if (tab->get_real("R0").is_zero() &&
tab->get_real("R1").is_zero() &&
tab->get_real("R2").is_zero() &&
tab->get_real("R5").is_zero() &&
tab->get_real("R6").is_zero() &&
tab->get_real("R26").is_zero() &&
tab->get_real("R27").is_zero() &&
tab->get_real("R28").is_zero() &&
tab->get_real("R29").is_zero() &&
tab->get_real("R30").is_zero() &&
tab->get_real("R31").is_zero() &&
tab->get_real("R32").is_zero() &&
tab->get_real("R33").is_zero())
continue;
if (activity == att && is_month_plain(mese) && _year == anno)
{
// vedi se c'e' gia' un item corrispondente
int i;
for(i = last+1; i < _descr_arr.items(); i++)
{
_DescrItem * wd = (_DescrItem*)&_descr_arr[i];
if (wd->_flags == PIM_PIS &&
wd->_s0 == ref &&
wd->_s1 == codiva)
{
d = wd;
break;
}
if (wd->_flags == TOT_ROW)
break;
if (wd->_flags == PIM_PIS &&
wd->_s0 == ref &&
wd->_s1 > codiva)
break;
}
if (d == NULL)
{
bool isfirst = (hea == NULL);
if (isfirst)
{
hea = new _DescrItem(describe_pis ? PIS_HEAD : PIM_HEAD);
hea->_f0 = skip_acq; // cosi' non compare nemmeno la colonnina! contento?
hea->_f1 = true;
_descr_arr.insert(hea, i++);
tot = new _DescrItem(TOT_ROW);
totpos = _descr_arr.insert(tot, i);
}
else
totpos++;
d = new _DescrItem(PIM_PIS);
d->_f0 = isfirst;
d->_s0 = ref;
d->_s1 = codiva;
_descr_arr.insert(d, i);
}
if (tipomov == acquisto)
{
// Ci sono anche le fatture in ritardo (solo in annuale)! Con tipo detraibilita' 1,3,9
if (sosp_imp != vol_affari)
{
d->_r4 += is_rit ? rit_imp : tab->get_real("R0");
d->_r5 += is_rit ? rit_iva : tab->get_real("R1");
t4 += is_rit ? rit_imp : tab->get_real("R0");
t5 += is_rit ? rit_iva : tab->get_real("R1");
}
// Totalizza anche quelli valevoli per vol. affari.
if (sosp_imp != liquidazione)
{
rt4 += is_rit ? rit_imp : tab->get_real("R0");
rt5 += is_rit ? rit_iva : tab->get_real("R1");
}
}
else // vendita
{
is_key = corr_ann.is_key(codiva);
cx._totale = 0;
_CorrItem& ca = is_key ? (_CorrItem&) corr_ann[codiva] : cx;
if (sosp_imp != vol_affari)
ca._totale += tab->get_real(tipoiva == "VE" ? "R2" : "R3"); // Se e' codice IVA da Vent. stiamo scorrendo i PIS: va stampato il lordo dei progressivi successivi
if (sosp_imp != liquidazione)
ca._totale_vf += tab->get_real(tipoiva == "VE" ? "R2" : "R3");
if (!is_key) // se non c'e' lo aggiunge
{
ca._aliquota = _iva->get_real("R0")/CENTO; // Se e' nuovo setta l'aliquota
corr_ann.add(codiva,ca);
}
// vedi corrispettivi veri e falsi
real cvi = tab->get_real("R0"); // imp. totale
real cvv = tab->get_real("R1"); // iva totale
real cfi = tab->get_real("R13"); // imp. falsi corrispettivi
real cfv = tab->get_real("R14"); // iva falsi corrispettivi
// MI3404...
// Giochiamo sopra la particolarita' che se non e' un registro di corrispettivi
// allora se R5 o R6 sono <> 0 significa che trattasi di documento FS,
// che pertanto va stornato dal totale corrispettivi. (Cosi' volle Vladimiro)
const real ifs(tab->get_real("R5")); // imp. fatture con scontrino
const real vfs(tab->get_real("R6")); // iva fatture con scontrino
if (!corrisp)
{
if (sosp_imp != vol_affari)
{
d->_r2 -= ifs; // tolgo FS dai corrispettivi
d->_r3 -= vfs;
t2 -= ifs; // idem per i totali
t3 -= vfs;
}
if (sosp_imp != liquidazione)
{
rt2 -= ifs;
rt3 -= vfs;
}
}
if (corrisp)
{
cvi -= cfi;
cvv -= cfv;
}
if (corrisp)
{
// usa R0 e R1 visto che la ventilazione e' gia'
// stata calcolata
if (sosp_imp != vol_affari)
{
d->_r2 += (cvi /* - ifs */); // tolgo FS dai corrispettivi
d->_r3 += (cvv /* - vfs */);
d->_r0 += ifs; // aggiungo FS alle vendite
d->_r1 += vfs;
t2 += (cvi /* - ifs */); // idem per i totali
t3 += (cvv /* - vfs */); // non sono molto convinto ma vogliono cio'
t0 += ifs; // ...avevo ragione e infatti l'ho cambiato
t1 += vfs;
}
if (sosp_imp != liquidazione)
{
rt2 += cvi;
rt3 += cvv;
rt0 += ifs;
rt1 += vfs;
}
}
if (!corrisp || (!cfv.is_zero() || !cfi.is_zero()))
{
real adf, adi; // autofatture non residenti art. 17
real va7i, va7v; // ammontare art 40 c. 5/6/8
real vendi = corrisp ? cfi : tab->get_real("R0");
real vendv = corrisp ? cfv : tab->get_real("R1");
// si scorporano solo per l'annuale, altrimenti
// vengono normalmente considerati nelle vendite
if (month == 13)
{
TToken_string kr(tab->get("S0"),'!');
va7i = kr.get(0);
va7v = kr.get(1);
adf = tab->get_real("R7");
adi = tab->get_real("R8");
}
if (sosp_imp != vol_affari)
{
d->_r0 += vendi - adf - va7i;
d->_r1 += vendv - adi - va7v;
t0 += vendi /* - adf */;
t1 += vendv /* - adi */;
}
if (sosp_imp != liquidazione)
{
rt0 += vendi;
rt1 += vendv;
}
autodafe += adf;
autodafe_iva += adi;
art40 += va7i;
art40_iva += va7v;
}
}
// if (tipomov == vendita)
// {
if (!diffimp.is_zero() || !diffiva.is_zero() ||
!diffimp_acq.is_zero() || !diffiva_acq.is_zero())
{
const word id = describe_pis ? PIS_ROW_D : PIM_ROW_D;
int j;
d = NULL;
for (j = totpos + 1; j < _descr_arr.items(); j++)
{
_DescrItem * wd = (_DescrItem*)&_descr_arr[j];
const bool found = wd->_flags == id && wd->_s0 == ref;
if (found && wd->_s1 == codiva)
{
d = wd;
break;
}
if (wd->_flags == TOT_ROW_D)
break;
if (found && wd->_s1 > codiva)
break;
}
if (d == NULL)
{
const bool isfirst = head == NULL;
if (isfirst)
{
head = new _DescrItem(describe_pis ? PIS_HEAD_D : PIM_HEAD_D);
_descr_arr.insert(head, j++);
head->_f0 = false;
head->_f1 = true;
totd = new _DescrItem(TOT_ROW_D);
_descr_arr.insert(totd, j);
}
d = new _DescrItem(id);
_descr_arr.insert(d, j);
d->_f0 = isfirst;
d->_s0 = ref;
d->_s1 = codiva;
}
d->_r26 += diffimp;
d->_r27 += diffiva;
t26 += diffimp;
t27 += diffiva;
d->_r30 += diffimp_acq;
d->_r31 += diffiva_acq;
t30 += diffimp_acq;
t31 += diffiva_acq;
}
if (!diffincimp.is_zero() || !diffinciva.is_zero() ||
!diffincimp_acq.is_zero() || !diffinciva_acq.is_zero())
{
const word id = describe_pis ? PIS_ROW_DI : PIM_ROW_DI;
int j;
d = NULL;
for (j = totpos + 1; j < _descr_arr.items(); j++)
{
_DescrItem * wd = (_DescrItem*)&_descr_arr[j];
const bool found = wd->_flags == id && wd->_s0 == ref;
if (found && wd->_s1 == codiva)
{
d = wd;
break;
}
if (wd->_flags == TOT_ROW_DI)
break;
if (found && wd->_s1 > codiva)
break;
}
if (d == NULL)
{
const bool isfirst = headi == NULL;
if (isfirst)
{
headi = new _DescrItem(describe_pis ? PIS_HEAD_DI : PIM_HEAD_DI);
_descr_arr.insert(headi, j++);
headi->_f0 = false;
headi->_f1 = true;
totdi = new _DescrItem(TOT_ROW_DI);
_descr_arr.insert(totdi, j);
}
d = new _DescrItem(id);
_descr_arr.insert(d, j);
d->_f0 = isfirst;
d->_s0 = ref;
d->_s1 = codiva;
}
d->_r28 += diffincimp;
d->_r29 += diffinciva;
t28 += diffincimp;
t29 += diffinciva;
d->_r32 += diffincimp_acq;
d->_r33 += diffinciva_acq;
t32 += diffincimp_acq;
t33 += diffinciva_acq;
}
// }
}
} // End of _pim cycle
real impc,ivac; // Aggiunge lo scorporo dei corrispettivi
const int ditems = _descr_arr.items();
for (int i=last+1;i<ditems;i++) // scorre le righe memorizzate
{
_DescrItem& dd = (_DescrItem&) _descr_arr[i];
if (corr_ann.is_key(dd._s1) && dd._flags == PIM_PIS && dd._s0 == ref) // Se esiste il codice iva corrispondente sull'array corrispettivi
{
_CorrItem& cc = (_CorrItem &) corr_ann[dd._s1];
lordo2netto(cc._totale,impc,ivac,cc._aliquota);
dd._r2 += impc; // allora effettua lo scorporo e aggiorna i totali
dd._r3 += ivac;
t2 += impc;
t3 += ivac;
// Calcola lo scorporo per quelli comprensivi/validi per Vol.affari
lordo2netto(cc._totale_vf,impc,ivac,cc._aliquota);
rt2 += impc;
rt3 += ivac;
}
}
corr_ann.destroy();
look_plm(month,att);
const real iva74t = _pom->get_real("R13");
if (!describe_pis && iva74t > ZERO)
{
if(iads == NULL) iads = new _DescrItem(PIM_ROW);
iads->_s0 = "74TER"; // cosi' vollero
iads->_s1 = "IVA "; // cosi' vollero
iads->_s2 = " dovuta - 74 ter"; // cosi' vollero
iads->_r1 += iva74t;
t1 += iva74t;
rt1 += iva74t;
iads->_f0 = false;
}
} // fine while (codatt)
if (!describe_pis && (art40.sign() > 0 || art40_iva.sign() > 0))
{
_DescrItem* ads = new _DescrItem(PIM_ROW);
ads->_s0 = ref;
ads->_s1 = "VA7";
ads->_r0 = art40;
ads->_r1 = art40_iva;
ads->_f0 = false;
_descr_arr.insert(ads, totpos++);
}
if (!describe_pis && (autodafe.sign() > 0 || autodafe_iva.sign() > 0))
{
_DescrItem* ads = new _DescrItem(PIM_ROW);
ads->_s0 = ref;
ads->_s1 = "AF"; // cosi' vollero, inoltre non e' piu' A35 ma AF, come sul dio sistema
ads->_r0 = autodafe;
ads->_r1 = autodafe_iva;
ads->_f0 = false;
_descr_arr.insert(ads, totpos++);
}
// ag. viaggio: iva dovuta 74 ter la vogliono in mezzo ai progressivi
if (iads != NULL)
_descr_arr.insert(iads, totpos++);
// prepara una bella riga di totali
if (tot != NULL)
{
tot->_r0 = t0; tot->_r1 = t1;
tot->_r2 = t2; tot->_r3 = t3;
tot->_r4 = t4; tot->_r5 = t5;
}
if (totd != NULL)
{
totd->_r26 = t26;
totd->_r27 = t27;
totd->_r30 = t30;
totd->_r31 = t31;
}
if (totdi != NULL)
{
totdi->_r28 = t28;
totdi->_r29 = t29;
totdi->_r32 = t32;
totdi->_r33 = t33;
}
// Totali progressivi da registri, comprensivi dei valori per calcolo vol affari.
if (tot != NULL && issosp) // Setta i valori (e la conseguente stampa della riga) solo se presenti registri in sospensione
{
tot->_r11 = rt0; tot->_r12 = rt1;
tot->_r13 = rt2; tot->_r14 = rt3;
tot->_s2 = rt4.string(); tot->_s3 = rt5.string();
}
// aggiunge dati ptm
_DescrItem* t = new _DescrItem(MISC_LIQ);
t->_f2 = atoi(_year) > 1997 ? describe_pis : TRUE; //isfirst; // per il form feed o meno alla fine
if (!describe_pis)
{
TToken_string ttm("0|0|0");
const bool annual = month == 13;
const int limit = annual ? 13 : month;
int m = annual ? month : 1;
for (; m <= limit; m++)
{
if (!is_month_ok(m,month)) continue;
atts.restart();
while ((tmpatt = atts.get()) != NULL)
{
TString att(tmpatt);
look_plm(m, att);
real ad1, ad2;
if (tot == NULL)
{
tot = new _DescrItem(TOT_ROW);
_descr_arr.insert(tot, -1);
}
tot->_r6 += _pom->get_real("R0"); // acq. intracomunitari
tot->_r7 += _pom->get_real("R1"); // inded. art 19
tot->_r8 += _pom->get_real("R2"); // IVA su inded. art. 19
t->_r0 += _pom->get_real("R3"); // acq. ammortizz. detr
t->_r1 += _pom->get_real("R4"); // IVA acq. ammort. detr
t->_r2 += _pum->get_real("R2"); // ammort. detr. 6%
t->_r3 += _pum->get_real("R3"); // IVA ammort detr. 6%
t->_r4 += _pom->get_real("R5"); // acq. beni rivendita
t->_r5 += _pom->get_real("R6"); // IVA acq. beni rivendita
t->_r6 += _pom->get_real("R7"); // acq. leasing
t->_r7 += _pom->get_real("R8"); // IVA acq. leasing
t->_r8 += _pum->get_real("R0"); // cessioni beni ammort.
t->_r9 += _pum->get_real("R1"); // IVA su cessioni ammort.
t->_r10 += _pum->get_real("R4"); // tot. esenti IVA
if (!annual) // Se non siamo in annuale prende il prorata su doc. acq. anno precedente
{
t->_r12 += _plm->get_real("R14");
t->_r13 = _plm->get_real("R4"); // percentuale prorata anno precedente
t->_r14 += _plm->get_real("R15");
t->_r15 = _plm->get_real("R16"); // percentuale prorata 2 anni addietro
}
t->_r11 += _plm->get_real("R2") - _plm->get_real("R14") - _plm->get_real("R15"); // pro-rata indetraibile sui doc. acq. anno attuale
// in caso di liq. annuale prende il totale (tutto R2)
ad1 = real(ttm.get(1));
ad2 = real(ttm.get(2));
ad1 += _pom->get_real("R11");
ad2 += _pom->get_real("R12");
ttm.add(_plm->get("R12"), 0); // % pro-rata anno corrente
ttm.add(ad1.string(),1); // imp. acq. amm. indetr.
ttm.add(ad2.string(),2); // IVA acq. amm. indetr
t->_s0 = ttm;
t->_f0 = _prorata.percentuale(_year)!=INVALID_PRORATA && (month != 13); // flag per segnalare l'esistenza
tot->_r9 += _pom->get_real("R9"); // acq. inded. su ricavi esenti
tot->_r10 += _pom->get_real("R10"); // IVA acq. inded. su ricavi esenti
// passaggi interni
real aipip(tot->_s0); // progressivo ...
real aipivp(tot->_s1); // ... (che mazzata sulle palle...)
aipip += _pum->get_real("R8"); // acq. inded. per pass. int
aipivp += _pum->get_real("R9"); // IVA acq. inded. per pass. int
tot->_s0 = aipip.string(); // risbatto ...
tot->_s1 = aipivp.string(); // ..
// spese generali.
real spgnp(t->_s2); // progressivo ...
real spgnvp(t->_s3); // ... (che doppia mazzata sulle palle...)
spgnp += _pam->get_real("R10"); // spese generali.
spgnvp += _pam->get_real("R11"); // IVA spese generali.
t->_s2 = spgnp.string(); // risbatto ...
t->_s3 = spgnvp.string(); // ..
// sospensione imposta: non piu' due palle, ma QUATTRO...
// caro Ferdinando... ora son divenute ben OTTO...
// grazie all'iva ad esigibilita' differita da pagare/de"TRARRE"
TToken_string tt(t->_s4);
real aqsi(tt.get(0));
real aqsv(tt.get(1));
real vnsi(tt.get(2));
real vnsv(tt.get(3));
real aqli(tt.get(4));
real aqlv(tt.get(5));
real vnli(tt.get(6));
real vnlv(tt.get(7));
aqsi += _pam->get_real("R6");
aqsv += _pam->get_real("R7");
vnsi += _pam->get_real("R8");
vnsv += _pam->get_real("R9");
aqli += _pam->get_real("R12");
aqlv += _pam->get_real("R13");
vnli += _pam->get_real("R14");
vnlv += _pam->get_real("R15");
tt = "";
tt.add(aqsi.string());
tt.add(aqsv.string());
tt.add(vnsi.string());
tt.add(vnsv.string());
tt.add(aqli.string());
tt.add(aqlv.string());
tt.add(vnli.string());
tt.add(vnlv.string());
t->_s4 = tt;
} // while (attivita')
} // for (mese ok)
// Cazzata orrenda ma necessaria CM500308
if (tot != NULL && issosp)
{
rt4 += tot->_r7; rt5 += tot->_r8; // Det 1
rt4 += tot->_r9; rt5 += tot->_r10; // Det 3
rt4 += real(tot->_s0); rt5 += real(tot->_s1); // Det 9
tot->_s2 = rt4.string(); tot->_s3 = rt5.string();
}
// annual follows in _arr
if (month == 13 && ref != "ALL")
{
// tutte quelle cose che vanno alla liquidazione annuale, come il
// calcolo del prorata o del nuovo plafond o ....
if (look_pla(codatt))
{
real v1 = _pla->get_real("R14"); // Totale imponibile vendite
real v2 = _pla->get_real("S1"); // Volume d'affari II attivit�
real ris = v1 + v2;
real e1 = _pla->get_real("R1"); // Totale vendite esenti C1
real e2 = _pla->get_real("R2"); // Totale vendite esenti C2
real e3 = _pla->get_real("R3"); // Totale vendite esenti C3
real e4 = _pla->get_real("R15"); // Totale vendite esenti C1A
real e5 = _pla->get_real("R16"); // Totale vendite beni ammortizzabili esenti C3
real e6 = _pla->get_real("R17"); // Totale vendite beni ammortizzabili esenti C1A
real bam = _pla->get_real("R4"); // Cessione beni ammortizzabili
real iaq = _pla->get_real("R11"); // IVA acquisti
real ppg = _pla->get_real("R12"); // pro-rata pagato
// calcola nuovo prorata per ogni attivita' (miste: 1+2)
real pr;
if (atoi(_year) > 1997) // Calcolo dal 1998 in poi
{
const real rsa = ris - (e3-e5) - (e4-e6);
const real rsn = rsa - e1;
if (!rsa.is_zero())
pr = CENTO - ((rsn/rsa) * CENTO); // Percentuale di indetraibilita: reciproco della percentuale di detraibilita'
}
else
{
if (!ris.is_zero())
pr = (e1/ris) * CENTO;
}
pr.round(0);
real co = 0.0;
real topay = 0.0;
//if (pr != _prorata.current())
{
// calcolo conguaglio -- se positivo e' a debito
if (pr > ZERO)
{
topay = (iaq + ppg) * (pr / CENTO);
round_imposta(topay);
}
co = topay - ppg;
round_imposta(co);
}
_DescrItem* dd = new _DescrItem(ANNUAL);
// MonsterFish: arrotonda alle 1000 LIRE C1,C2,C3,C1A
round_imposta(e1);
round_imposta(e2);
round_imposta(e3);
round_imposta(e4);
round_imposta(e5);
round_imposta(e6);
round_imposta(bam);
round_imposta(ris);
// segna flag prorata
if ((e1+e2+e3+e4) > ZERO)
dd->_f0 |= IS_PRORATA;
dd->_r0 = ris;
dd->_r1 = e1;
dd->_r2 = pr > ZERO ? pr : ZERO;
dd->_r3 = co;
dd->_r4 = e2;
dd->_r5 = e3;
dd->_r6 = topay;
dd->_r7 = e4;
dd->_r8 = e5;
dd->_r9 = e6;
t->_arr.add(dd);
}
}
}
_descr_arr.add(t);
}
void TLiquidazione_app::describe_liq(int month, const char* codatts, _DescrItem* di)
{
if (!_isprint || !_canprint)
return;
if (!look_lim(month))
return;
_DescrItem* d = new _DescrItem(THE_END);
// gli diamo la stessa struttura di LIM
d->_r0 = _lim->get_real("R0"); // Risultato
d->_r1 = _lim->get_real("R1"); // Rimborso
d->_r2 = _lim->get_real("R2");
d->_r3 = _lim->get_real("R3");
d->_r4 = _lim->get_real("R4");
d->_r5 = _lim->get_real("R5"); // rettifiche
d->_r6 = _lim->get_real("R6");
d->_r7 = _lim->get_real("R14");
d->_r9 = _lim->get_real("R9");
d->_r29 = _lim->get_real("R29");
d->_r33 = _lim->get_real("R33");
if (atoi(_year) <= 1997) // Dal 1998 in poi il conguaglio prorata non va stampato, ma conglobato nell'iva acquisti
d->_r10 = _lim->get_real("R7"); // totale conguaglio prorata
TToken_string tt(80);
tt.add(_lam->get_real("R0").string()); // IVA Vendite
tt.add(_lam->get_real("R1").string()); // IVA Acquisti
tt.add(_lam->get_real("R2").string()); // Credito precedente
tt.add(_lam->get_real("R3").string()); // Debito precedente
tt.add(_lam->get_real("R4").string());
d->_s0 = tt;
d->_s1 = _lim->get_real("R11").string(); // Acc. dec.
d->_s2 = _lim->get_real("R12").string();
d->_s3 = _lim->get_real("R13").string();
// descrizione rettifiche
if (month < 13)
{
d->_s4 = _lim->get("S0");
d->_s5 = _lim->get("S1");
d->_s6 = _lim->get("S2");
}
d->_r11 = _lim->get_real("R10"); // tasso di interesse (Non arrotondare!)
d->_r15 = _lim->get_real("R15"); // Credito utilizzato IVA
d->_r16 = _lim->get_real("R16"); // Credito utilizzato F24
d->_r17 = _lim->get_real("R17"); // Variazioni d'imposta
d->_r18 = _lim->get_real("R18"); // Imposta non versata
d->_r19 = _lim->get_real("R19"); // Crediti speciali
d->_f1 = is_first_month(month);
// rispettiamo tutte le casistiche per i versamenti se non siamo in visualizzazione
// analogamente in Visualizzazione ma solo nel caso dell'annuale.
// In tutti gli altri casi va a cercare la delega
d->_r8 = (_month == 13 || !_is_visliq) ? _lim->get_real("R8") : versamenti_IVA(_month, "1");
if (_month == 13)
{
const int anno_prossimo = atoi(_year)+1;
if (look_lia(0l, FALSE, anno_prossimo))
d->_r20 = _lia->get_real("R0"); // Credito da riportare all'anno prossimo
}
// aggiunge eventuale satellite per rimborso infraannuale
if (di != NULL)
{
if (d->_r0.sign() < 0)
d->_arr.add(di);
else
delete di;
}
if (!_is_visliq)
{
_DescrItem* dv = describe_deleghe(month);
if (dv != NULL) d->_arr.add(dv);
}
_descr_arr.add(d);
}
_DescrItem* TLiquidazione_app::describe_deleghe(int month)
{
_stampa_vers = _stampa_acc = FALSE;
if (_lim->get_real("R0") > ZERO)
{
real iva = _lim->get_real("R0") + _lim->get_real("R14");
if (month == 13)
round_imposta(iva);
if (iva >= iva_da_riportare(_month))
_stampa_vers = TRUE;
}
_stampa_acc = (month == 12 && (_freqviva == "M" || (_isbenzinaro && _gest4)))
||(month == 13 && _freqviva == "T" && !(_isbenzinaro && _gest4));
if (!_stampa_vers && !(_stampa_acc && look_del(12,7))) return NULL;
_DescrItem* d = new _DescrItem(DELEGA);
d->_f0 = 0;
//prospettino versamento
if (_stampa_vers) //solo se sono a debito
if (look_del(month,month == 13 ? 2 : 1))
{
if (_del->get_bool("B0"))
{
//_del->S2 descr. ufficio iva/concessione
//_del->S1 descrizione banca
d->_s0 = _del->get("S9"); // Cod Ufficio concessione
d->_s1 = _del->get("S7"); // Cod ABI
d->_s2 = _del->get("S8"); // Cod CAB
d->_r0 = _del->get_real("R0");
d->_d0 = _del->get_date("D0");
} // altrimenti lascia tutto in bianco e ci scriveranno i dati a mano
}
//prospettino acconto
if ( (month == 12 && (_freqviva == "M" || (_isbenzinaro && _gest4)))
|| (month == 13 && _freqviva == "T" && !(_isbenzinaro && _gest4)) )
if (look_del(12,7)) //sia che sia a debito che a credito
{
d->_s4 = "ACC";
TToken_string t;
if (_del->get_bool("B0"))
{
//_del->S2 descr. ufficio iva/concessione
//_del->S1 descrizione banca
t.add(_del->get("S9")); // Cod Conc
t.add(_del->get("S7")); // Cod ABI
t.add(_del->get("S8")); // Cod CAB
t.add(_del->get_real("R0").string());
t.add(_del->get("D0"));
}
d->_s5 = t;
}
return d;
}
void TLiquidazione_app::describe_consistence(const char* codatt)
{
// controlla eventuali condizioni di conflitto con le normative
// per la ditta e crea i messaggi appropriati
// tutte le condizioni sono valutate sull'esercizio precedente
int pryear = atoi(_year) - 1;
TString att = codatt;
_pla->zero();
*_pla_ditta = get_firm();
*_pla_anno = pryear;
*_pla_codatt = att;
if (_pla->read() == NOERR)
{
real va = _pla->get_real("R0");
// 1) consistenza volume d'affari <-> frequenza versamenti
// deve essere: trimestrale ammesso solo se < 360.000.000
// per servizi, < 1.000.000.000 per altre imprese
// a meno che non sia benzinaro che ha diritto comunque
if (_freqviva == "T" && !_isbenzinaro)
{
bool err = FALSE;
if (_isservizio) err = va > SOGLIA_TRIM_SERVIZI;
else err = va > SOGLIA_TRIM_ALTRE;
if (err)
describe_error(TR("Incoerenza volume affari/frequenza versamenti"),
att);
}
}
}
void TLiquidazione_app::describe_error(const char* err, const char* codatt)
{
if (!_isprint || !_canprint || (_isregis && _isfinal)) return;
_errors.add(new _ErrItem(err,codatt,_nditte->curr().get("CODDITTA")));
}
// ----------------------------------------------------------------
// Setrows
// ----------------------------------------------------------------
void TLiquidazione_app::set_firm(_DescrItem& d)
{
TString tim_title(80);
tim_title << TR("Liquidazione IVA");
if (d._f1 == 13)
tim_title << format(FR(": Riepilogo Annuale %s"),(const char*)_year);
else
{
if (d._s2 == "T")
tim_title << format(FR(" del %d� Trimestre %s"), d._f1/3, (const char *) _year);
else
tim_title << format(FR(" del mese di %s %s"), itom(d._f1),
(const char*)_year);
}
reset_header();
int soh = 1;
if (!_isregis)
{
set_header(soh++,FR("Ditta %s %s@107gData @>@125gPag. @#"),
(const char*)(d._s0), (const char*)(d._s1));
set_header(soh++,"");
}
set_header(soh++,sep);
set_header(soh++,FR("%s@102gFrequenza %s"),
(const char*)tim_title,
d._s2 == "T" ? TR("Trimestrale") : TR("Mensile"));
set_header(soh++,sep);
set_header(soh++,"");
// notify errors if any
int j = 0;
int i;
for (i = 0; i < _errors.items(); i++)
{
_ErrItem& s = (_ErrItem&)_errors[i];
if (s._att == "ALL" && s._firm == d._s0)
{ j++; set_row(i+3, "@5g@b*** %s ***@r", (const char*)s._err); }
}
if (j) set_row(i+3,"");
}
void TLiquidazione_app::set_att(_DescrItem& d)
{
// set header
TString tim_title(78);
TString att_title(48);
// Bookmark
TString book_name(d._s3);
char flags = (char)d._f3;
if (flags == '1') book_name << TR(" (servizi)");
else if (flags == '2') book_name << TR(" (altre)");
else if (flags == 'M') book_name = TR("Riepilogo att. mista");
else if (flags == 'Q') book_name = TR("Riepilogo quater");
if (_firm_bookmark == -1)
_firm_bookmark = set_bookmark(d._s1);
_att_bookmark = set_bookmark(book_name, _firm_bookmark);
tim_title << TR("Liquidazione IVA");
if (d._f1 == 13)
{
if (d._s4 == "T" && !(d._f2)) // trimestrale e non benzinaro
tim_title << format(FR(": Riepilogo Annuale %s"),(const char*)_year);
else
tim_title << format(FR(": Dichiarazione Annuale %s"),(const char*)_year);
}
else
{
if (d._s4 == "T")
tim_title << format(FR(" del %d� Trimestre %s"), d._f1/3, (const char *) _year);
else
tim_title << format(FR(" del mese di %s %s"), itom(d._f1),
(const char*)_year);
}
TString tipatt;
if (d._f0 > 0)
tipatt.format(d._f0 == 1 ? TR("SERVIZI") : TR("ALTRE ATTIVITA'"));
if (d._s3.empty())
{
att_title = flags == 'M' ? TR("Riepilogo attivita' mista") :
TR("Riepilogo quater");
// att_title << d._s2;
}
else
att_title = format(FR("Attivita' %s %s %s"),
(const char*)(d._s2),
(const char*)(d._s3),
(const char*)tipatt);
reset_header();
int soh = 1;
if (!_isregis)
{
set_header(soh++,FR("Ditta %s %s@107gData @>@125gPag. @#"),
(const char*)(d._s0), (const char*)(d._s1));
set_header(soh++,"");
}
set_header(soh++,sep);
set_header(soh++,"%s@55g%s", (const char*)tim_title, (const char*)att_title);
set_header(soh++,sep);
set_header(soh++,"");
// notify errors if any
int j = 0;
for (int i = 0; i < _errors.items(); i++)
{
_ErrItem& s = (_ErrItem&)_errors[i];
if (d._s2 == s._att && s._firm == d._s0)
{ j++; set_row(i+10, "@5g@b*** %s ***@r", (const char*)s._err); }
}
if (j) set_auto_ff(TRUE);
}
void TLiquidazione_app::set_plafond(_DescrItem& d)
{
// In caso di stampa liquidazione da stampa registri, il prospetto plafond
// complessivo va evidenziato in testa; solo nel caso di trimestrali.
if (_isregis && _freqviva == "M") return;
set_bookmark(TR("Quadro plafond"), _att_bookmark);
real r1 = d._r1 + d._r0;
real r2 = d._r4 + d._r3;
real r3 = d._r7 + d._r6;
real disponibile = d._r2 + d._r5 + d._r8;
real riporto = disponibile - r1 - r2 -r3;
set_print_zero(TRUE);
set_row(1,TR("QUADRO RELATIVO ALLA DISPONIBILITA' ED ALL'UTILIZZO "
"MENSILE DEI PLAFONDS"));
set_row(2,"");
set_row(3,FR("@31gDisponibile@48g%r"), &(disponibile));
set_row(4,TR("Art. 8 1� comma lettere a-b"));
set_row(5,FR("Utilizzato all'interno@48g%r"), &(d._r0));
set_row(6,FR("Utilizzato per l'importazione@48g%r"),&(d._r1));
set_row(7,"");
set_row(8,TR("Art. 8bis 1� comma"));
set_row(9,FR("Utilizzato all'interno@48g%r"), &(d._r3));
set_row(10,FR("Utilizzato per l'importazione@48g%r"), &(d._r4));
set_row(11,"");
set_row(12,TR("Art. 9 1� comma"));
set_row(13,FR("Utilizzato all'interno@48g%r"), &(d._r6));
set_row(14,FR("Utilizzato per l'importazione@48g%r"), &(d._r7) );
set_row(15,FR("@31gRiporto@48g%r"), &(riporto));
set_print_zero(FALSE);
set_auto_ff();
}
void TLiquidazione_app::set_liqacc_1999(_DescrItem& d)
{
real r1 = d._r0 + d._r1 + d._r2 + d._r4;
//real r2 = d._r5 + d._r10;
real r2 = d._r5; //MI2258 (A me sembra una cagata, ma con certa gente non si riesce a parlare)
real r3 = r2 + d._r9 + d._r7;
if ((d._r3).sign() > 0) r1 += d._r3;
else r3 += abs(d._r3);
set_row(1,""); set_row(2,""); set_row(3,""); set_row(4,"");
set_row(5,FR("@11gCALCOLO ACCONTO SU OPERAZIONI EFFETTUATE"));
set_row(6,"");
set_row(7,FR("@72gCredito@90gDebito")); set_row(8,"");
if (!_isdiffacc)
set_row(9,FR("@11gIva sulle operazioni annotate fino al 20 Dicembre@81g%r"), &(d._r0));
else
set_row(9,FR("@11gIva sulle operazioni di vendita@81g%r"), &(d._r0));
int i = 10;
if (!_isdiffacc)
{
set_row(i++,FR("@11gIva su operazioni fino al 20 Dic., ma non fatturate@81g%r"), &(d._r1));
set_row(i++,FR("@11gIva su operazioni fino al 20 Dic., ma non annotate@81g%r"), &(d._r2));
}
set_row(i,FR("@11gRettifiche iva a debito"));
if (d._r3.sign() > 0)
set_row(i,"@81g%r", &(d._r3));
i++;
set_row(i++,FR("@11gIva chiesta a rimborso@81g%r"), &(d._r4));
set_row(i++,FR("@11gRISULTATO@81g%r"), &r1);
if (!_isdiffacc)
set_row(i++,FR("@11gIva sugli acquisti annotati fino al 20 Dicembre@64g%r"), &r2);
else
set_row(i++,FR("@11gIva sulle operazioni di acquisto@64g%r"), &r2);
if (d._r6 != ZERO)
set_row(i++,FR("@11gmeno perc. di prorata pari a lire %r"), &(d._r6));
set_row(i++, FR("@11gCredito precedente@64g%r"), &(d._r9));
set_row(i, FR("@11gRettifiche iva a credito"));
if ((d._r3).sign() <= 0)
{
real ab = abs(d._r3);
set_row(i,"@64g%r", &ab);
}
i++;
set_row(i++,FR("@11gRISULTATO@64g%r"), &r3);
if ((d._r8).sign() < 0)
{
real ab = abs(d._r8);
set_row(i++,FR("@23gCREDITO DA EVIDENZIARE@64g%r"), &ab);
}
else if ((d._r8).sign() > 0 && d._r8 > _ver->get(I_ACCONTOIVA))
set_row(i++,FR("@23gACCONTO DA VERSARE@81g%r"), &(d._r8));
else if ((d._r8).sign() > 0 && d._r8 <= _ver->get(I_ACCONTOIVA))
set_row(i++,FR("@23gACCONTO DA NON VERSARE@64g%r"), &(d._r8));
set_auto_ff();
}
void TLiquidazione_app::set_liqacc_2000(_DescrItem& d)
{
set_row(1,""); set_row(2,""); set_row(3,""); set_row(4,"");
set_row(5,FR("@11gCALCOLO ACCONTO SU OPERAZIONI EFFETTUATE"));
if (!_isdiffacc)
set_row(5,TR(" FINO AL 20 DICEMBRE"));
set_row(6,"");
set_row(7,FR("@72gCredito@90gDebito")); set_row(8,"");
if (d._r3 > ZERO)
d._r0 += d._r3; // Aggiungi rettifiche a debito
int i = 9;
if (!_isdiffacc)
{
set_row(i++,FR("@11gIva esigibile fino al 20/12@81g%r"), &d._r0);
if (d._r29 > ZERO)
set_row(i++,FR("@11gIVA a liquidazione differita incassata fino al 20/12@75g%r"), &d._r29);
if (d._r33 > ZERO)
set_row(i++,FR("@11gIVA a liquidazione differita pagata fino al 20/12@64g%r"), &d._r33);
}
else
{
set_row(i++,FR("@11gIva sulle operazioni di vendita@81g%r"), &d._r0);
if (d._r29 > ZERO)
set_row(i++,FR("@11gIVA a liquidazione differita incassata@75g%r"), &d._r29);
if (d._r33 > ZERO)
set_row(i++,FR("@11gIVA a liquidazione differita pagata@64g%r"), &d._r33);
}
if (!_isdiffacc)
{
set_row(i++,FR("@11gIva esigibile fino al 20/12 di cui non fatturata@81g%r"), &d._r1);
set_row(i++,FR("@11gIva esigibile fino al 20/12 di cui non annotata@81g%r"), &d._r2);
}
if (d._r3 < ZERO)
d._r5 -= d._r3; // Aggiungi rettifiche a credito
if (!_isdiffacc)
set_row(i++,FR("@11gIva che si detrae fino al 20/12@64g%r"), &d._r5);
else
set_row(i++,FR("@11gIva sulle operazioni di acquisto@64g%r"), &d._r5);
set_row(i,FR("@11gIVA a debito/credito per il periodo"));
real iva_dov_cre = d._r0 + d._r1 + d._r2 - d._r5;
if (iva_dov_cre >= ZERO)
set_row(i++,"@81g%r", &iva_dov_cre);
else
{
const real tmp = -iva_dov_cre;
set_row(i++,"@64g%r", &tmp);
}
set_row(i++, FR("@11gDebito/Credito da periodo precedente@64g%r"), &d._r9);
set_row(i,FR("@11gIVA Dovuta o a Credito"));
const real risultato = iva_dov_cre - d._r9;
if (risultato >= ZERO)
set_row(i++,"@81g%r", &risultato);
else
{
const real tmp = -risultato;
set_row(i++,"@64g%r", &tmp);
}
// Acconto
if (d._r8 < ZERO)
{
const real ab = abs(d._r8);
set_row(i++,FR("@23gCREDITO DA EVIDENZIARE@64g%r"), &ab);
}
else if (d._r8 > ZERO)
{
const real acconto_minimo = _ver->get(I_ACCONTOIVA);
if (d._r8 > acconto_minimo)
set_row(i++,FR("@23gACCONTO DA VERSARE@81g%r"), &d._r8);
else
set_row(i++,FR("@23gACCONTO DA NON VERSARE@81g%r"), &d._r8);
}
set_auto_ff();
}
void TLiquidazione_app::set_pim_head(_DescrItem& d)
{
int r = 1;
if (d._flags == PIM_HEAD)
set_bookmark(TR("Riepilogo progressivi"), _att_bookmark);
else
{
set_row(r++,"");
if (d._flags == PIM_HEAD_D)
{
set_row(r++, TR("Fatture a liquidazione differita da incassare"));
set_bookmark(TR("Riepilogo progressivi a liquidazione differita"), _att_bookmark);
}
else
if (d._flags == PIM_HEAD_DI)
{
set_row(r++, TR("Fatture a liquidazione differita incassate"));
set_bookmark(TR("Riepilogo progressivi a liquidazione differita incassati"), _att_bookmark);
}
else // PIS_HEAD
{
if (d._flags == PIS_HEAD)
{
set_row(r++,TR(" Di cui da periodo successivo"));
set_row(r++,"");
set_bookmark(TR("Riepilogo progressivi successivi"), _att_bookmark);
}
else
if (d._flags == PIS_HEAD_D)
{
set_row(r++, TR("Fatture a liquidazione differita da incassare"));
set_bookmark(TR("Riepilogo progressivi successivi a liquidazione differita"), _att_bookmark);
}
else
if (d._flags == PIS_HEAD_DI)
{
set_row(r++, TR("Fatture a liquidazione differita incassate"));
set_bookmark(TR("Riepilogo progressivi successivi a liquidazione differita incassati"), _att_bookmark);
}
}
set_row(r++,"");
}
if (d._f0)
{
if (d._flags == PIM_HEAD || d._flags == PIS_HEAD)
{
set_row(r++,FR(" Cod.@41gVENDITE@71gCORRISPETTIVI"));
set_row(r++,FR(" IVA Descrizione@30gImponibile@49gImposta@63gImponibile@82gImposta"));
set_row(r,"");
}
/* else
{
set_row(r++,FR(" Cod.@41gVENDITE"));
set_row(r++,FR(" IVA Descrizione@30gImponibile@49gImposta"));
} */
}
else
{
if (d._flags == PIM_HEAD || d._flags == PIS_HEAD)
{
set_row(r++,FR(" Cod.@41gVENDITE@71gCORRISPETTIVI@106gACQUISTI"));
set_row(r++,FR(" IVA Descrizione@30gImponibile@49gImposta@63gImponibile"
"@82gImposta@96gImponibile@115gImposta"));
set_row(r,"");
}
/* else
{
set_row(r++,FR(" Cod.@41gVENDITE"));
set_row(r++,FR(" IVA Descrizione@30gImponibile@49gImposta"));
} */
}
}
void TLiquidazione_app::set_pim(_DescrItem& d)
{
// succede con le autocazzate non residenti non movimentate eccetera
const bool a = (d._r0 + d._r1) == ZERO;
const bool b = (d._r2 + d._r3) == ZERO;
const bool c = (d._r4 + d._r5) == ZERO;
const bool e = (d._r26 + d._r27) == ZERO;
const bool f = (d._r28 + d._r29) == ZERO;
const bool g = (d._r30 + d._r31) == ZERO;
const bool h = (d._r32 + d._r33) == ZERO;
if (a && b && c && e && f && g && h)
return;
int rw = 1;
if (d._s1 == "AF") //Il dio sistema colpisce ancora, non va bene A35, ma AF...
d._s2 = TR("Artt.17c3/74c1"); // La descrizione non la metto uguale perche' cosi e' piu' fika
else if (d._s1 == "VA7") // Sempre per merito del dio sistema ho dovuto aggiungere VA7.
d._s2 = TR("Art.40c5/6/8 a.i.");
else if (d._s0 == "74TER")
rw++;
else
{
look_iva(d._s1);
d._s2 = _iva->get("S0");
if (d._s2.len() > 19) d._s2.cut(19);
}
if (d._flags == PIM_ROW || d._flags == PIS_ROW)
{
set_row(rw++,"%4s %s@25g%r@41g%r@58g%r@74g%r@91g%r@107g%r",
(const char*)d._s1, (const char*)d._s2,
&(d._r0), &(d._r1), &(d._r2), &(d._r3), &(d._r4), &(d._r5));
}
else
if (d._flags == PIM_ROW_D || d._flags == PIS_ROW_D)
{
set_row(rw++,"%4s %s@25g%r@41g%r@91g%r@107g%r",
(const char*)d._s1, (const char*)d._s2,
&(d._r26), &(d._r27), &(d._r30), &(d._r31));
}
else
if (d._flags == PIM_ROW_DI || d._flags == PIS_ROW_DI)
{
set_row(rw++,"%4s %s@25g%r@41g%r@91g%r@107g%r",
(const char*)d._s1, (const char*)d._s2,
&(d._r28), &(d._r29), &(d._r32), &(d._r33));
}
}
void TLiquidazione_app::set_plm_diff(_DescrItem& d)
{
int rw = 1;
set_row(rw++,""); set_row(rw++,"");
if (d._flags == TOT_ROW_D)
set_row(rw++,FR("Totale@25g%r@41g%r@91g%r@107g%r"), &(d._r26), &(d._r27), &(d._r30), &(d._r31));
else
set_row(rw++,FR("Totale@25g%r@41g%r@91g%r@107g%r"), &(d._r28), &(d._r29), &(d._r32), &(d._r33));
set_row(rw++,"");
}
void TLiquidazione_app::set_plm(_DescrItem& d)
{
int rw = 1;
if (!(d._r0.is_zero() &&
d._r1.is_zero() &&
d._r2.is_zero() &&
d._r3.is_zero() &&
d._r4.is_zero() &&
d._r5.is_zero()))
{
set_row(rw++,""); set_row(rw++,"");
set_row(rw++,FR("Totale@25g%r@41g%r@58g%r@74g%r@91g%r@107g%r"),
&(d._r0),
&(d._r1),
&(d._r2),
&(d._r3),
&(d._r4),
&(d._r5));
set_row(rw++,"");
}
if (!(d._r7.is_zero() && d._r8.is_zero()))
{
set_row(rw++,FR("Totale acquisti indeducibili per art.19@91g%r@107g%r"),
&(d._r7), &(d._r8));
}
if (! (d._r9.is_zero() && d._r10.is_zero()))
{
set_row(rw++, FR("Totale acquisti indeducibili su ricavi esenti@91g%r@107g%r"),
&(d._r9),
&(d._r10));
}
real acq_pint(d._s0);
real acq_pint_iva(d._s1);
if (! (acq_pint.is_zero() && acq_pint_iva.is_zero()))
{
set_row(rw++, FR("Totale acquisti indeducibili per passaggi interni@91g%r@107g%r"),
&acq_pint,
&acq_pint_iva);
}
real tot1 = d._r7 + d._r4 + d._r9 + acq_pint;
real tot2 = d._r8 + d._r5 + d._r10 + acq_pint_iva;
if (tot1 != d._r4 || tot2 != d._r5)
{
// i corrispettivi finiscono nelle vendite
d._r0 += d._r2;
d._r1 += d._r3;
d._r2 = ZERO;
d._r3 = ZERO;
// per ora lascio r2 e r3 anche se sono sempre 0
set_row(rw++, "");
set_row(rw++,FR("Totale Generale IVA@25g%r@41g%r@58g%r@74g%r@91g%r@107g%r"),
&(d._r0),
&(d._r1),
&(d._r2),
&(d._r3),
&tot1,
&tot2);
}
// Stampa il totale progressivo da registri, comprensivo dei movimenti valevoli per il calcolo vol. affari.
real pr_imp(d._s2);
real pr_iva(d._s3);
if (!(d._r11.is_zero() &&
d._r12.is_zero() &&
d._r13.is_zero() &&
d._r14.is_zero() &&
pr_imp.is_zero() &&
pr_iva.is_zero()))
{
set_row(rw++,""); set_row(rw++,"");
set_row(rw++,FR("Totale Prog. da registri@25g%r@41g%r@58g%r@74g%r@91g%r@107g%r"),
&(d._r11),
&(d._r12),
&(d._r13),
&(d._r14),
&(pr_imp),
&(pr_iva));
set_row(rw++,"");
}
}
void TLiquidazione_app::set_pumpam(_DescrItem& d)
{
bool printed = FALSE;
// d._f1 dice se c'era qualcosa sopra nella stessa pagina
real spgn(d._s2);
real spgn_iva(d._s3);
TToken_string tt(d._s4); // Token String
TToken_string dp(d._s0); // Due Palle
real aqsi(tt.get(0));
real aqsv(tt.get(1));
real vnsi(tt.get(2));
real vnsv(tt.get(3));
real aqli(tt.get(4));
real aqlv(tt.get(5));
real vnli(tt.get(6));
real vnlv(tt.get(7));
real ammindi(dp.get(1));
real ammindv(dp.get(2));
int row = 5;
if (!(aqsi.is_zero() && aqsv.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Acquisti in sospensione di imposta@50g%r@69g%r"),
&aqsi,
&aqsv);
}
if (!(vnsi.is_zero() && vnsv.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Vendite in sospensione di imposta@50g%r@69g%r"),
&vnsi,
&vnsv);
}
if (!(aqli.is_zero() && aqlv.is_zero()))
{
printed = TRUE;
set_row(row++, FR("IVA ad esigibilit� differ. da detrarre nel periodo@50g%r@69g%r"),
&aqli,
&aqlv);
}
if (!(vnli.is_zero() && vnlv.is_zero()))
{
printed = TRUE;
set_row(row++, FR("IVA ad esigibilit� differ. da pagare nel periodo@50g%r@69g%r"),
&vnli,
&vnlv);
}
if (!(d._r8.is_zero() && d._r9.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Cessione beni ammortizzabili@50g%r@69g%r"),
&(d._r8),
&(d._r9));
}
if (! (d._r4.is_zero() && d._r5.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Acquisto beni destinati alla rivendita@50g%r@69g%r"),
&(d._r4),
&(d._r5));
}
if (! (ammindi.is_zero() && ammindv.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Acquisto beni ammortizzabili IVA indetraibile@50g%r@69g%r"),
&ammindi,
&ammindv);
}
if (! (d._r0.is_zero() && d._r1.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Acquisto beni ammortizzabili IVA detraibile@50g%r@69g%r"),
&(d._r0),
&(d._r1));
}
if (!(d._r6.is_zero() && d._r7.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Altri beni strumentali acquisiti in leasing@50g%r@69g%r"),
&(d._r6),
&(d._r7));
}
if (!(d._r2.is_zero() && d._r3.is_zero()))
{
printed = TRUE;
// real rn = d._r2 * real(DETRAZIONE_6PERCENTO); // Detrazione obsoleta CM500344
set_row(row++, FR("Acquisto beni soggetti a detrazione (6%%)"
"@50g%r@69g%r"), &(d._r2), &(d._r3));
}
if (!(spgn.is_zero() && spgn_iva.is_zero()))
{
printed = TRUE;
set_row(row++, FR("Spese generali@50g%r@69g%r"),
&spgn,
&spgn_iva);
}
// Prorata...
int yy = atoi(_year);
if (d._f0)
{
printed = TRUE;
if (yy > 1997) // prorata 1998
{
real prc(dp.get(0));
real rprc = CENTO - prc;
TString ss(rprc.string());
set_row(row++, FR("%% PRO-RATA (%s%%) ed IVA non detraibile (%s%%)@69g%r"),
(const char*) ss, (const char*)prc.string(), &(d._r11));
yy-=2;
if (d._r13 != INVALID_PRORATA && d._r12 != ZERO)
{
rprc = CENTO - d._r13;
ss = rprc.string();
set_row(row++, FR("%% PRO-RATA %d (%s%%) ed IVA non detraibile (%s%%)@69g%r"),
yy, (const char*) ss, (const char*)d._r13.string(), &(d._r12));
}
else
if (!_isfinal && d._r13 == INVALID_PRORATA_ASSERT)
set_row(row++, FR("Impossibile reperire la %% PRO-RATA relativa all'anno %d."), yy);
yy--;
if (d._r15 != INVALID_PRORATA && d._r14 != ZERO)
{
rprc = CENTO - d._r15;
ss = rprc.string();
set_row(row++, FR("%% PRO-RATA %d (%s%%) ed IVA non detraibile (%s%%)@69g%r"),
yy, (const char*) ss, (const char*)d._r15.string(), &(d._r14));
}
else
if (!_isfinal && d._r15 == INVALID_PRORATA_ASSERT)
set_row(row++, FR("Impossibile reperire la %% PRO-RATA relativa all'anno %d."), yy);
}
else
{
real prc(dp.get(0));
set_row(row++, FR("%% PRO-RATA ed IVA non detraibile (%s%%)@69g%r"),
(const char*)prc.string(), &(d._r11));
}
}
// items vari per dichiarazione annuale
for (int i = 0; i < d._arr.items(); i++)
{
_DescrItem& dd = (_DescrItem&)d._arr[i];
printed |= set_annual(dd);
}
if (printed)
{
set_bookmark(TR("Altri dati"), _att_bookmark);
set_row(1,"");
set_row(2,"");
set_row(3,FR("ALTRI DATI RELATIVI ALLA DICHIARAZIONE@55gimponibile"
"@77gimposta@91gdetrazione"));
set_row(4,"");
set_row(row++,"");
set_row(row,"");
}
else
set_row(1,"");
// form feed
if (d._f2)
set_auto_ff(TRUE);
}
void TLiquidazione_app::set_grand_1999(_DescrItem& d, int& rw)
{
real& risultato = d._r0;
real& rimborso = d._r1;
real& cred_cost = d._r2;
real& deb_mens = d._r3;
real& rettifiche = d._r5;
real& detrazioni = d._r6;
real& interessi = d._r7;
real& versamenti = d._r8;
real& vers_int = d._r9;
real& conguaglio = d._r10;
TToken_string tt(d._s0);
real iva_vend(tt.get(0));
real iva_acq(tt.get(1));
real cred_prec(tt.get(2));
real debt_prec(tt.get(3));
real cred_trasf(tt.get(4)); cred_trasf = -cred_trasf;
real acc_dec(d._s1);
real res_cred(d._s2);
real res_debt(d._s3);
real rett_debt(0.0);
real rett_cred(0.0);
real& interesse = d._r11;
if (rettifiche.sign() > 0) rett_debt = rettifiche;
if (rettifiche.sign() < 0) rett_cred = -rettifiche;
set_row(rw++,FR(" @66gCredito@84gDebito")); set_row(rw++,"");
set_row(rw++,FR("@11gIva sulle operazioni di vendita@75g%r"), &iva_vend);
set_row(rw++,FR("%s@11gRettifiche IVA a debito%s@75g%r"),
_is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &rett_debt);
set_row(rw++,FR("%s@11gIva chiesta a rimborso%s@75g%r"),
_is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &rimborso);
// conguaglio prorata
if (conguaglio.sign() > 0)
set_row(rw++,FR("@11gConguaglio pro-rata@75g%r"), &conguaglio);
// debito liq. precedente < 50000
if (debt_prec > ZERO)
set_row(rw++,FR("@11gDebito da liquidazione precedente@75g%r"), &debt_prec);
set_row(rw++,FR("@11gRISULTATO@75g%r"), &res_debt);
set_row(rw++,FR("@11gIva ammessa in detrazione@58g%r"), &iva_acq);
if (_isannual || d._f1)
{
set_row(rw++,FR("@11gCredito inizio anno@58g%r"), &cred_prec);
if (cred_trasf != ZERO)
set_row(rw++,FR("@11gCredito trasferito @58g%r"), &cred_trasf);
}
else
set_row(rw++,FR("@11gCredito precedente@58g%r"), &cred_prec);
if (!acc_dec.is_zero())
set_row(rw++,FR("%s@11gVersamento acconto dicembre%s@58g%r"),
_is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &acc_dec);
if (!detrazioni.is_zero())
set_row(rw++,FR("@11gUlteriori detrazioni@58g%r"), &detrazioni);
set_row(rw++,FR("%s@11gRettifiche IVA a credito%s@58g%r"),
_is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &rett_cred);
// versamenti effettuati
if (!versamenti.is_zero() && (_month==13 || !_is_visliq))
{
set_row(rw++,FR("@11gVersamenti effettuati@58g%r"), &versamenti);
}
// versamenti integrativi
if (!vers_int.is_zero() && !_is_visliq)
{
set_row(rw++,FR("@11gVersamenti integrativi@58g%r"), &vers_int);
}
if (conguaglio.sign() < 0)
{
real cg = conguaglio;
cg = -cg;
set_row(rw++,FR("@11gConguaglio pro-rata@58g%r"), &cg);
}
set_row(rw++,FR("@11gRISULTATO@58g%r"), &res_cred);
// se non c'e' nulla da versare stampa solo una riga vuota
// Serve, non toglierla, stronzo.
if (risultato.is_zero())
set_row(rw++,"");
else
{
if (risultato.sign() < 0)
{
real iva = abs(risultato);
if (_isannual || _isriepilogo)
round_imposta(iva);
set_row(rw++,FR("@23gCREDITO ATTUALE@58g%r"),&iva);
if (_is_visliq)
{ // se chiamata dalla visualizzazione mette 2 righe vuote se non vi sono interessi
// poiche' con le rettifiche a credito/debito posso volerle visualizzare
set_row(rw++,"");
set_row(rw++,"");
}
}
else
{
if (_month == 13)
round_imposta(interessi);
real iva = risultato + interessi;
if (_isannual || _isriepilogo)
round_imposta(iva);
if (!iva.is_zero())
{
if (!interessi.is_zero())
{
set_row(rw++,FR("@23gIVA DOVUTA@75g%r"),&risultato);
set_row(rw++,FR("@23gInteresse @33g%6.2r @41g%%@75g%r"),&interesse, &interessi);
}
else
if (_is_visliq)
{ // vedi sopra...
set_row(rw++,"");
set_row(rw++,"");
}
if (iva >= iva_da_riportare(_month))
set_row(rw++,FR("@23gIVA DA VERSARE@75g%r"),&iva);
else
set_row(rw++,FR("@23gIVA A DEBITO DA NON VERSARE@75g%r"),&iva);
}
}
}
if (_is_visliq && _month != 13)
{
// stampa versamenti (anche 0) ad uso visualizzazione liquidazione IVA
rw++;
set_row(rw++,FR("@11g$[r]Versamenti effettuati$[n]@58g%r"), &versamenti);
set_row(rw++, "");
set_row(rw++, "");
}
if (!_is_visliq)
{
// descrizione rettifiche
if (d._s4.not_empty() || d._s5.not_empty())
{
rw++;
set_row(rw++, FR("@11g@bDESCRIZIONE RETTIFICHE@r"));
rw++;
if (d._s4.not_empty()) { set_row(rw++, "@11g%t", &(d._s4)); }
if (d._s5.not_empty()) { set_row(rw++, "@11g%t", &(d._s5)); }
}
}
}
void TLiquidazione_app::print_importo(int rw, const char* prompt, real imp, bool red)
{
int tab = 75;
if (imp < ZERO)
{ imp = -imp; tab = 58; }
TString256 str;
str << "@11g";
if (red) str << "$[r]";
str << prompt;
if (red) str << "$[n]";
str << '@' << tab << "g%r";
set_row(rw, str, &imp);
}
void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
{
const real& risultato = d._r0;
const real& rimborso = d._r1;
const real& cred_cost = d._r2;
const real& deb_mens = d._r3;
const real& rettifiche = d._r5;
const real& detrazioni = d._r6;
const real& interessi = d._r7;
const real& versamenti = d._r8;
const real& vers_int = d._r9;
const real& diffinc_iva = d._r29;
const real& diffinc_iva_acq = d._r33;
TToken_string tt(d._s0);
real iva_vend(tt.get(0));
real iva_acq(tt.get(1));
real cred_prec(tt.get(2));
real debt_prec(tt.get(3));
real cred_trasf(tt.get(4)); cred_trasf = -cred_trasf;
real acc_dec(d._s1);
real res_cred(d._s2);
real res_debt(d._s3);
real rett_debt(0.0);
real rett_cred(0.0);
real& interesse = d._r11;
real& credito_utilizzato_iva = d._r15;
real& credito_utilizzato_f24 = d._r16;
real& variazioni_imposta = d._r17;
real& imposta_non_versata = d._r18;
real& crediti_speciali = d._r19;
if (rettifiche.sign() > 0) rett_debt = rettifiche;
if (rettifiche.sign() < 0) rett_cred = -rettifiche;
set_row(rw++,FR(" @66gCredito@84gDebito")); set_row(rw++,"");
// Se sono in visualizzazione stampo i due importi separati, altrimenti li sommo
if (!_is_visliq)
iva_vend += rett_debt;
set_row(rw++,FR("@11gIVA esigibile per il periodo@75g%r"), &iva_vend);
if (diffinc_iva != ZERO)
set_row(rw++,FR("@11gIVA a liquidazione differita incassata@75g%r"), &diffinc_iva);
if (_is_visliq)
set_row(rw++,FR("@11g$[r]Rettifiche IVA a debito$[n]@75g%r"), &rett_debt); // Rettifiche modificabili
// Se sono in visualizzazione stampo i due importi separati, altrimenti li sommo
if (!_is_visliq)
iva_acq += rett_cred;
set_row(rw++,FR("@11gIva che si detrae per il periodo@58g%r"), &iva_acq);
if (diffinc_iva_acq != ZERO)
set_row(rw++,FR("@11gIVA a liquidazione differita pagata@58g%r"), &diffinc_iva_acq);
if (_is_visliq)
set_row(rw++,FR("@11g$[r]Rettifiche IVA a credito$[n]@58g%r"), &rett_cred);
real iva_deb_cred = iva_vend - iva_acq + diffinc_iva - diffinc_iva_acq;
if (_is_visliq)
iva_deb_cred += rett_debt - rett_cred;
print_importo(rw++, TR("IVA a debito o a credito per il periodo"), iva_deb_cred);
rw++;
print_importo(rw++, TR("Variazioni d'imposta"), variazioni_imposta, _is_visliq);
print_importo(rw++, TR("Imposta non versata"), imposta_non_versata, _is_visliq);
// debito liq. precedente < 50000
if (debt_prec > ZERO)
set_row(rw++,FR("@11gDebito o credito da liquidazione precedente@75g%r"), &debt_prec);
else
{
cred_prec -= rimborso;
if (cred_prec > ZERO)
set_row(rw++,FR("@11gDebito o credito da liquidazione precedente@58g%r"), &cred_prec);
}
set_row(rw++,FR("%s@11gRimborsi%s@75g%r"),
_is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &rimborso);
set_row(rw++,FR("@11gCredito IVA compensabile detratto@58g%r"), &credito_utilizzato_iva);
real cre_deb_per = risultato + crediti_speciali + acc_dec + vers_int;
if (_month == 13) cre_deb_per += versamenti;
print_importo(rw++, TR("IVA dovuta o a credito per il periodo"), cre_deb_per);
if (crediti_speciali != ZERO || _is_visliq)
set_row(rw++,FR("%s@11gCrediti speciali%s@58g%r"),
_is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &crediti_speciali);
if (_freqviva == "T" && interessi != ZERO)
set_row(rw++,FR("@11gInteressi dovuti per liquidazioni trimestrali %6.2r%%@75g%r"),&interesse, &interessi);
else
{
if (_is_visliq)
rw++;
}
if (!acc_dec.is_zero())
set_row(rw++,FR("%s@11gAcconto versato%s@58g%r"),
_is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &acc_dec);
else
{
if (_is_visliq)
rw++;
}
// versamenti effettuati
if (!versamenti.is_zero() && (_month==13 || !_is_visliq))
{
set_row(rw++,FR("@11gVersamenti effettuati@58g%r"), &versamenti);
}
else
{
if (_is_visliq)
rw++;
}
// versamenti integrativi
if (!vers_int.is_zero() && !_is_visliq)
{
set_row(rw++,FR("@11gVersamenti integrativi@58g%r"), &vers_int);
}
else
{
if (_is_visliq)
rw++;
}
const real iva = risultato + interessi;
if (iva > ZERO)
{
if (iva >= iva_da_riportare(_month))
set_row(rw++,FR("@23gIMPORTO DA VERSARE@75g%r"),&iva);
else
set_row(rw++,FR("@23gIMPORTO DA NON VERSARE@75g%r"),&iva);
}
else
{
if (_isannual)
{
const real& credito = d._r20;
if (credito > ZERO)
set_row(rw++,FR("@11gCREDITO RIPORTATO NELL'ANNO SUCCESSIVO@58g%r"), &credito);
}
if (_is_visliq)
rw++;
}
if (_is_visliq && _month != 13)
{
rw++;
set_row(rw++,FR("@11g$[r]Descrizione$[n]"));
// stampa versamenti (anche 0) ad uso visualizzazione liquidazione IVA
rw++;
set_row(rw++,FR("@11g$[r]Versamenti effettuati$[n]@58g%r"), &versamenti);
set_row(rw++, "");
set_row(rw++, "");
}
if (!_is_visliq)
{
// descrizione rettifiche
if (d._s6.not_empty())
{
rw++;
set_row(rw++, FR("@11g@bDESCRIZIONE RETTIFICHE@r"));
rw++;
if (d._s6.not_empty()) { set_row(rw++, "@11g%t", &(d._s6)); }
}
}
}
static void imp2string(const real& n, TString& str)
{
if (!n.is_zero())
{
const TCurrency c(n);
str = c.string(TRUE);
str.right_just(15);
}
else
str.spaces(15);
}
void TLiquidazione_app::set_grand(_DescrItem& d)
{
set_bookmark(TR("Riepilogativo liquidazione"), _firm_bookmark);
set_row(1,""); set_row(2,""); set_row(3,""); set_row(4,"");
set_row(5,FR("@11g@bCALCOLO LIQUIDAZIONE D'IMPOSTA@r"));
set_row(6,"");
int rw = 7;
const bool new_print = atoi(_year) >= 2000;
if (new_print)
set_grand_2000(d, rw);
else
set_grand_1999(d, rw);
// rapportini per rimborso infraannuale
// non si stampano se la stampa serve per la visualizz.
// solo in st.di prova in coda ai registri deve scendere
// il prospetto di rimborso
// sempre (cioe' in bollato e in prova) deve scendere
// il prospettino versamento
if (d._arr.items() > 0 && !_is_visliq)
{
for (int i = 0; i < d._arr.items(); i++)
{
_DescrItem& di = (_DescrItem&)d._arr[i];
if (di._flags == RIMBORSO)
{
if (!_isregis || (_isregis && !_isfinal))
{
set_print_zero(TRUE);
set_row(rw++,"");
set_row(rw++,"");
set_bookmark(TR("Prospetto di rimborso"), _firm_bookmark);
set_row(rw++, TR(" PROSPETTO DI RIMBORSO"));
if (di._f0)
{
// esenti e non imponibili
set_row(rw++,"");
set_row(rw++,TR("1) Soggetto con quota di operazioni esenti e non"
" imponibili superiore al 25%%"));
real perc = di._r0 * CENTO / di._r1; perc.round(0);
TString sep(strlen(REAL_PICTURE)+2); sep.fill('-');
set_row(rw++,"");
set_row(rw++,FR("@26gTotale operazioni esenti e non imp.@66g%r"),
&(di._r0));
set_row(rw++,FR("@66g%t x 100 = %3r%%"), &sep, &perc);
set_row(rw++,FR("@26gVolume di affari lordo@66g%r"), &(di._r1));
set_row(rw++,"");
}
if (di._f1)
{
set_row(rw++,"");
set_row(rw++,TR("2) Soggetto con acquisti ad aliquota media "
"superiore a quella delle vendite"));
TString sep(strlen(REAL_PICTURE)+2); sep.fill('-');
set_row(rw++,"");
set_row(rw++,FR("@26gTotale imposte sugli acquisti@66g%r"), &(di._r5));
set_row(rw++,"@66g%t x 100 = %5.2r%%", &sep, &(di._r7));
set_row(rw++,FR("@26gTotale imponibili sugli acquisti@66g%r"),
&(di._r3));
set_row(rw++,"");
set_row(rw++,FR("@26gTotale imposte sulle vendite@66g%r"), &(di._r4));
set_row(rw++,"@66g%t x 100 = %5.2r%%", &sep, &(di._r6));
set_row(rw++,FR("@26gTotale imponibili sulle vendite@66g%r"), &(di._r2));
}
set_print_zero(FALSE);
}
}
// prospettino versamento
else if (di._flags == DELEGA)
{
int rr = rw;
int cont = 10;
if (di._s4 == "ACC")
{
TToken_string ac(di._s5);
if (!ac.empty_items() && _stampa_vers)
cont = 14;
}
if (rw < (printer().formlen() - cont))
rw = printer().formlen() - cont;
for (int i = rr; i < rw; i++)
set_row(i,"");
set_bookmark(TR("Riepilogo versamenti"), _firm_bookmark);
TString dt = di._d0.string();
TString vr; imp2string(di._r0, vr);
if (di._s4 == "ACC") // Acconto
{
TToken_string ac(di._s5);
if (!ac.empty_items())
{
TString dt (ac.get(4));
real app (ac.get(3));
TString vr; imp2string(app, vr);
TString con (ac.get(0));
TString abi (ac.get(1));
TString cab (ac.get(2));
set_row(rw++, TR("- ACCONTO DICEMBRE -"));
set_row(rw, FR(" Versamento di %s effettuato il %s"),
(const char*)vr,
(const char*)dt);
set_row(rw++, FR("@68gCod Conc.: %3s"),(const char*)con);
set_row(rw++, FR("@68gCod. ABI: %5s Cod. CAB o Cod. Dipendenza: %5s"),(const char*)abi,(const char*)cab);
}
}
if (_stampa_acc && _stampa_vers)
set_row(rw++, "- SALDO -");
if (_stampa_vers)
{
set_row(rw, FR(" Versamento di %s effettuato il %s"),
(const char*)vr,
(const char*)dt);
set_row(rw++, FR("@68gCod Conc.: %3s"),(const char*)di._s0);
set_row(rw++, FR("@68gCod. ABI: %5s Cod. CAB o Cod. Dipendenza: %5s"),(const char*)di._s1,(const char*)di._s2);
}
}
}
}
if (!_is_visliq) set_auto_ff(TRUE);
else set_auto_ff(FALSE);
_firm_bookmark = -1;
}
bool TLiquidazione_app::set_annual(_DescrItem& d)
{
// chiamata internamente a set_pims
bool ret = FALSE;
int row = get_maxrow()+1;
if (row == 1) row = 4;
if (d._f0 & IS_PRORATA)
{
// non lo ha stampato prima se annuale, perche' vladimiro il nefido
// pretende l'assurdo aggiornamento della perc. a quella nuova
const int year_int = atoi(_year);
row++;
set_row(++row, year_int > 1997 ? TR("CALCOLO DELLA PERCENTUALE DI DETRAIBILITA'") : TR("CALCOLO DELLA PERCENTUALE DI INDETRAIBILITA'"));
row++;
set_bookmark(TR("Calcolo pro-rata"), _att_bookmark);
ret = TRUE;
set_print_zero(TRUE);
set_row(row++,"");
if (year_int > 1997)
{
const real perc_det = CENTO - d._r2;
const TString16 s1 = perc_det.string();
const TString16 s2 = d._r2.string();
set_row(row++, FR("%% PRO-RATA (%s%%) ed IVA non detraibile (%s%%)@69g%r"),
(const char*)s1, (const char*)s2, &(d._r6));
set_row(row++,FR("C1 - Operazioni esenti escluse da nr. 1 a 9 e 11 art. 10 @69g%r"), &(d._r1));
set_row(row++,FR("C2 - Operazioni esenti di cui nr. 11 art. 10 @69g%r"), &(d._r4));
set_row(row++,FR("C3 - Operazioni esenti da nr. 1 a 9 art. 10 @69g%r"), &(d._r5));
set_row(row++,FR("@6gdi cui cessione beni ammortizzabili @69g%r"), &(d._r8));
set_row(row++,FR("C1A - Operazioni esenti di cui all'art.10 n. 27 quinquies @69g%r"), &(d._r7));
set_row(row++,FR("@6gdi cui cessione beni ammortizzabili @69g%r"), &(d._r9));
set_row(row++,FR("Volume d'affari @69g%r"), &(d._r0));
set_row(row++,FR("Detraibilita' @69g%r%%"), &perc_det);
}
else
{
set_row(row++, FR("%% PRO-RATA ed IVA non detraibile (%s%%)@69g%r"),
(const char*)(d._r2.string()), &(d._r6));
set_row(row++,FR("B1 - Operazioni esenti, escluse da nr. 1 a 9 e 11 art. 10 @69g%r"), &(d._r1));
set_row(row++,FR("B2 - Operazioni esenti, di cui nr. 11 art. 10 @69g%r"), &(d._r4));
set_row(row++,FR("B3 - Operazioni esenti da nr. 1 a 9 art. 10 @69g%r"), &(d._r5));
set_row(row++,FR("Volume d'affari - B3 @69g%r"), &(d._r0));
set_row(row++,FR("Indetraibilita'@69g%r%%"), &(d._r2));
}
set_print_zero(FALSE);
}
return ret;
}
void TLiquidazione_app::set_ventila(_DescrItem& d)
{
if (d._arr.items() == 0 || d._r0.is_zero())
return;
set_bookmark(TR("Prospetto ventilazione"), _att_bookmark);
set_row(1,FR("@54gPROSPETTO VENTILAZIONE"));
set_row(2,"");
set_row(3,"");
set_row(4,FR("@10gTotale acquisti destinati alla rivendita@55g%r"),
&(d._r0));
set_row(5,FR("@10gTotale dei corrispettivi da ventilare@55g%r"),
&(d._r1));
set_row(6,FR("@10gMoltiplicatore@59g%3.9r"),&(d._r2));
set_row(7,"");
set_row(8,FR("@10gCod."));
set_row(9,FR("@10gIVA@17gDescrizione@48gAcquisti"
"@65gImponibile vendite@89gImposta vendite"));
set_row(10,"");
int row = 11;
real t1, t2, t3;
TString80 s0;
int i;
for(i = 0; i < d._arr.items(); i++)
{
_vDesc& vd = (_vDesc&)d._arr[i];
look_iva(vd._codiva);
s0 = _iva->get("S0"); s0.cut(23);
set_row(row+i,"@8g%5s@17g%-23s@41g%r@68g%r@89g%r",
(const char*)vd._codiva,
(const char*)s0,
&(vd._acq),
&(vd._vnd),
&(vd._viv));
t1 += vd._acq;
t2 += vd._vnd;
t3 += vd._viv;
}
set_row(row+i+1,"");
set_row(row+i+2,FR("@10gTotale@41g%r@68g%r@89g%r"),
&t1, &t2, &t3);
set_auto_ff(TRUE);
}
static void real2string(const real& r, TString& str)
{
TCurrency cur(r);
str = cur.string(TRUE);
}
void TLiquidazione_app::set_regagr(_DescrItem& d)
{
set_print_zero(TRUE);
const bool is1998 = atoi(_year) >= 1998;
CHECK(is1998 == _isagr98, "Mucca pazza!");
real& agr_1 = d._r0;
real& agr_2 = d._r1;
real& agr_3 = d._r2;
real& agr_4 = d._r3;
real& agr_5 = d._r4;
real& agr_6 = d._r5;
real& agr_7 = d._r6;
real& agr_1i = d._r7;
real& agr_2i = d._r8;
real& pdetr = d._r9;
real& ivadt = d._r10;
real& iva_detIA = d._r11;
real ara = agr_5 + agr_6;
real arn = agr_3 + agr_4;
real agr_ven = agr_1 + agr_2;
real ivadt_amm = agr_3 + ivadt + (is1998 ? iva_detIA : agr_1);
set_bookmark(TR("Prospetto regime agricolo"), _att_bookmark);
int r = 1;
set_row(r++,FR("@50gPROSPETTO REGIME AGRICOLO"));
set_row(r++,"");
// percentuale detraibilita'
set_row(r++, FR("Iva vendite beni I parte Tabella A @56g%r"),&agr_1);
set_row(r++, "");
set_row(r++, FR("Iva vendite beni diversi da I parte Tabella A @56g%r"),&agr_2);
set_row(r++, "");
set_row(r++, FR("Totale iva sulle operazioni di vendita @56g%r"), &agr_ven);
set_row(r++, "");
set_row(r++, FR("Iva acquisti in regime agricolo@56g%r"),&ara);
set_row(r++, "");
set_row(r++, FR("Iva acquisti per operazioni diverse I parte Tabella A@56g%r"),&arn);
set_row(r++, FR("... di cui beni ammortizzabili@56g%r"),&agr_4);
set_row(r++, "");
set_row(r++, FR("Iva acquisti ad uso promiscuo@56g%r"),&agr_7);
TString dn,riga;
if (agr_1i != ZERO)
{
real2string(agr_1i, riga);
dn << riga << " + ";
}
real2string(agr_2i, riga);
dn << riga;
int ln = max(riga.len(),dn.len()) + 2;
int corr = ln % 2 == 0 ? 0 : 1;
TString middle(ln); middle.fill('-');
int xl = 71 - riga.len()/2;
int times_sign = xl + ln/2 + 3; // per allineare i segni moltiplicativi
middle << "@" << times_sign << "gx 100 = " << pdetr.string(".") << " %";
set_row(r++, "");
set_row(r++, "@56g%r",&agr_2i);
riga.format(FR("Percentuale delle operazioni diverse@%dg%%s"),xl - corr - ln/2);
set_row(r++, riga, (const char*)middle);
corr = dn.len() % 2 == 0 ? 0 : 1;
riga.format("@%dg%%s",xl - corr - dn.len()/2);
set_row(r++, riga, (const char*)dn);
real2string(agr_7, riga);
dn = "100";
ln = max(riga.len(),dn.len()) + 2;
xl = 71 - riga.len()/2;
corr = ln % 2 == 0 ? 0 : 1;
middle.fill('-',ln);
middle << "@" << times_sign << "gx " << pdetr.string(".");
middle << " = " << TCurrency(ivadt).string(TRUE);
set_row(r++, "");
set_row(r++, "@56g%r", &agr_7);
riga.format(FR("Iva ammessa in detrazione sugli acquisti promiscui@%dg%%s"),xl - corr - ln/2);
set_row(r++, riga, (const char*)middle);
corr = dn.len() % 2 == 0 ? 0 : 1;
riga.format("@%dg%%s",xl - corr - dn.len()/2);
set_row(r++, riga, (const char*)dn);
set_row(r++, "");
if (is1998)
{
set_row(r++, FR("Iva ammessa in detrazione I parte tabella A@56g%r"),&iva_detIA);
set_row(r++, "");
}
set_row(r++, FR("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++,FR(" Codice IVA@45gAliquota IVA@73gCodice IVA@88gAliquota IVA"));
set_row(r++,FR(" 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"); des.cut(25);
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++,FR("Totale@56g%r@100g%r"),&t1,&t2);
}
set_auto_ff(TRUE);
set_print_zero(FALSE);
}
void TLiquidazione_app::set_viaggio(_DescrItem& d)
{
// the longest & stronzest
// Nel corso della scrittura di questa funzione
// Berlusconi + Fini + Bossi hanno vinto le elezioni
// ... lungo commento cancellato
real& corr_CEE = d._r0;
real& corr_misCEE = d._r1;
real& corr_noCEE = d._r2;
real& acq_CEE = d._r3;
real& acq_misCEE = d._r4;
real& acq_noCEE = d._r5;
real& acq_misnoCEE = d._r6;
real& perc_r = d._r7;
real& cred_cos = d._r8;
real& ivm = d._r9;
real tc = (corr_CEE + ivm);
real ta = (acq_CEE + acq_misCEE);
real& bi = d._r10;
real& dovuta = d._r11;
real tcc = corr_CEE + corr_noCEE + corr_misCEE;
real tco = acq_CEE + acq_noCEE + acq_misCEE + acq_misnoCEE;
real tma = acq_CEE + acq_misCEE;
set_print_zero(TRUE);
set_bookmark(FR("Prospetto 74 ter"), _att_bookmark);
set_row(1,"");
set_row(2,FR("@54gRIEPILOGO 74 TER"));
set_row(3,"");
set_row(4,FR("Ammontare dei corrispettivi relativi a viaggi eseguiti"
" interamente nella CEE .....................@100g%r"), &(corr_CEE));
set_row(5,FR("Ammontare dei corrispettivi relativi a viaggi misti (dentro"
" e fuori CEE) ......................... @100g%r"), &(corr_misCEE));
set_row(6,FR("Ammontare dei corrispettivi relativi a viaggi eseguiti"
" interamente fuori CEE ..................... @100g%r"), &(corr_noCEE));
set_row(7,"");
set_row(8,FR("@56gTotale corrispettivi@100g%r"), &tcc);
set_row(9,"");
set_row(10,FR("Ammontare dei costi relativi a viaggi interamente"
" svolti nella CEE ............................... @100g%r"),
&(acq_CEE));
set_row(11,FR("Ammontare dei costi relativi a viaggi misti (per la"
" parte CEE) ................................... @100g%r"),
&(acq_misCEE));
set_row(12,FR("Ammontare dei costi relativi a viaggi interamente"
" svolti fuori CEE ............................... @100g%r"),
&(acq_noCEE));
set_row(13,FR("Ammontare dei costi relativi a viaggi misti (per la"
" parte fuori CEE) .............................@100g%r"),
&(acq_misnoCEE));
set_row(14,"");
set_row(15,FR("@64gTotale costi@100g%r"), &tco);
set_row(16,"");
set_row(17,TR("DETERMINAZIONE CORRISPETTIVI IMPONIBILI "
"RELATIVI A VIAGGI MISTI"));
set_row(18,"");
// la bella frazioncina della percentuale di ripartizione
TString tmp; real2string(acq_misCEE, tmp);
TString up = tmp;
up << " x 100";
TString dn = tmp;
real2string(acq_misnoCEE, tmp);
dn << " + " << tmp;
int ln = max(up.len(), dn.len()) + 2;
TString den(ln); den.fill('-');
up.center_just(ln); dn.center_just(ln);
// la bella frazioncina degli imponibili viaggi misti
TString tmp2; real2string(corr_misCEE, tmp2);
TString up2 = tmp2;
const TString16 perc_r_str = perc_r.string("###,@@");
up2 << " x" << perc_r_str;
TString dn2 = "100";
int ln2 = max(up2.len(), 3) + 2;
TString den2(ln2); den2.fill('-');
up2.center_just(ln2); dn2.center_just(ln2);
// la gran frazionazza centrata e stupenda
int tot = 35 + ln + ln2;
int rem1 = (100 - tot)/2; if (rem1 < 0) rem1 = 0;
int pos1 = rem1 + 13;
int rem2 = pos1+ den.len() + 11;
int pos2 = rem2 + 20;
set_row(19,format("@%dg%%t@%dg%%t", pos1, pos2),
&up, &up2);
set_row(20,format(FR("@%dgPerc. rip. = %%t = %%t; @%dg"
"Imp. viaggi misti = %%t = @100g%%r"),
rem1, rem2),
&den, &perc_r_str, &den2, &ivm);
set_row(21,format("@%dg%%t@%dg%%t", pos1, pos2),
&dn, &dn2);
real tmr = corr_CEE + ivm;
// whew, come dicono su Topolino
real2string(corr_CEE, tmp);
up = "("; up << tmp << " + ";
real2string(ivm, tmp);
up << tmp << ")";
den.fill('.',59-up.len());
set_row(23,FR("Ammontare dei corrispettivi imponibili@40g%t %t@100g%r"),
&up, &den, &tmr);
// se e' l'annuale non ha senso altro
if (d._f1) return;
real2string(acq_CEE, tmp);
up = "("; up << tmp << " + ";
real2string(acq_misCEE, tmp);
up << tmp << ")";
den.fill('.',59-up.len());
set_row(24,FR("Ammontare dei costi deducibili@40g%t %t@100g%r"),
&up, &den, &tma);
den.fill('.',60);
set_row(25,FR("Credito di costo precedente @40g%t@100g%r"), &den, &(cred_cos));
real2string(tmr, tmp);
up = "["; up << tmp << " - (";
real2string(tma, tmp);
up << tmp << " + ";
real2string(d._r8, tmp);
up << tmp << ")]";
den.fill('.',59-up.len());
set_row(26,FR("Base imponibile lorda@40g%t %t@100g%r"), &up, &den, &bi);
set_row(27,"");
if (bi > ZERO)
{
const real aliva = aliquota_agvia();
const real alcnt = aliva + CENTO;
real2string(bi, tmp);
up = tmp;
up << " x" << aliva.string("###,@@");
dn = alcnt.string("###,@@");
ln = max(up.len(), 3) + 2;
den.fill('-',ln);
up.center_just(ln); dn.center_just(ln);
tmp.fill('.', 59 - den.len());
set_row(28,"@40g%t",&up);
set_row(29,FR("IVA A DEBITO@40g%t %t@100g%r"), &den, &tmp, &dovuta);
set_row(30,"@40g%t", &dn);
}
else if (bi.sign() < 0)
{
bi = abs(bi);
set_row(28,"");
set_row(29,FR("CREDITO DI COSTO DA RIPORTARE@100g%r"), &bi);
}
set_print_zero(FALSE);
set_auto_ff(TRUE);
}
void TLiquidazione_app::set_acconto_p(_DescrItem& d)
{
const char* errmsg[3] = {
{TR("manca la tabella risultati liquidazione per l'anno corrente")},
{TR("manca la tabella risultati liquidazione per l'anno precedente")},
{TR("manca la tabella dichiarazione annuale per l'anno precedente")}};
set_row(1,"%t@7g%t",&(d._s0), &(d._s1));
if (d._f2)
set_row(1,"@50g@b*** %s ***@r", errmsg[d._f2 -1]);
else
{
if (d._f0) // base anno in corso
{
if (d._f1) // stampa base di calcolo
{
set_row(1,"@58g%r@74g%r@96g%r@122g%s", &(d._r3),
&(d._r2), &(d._r1), d._f3 ? "Si" : "No");
}
else
set_row(1,"@62g%r@91g%s", &(d._r1), d._f3 ? "Si" : "No");
}
else //metodo storico
{
if (d._f1 && (d._r0).sign()>0) // stampa base di calcolo
set_row(1,"@58g%r@88g%r", &(d._r0), &(d._r1));
else
set_row(1,"@87g%r",&(d._r1));
}
}
}
void TLiquidazione_app::set_acchead_p(_DescrItem& d)
{
reset_header();
set_header(1,FR("Gestione IVA@107gData @>@125gPag. @#"));
set_header(3,sep);
if (d._f0) // base anno in corso
{
set_header(2,FR("@40gCALCOLO ACCONTI IVA DICEMBRE %s "
"(base anno in corso)"), (const char*) _year);
if (d._f1) // stampa base calcolo
{
set_header(4,FR("@58g------- Base di calcolo -------"));
set_header(5,FR("Ditta@7gDenominazione@62gDebito@78gCredito"
"@94gACCONTO calcolato@115gLiq. differita"));
set_header(6,sep);
set_header(7,"");
}
else
{
set_header(4,FR("Ditta@7gDenominazione@60gACCONTO calcolato"
"@84gLiq. differita"));
set_header(5,sep);
set_header(6,"");
}
}
else
{
set_header(2,FR("@40gCALCOLO ACCONTI IVA DICEMBRE %s"), (const char*) _year);
set_header(5,sep);
set_header(6,"");
if (d._f1)
set_header(4,FR("Ditta@7gDenominazione@58gBase di calcolo"
"@86gACCONTO calcolato"));
else
set_header(4,FR("Ditta@7gDenominazione@85gACCONTO calcolato"));
}
}
// ---------------------------------------------------------------------
// Tabulato deleghe
// ---------------------------------------------------------------------
void TLiquidazione_app::set_deltab(_DescrItem& d, bool iscred)
{
reset_header();
int rw = 1;
static bool credpr;
if (iscred)
{
// set header
set_header(1,FR("ELENCO DITTE A CREDITO@30g%s %s@107gData @>@125gPag. @#"),
d._f0 == 13 ? TR("Annuale ") : itom(d._f0), (const char*)_year);
set_header(2,sep);
set_header(3,FR("@40gF@60gImporto a"));
set_header(4,FR("Cod.@8gDenominazione@40gR@62gcredito"));
set_header(5,sep);
set_header(6,"");
// set rows
for (int i = 0; i < d._arr.items(); i++)
{
TToken_string& tt = (TToken_string&)(d._arr)[i];
TString cod(tt.get(0));
TParagraph_string rgs(tt.get(1), 30);
TString diocantaro(rgs.get(0));
TString frq(tt.get(2));
real tp (tt.get(3));
real in (tt.get(4));
tp -= in;
tp = -tp;
set_row(rw++, "%-5s@8g%-30s@40g%1s@54g%r",
(const char*)cod, (const char*)diocantaro,
(const char*)frq, &tp);
for (int i = 1; i < rgs.items(); i++)
set_row(rw++, "@8g%-30s", (const char*)rgs.get(i));
}
}
else
{
// set header
set_header(1,FR("ELENCO DITTE A DEBITO@30g%s %s@107gData @>@125gPag. @#"),
d._f0 == 13 ? TR("Annuale ") : itom(d._f0), (const char*)_year);
set_header(2,sep);
set_header(3,FR("@40gF@60gImporto da@73gCodice@83gCod."));
set_header(4,FR("Cod.@8gDenominazione@40gR Numero telefonico@63gversare Banca Dip. Con."));
set_header(5,sep);
set_header(6,"");
// set rows
for (int i = 0; i < d._arr.items(); i++)
{
TToken_string& tt = (TToken_string&)(d._arr)[i];
TString cod(tt.get(0));
TParagraph_string rgs(tt.get(1), 30);
TString diocantaro(rgs.get(0));
TString frq(tt.get(2));
real tp (tt.get(3));
real in (tt.get(4));
TString abi(tt.get(5));
TString cab(tt.get(6));
TString con(tt.get(7));
TString tel(tt.get(8));
if (!tel.blank())
tel << '/';
tel << tt.get(9);
TString desc(tt.get(10));
set_row(rw++, "%-5s@8g%-30s@40g%1s %s @55g%r %5s %5s %3s %-.45s",
(const char*)cod, (const char*)diocantaro, (const char*)frq,
(const char*)tel, &tp, (const char*)abi,
(const char*)cab, (const char*)con, (const char*)desc);
for (int i = 1; i < rgs.items(); i++)
set_row(rw++, "@8g%-30s", (const char*)rgs.get(i));
}
}
set_auto_ff(TRUE);
}