campo-sirio/cg/cg0400.cpp
guy 848151dff5 Aggiunta prima gestione di base dello split payment
git-svn-id: svn://10.65.10.50/branches/R_10_00@23036 c028cbd2-c16b-5b4b-a496-9718f37d4682
2015-02-24 08:26:33 +00:00

1354 lines
38 KiB
C++
Executable File
Raw Blame History

//********************************
//* Riepilogo Progressivi IVA *
//********************************
#include <execp.h>
#include <mailbox.h>
#include <mask.h>
#include <printapp.h>
#include <progind.h>
#include <recarray.h>
#include <tabutil.h>
#include "cg0.h"
#include "cg0400.h"
#include "cgpim.h"
#include <anagr.h>
#include <comuni.h>
#include <attiv.h>
#include <nditte.h>
enum liste {
ListaPerAliquota=1,
ListaPerPeriodo=2,
};
enum tipo_sospensione { nessuna, normale, vol_affari, liquidazione };
struct Importi {
real imponibile;
real imposta;
};
struct TRiga_gen : public TArray
{
TString16 _codiva;
real _impoven, _imposven; //imponibile e imposta vendite
real _impoacq, _imposacq; //imponibile e imposta acquisti
real _impobd, _imposbd; //imponibile e imposta importazioni (ovvero bolle doganali)
TRiga_gen (const char* codiva, const real& impov, const real& imposv, const real& impoa, const real& imposa, const real& impobd, const real& imposbd):
_codiva(codiva),_impoven(impov),_imposven(imposv),_impoacq(impoa),_imposacq(imposa),_impobd(impobd),_imposbd(imposbd) {}
};
class TGen_array : public TArray
{
public:
bool add_riga(const char* codiva, const real& imponibilev, const real& impostav, const real& imponibilea, const real& impostaa, const real& imponibilebd, const real& impostabd);
TRiga_gen& riga(int i) { return (TRiga_gen&)(*this)[i]; }
};
bool TGen_array::add_riga(const char* codiva, const real& imponibilev, const real& impostav, const real& imponibilea, const real& impostaa, const real& imponibilebd, const real& impostabd)
{
bool found = FALSE;
for (int i = 0; i < items(); i++)
{
TRiga_gen& r = riga(i);
if (r._codiva==codiva)
{
found = TRUE;
r._impoven += imponibilev;
r._imposven += impostav;
r._impoacq += imponibilea;
r._imposacq += impostaa;
r._impobd += imponibilebd;
r._imposbd += impostabd;
}
}
if (!found)
{
TRiga_gen* r = new TRiga_gen(codiva,imponibilev,impostav,imponibilea,impostaa,imponibilebd,impostabd);
add(r);
}
return found;
};
struct TRiga_iva : public TArray
{
tiporec _tipo;
real _imponibile, _imposta, _detrazione;
TRiga_iva (const tiporec& tipo, const real& impo, const real& impos, const real& detr):
_tipo(tipo),_imponibile(impo),_imposta(impos), _detrazione(detr) {}
};
class TIva_array : public TArray
{
public:
bool add_riga(const tiporec& tipo, const real& imponibile,
const real& imposta, const real& detr);
TRiga_iva& riga(int i) { return (TRiga_iva&)(*this)[i]; }
};
bool TIva_array::add_riga(const tiporec& tipo, const real& imponibile,
const real& imposta, const real& detr)
{
bool found = FALSE;
for (int i = 0; i < items(); i++)
{
TRiga_iva& r = riga(i);
if (r._tipo == tipo)
{
found = TRUE;
r._imponibile += imponibile;
r._imposta += imposta;
r._detrazione += detr;
}
}
if (!found)
{
TRiga_iva* r = new TRiga_iva(tipo,imponibile,imposta,detr);
add(r);
}
return found;
};
class TProgressivi_iva : public TPrintapp
{
TMask* _msk;
TDate _data;
int _sospmsk, _tipoprog, _livelloprog, _tipo_aliq, _tipo_attiv, _annoiva, _i;
int _mese, _anno;
long _codditta;
char _tipo_prog_reg;
bool _st_inizio_anno, _prima_pagina;
TIva_array _iva_array,_iva1_array;
TGen_array _gen_array,_gen1_array;
TAssoc_array _corr_array;
TString _cap,_cofi,_paiva,_ragsoc,_comunefis,_provfis,_viafis,_codivamsk,_codattmsk;
TString _datast, _cod_att, _cod_ateco;
Importi _mesi[14]; // Era 13: bestie! I mesi sono da 1 a 13
liste _tipo_lista;
protected:
static bool tipo_handler(TMask_field& f, KEY k);
static bool selection_handler(TMask_field& f, KEY k);
static bool period_handler(TMask_field& f, KEY k);
static void check_period(TMask& m);
public:
virtual bool user_create();
virtual bool user_destroy();
virtual bool set_print(int);
virtual void preprocess_header();
virtual bool preprocess_page(int,int);
virtual print_action postprocess_page(int,int);
bool is_month_plain(int x, int m, const char f);
void lordo2netto(const real& totale, real& imponibile, real& imposta, const real& aliquota);
void cerca_i_pim();
void azzera_mesi();
void get_dati_ditta();
void setta_intestazione();
void calcola_totali(real&,real&);
void cerca_tipo(TIva_array&, tiporec, real&, real&, real&);
void prospetto_pagina(TGen_array&, TIva_array&);
int stampa_intestazione_ditta();
const char* desc_attivita(const char*);
const char* desc_iva(const TString&);
char frequenza_versamenti(long ditta, int anno);
void look_pim();
void ricalcola_liquidazione_se_necessario(int anno, int ultimo_mese);
TProgressivi_iva(){};
};
inline TProgressivi_iva& app() { return (TProgressivi_iva&) main_app(); }
HIDDEN int compare_rows(const TObject** o1, const TObject** o2)
{
TRiga_gen* r1 = (TRiga_gen*)*o1;
TRiga_gen* r2 = (TRiga_gen*)*o2;
return (strcmp((const char*)r1->_codiva, (const char*)r2->_codiva));
}
bool TProgressivi_iva::is_month_plain(int x, int m, const char f)
// la piu' semplice: vero se mese == _month o se fa parte del
// trimestre indicato da month
{
bool ok = x == m;
if (!ok && f == 'T')
{
// aggiusta al trimestre il mese da calcolare
int mto = m;
mto += 2 - ((mto-1) % 3);
ok = x > (mto - 3) && x <= mto;
}
return ok;
}
const char* TProgressivi_iva::desc_attivita(const char* codatt)
{
const TRectype & attiv = cache().get("%AIS", codatt);
return attiv.get("S0");
}
void TProgressivi_iva::lordo2netto(const real& totale, real& imponibile, real& imposta, const real& aliquota)
{
const int dec = TCurrency::get_firm_dec();
if (dec == 0) // Lire
{
imposta = (abs(totale) * aliquota)/(aliquota + 1.00);
imposta.ceil();
if (totale.sign() < 0) imposta = -imposta;
imponibile = totale - imposta;
// Qui si entra nel regno del mistero: delta e' SEMPRE zero
const real delta = totale - imponibile - imposta;
if (!delta.is_zero())
imposta += delta;
}
else // Euro
{
imposta = (totale * aliquota)/(aliquota + 1.00);
imposta.round(dec);
imponibile = totale - imposta;
}
}
const char* TProgressivi_iva::desc_iva(const TString& cod)
{
if (cod == "{AF")
return TR("Artt.17c3/74c1");
if (cod == "{VA7")
return TR("Art.40c5/6/8 a.i.");
return cache().get("%IVA", cod, "S0");
}
char TProgressivi_iva::frequenza_versamenti(long ditta, int anno)
{
if (ditta <= 0L)
ditta = get_firm();
if (anno <= 0L)
anno = _anno;
TString16 key; key.format("%05ld%04d", ditta, anno);
const TRectype& lia = cache().get("%LIA", key);
return lia.empty() ? 'M' : lia.get_char("S7");
}
bool TProgressivi_iva::user_create()
{
open_files(LF_TABCOM, LF_TAB, LF_ANAG, LF_NDITTE, LF_COMUNI, LF_ATTIV, 0);
set_real_picture("###.###.###.###");
set_magic_currency(TRUE);
set_print_zero(FALSE);
printer().footerlen(5);
return TRUE;
}
bool TProgressivi_iva::user_destroy()
{
return TRUE;
}
void TProgressivi_iva::azzera_mesi()
{
for (int i=0; i<=12; i++)
{
_mesi[i].imponibile = ZERO;
_mesi[i].imposta = ZERO;
}
}
void TProgressivi_iva::look_pim()
{
TTable pim("PIM");
TTable reg("REG");
TTable tabiva("%IVA");
TString80 codtab;
TString16 codatt,codiva,tipoiva,codreg;
TToken_string va7("",'!');
real imponibile, imposta,afi,afv,va7i,va7v;
real corr_item,*cp,aliquota;
bool is_key;
const char freq = frequenza_versamenti(_codditta, _anno);
_corr_array.destroy();
for (pim.first(); !pim.eof(); pim.next())
{
imponibile = imposta = afi = afv = va7i = va7v = ZERO;
tiporec tipo;
codtab = pim.get("CODTAB");
int anno = atoi(codtab.mid(0,4));
int mese = atoi(codtab.mid(13,2));
codreg.format("%d%-3s",anno, (const char*)codtab.mid(10,3));
codatt = codtab.mid(4,5);
codiva = codtab.mid(16,4);
tipoiva = pim.get("S5");
codiva = codiva.trim();
codatt = codatt.trim();
if (anno != _anno) continue;
if (_st_inizio_anno)
if ((mese > _mese) || (_mese == 13 && mese < 13))
continue;
if (!_st_inizio_anno)
//if (mese != _mese)
if (!is_month_plain(mese, _mese, freq))
continue;
if (codatt != _cod_att) continue;
//Modifica del 12/07/1995
if (tipoiva == "VE") continue; //i codici iva di tipo "VE"
//Fine //non devono essere stampati
bool soggetto = TRUE;
tabiva.put("CODTAB",codiva);
if (tabiva.read() == NOERR)
soggetto = tabiva.get("S1") != "NS"; // I non soggetti non vanno sempre considerati
reg.put("CODTAB",codreg);
if (reg.read() != NOERR) reg.zero();
const bool corrisp = reg.get_bool("B0");
const tipo_sospensione sosp_imp = reg.get_bool("B1") ? (tipo_sospensione) reg.get_int("I9") : nessuna;
// Se si decide di stampare i progressivi validi per la liquidazione
// i PIM validi solo per il volume d'affari vanno scartati
if (_tipo_prog_reg == 'L' && sosp_imp == vol_affari)
continue;
// Se si decide di stampare i progressivi validi per il vol. d'affari
// i PIM validi solo per la liquidazione vanno scartati
if (_tipo_prog_reg == 'V' && sosp_imp == liquidazione)
continue;
is_key = _corr_array.is_key(codiva);
corr_item = ZERO;
real& ci = is_key ? (real&) _corr_array[codiva] : corr_item;
ci += pim.get_real("R3"); // accumula i corrispettivi
if (!is_key)
_corr_array.add(codiva,ci);
while (classify_pim(pim.curr(), imponibile, imposta, tipo, TRUE))
{
switch(tipo)
{
case acq_norm:
if (_mese != 13)
_gen_array.add_riga(codiva,ZERO,ZERO,imponibile,imposta,ZERO,ZERO);
if ((_st_inizio_anno && is_month_plain(mese, _mese, freq)) || _mese == 13) //lo metto in un array a parte
_gen1_array.add_riga(codiva,ZERO,ZERO,imponibile,imposta,ZERO,ZERO);
break;
case vend_norm:
if (corrisp)
{ // Questo perche' i documenti FS sono registrati col segno
// negativo in R0/R1 e col segno positivo in R5/R6,
imponibile += pim.get_real("R5");
imposta += pim.get_real("R6");
}
if (_mese == 13)
{ // Separa le autofatture non residenti(AF) e gli importi VA7
afi = pim.get_real("R7");
afv = pim.get_real("R8");
va7 = pim.get("S0");
va7i = va7.get(0);
va7v = va7.get(1);
imponibile -= afi + va7i;
imposta -= afv + va7v;
_gen1_array.add_riga("{AF",afi,afv,ZERO,ZERO,ZERO,ZERO); // Mette '{' cosi' vengono stampati per ultimi
_gen1_array.add_riga("{VA7",va7i,va7v,ZERO,ZERO,ZERO,ZERO);
}
if (_mese != 13)
_gen_array.add_riga(codiva,imponibile,imposta,ZERO,ZERO,ZERO,ZERO);
if ((_st_inizio_anno && is_month_plain(mese, _mese, freq)) || _mese == 13) //lo metto in un array a parte
_gen1_array.add_riga(codiva,imponibile,imposta,ZERO,ZERO,ZERO,ZERO);
break;
case bolle_doganali:
if (_mese != 13)
_gen_array.add_riga(codiva,ZERO,ZERO,ZERO,ZERO,imponibile,imposta);
if ((_st_inizio_anno && is_month_plain(mese, _mese, freq)) || _mese == 13)
_gen1_array.add_riga(codiva,ZERO,ZERO,ZERO,ZERO,imponibile,imposta);
break;
case acq_amm_ultdetr:
if (soggetto)
{
const real detr = imponibile * real(0.06);
if (_mese != 13)
_iva_array.add_riga(tipo,imponibile,imposta,detr);
if ((_st_inizio_anno && is_month_plain(mese, _mese, freq)) || _mese == 13)
_iva1_array.add_riga(tipo,imponibile,imposta,detr);
}
break;
case acq_simp:
case vend_simp:
case cess_amm:
case acq_beni_riv:
case acq_beni_ammort:
case acq_beni_ammort_nd:
case acq_beni_leasing:
if (soggetto)
{
if (_mese != 13)
_iva_array.add_riga(tipo,imponibile,imposta,ZERO);
if ((_st_inizio_anno && is_month_plain(mese, _mese, freq)) || _mese == 13)
_iva1_array.add_riga(tipo,imponibile,imposta,ZERO);
}
break;
default:
if (sosp_imp == normale || sosp_imp == nessuna) // Esclude quelli valevoli solo liq o solo vol.aff. dai riepiloghi altri dati
{
if (_mese != 13)
_iva_array.add_riga(tipo,imponibile,imposta,ZERO);
if ((_st_inizio_anno && is_month_plain(mese, _mese, freq)) || _mese == 13)
_iva1_array.add_riga(tipo,imponibile,imposta,ZERO);
}
break;
}
}
}
// Scorpora i corrispettivi
for (cp = (real*) _corr_array.first_item(); cp != NULL; cp = (real*) _corr_array.succ_item())
{
codiva = _corr_array.get_hashobj()->key();
tabiva.put("CODTAB",codiva);
if (tabiva.read() == NOERR) aliquota = tabiva.get_real("R0");
else aliquota = ZERO;
lordo2netto(*cp,imponibile,imposta,aliquota/100.0);
if (_mese != 13)
_gen_array.add_riga(codiva,imponibile,imposta,ZERO,ZERO,ZERO,ZERO);
if (_st_inizio_anno || _mese == 13) //lo metto in un array a parte
_gen1_array.add_riga(codiva,imponibile,imposta,ZERO,ZERO,ZERO,ZERO);
}
_gen_array.sort(compare_rows); // ordinamento per codice iva
_gen1_array.sort(compare_rows); // ordinamento per codice iva
}
void TProgressivi_iva::ricalcola_liquidazione_se_necessario(int ultimo_anno, int ultimo_mese)
{
TRelation rel("LIM");
TRectype& rec = rel.curr();
TString8 anno; anno.format("%04d", ultimo_anno);
rec.put("CODTAB", anno);
TCursor cur(&rel, "", 1, &rec, &rec);
const TRecnotype items = cur.items();
cur.freeze();
// Scandisce i mesi alla ricerca "spuntando" quelli gia' calcolati
TBit_array computed;
for (cur = 0l; cur.pos() < items; ++cur)
{
const int mese = atoi(rec.get("CODTAB").mid(4, 2));
if (mese >= 1 && mese <= ultimo_mese)
{
if (rec.get_bool("B0"))
computed.set(mese); // Mese calcolato!
else
break; // Considera non calcolati anche i successivi
}
}
const char freq = frequenza_versamenti(0, ultimo_anno);
const int periods = freq == 'M' ? ultimo_mese : (ultimo_mese/3);
const bool ok = computed.ones() == periods;
if (!ok && yesno_box(FR("Alcuni periodi non risultano ricalcolati:\n"
"<EFBFBD> consigliabile il ricalcolo. Si desidera eseguirlo?")))
{
const int recalc = (freq == 'M') ? ultimo_mese : ultimo_mese/3;
TProgind pi(recalc, "Ricalcolo liquidazione in corso...", TRUE, TRUE);
for (int mese = (freq == 'M') ? 1 : 3; mese <= ultimo_mese; mese += (freq == 'M') ? 1 : 3)
{
pi.addstatus(1);
if (pi.iscancelled())
break;
if (!computed[mese])
{
TToken_string body(36);
body.add(ultimo_anno);
body.add(mese);
body.add(get_firm());
body.add("V"); // visualizzazione: no ff alla fine, zeri stampati
body.add("");
body.add("");
body.add('X');
TMessage msg("cg4 -2 -S", "RCL", body);
msg.send();
TExternal_app liq("cg4 -2");
liq.run();
}
}
}
}
void TProgressivi_iva::cerca_i_pim()
{
TTable pim("PIM");
TTable tabiva("%IVA");
TTable reg("REG");
TString80 codtab;
TString8 codatt,codiva,tipoiva,codreg;
for (pim.first(); !pim.eof(); pim.next())
{
real imponibile, imposta, impo, impos;
tiporec tipo;
codtab = pim.get("CODTAB");
const int anno = atoi(codtab.mid(0,4));
codatt = codtab.mid(4,5);
const int mese = atoi(codtab.mid(13,2));
codreg.format("%d%-3s",anno, (const char*)codtab.mid(10,3));
codiva = codtab.mid(16,4);
tipoiva = pim.get("S5");
if (anno != _annoiva)
continue;
//Modifica del 12/07/1995
if (tipoiva == "VE")
continue;
//Fine
if (_livelloprog == 1) //riepilogo per aliquota
{
codiva = codiva.trim();
if (codiva != _codivamsk)
continue;
}
// I non soggetti non vanno considerati
bool soggetto = TRUE;
tabiva.put("CODTAB",codiva);
if (tabiva.read() == NOERR)
soggetto = tabiva.get("S1") != "NS";
if (_livelloprog == 2) //riepilogo per attivita'
{
codatt = codatt.trim();
if (codatt != _codattmsk) continue;
}
impo = impos = ZERO;
reg.put("CODTAB",codreg);
if (reg.read() != NOERR) reg.zero();
const bool corrisp = reg.get_bool("B0");
if (_livelloprog == 1 && _tipoprog == 1 && _sospmsk == 2) // CM500309
{
const bool sosp = reg.get_bool("B1");
const int tipo_sosp = reg.get_int("I9");
if (sosp && tipo_sosp > 1)
continue;
}
while (classify_pim(pim.curr(), imponibile, imposta, tipo, FALSE))
{
switch(tipo)
{
case acq_norm:
if (_tipoprog == 1) break; //vendite
if (_tipo_aliq == 1) //nella maschera e' stato richiesto
{ //acquisti in genere
impo += imponibile;
impos += imposta;
}
break;
case vend_norm:
if (_tipoprog == 2) break; //acquisti
if (_sospmsk == 1) //nella maschera e' stato richiesto
{ //vendite in genere
if (corrisp)
{ // Questo perche' i documenti FS sono registrati col segno
// negativo in R0/R1 e col segno positivo in R5/R6,
imponibile += pim.get_real("R5");
imposta += pim.get_real("R6");
}
impo += imponibile;
impos += imposta;
}
break;
case vend_simp:
if (!soggetto) break;
if (_tipoprog == 2) break; //acquisti
if (_sospmsk == 2) //nella maschera e' stato richiesto
{ //vendite in sospensione d'imposta
impo += imponibile;
impos += imposta;
}
break;
case acq_ind_op_es:
if (_tipoprog == 1) break;
if (_tipo_aliq == 2)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_ind_pass_int:
if (_tipoprog == 1) break;
if (_tipo_aliq == 3)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_bd_ind_art_19:
case acq_ind_art_19:
if (_tipoprog == 1) break;
if (_tipo_aliq == 4)
{
impo += imponibile;
impos += imposta;
}
break;
case base_ventilazione:
if (_tipoprog == 1) break;
if (_tipo_aliq == 5)
{
impo += imponibile;
impos += imposta;
}
break;
case bolle_doganali:
if (_tipoprog == 1) break;
if (_tipo_aliq == 6)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_simp:
if (!soggetto) break;
if (_tipoprog == 1) break;
if (_tipo_aliq == 7)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_beni_riv:
if (!soggetto) break;
if (_tipoprog == 1) break;
if (_tipo_attiv == 1)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_beni_ammort:
if (!soggetto) break;
if (_tipoprog == 1) break;
if (_tipo_attiv == 2)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_beni_ammort_nd:
if (!soggetto) break;
if (_tipoprog == 1) break;
if (_tipo_attiv == 3)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_beni_leasing:
if (!soggetto) break;
if (_tipoprog == 1) break;
if (_tipo_attiv == 4)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_amm_ultdetr:
if (!soggetto) break;
if (_tipoprog == 1) break;
if (_tipo_attiv == 5)
{
impo += imponibile;
impos += imposta;
}
break;
case cess_amm:
if (!soggetto) break;
if (_tipoprog == 2) break;
if (_livelloprog == 2) //Nel caso di vendite per attivita' il tipo costo/ricavo
{ //viene forzato a 4 => cessione beni ammortizzabili
impo += imponibile;
impos += imposta;
}
default:
break;
}
} //fine while
_mesi[mese].imponibile += impo;
_mesi[mese].imposta += impos;
impo = impos = ZERO;
}
}
bool TProgressivi_iva::tipo_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
TMask& m = f.mask();
const int livello = m.get_int(F_LIVELLO);
const int tipo = atoi(f.get());
bool tab = FALSE, tabe = FALSE, tabel = FALSE;
if (livello == 1)
{
tab = tipo == 1;
tabe = tipo == 2;
}
else
{
tabel = tipo == 2;
}
m.show(F_TIPOTAB, tab);
m.show(F_TIPOTABE, tabe);
m.show(F_TIPOTABEL, tabel);
}
return TRUE;
}
void TProgressivi_iva::check_period(TMask& m)
{
app()._anno = m.get_int(F_ANNO);
const char f = app().frequenza_versamenti(m.get_long(F_CODDITTA), app()._anno);
m.show(-2);
m.show(F_MESE, f == 'M');
m.show(F_TRIMESTRE, f == 'T');
}
bool TProgressivi_iva::selection_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
TMask& m = f.mask();
const int sel = atoi(f.get());
switch (sel)
{
case 1:
{
const bool b = atoi(m.field(F_LIVELLO).get()) == 1 ? TRUE : FALSE;
m.show(F_CODIVA,b);
m.show(F_ATTIVITA,!b);
tipo_handler(m.field(F_TIPO),K_SPACE);
}
break;
case 2:
check_period(m);
break;
default: break;
}
}
return TRUE;
}
bool TProgressivi_iva::period_handler(TMask_field& f, KEY k)
{
if (f.to_check(k))
{
TMask& m = f.mask();
if (m.get_int(F_SELECTION) == 2)
check_period(m);
}
return TRUE;
}
bool TProgressivi_iva::set_print(int m)
{
TMask msk("cg0400a");
msk.set_handler(F_CODDITTA, period_handler);
msk.set_handler(F_ANNO, period_handler);
msk.set_handler(F_TIPO, tipo_handler);
msk.set_handler(F_SELECTION, selection_handler);
if (msk.run() != K_ENTER)
return FALSE;
_tipo_lista = msk.get_int(F_SELECTION) == 1 ? ListaPerAliquota : ListaPerPeriodo;
switch (_tipo_lista)
{
case ListaPerAliquota:
{
_sospmsk = _tipo_aliq = _tipo_attiv = 0;
_codditta = msk.get_long(F_CODDITTA);
prefix().set_codditta(_codditta);
_annoiva = msk.get_int(F_ANNO);
_tipoprog = msk.get_int(F_TIPO); // 1 <=> vendite; 2 <=> acquisti
_livelloprog = msk.get_int(F_LIVELLO); // 1 <=> aliquota; 2 <=> attivita'
_codivamsk = msk.get(F_CODIVA);
_codattmsk = msk.get(F_ATTIVITA);
if (_livelloprog == 1 && _tipoprog == 2)
_tipo_aliq = msk.get_int(F_TIPOTABE);
if (_livelloprog == 2 && _tipoprog == 2)
_tipo_attiv = msk.get_int(F_TIPOTABEL);
if (_tipoprog == 1 && _livelloprog == 1)
_sospmsk = msk.get_int(F_TIPOTAB); //vendite in genere; vendite in sospensione d'imposta
ricalcola_liquidazione_se_necessario(_annoiva, 12);
setta_intestazione();
azzera_mesi();
cerca_i_pim();
}
break;
case ListaPerPeriodo:
{
_codditta = msk.get_long(F_CODDITTA);
_anno = msk.get_int(F_ANNO);
_datast = msk.get(F_DATASTAMPA);
_mese = msk.get_int(frequenza_versamenti(_codditta, _anno) == 'M' ? F_MESE : F_TRIMESTRE);
_st_inizio_anno = msk.get_bool(F_STAMPA);
_tipo_prog_reg = *msk.get(F_TIPOPROGREG); // L <=> Solo liquidazione, V <=> Solo volume d'affari
prefix().set_codditta(_codditta);
ricalcola_liquidazione_se_necessario(_anno, _mese);
TLocalisamfile attiv(LF_ATTIV);
attiv.zero();
attiv.put(ATT_CODDITTA, _codditta);
TRectype r(attiv.curr());
//prospetto per ogni codice attivita' della ditta
for(attiv.read(_isgteq); !attiv.eof(); attiv.next())
{
if (attiv.curr() != r) break;
_cod_att = attiv.get(ATT_CODATT);
if (_anno > 2007)
_cod_ateco = attiv.get(ATT_CODATECO);
else
_cod_ateco = _cod_att;
_prima_pagina = TRUE;
_iva_array.destroy();
_iva1_array.destroy();
_gen_array.destroy();
_gen1_array.destroy();
look_pim();
print();
}
return false;
}
break;
default:
break;
}
return TRUE;
}
void TProgressivi_iva::calcola_totali(real& imp, real& imps)
{
for (int i=0; i<=12; i++)
{
imp += _mesi[i].imponibile;
imps += _mesi[i].imposta;
}
}
void TProgressivi_iva::cerca_tipo(TIva_array& iva_array,tiporec t,
real& imp, real& imps, real& det)
{
int k = 0;
bool trovato = FALSE;
imp = imps = det = ZERO;
while ( k < iva_array.items() && !trovato)
{
TRiga_iva& riga = (TRiga_iva&)iva_array[k];
if (t == riga._tipo)
trovato = TRUE;
else k++;
}
if (trovato)
{
TRiga_iva& riga = (TRiga_iva&)iva_array[k];
imp = riga._imponibile;
imps = riga._imposta;
det = riga._detrazione;
}
}
bool TProgressivi_iva::preprocess_page(int file, int counter)
{
reset_print();
switch (_tipo_lista)
{
case ListaPerPeriodo:
{
if (!_st_inizio_anno)
prospetto_pagina(_gen_array,_iva_array);
else
{
if (_prima_pagina)
prospetto_pagina(_gen1_array,_iva1_array);
else
{
printer().formfeed();
prospetto_pagina(_gen_array,_iva_array);
}
}
}
break;
case ListaPerAliquota:
{
if (counter)
_i++;
else
_i = 1;
const char* mese = itom(_i);
set_row(1,"%s", mese);
set_row(1,"@26g%r", &_mesi[_i].imponibile);
set_row(1,"@56g%r", &_mesi[_i].imposta);
if (_i == 12)
{
real tot_impo = ZERO;
real tot_imposta = ZERO;
calcola_totali(tot_impo, tot_imposta);
TString dep = "";
set_row(2,(const char*) dep);
set_row(3,"@8g%s", TR("Totale"));
set_row(3,"@26g%r", &tot_impo);
set_row(3,"@56g%r", &tot_imposta);
}
}
break;
default:
break;
}
return TRUE;
}
void TProgressivi_iva::prospetto_pagina(TGen_array& gen, TIva_array& iva)
{
real t_impov,t_imposv,t_impoa,t_imposa,t_impobd,t_imposbd;
t_impov = t_imposv = t_impoa = t_imposa = t_impobd = t_imposbd = ZERO;
int r = 1;
TString80 descr;
set_row(++r, FR("Cod.@40gVENDITE@77gACQUISTI@113gIMPORTAZIONI"));
set_row(++r, FR("IVA Descrizione@29gImponibile@48gImposta@67gImponibile@86gImposta@105gImponibile@124gImposta"));
r+=2;
for (int k = 0; k < gen.items(); k++)
{
TRiga_gen& riga = (TRiga_gen&)gen[k];
descr = desc_iva(riga._codiva);
if (riga._codiva[0] == '{') riga._codiva.ltrim(1);
if (riga._impoven != ZERO)
set_row(r, "@24g%r", &riga._impoven);
if (riga._imposven != ZERO)
set_row(r, "@40g%r", &riga._imposven);
if (riga._impoacq != ZERO)
set_row(r, "@62g%r", &riga._impoacq);
if (riga._imposacq != ZERO)
set_row(r, "@78g%r", &riga._imposacq);
if (riga._impobd != ZERO)
set_row(r, "@100g%r", &riga._impobd);
if (riga._imposbd != ZERO)
set_row(r, "@116g%r", &riga._imposbd);
if (riga._impoven != ZERO || riga._imposven != ZERO || riga._impoacq != ZERO
|| riga._imposacq != ZERO || riga._impobd != ZERO || riga._imposbd != ZERO)
{
set_row(r, "@0g%-4s", (const char*)riga._codiva);
set_row(r, "@5g%-.18s", (const char*)descr);
r++;
}
t_impov += riga._impoven;
t_imposv += riga._imposven;
t_impoa += riga._impoacq;
t_imposa += riga._imposacq;
t_impobd += riga._impobd;
t_imposbd += riga._imposbd;
}
gen.destroy();
r+=2;
set_row(r++, FR("Totale@24g%r@40g%r@62g%r@78g%r@100g%r@116g%r"),
&t_impov,&t_imposv,&t_impoa,&t_imposa,&t_impobd,&t_imposbd);
r++;
real im, is, d, im1, is1, d1; //inizializzati in cerca_tipo()
cerca_tipo(iva,acq_ind_op_es,im,is,d);
t_impoa += im;
t_imposa += is;
bool st_riga = FALSE;
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Totali acquisti indeducibili su ricavi esenti@62g%r@78g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,acq_ind_art_19,im,is,d);
cerca_tipo(iva,acq_bd_ind_art_19,im1,is1,d1);
t_impoa += im;
t_imposa += is;
t_impobd += im1;
t_imposbd += is1;
if (im != ZERO || is != ZERO || im1 != ZERO || is1 != ZERO)
{
set_row(r++, FR("Totali acquisti indeducibili per ART.19@62g%r@78g%r@100g%r@116g%r"), &im, &is, &im1, &is1);
st_riga = TRUE;
}
cerca_tipo(iva,acq_ind_pass_int,im,is,d);
t_impoa += im;
t_imposa += is;
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Totali acquisti indeducibili per passaggi interni@62g%r@78g%r"), &im, &is);
st_riga = TRUE;
}
r+=2;
if (st_riga)
set_row(r++, FR("Totale generale IVA@24g%r@40g%r@62g%r@78g%r@100g%r@116g%r"),
&t_impov,&t_imposv,&t_impoa,&t_imposa,&t_impobd,&t_imposbd);
r+=3;
const int kk = r; // memorizza riga in cui scrivere "altri dati relativi alla dichiarazione"
r+=2;
st_riga = FALSE;
cerca_tipo(iva,acq_simp,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Acquisti in sospensione d'imposta@49g%r@66g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,vend_simp,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Vendite in sospensione d'imposta@49g%r@66g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,cess_amm,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Cessione beni ammortizzabili@49g%r@66g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,acq_beni_riv,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Acquisto beni destinati alla rivendita@49g%r@66g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,acq_beni_ammort,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Acquisto beni ammortizzabili iva detraibile@49g%r@66g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,acq_beni_ammort_nd,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Acquisto beni ammortizzabili iva non detraibile@49g%r@66g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,acq_beni_leasing,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Altri beni strumentali acquisiti in leasing@49g%r@66g%r"), &im, &is);
st_riga = TRUE;
}
cerca_tipo(iva,acq_amm_ultdetr,im,is,d);
if (im != ZERO || is != ZERO)
{
set_row(r++, FR("Acquisto beni soggetti a detrazione (6%%)@49g%r@66g%r@86g%r"), &im, &is, &d);
st_riga = TRUE;
}
if (st_riga)
set_row(kk, FR("ALTRI DATI RELATIVI ALLA DICHIARAZIONE@54gImponibile@74gImposta@91gDetrazione"));
iva.destroy();
}
void TProgressivi_iva::get_dati_ditta()
{
TString codanagr;
TString tipoa;
const TRectype & ditta = cache().get(LF_NDITTE, _codditta);
codanagr = ditta.get(NDT_CODANAGR);
tipoa = ditta.get(NDT_TIPOA);
_ragsoc = ditta.get(NDT_RAGSOC);
TString16 key; key.format("%s|%s", (const char *) tipoa, (const char *) codanagr);
const TRectype & anag = cache().get(LF_ANAG, key);
_cofi = anag.get(ANA_COFI);
_paiva = anag.get(ANA_PAIV);
_comunefis = anag.get(ANA_COMRF);
if (_comunefis.empty())
_comunefis = anag.get(ANA_COMRES);
key = "|"; key << _comunefis;
const TRectype & dep = cache().get(LF_COMUNI, key);
_comunefis = dep.get(COM_DENCOM);
_provfis = dep.get(COM_PROVCOM);
_cap = dep.get(COM_CAPCOM);
if (_comunefis.empty())
{
_viafis = anag.get(ANA_INDRF);
_viafis.rtrim();
_viafis << " " << anag.get (ANA_CIVRF);
}
else
{
_viafis = anag.get(ANA_INDRES);
_viafis.rtrim();
_viafis << " " << anag.get (ANA_CIVRES);
}
}
int TProgressivi_iva::stampa_intestazione_ditta()
{
int r = 1;
TString riga(132);
get_dati_ditta();
set_header (r, FR("Ditta %ld %s %s %s %s %s"), _codditta,
(const char*)_ragsoc, (const char*)_viafis,
(const char*)_cap, (const char*)_comunefis,
(const char*)_provfis);
r++;
riga = FR("Data @> Pag. @#");
riga.right_just(123);
TString80 dep; dep.format (FR("Partita iva %s Codice fiscale %s"),
(const char*)_paiva, (const char*)_cofi);
riga.overwrite(dep);
set_header (r, riga);
r+=3;
return r;
}
void TProgressivi_iva::setta_intestazione()
{
int r = 1;
reset_header();
r = stampa_intestazione_ditta();
if (_livelloprog == 1)
set_header(r++, FR("Gestione Iva@b@50gPROGRESSIVI IVA PER ALIQUOTA"));
else set_header(r++, FR("Gestione Iva@b@50gPROGRESSIVI IVA PER ATTIVITA'"));
r++;
set_header(r++, FR("Anno liquidazione %d"), _annoiva);
if (_tipoprog == 1) //vendite
{
if (_livelloprog == 1)
{
if (_sospmsk == 1)
set_header(r, TR("Vendite in genere"));
else set_header(r, TR("Vendite in sospensione d'imposta"));
}
else set_header(r, TR("Cessione beni da ammortizzare"));
}
else //acquisti
{
if (_livelloprog == 1) //per codice iva
switch (_tipo_aliq)
{
case 1:
set_header(r, TR("Acquisti in genere"));
break;
case 2:
set_header(r, TR("Acquisti indetraibili su operazioni esenti"));
break;
case 3:
set_header(r, TR("Acquisti indetraibili passaggi interni"));
break;
case 4:
set_header(r, TR("Acquisti indetraibili art.19"));
break;
case 5:
set_header(r, TR("Acquisti base di calcolo per la ventilazione"));
break;
case 6:
set_header(r, TR("Bolle doganali"));
break;
case 7:
set_header(r, TR("Acquisti in sospensione d'imposta"));
break;
default:
break;
}
else //per attivita'
switch (_tipo_attiv)
{
case 1:
set_header(r, TR("Acquisti beni per rivendita"));
break;
case 2:
set_header(r, TR("Acquisti beni da ammortizzare detraibili"));
break;
case 3:
set_header(r, TR("Acquisti beni da ammortizzare non detraibili"));
break;
case 4:
set_header(r, TR("Altri beni strumentali acquisiti in leasing"));
break;
case 5:
set_header(r, TR("Acquisti beni da ammortizzare ult.detr. 6%"));
break;
default:
break;
}
}
r++;
if (_livelloprog == 1)
set_header(r++, "IVA %s",(const char*) _codivamsk);
else
{
TString8 ca;
if (_annoiva > 2007)
{
TString16 key;
key.format("%ld|%s", _codditta, (const char *)_codattmsk);
ca = cache().get(LF_ATTIV, key, ATT_CODATECO);
}
set_header(r++, FR("ATTIVITA' %s %s"),(const char*)ca, desc_attivita(_codattmsk));
}
set_header(++r, FR("@31gImponibile@64gImposta"));
}
void TProgressivi_iva::preprocess_header()
{
if (_tipo_lista == ListaPerPeriodo)
{
int soh = 1;
TString sep(132);
TString ragsoc;
TString16 descf;
TString16 key; key << _codditta;
const TRectype & ditta = cache().get(LF_NDITTE, key);
ragsoc = ditta.get(NDT_RAGSOC);
TString80 descr = desc_attivita(_cod_att);
reset_header();
const char f = frequenza_versamenti(_codditta, _anno);
if (f == 'T')
descf = TR(" TRIMESTRALE");
else if (f == 'M')
descf = TR(" MENSILE");
else
descf = "";
sep << TR("Ditta") << " " << _codditta;
sep << " " << ragsoc;
sep << " " << descf;
sep.left_just(132);
set_header (soh++, (const char*) sep);
sep = "";
sep << TR("Data ") << _datast;
sep << FR(" Pag. @#");
sep.right_just(127);
sep.overwrite (TR("RIEPILOGO PROGRESSIVI"));
set_header (soh++, (const char*)sep);
sep.fill('-');
set_header (soh++, (const char *) sep);
const char* pro_des = _tipo_prog_reg == 'L' ? TR("liquidazione IVA") : TR("Volume Affari");
TString periodo;
if (f == 'M')
periodo = itom(_mese);
else
periodo.format(FR("%d trimestre"), ((_mese-1)/3) +1);
if (_st_inizio_anno)
{
if (_mese == 13 || (_mese == 12 && !_prima_pagina))
set_header(soh++, FR("Riepilogo progressivi %s annuale %d Cod. Att. %s %s"), pro_des, _anno, (const char*) _cod_ateco, (const char*) descr);
else
if (_prima_pagina)
set_header(soh++, FR("Riepilogo progressivi %s del periodo %s %d Cod. Att. %s %s"), pro_des, (const char*) periodo, _anno, (const char*) _cod_ateco, (const char*) descr);
else set_header(soh++, FR("Riepilogo progressivi %s al%s: %s %d Cod. Att. %s %s"), pro_des, f == 'M' ? TR(" Mese di") : "", (const char*) periodo, _anno, (const char*) _cod_ateco, (const char*) descr);
}
else set_header (soh++, FR("Riepilogo progressivi %s del periodo %s %d Cod. Att. %s %s"), pro_des, (const char*) periodo, _anno, (const char*) _cod_ateco, (const char*) descr);
set_header (soh, (const char *) sep);
}
}
print_action TProgressivi_iva::postprocess_page(int file, int counter)
{
switch (_tipo_lista)
{
case ListaPerPeriodo:
{
if (_st_inizio_anno && _mese != 13)
if (_prima_pagina)
{
_prima_pagina = FALSE;
return REPEAT_PAGE;
}
else return NEXT_PAGE;
}
break;
case ListaPerAliquota:
{
if (_i < 12) return REPEAT_PAGE;
else return NEXT_PAGE;
}
break;
default:
break;
}
return NEXT_PAGE;
}
int cg0400(int argc,char* argv[])
{
TProgressivi_iva a;
a.run(argc, argv, TR("Riepilogo progressivi IVA"));
return 0;
}