campo-sirio/src/cg/cg7800.cpp
bonazzi c053e94203 Patch level : 12.0 348
Files correlati     : cg7.exe cg7600a.png cg7600a.rep cg7700a.png cg7700a.rep
                      cg7700a.png cg7700b.rep cg7800a.png cg7800a.rep
                      cg7700b.rep cg7700b.png 

Quadri Ve VF e VJ della dichiarazioone IVA
Aggiunti ai regimi speciali sulle causali 
6  Acquisti di rottami e mat.di di recupero art. 74, commi 7 e 8
7  Acquisti di oro industriale e argento puro (art. 17, comma 5)
8  Acquisti di oro da investimento imp.per opzione (art. 17, comma 5)
9  Acquisti intrac. di CPU,PC, tablet,cellulari,console,microproc.
10 Importazioni rottami e altri mat.di recupero imposta non è versata
14 Acquisti di fabbricati (art. 17, comma 6, lett. a-bis)
15 Acquisti di telefoni cellulari (art. 17, comma 6, lett. b)
16 Acquisti di prodotti elettronici (art. 17, comma 6, lett. c)
17 Acquisti di servizi del comp.edile e sett.connessi art. 17,comma 6, lett. a-ter
18 Acquisti di beni e servizi del sett.energetico art. 17, c.6 d-bis,ter,d-quater
19 Acquisti delle P.A., titolari di partita IVA art. 17-ter

git-svn-id: svn://10.65.10.50/branches/R_10_00@23639 c028cbd2-c16b-5b4b-a496-9718f37d4682
2017-02-20 14:41:21 +00:00

148 lines
7.2 KiB
C++
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

