2016-09-09 13:58:28 +00:00
|
|
|
// classpim.h
|
|
|
|
|
// funzioni ed enum per classificare i pim
|
|
|
|
|
|
|
|
|
|
#ifndef __CGPIM_H
|
|
|
|
|
#define __CGPIM_H
|
|
|
|
|
|
|
|
|
|
#ifndef __ISAM_H
|
|
|
|
|
class TRectype;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef __REAL_H
|
|
|
|
|
#include <real.h>
|
|
|
|
|
#endif
|
2016-09-21 07:20:25 +00:00
|
|
|
#include <recset.h>
|
2016-09-09 13:58:28 +00:00
|
|
|
|
|
|
|
|
// per ora ci si fotte di agenzie viaggio e di
|
|
|
|
|
// regimi agricoli
|
|
|
|
|
|
|
|
|
|
enum tiporec { acq_norm = 0, vend_norm = 1, // acquisti e vendite normali
|
|
|
|
|
acq_simp = 2, vend_simp = 3, // acq. e vend. sosp. imposta
|
|
|
|
|
bolle_doganali = 4, // bolle doganali (acquisti)
|
|
|
|
|
acq_beni_riv = 5, // acq. beni per rivendita
|
|
|
|
|
base_ventilazione = 6, // base calcolo per ventil.
|
|
|
|
|
corr_norm = 7, corr_simp = 8, // corrispettivi n. e s. imp.
|
|
|
|
|
acq_beni_ammort = 9, // acq. beni ammortizz. detr.
|
|
|
|
|
acq_beni_ammort_nd = 10, // beni ammort. non detraibili
|
|
|
|
|
acq_beni_leasing = 11, // beni strum. acq in leasing
|
|
|
|
|
acq_amm_ultdetr = 12, // beni amm. ult. detr 6%
|
|
|
|
|
acq_ind_op_es = 13, // acq. indetr. su op.es.
|
|
|
|
|
acq_ind_pass_int = 14, // passaggi interni
|
|
|
|
|
acq_ind_art_19 = 15, // indetr. art. 19
|
|
|
|
|
cess_amm = 16, // cessioni amministrative
|
|
|
|
|
vend_rimborso = 17, // vendite valide per rimborso
|
|
|
|
|
acq_rimborso = 18, // acq. validi per rimborso
|
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
|
|
|
acq_bd_ind_art_19 = 19, // acq. con tipo documento BD e tipo detr 9
|
|
|
|
|
stop_tiporec = 20
|
2016-09-09 13:58:28 +00:00
|
|
|
// ACHTUNG: se si aggiunge, cambiare sotto!!!
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
// ---------------------------------------------------------------
|
|
|
|
|
// "classifica" un record progressivo IVA passato per reference
|
|
|
|
|
// mette l'imponibile in imp, l'imposta in iva, e in t mette
|
|
|
|
|
// un valore dell'enum di cui sopra, che dice di che tipo e'
|
|
|
|
|
// l'importo ritornato
|
|
|
|
|
// ---------------------------------------------------------------
|
|
|
|
|
// RITORNA TRUE SE VA CHIAMATA ANCORA CON LO STESSO PIM come
|
|
|
|
|
// parametro (ovvero: ci sono altri valori da passare che fanno
|
|
|
|
|
// parte dello stesso pim)
|
|
|
|
|
// ---------------------------------------------------------------
|
|
|
|
|
// mese, anno, attivita' vanno gestiti esternamente. Quando un pim
|
|
|
|
|
// contiene dati che valgono per piu' di un caso, ritorna TRUE
|
|
|
|
|
// finche' i casi possibili non sono esauriti
|
|
|
|
|
// ---------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
// ------------------------------- ESEMPIO che fa sempre bene
|
|
|
|
|
// TTable pim("PIM");
|
|
|
|
|
// while (pim.first(); !pim.eof(); pim.next())
|
|
|
|
|
// {
|
|
|
|
|
// real imponibile, imposta;
|
|
|
|
|
// tiporec tipo;
|
|
|
|
|
//
|
|
|
|
|
// // Escludi i pim che non vuoi (per attivita', anno, mese)
|
|
|
|
|
// if (questo_non_lo_volevo) continue;
|
|
|
|
|
//
|
|
|
|
|
//
|
|
|
|
|
// while (classify_pim(pim.curr(), imponibile, imposta, tipo))
|
|
|
|
|
// {
|
|
|
|
|
// switch(tipo)
|
|
|
|
|
// {
|
|
|
|
|
// case acq_norm:
|
|
|
|
|
// acq_imponibile += imponibile;
|
|
|
|
|
// acq_imposta += imposta;
|
|
|
|
|
// break;
|
|
|
|
|
// // eccetera
|
|
|
|
|
// }
|
|
|
|
|
// }
|
|
|
|
|
// }
|
|
|
|
|
//
|
|
|
|
|
// CONTENTA? ciao, f. :)
|
|
|
|
|
// -----------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
bool classify_pim(const TRectype& pimr, real& imp, real& iva, tiporec& t, bool ts);
|
|
|
|
|
|
|
|
|
|
#endif
|
