Alessandro Bonazzi
7308ff69f5
Files correlati : cg7.exe cg7400c.png cg7400x.png cg7a00a.rep cg7a00a.msk cg7c00a.rep cg7c00a.msk cg7e00b.png cg7h00b.png cg7400a.png cg7400a.rep cg7400a.msk cg7400b.png cg7500a.png cg7600a.png cg7700a.png
cg7700b.png cg7800a.png cg7900a.png cg7900b.png cg7a00a.png cg7b00a.png cg7c00a.png cg7d00a.png cg7e00a.png cg7f00a.png cg7g00a.png cg7g00b.png cg7h00a.png cgmenu.men
Bug :
Commento:
Quadri Dichiarazione IVA 2025
Aggiunto quadro VL
382 lines
10 KiB
C++
382 lines
10 KiB
C++
// Programma per la stampa del quadro VL
|
|
#include <recarray.h>
|
|
#include <tabutil.h>
|
|
#include <utility.h>
|
|
|
|
#include "cg7401.h"
|
|
#include "cgpim.h"
|
|
#include "cglib.h"
|
|
|
|
#include "cg7a00a.h"
|
|
#include "rmoviva.h"
|
|
#include <attiv.h>
|
|
#include "ivaliq.h"
|
|
|
|
#define REP_QUADRO 1
|
|
|
|
class TQuadro_VL_recordset : public TQuadro_IVA_recordset
|
|
{
|
|
|
|
protected:
|
|
virtual void load(const char repid);
|
|
|
|
public:
|
|
TQuadro_VL_recordset(TQuadro_IVA_mask * mask, const char* use, const int year, const char repid) : TQuadro_IVA_recordset(mask, use, year, repid) { load(repid); }
|
|
virtual ~TQuadro_VL_recordset() {}
|
|
};
|
|
|
|
void TQuadro_VL_recordset::load(const char repid)
|
|
{
|
|
real ivadeb;
|
|
real ivadetr;
|
|
clear();
|
|
|
|
TString query("USE PIM\nFROM CODTAB=");
|
|
|
|
query << year() << "\nTO CODTAB=" << year();
|
|
|
|
TISAM_recordset pim(query);
|
|
|
|
for (pim.move_first(); !pim.eof(); pim.move_next())
|
|
{
|
|
const TString80 codtab = pim.get_string("CODTAB");
|
|
TString8 codiva(codtab.smid(16, 4)); codiva.trim();
|
|
const TRectype & ivar = cache().get("%IVA", codiva);
|
|
const TString8 aliquota = ivar.get("R0");
|
|
const TString8 codreg(format("%d%-3s", year(), (const char*)codtab.smid(10, 3)));
|
|
const TRectype & reg = cache().get("REG", codreg);
|
|
const tiporec tipo = (tiporec)reg.get_int("I9");
|
|
const bool vendite = reg.get_int("I0") == 1;
|
|
const int month = atoi(codtab.smid(13, 2));
|
|
|
|
if (tipo != liquidazione && month == 13)
|
|
{
|
|
const TRectype & pimr = pim.cursor()->curr();
|
|
TArray imponibili;
|
|
TArray imposte;
|
|
|
|
classify_pim_array(pimr, imponibili, imposte, true, true);
|
|
FOR_EACH_ARRAY_ITEM(imposte, t, obj)
|
|
{
|
|
if (obj != nullptr)
|
|
{
|
|
real & imp = (real &)*obj;
|
|
real & iva = (real &)imposte[t];
|
|
tiporec tipo = (tiporec)t;
|
|
|
|
if (vendite)
|
|
{
|
|
if (tipo == vend_norm || tipo == corr_norm)
|
|
{
|
|
add_value("VL01.1", iva); // VL1.1 IVA a debito
|
|
ivadeb += iva;
|
|
}
|
|
if (aliquota == "19.00" || aliquota == "20.00" || aliquota == "21.00")
|
|
{
|
|
real imposta_corretta = imp;
|
|
|
|
imposta_corretta *= 0.22;
|
|
imposta_corretta.round(0);
|
|
add_value("VL01.1", iva - imposta_corretta);
|
|
iva = imposta_corretta;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (tipo == acq_norm)
|
|
{
|
|
add_value("VL02.1", iva); // VL2.1 IVA detraibile
|
|
ivadetr += iva;
|
|
}
|
|
if (aliquota == "19.00" || aliquota == "20.00" || aliquota == "21.00")
|
|
{
|
|
real imposta_corretta = imp;
|
|
|
|
imposta_corretta *= 0.22;
|
|
imposta_corretta.round(0);
|
|
add_value("VL02.1", iva - imposta_corretta);
|
|
iva = imposta_corretta;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
TISAM_recordset * recset = app().mask()->get_recset(REP_QUADRO);
|
|
|
|
recset->set_var("#ANNO", format("%d", year()));
|
|
for (recset->move_first(); !recset->eof(); recset->move_next())
|
|
{
|
|
const int regspiva = recset->get("26.REGSPIVA").as_int();
|
|
const real iva = recset->get(RMI_IMPOSTA).as_real();
|
|
|
|
switch (regspiva)
|
|
{
|
|
case 1:
|
|
case 2:
|
|
case 3:
|
|
case 4:
|
|
case 5:
|
|
case 6:
|
|
case 7:
|
|
case 8:
|
|
case 9:
|
|
case 10:
|
|
case 13:
|
|
case 14:
|
|
case 15:
|
|
case 16:
|
|
case 17:
|
|
case 18:
|
|
case 19:
|
|
case 50:
|
|
case 51:
|
|
add_value("VL01.1", iva);
|
|
ivadeb += iva;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
*/
|
|
|
|
const TRectype & lia = cache().get("%LIA", format("%04d", year()));
|
|
const bool credito_compensabile = (lia.get("S9") == "CM");
|
|
const bool mensile = lia.get("S7") == "M";
|
|
const int annual_month = mensile ? 13 : 12;
|
|
|
|
add_value("VL08.1", lia.get_real("R0"));
|
|
add_value("VL08.2", mask().get_real(F_VL082));
|
|
add_value("VL08.3", mask().get_real(F_VL083));
|
|
add_value("VL09.1", lia.get_real("R15"));
|
|
|
|
if (!credito_compensabile)
|
|
{
|
|
query.reset();
|
|
query << "USE LAM\nFROM CODTAB=" << year() << "\nTO CODTAB=" << year();
|
|
|
|
TISAM_recordset lam(query);
|
|
|
|
for (lam.move_first(); !lam.eof(); lam.move_next())
|
|
{
|
|
int month = atoi(lam.get_string("CODTAB").smid(4));
|
|
real iva_credeb = lam.get_real("R0");
|
|
|
|
iva_credeb -= lam.get_real("R1");
|
|
iva_credeb += lam.get_real("R5");
|
|
iva_credeb -= lam.get_real("R7");
|
|
iva_credeb += lam.get_real("R6");
|
|
iva_credeb -= lam.get_real("R8");
|
|
if (iva_credeb > ZERO) // dovrei versare
|
|
{
|
|
TString lim_key = format("%04d%02d", year(), month);
|
|
real credito_utilizzato_iva;
|
|
real risultato(cache().get("LIM", lim_key, "R0"));
|
|
|
|
if (risultato > ZERO && risultato != iva_credeb) // devo versare
|
|
{
|
|
if (risultato <= iva_credeb)
|
|
credito_utilizzato_iva = iva_credeb - risultato;
|
|
else
|
|
credito_utilizzato_iva = risultato -iva_credeb;
|
|
add_value("VL27.1", credito_utilizzato_iva);
|
|
ivadetr += credito_utilizzato_iva;
|
|
if (month < 10)
|
|
{
|
|
add_value("VL22.1", credito_utilizzato_iva);
|
|
ivadeb += credito_utilizzato_iva;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
query.reset();
|
|
query << "USE LIM\nFROM CODTAB=" << year() << "\nTO CODTAB=" << year();
|
|
|
|
TISAM_recordset lim(query);
|
|
|
|
for (lim.move_first(); !lim.eof(); lim.move_next())
|
|
{
|
|
int month = atoi(lim.get_string("CODTAB").smid(4));
|
|
const real crediva = lim.get_real("R15");
|
|
const real credf24 = lim.get_real("R16");
|
|
|
|
add_value("VL27.1", crediva);
|
|
// add_value("VL09.1", crediva);
|
|
// add_value("VL09.1", credf24);
|
|
ivadetr += crediva;
|
|
if (month < annual_month)
|
|
add_value("VL23.1", lim.get_real("R34"));
|
|
else
|
|
add_value("VL36.1", lim.get_real("R34"));
|
|
if (month < 10)
|
|
{
|
|
add_value("VL22.1", crediva);
|
|
ivadeb += crediva;
|
|
add_value("VL22.1", credf24);
|
|
ivadeb += credf24;
|
|
}
|
|
if (month == 13)
|
|
{
|
|
const real var_cred = lim.get("R17").as_real();
|
|
|
|
if (var_cred < ZERO) // ???
|
|
add_value("VF26.2", -var_cred);
|
|
}
|
|
}
|
|
add_value("VL10.1", mask().get_real(F_VL101));
|
|
add_value("VL11.1", mask().get_real(F_VL111));
|
|
ivadetr += mask().get_real(F_VL111);
|
|
add_value("VL11.2", mask().get_real(F_VL112));
|
|
ivadetr += mask().get_real(F_VL112);
|
|
add_value("VL12.1", mask().get_real(F_VL121));
|
|
add_value("VL12.2", mask().get_real(F_VL122));
|
|
add_value("VL20.1", mask().get_real(F_VL201));
|
|
ivadeb += mask().get_real(F_VL201);
|
|
add_value("VL21.1", mask().get_real(F_VL211));
|
|
ivadeb += mask().get_real(F_VL211);
|
|
add_value("VL24.1", mask().get_real(F_VL241));
|
|
ivadetr += mask().get_real(F_VL241);
|
|
add_value("VL25.1", mask().get_real(F_VL251));
|
|
ivadetr += mask().get_real(F_VL251);
|
|
add_value("VL26.1", mask().get_real(F_VL261));
|
|
ivadetr += mask().get_real(F_VL261);
|
|
add_value("VL28.1", mask().get_real(F_VL281));
|
|
ivadetr += mask().get_real(F_VL281);
|
|
add_value("VL29.1", mask().get_real(F_VL291));
|
|
ivadetr += mask().get_real(F_VL291);
|
|
query.reset();
|
|
query << "USE " << LF_IVALIQ << " SELECT " << IVAL_GENERATA << "==\"U\"\nFROM " << IVAL_ANNO << "=" << year() << "\nTO " << IVAL_ANNO << "=" << year();
|
|
|
|
TISAM_recordset ivaliq(query);
|
|
real ivaperd;
|
|
real ivaperv;
|
|
|
|
for (ivaliq.move_first(); !ivaliq.eof(); ivaliq.move_next())
|
|
{
|
|
const real ivaver = ivaliq.get_real(IVAL_IVAVER);
|
|
|
|
add_value("VL30.2", ivaver);
|
|
add_value("VL30.3", ivaver);
|
|
ivaperd += ivaver;
|
|
ivaperv += ivaver;
|
|
ivadetr += ivaver;
|
|
}
|
|
add_value("VL30.4", mask().get_real(F_VL304));
|
|
ivaperv += mask().get_real(F_VL304);
|
|
add_value("VL30.5", mask().get_real(F_VL305));
|
|
ivaperv += mask().get_real(F_VL305);
|
|
if (ivaperd >= ivaperv)
|
|
add_value("VL30.1", ivaperd);
|
|
else
|
|
add_value("VL30.1", ivaperv);
|
|
add_value("VL31.1", mask().get_real(F_VL311));
|
|
ivadetr += mask().get_real(F_VL311);
|
|
if (ivadeb > ivadetr)
|
|
add_value("VL32.1", ivadeb - ivadetr);
|
|
else
|
|
if (ivadeb < ivadetr)
|
|
add_value("VL33.1", ivadetr - ivadeb);
|
|
add_value("VL35.1", mask().get_real(F_VL351));
|
|
add_value("VL37.1", mask().get_real(F_VL371));
|
|
add_value("VL40.1", mask().get_real(F_VL401));
|
|
add_value("VL41.1", mask().get_real(F_VL411));
|
|
add_value("VL41.2", mask().get_real(F_VL412));
|
|
}
|
|
|
|
class TQuadro_VL_app : public TQuadro_IVA_app
|
|
{
|
|
|
|
protected:
|
|
virtual bool has_data() const override { return true; }
|
|
virtual void load_sheet(TSheet_field & sf);
|
|
|
|
public:
|
|
virtual void load_data(TQuadro_IVA_mask & m) override;
|
|
virtual void save_data(TQuadro_IVA_mask & m) override;
|
|
virtual TQuadro_IVA_recordset * app_recordset(const char* use, const int year, const char repid) { return new TQuadro_VL_recordset(mask(), use, year,repid); }
|
|
|
|
TQuadro_VL_app() : TQuadro_IVA_app("Stampa Quadro VL", "cg7a00a") {}
|
|
virtual ~TQuadro_VL_app() {}
|
|
|
|
};
|
|
|
|
void TQuadro_VL_app::load_sheet(TSheet_field & sf)
|
|
{
|
|
// TToken_string & row1 = sf.row(sf.items()); row1.add("|1|Quadro VJ - VJ1 - VJ19|cg7800b");
|
|
}
|
|
|
|
void TQuadro_VL_app::load_data(TQuadro_IVA_mask & m)
|
|
{
|
|
TTable div("DIV");
|
|
|
|
div.put("CODTAB", m.get(F_YEAR));
|
|
if (div.read() != NOERR)
|
|
div.zero();
|
|
m.set(F_VL082, div.get("R0"));
|
|
m.set(F_VL083, div.get("R1"));
|
|
m.set(F_VL101, div.get("R2"));
|
|
m.set(F_VL111, div.get("R3"));
|
|
m.set(F_VL112, div.get("R4"));
|
|
m.set(F_VL121, div.get("R5"));
|
|
m.set(F_VL122, div.get("R6"));
|
|
m.set(F_VL201, div.get("R7"));
|
|
m.set(F_VL211, div.get("R8"));
|
|
m.set(F_VL241, div.get("R9"));
|
|
m.set(F_VL251, div.get("R10"));
|
|
m.set(F_VL261, div.get("R11"));
|
|
m.set(F_VL281, div.get("R12"));
|
|
m.set(F_VL291, div.get("R13"));
|
|
m.set(F_VL304, div.get("R14"));
|
|
m.set(F_VL305, div.get("R15"));
|
|
m.set(F_VL311, div.get("R16"));
|
|
m.set(F_VL351, div.get("R17"));
|
|
m.set(F_VL371, div.get("R18"));
|
|
m.set(F_VL401, div.get("R19"));
|
|
m.set(F_VL411, div.get("R20"));
|
|
m.set(F_VL412, div.get("R21"));
|
|
}
|
|
|
|
void TQuadro_VL_app::save_data(TQuadro_IVA_mask & m)
|
|
{
|
|
TTable div("DIV");
|
|
|
|
div.put("CODTAB", m.get(F_YEAR));
|
|
div.put("R0", m.get(F_VL082));
|
|
div.put("R1", m.get(F_VL083));
|
|
div.put("R2", m.get(F_VL101));
|
|
div.put("R3", m.get(F_VL111));
|
|
div.put("R4", m.get(F_VL112));
|
|
div.put("R5", m.get(F_VL121));
|
|
div.put("R6", m.get(F_VL122));
|
|
div.put("R7", m.get(F_VL201));
|
|
div.put("R8", m.get(F_VL211));
|
|
div.put("R9", m.get(F_VL241));
|
|
div.put("R10", m.get(F_VL251));
|
|
div.put("R11", m.get(F_VL261));
|
|
div.put("R12", m.get(F_VL281));
|
|
div.put("R13", m.get(F_VL291));
|
|
div.put("R14", m.get(F_VL304));
|
|
div.put("R15", m.get(F_VL305));
|
|
div.put("R16", m.get(F_VL311));
|
|
div.put("R17", m.get(F_VL351));
|
|
div.put("R18", m.get(F_VL371));
|
|
div.put("R19", m.get(F_VL401));
|
|
div.put("R20", m.get(F_VL411));
|
|
div.put("R21", m.get(F_VL412));
|
|
|
|
const int err = div.write_rewrite();
|
|
|
|
if (err != NOERR)
|
|
error_box("Errore %d nella scrittura dati.", err);
|
|
}
|
|
|
|
int cg7a00(int argc, char* argv[])
|
|
{
|
|
TQuadro_VL_app a;
|
|
|
|
a.run(argc, argv, TR("Quadro VL"));
|
|
return 0;
|
|
} |