// Programma per la stampa del quadro VE
#include <recarray.h>
#include <tabutil.h>
#include <utility.h>
#include "cg7401.h"
#include "cgpim.h"
#include "cg7400a.h"
#include "rmoviva.h"
#define REP_QUADRO 1
enum tipo_sospensione { nessuna, normale, vol_affari, liquidazione };
class TQuadro_VJ_recordset : public TQuadro_IVA_recordset
{
TQuadro_IVA_mask * _mask;
protected:
virtual void load();
public:
TQuadro_VJ_recordset(TQuadro_IVA_mask * mask, const char* use, const int year) : TQuadro_IVA_recordset(mask, use, year) { load(); }
virtual ~TQuadro_VJ_recordset() {}
};
void TQuadro_VJ_recordset::load()
{
clear();
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 imp = recset->get(RMI_IMPONIBILE).as_real();
const real iva = recset->get(RMI_IMPOSTA).as_real();
switch (regspiva)
{
case 1:
add_value("VJ01.1", imp); // VJ1.1 Acquisti di beni provenienti dallo Stato Città del Vaticano e dalla Repubblica di San Marino art. 71, comma 2 (inclusi acquisti di oro industriale,argento puro e beni di cui allart. 74, commi 7 e 8)
add_value("VJ01.2", iva); // VJ1.2 Acquisti di beni provenienti dallo Stato Città del Vaticano e dalla Repubblica di San Marino art. 71, comma 2 (inclusi acquisti di oro industriale,argento puro e beni di cui allart. 74, commi 7 e 8)
break;
case 2:
add_value("VJ02.1", imp); // VJ2.1 Estrazione di beni da depositi IVA (art. 50-bis, comma 6, d.l. n. 331/1993)
add_value("VJ02.2", iva); // VJ2.2 Estrazione di beni da depositi IVA (art. 50-bis, comma 6, d.l. n. 331/1993)
break;
case 3:
add_value("VJ03.1", imp); // VJ3.1 Acquisti di beni e servizi da soggettIi non residenti ai sensi dellart. 17, comma 2
add_value("VJ03.2", iva); // VJ3.2 Acquisti di beni e servizi da soggettIi non residenti ai sensi dellart. 17, comma 2
break;
case 4:
add_value("VJ04.1", imp); // VJ4.1 Operazioni di cui allart. 74, comma 1, lett. e)
add_value("VJ04.2", iva); // VJ4.2 Operazioni di cui allart. 74, comma 1, lett. e)
break;
case 5:
add_value("VJ05.1", imp); // VJ5.1 Provvigioni corrisposte dalle agenzie di viaggio ai loro intermediari
add_value("VJ05.2", iva); // VJ5.1 Provvigioni corrisposte dalle agenzie di viaggio ai loro intermediari
break;
case 6:
add_value("VJ06.1", imp); // VJ6.1 Acquisti allinterno di beni di cui allart. 74, commi 7 e 8
add_value("VJ6.2", iva); // VJ6.2 Acquisti allinterno di beni di cui allart. 74, commi 7 e 8
case 7:
add_value("VJ07.1", imp); // VJ7.1 Acquisti allinterno di oro industriale e argento puro (art. 17, comma 5)
add_value("VJ07.2", iva); // VJ7.2 Acquisti allinterno di oro industriale e argento puro (art. 17, comma 5)
break;
case 8:
add_value("VJ08.1", imp); // VJ8.1 Acquisti di oro da investimento imponibile per opzione (art. 17, comma 5)
add_value("VJ08.2", iva); // VJ8.1 Acquisti di oro da investimento imponibile per opzione (art. 17, comma 5)
break;
case 9:
add_value("VJ09.1", imp); // VJ9.1 Acquisti intracomunitari di beni (inclusi acquisti di oro industriale, argento puro e beni di cui allart. 74, commi 7 e 8)
add_value("VJ09.2", iva); // VJ9.2 Acquisti intracomunitari di beni (inclusi acquisti di oro industriale, argento puro e beni di cui allart. 74, commi 7 e 8)
break;
case 10:
add_value("VJ10.1", imp); // VJ10.1 Importazioni di beni di cui allart. 74, commi 7 e 8 senza pagamento dellIVA in dogana (art. 70, comma 6)
add_value("VJ10.2", iva); // VJ10.2 Importazioni di beni di cui allart. 74, commi 7 e 8 senza pagamento dellIVA in dogana (art. 70, comma 6)
add_value("VJ09.1", imp); // VJ9.1 Acquisti intracomunitari di beni (inclusi acquisti di oro industriale, argento puro e beni di cui allart. 74, commi 7 e 8)
add_value("VJ09.2", iva); // VJ9.2 Acquisti intracomunitari di beni (inclusi acquisti di oro industriale, argento puro e beni di cui allart. 74, commi 7 e 8)
break;
case 12:
add_value("VJ12.1", imp); // VJ12.1 Acquisti di tartufi da rivenditori dilettanti ed occasionali non muniti di partita IVA (art. 1, comma 109, legge n. 311/2004)
add_value("VJ12.2", iva); // VJ12.2 Acquisti di tartufi da rivenditori dilettanti ed occasionali non muniti di partita IVA (art. 1, comma 109, legge n. 311/2004)
break;
case 13:
add_value("VJ13.1", imp); // VJ13.1 Acquisti di servizi resi da subappaltatori nel settore edile (art. 17, comma 6, lett. a)
add_value("VJ13.2", iva); // VJ13.2 Acquisti di servizi resi da subappaltatori nel settore edile (art. 17, comma 6, lett. a)
break;
case 14:
add_value("VJ14.1", imp); // VJ14.1 Acquisti di fabbricati (art. 17, comma 6, lett. a-bis)
add_value("VJ14.2", iva); // VJ14.2 Acquisti di fabbricati (art. 17, comma 6, lett. a-bis)
break;
case 15:
add_value("VJ15.1", imp); // VJ15.1 Acquisti di telefoni cellulari (art. 17, comma 6, lett. b)
add_value("VJ15.2", iva); // VJ15 2 Acquisti di telefoni cellulari (art. 17, comma 6, lett. b)
break;
case 16:
add_value("VJ16.1", imp); // VJ16.1 Acquisti di prodotti elettronici (art. 17, comma 6, lett. c)
add_value("VJ16.2", iva); // VJ16.2 Acquisti di prodotti elettronici (art. 17, comma 6, lett. c)
break;
case 17:
add_value("VJ17.1", imp); // VJ17.1 Acquisti di servizi del comparto edile e settori connessi (art. 17, comma 6, lett. a-ter)
add_value("VJ17.2", iva); // VJ17.2 Acquisti di servizi del comparto edile e settori connessi (art. 17, comma 6, lett. a-ter)
break;
case 18:
add_value("VJ18.1", imp); // VJ18.1 Acquisti di beni e servizi del settore energetico (art. 17, comma 6, lett. d-bis, d-ter e d-quater)
add_value("VJ18.2", iva); // VJ18.2 Acquisti di beni e servizi del settore energetico (art. 17, comma 6, lett. d-bis, d-ter e d-quater)
break;
case 19:
add_value("VJ11.1", imp); // VJ19.1 Acquisti delle pubbliche amministrazioni, titolari di partita IVA, ai sensi dellart. 17-ter
add_value("VJ11.2", iva); // VJ19.2 Acquisti delle pubbliche amministrazioni, titolari di partita IVA, ai sensi dellart. 17-ter
add_value("VJ09.1", imp); // VJ9.1 Acquisti intracomunitari di beni (inclusi acquisti di oro industriale, argento puro e beni di cui allart. 74, commi 7 e 8)
add_value("VJ09.2", iva); // VJ9.2 Acquisti intracomunitari di beni (inclusi acquisti di oro industriale, argento puro e beni di cui allart. 74, commi 7 e 8)
default:
break;
}
}
}
class TQuadro_VJ_app : public TQuadro_IVA_app
{
protected:
virtual void load_sheet(TSheet_field & sf);
public:
virtual TQuadro_IVA_recordset * app_recordset(const char* use, const int year) { return new TQuadro_VJ_recordset(mask(), use, year); }
TQuadro_VJ_app() : TQuadro_IVA_app("Stampa Quadro VJ", "cg7800a") {}
virtual ~TQuadro_VJ_app() {}
};
void TQuadro_VJ_app::load_sheet(TSheet_field & sf)
{
TToken_string & row1 = sf.row(sf.items()); row1.add("|1|Quadro VJ - VJ1 - VJ16|cg7800b");
}
int cg7800(int argc, char* argv[])
{
TQuadro_VJ_app a;
a.run(argc, argv, TR("Quadro VJ"));
return 0;
}