campo-sirio/cg/cg4300.h

// of course this is -*-C++-*- 
// Questa e' la famosa palla della liquidazione IVA

#ifndef __MASK_H
#include <mask.h>
#endif

#ifndef __PRINTAPP_H
#include <printapp.h>
#endif

#ifndef __TABUTIL_H
#include <tabutil.h>
#endif

class TProgind;

// ------------------------------------------------------------------
// Parametri modificabili
// ------------------------------------------------------------------
//
// da cambiare se la lira si appesantisce o in caso di
// inflazione polacca
// arrotondamento default
#define ROUND_LIRA        (0)
#define ROUND_MILLELIRE   (-3)
// picture default per i reali
// in caso di inflazione polacca occorrera' modificare la lunghezza
// e quindi cambiare le set_row in cg4304.cpp onde evitare overlap 
#define REAL_PICTURE      "###.###.###.###"
// IVA a debito da riportare al mese successivo
#define IVA_DA_RIPORTARE      real(50000)
// detrazione per detraibili 6%
#define DETRAZIONE_6PERCENTO  real(0.06)
// soglia che da' diritto alla liquidazione trimestrale per servizi
// currently trecentsesantamiliu'
#define SOGLIA_TRIM_SERVIZI   real(360000000)
// soglia che da' diritto alla liquidazione trimestrale per altri
// currently un miliardun
#define SOGLIA_TRIM_ALTRE     real(1000000000)
// minima percentuale di operazioni esenti per aver diritto al rimborso
// infrannuale
#define MIN_PARTE_ESENTE      real(0.50)
// percentuale IVA da versare in acconto a dicembre
#define ACCONTO_DICEMBRE      real(0.88)
// percentuale degli imponibili da usare nel calcolo aliquota
// media acquisti e vendite per controllo diritto al rimborso
// infraanuuale secondo norme 1994
#define PERC_IMP_RIMBORSABILE real(0.51)
//
// ------------------------------------------------------------------
// Fine parametri modificabili
// do not change below this line if you want me to work
// and you to keep your fucking ass healty
// ------------------------------------------------------------------

// per il campo I0 di pim
#define NETTO "1"
#define LORDO "2"

enum tiporeg { vendita = 1, acquisto = 2 };
enum recalc  { needed = 1, one = 2, ever = 3, never = 4 };
enum wht     { all = 1, mnt = 2, quarter = 3};
enum tbc     { precedente = 1, incorso = 2};

// flags per gli items di stampa
#define CHG_PARMS  1   // cambiato qualcosa (attivita', ditta...)
#define PIM_ROW    2   // riga totali parziali per codiva
#define PLAFOND    3   // prospetto plafond
#define THE_END    4   // riepilogo finale 
#define TOT_ROW    5   // totale dei pim (plm)
#define MISC_LIQ   6   // altri dati dichiarazione (ptm)
#define SET_FIRM   7   // dati ditta (senza attivita')
#define ANNUAL     8   // prospetto annuale (prorata etc.)
#define VENTILA    9   // prospetto ventilazione
#define REGAGR     10  // prospetto regime agricolo
#define REGVIA     11  // prospetto agenzie viaggio
#define RIMBORSO   12  // prospetto rimborso infraannuale
#define ACCONTO    13  // riga prospetto acconti
#define ACCHEAD    14  // header prospetto acconti

// ...............................................................
// support structs
// ...............................................................

class _VentItem : public TObject
{
public: // non e' bello, ma non e' bello neanche dover fare un
  // TObject per poter mettere una struct in un TArray
  real    _imposta;     // per comodita'
  real    _aliquota;    // aliquota iva
  real    _totale;      // totale acquisti
  TString _codiva;      // codice iva        
  _VentItem() : _imposta(0.0), _totale(0.0) {}
  virtual ~_VentItem() {}
};

class _VendItem : public TObject
{
public:                // vedi sopra per le fisime morali
  real    _totale;     // totale vendite per registro/tipo det.
  TString _codreg;     // codice registro
  int     _month;      // mese
  int     _tipodet;    // tipo detraibilita'
  _VendItem() : _codreg(5) {}
  virtual ~_VendItem() {}
};

class _CorrItem : public TObject
{
public:                // vedi sopra per le fisime morali
  real    _totale;     // totale vendite per registro
  TString _codreg;     // codice registro
  int     _month;      // mese
  real    _aliquota;    // aliquota iva
  TString _codiva;      // codice iva
  int     _tipodet;     // tipo detraibilita'
  _CorrItem() : _codreg(5) {}
  virtual ~_CorrItem() {}
};

class _DescrItem : public TObject
// Sembra triste e brutto esattamente come i files tabella
// Ma la verita' e' che non e' affatto inefficiente 
// e che mi piace, nei limiti dell'entusiasmo concessomi, moltissimo 
{
public:
  word    _flags;
  word    _f0, _f1, _f2,
  _f3;
  TString _s0, _s1, _s2, 
  _s3, _s4;
  real    _r0, _r1, _r2, 
  _r3, _r4, _r5, 
  _r6, _r7, _r8,
  _r9, _r10,_r11;
  TArray  _arr;
  
  _DescrItem(word f) : _f0(0), _f1(0), _f2(0), _arr(4) 
  { _flags = f; }
  virtual ~_DescrItem() 
  { }
};

class _ErrItem : public TObject
{
public:
  TString _err;
  TString _att;
  TString _firm;
  _ErrItem(const char* err, const char* att, const char* firm) 
  { _err = err; _att = att; _firm = firm; }
  virtual ~_ErrItem() {}
};

// ------------------------------------------------------------------------
// Application
// ------------------------------------------------------------------------

class TLiquidazione_app : public TPrint_application
{  
  TArray_sheet* _ditte;
  wht           _what;
  TBit_array _selected;
  TString    _year;            // anno di calcolo
  int        _month;           // mese da calcolare
  TDate      _date;            // data di stampa
  bool       _isprint;         // vuoi stampare o no?
  bool       _canprint;        // PUOI stampare o no?
  bool       _printonly;       // calcolo definitivo        
  recalc     _recalc;          // tipo ricalcolo scelto
  bool       _isplafond;       // plafond importatori abituali
  bool       _isvent;          // ventilazione
  bool       _isagricolo;      // regime agricolo
  bool       _isviaggio;       // regime agenzie viaggio
  bool       _isbenzinaro;     // regime benzinaro
  bool       _isannual;        // dichiarazione annuale
  bool       _mixed;           // attivita' mista 
  bool       _isriepilogo;     // 13a liq   
  bool       _isannual_12;     // annuale con mese = 12 (trimestre)
  bool       _isendliq;        // annuale o riepilogo
  bool       _isservizio;      // servizi, professionisti, artisti
  bool       _isrimborso;      // vuole il rimborso infraannuale
  bool       _isricacq;        // ricalcolo imposte acq. riv (par. ditta)
  bool       _isdifferita;     // liquidazione differita
  bool       _calcall;         // tutte le ditte nessuna esclusa
  bool       _isbase;          // stampa base di calcolo acconto
  bool       _isfinal;         // stampa definitiva (su registro bollato)
  bool       _isregis;         // stampa per registro 
  tbc        _basecalc;        // tipo base di calcolo acconto
  TString    _freqviva;        // frequenza versamenti (M|T}
  long       _n_ditte;         // numero ditte
  bool       _comp_acconto;    // stiamo calcolando l'acconto
  TArray     _nomiditte;       // array descr. ditte per sheet
  
  TProgind*  _prind;
  int        _row;
  TArray     _vend_arr;        // tabella vendite per ventilazione
  TArray     _corr_arr;        // tabella corrispettivi
  TArray     _vent_arr;        // tabella acquisti per ventilazione
  TArray     _descr_arr;       // things to be printed
  TArray     _errors;          // errors to notify
  
  // totali vari per attivita'
  real       _p8, _p8b, _p9;   // totali plafond
  real       _prorata;         // percentuale indetraibilita' (prorata)
  long       __firm;           // ditta selezionata all'inizio
  bool       _is_interactive;  // lanciata da menu o da altro prog
  bool       _is_visliq;       // lanciata da visualizzazione liquidazione
  
  static real CENTO;    
  
  // main cursor
  TRelation* _rel;
  TCursor*   _cur;
  
  // files, tables
  TRelation*      _nditte;
  TLocalisamfile* _mov;
  TLocalisamfile* _rmoviva;
  
  TTable*    _pim;
  TTable*    _pum;  
  TTable*    _pam;  
  TTable*    _pom;  
  TTable*    _plm;  
  TTable*    _lim;  
  TTable*    _lam;  
  TTable*    _pla; 
  TTable*    _ppa;
  TTable*    _reg;
  TTable*    _iva;
  TTable*    _del;
  TTable*    _lia;  
  TTable*    _rmb;
  
  // a reference rectype per file/table
  TRectype*  _mov_r;
  TRectype*  _rmoviva_r;
  TRectype*  _iva_r;
  TRectype*  _pim_r;
  TRectype*  _pum_r;
  TRectype*  _pam_r;
  TRectype*  _pom_r;
  TRectype*  _reg_r;
  TRectype*  _nditte_r;
  TRectype*  _pla_r;
  TRectype*  _plm_r;
  TRectype*  _ppa_r;
  TRectype*  _lim_r;
  TRectype*  _lam_r;
  TRectype*  _del_r;
  TRectype*  _att_r;     
  TRectype*  _rmb_r;
  
  // recfields for each stronz codtab
  TRecfield* _pim_anno;
  TRecfield* _pim_codatt;
  TRecfield* _pim_codreg;
  TRecfield* _pim_mese;
  TRecfield* _pim_tipocr;
  TRecfield* _pim_codiva;
  TRecfield* _pim_tipodet;
  TRecfield* _pum_anno;
  TRecfield* _pum_codatt;
  TRecfield* _pum_mese;
  TRecfield* _pam_anno;
  TRecfield* _pam_codatt;
  TRecfield* _pam_mese;
  TRecfield* _pom_anno;
  TRecfield* _pom_codatt;
  TRecfield* _pom_mese;
  TRecfield* _ppa_year;
  TRecfield* _ppa_codatt;
  TRecfield* _ppa_month;
  TRecfield* _ppa_kind;
  TRecfield* _plm_anno;
  TRecfield* _plm_codatt;
  TRecfield* _plm_mese;
  
  TRecfield* _pla_ditta;
  TRecfield* _pla_anno;
  TRecfield* _pla_codatt;
  
  TRecfield* _del_ditta;
  TRecfield* _del_anno;
  TRecfield* _del_mese;
  TRecfield* _del_tipo;
  TRecfield* _lim_anno;
  TRecfield* _lim_mese;                                    
  TRecfield* _lam_anno;
  TRecfield* _lam_mese;                                    
  TRecfield* _rmb_anno;
  TRecfield* _rmb_mese;
  TRecfield* _rmb_codiva;
  TRecfield* _rmb_tiporeg;
  
protected:              
  
  long select_firm_range(long from, long to, wht freq);
  
  static bool ch_year_handler(TMask_field& f, KEY key);
  static bool to_ditt_handler(TMask_field& f, KEY key);
  static bool fr_ditt_handler(TMask_field& f, KEY key);
  static bool to_butt_handler(TMask_field& f, KEY key);
  static bool fr_butt_handler(TMask_field& f, KEY key);
  static bool what_freq_handler(TMask_field& f, KEY key);
  
  static TLiquidazione_app& app() { return (TLiquidazione_app&)main_app(); }
  
public:
  
  virtual bool user_create();
  virtual bool user_destroy();
  virtual bool set_print(int i);
  
  // cazzatelle per handlers
  TArray_sheet* get_ditte_sheet() { return _ditte; }
  TBit_array&   get_selected()    { return _selected; }  
  void          build_ditte_sheet(wht);
  void          reset_choices(TMask&);
  void          set_choice_limits(TMask&);
  void          build_nomiditte(TProgind* pnd = NULL);
  void          set_year(const char* y) { _year = y; }                                                             
  
  bool set_liquidazione();
  bool recalc_all();
  
  // ricalcolo progressivi mese
  bool update_firm   (int month, bool recalc = TRUE);
  bool update_att    (int month, const char* codatt, bool recalc = TRUE);
  void zero_firm     (int month);   // TBI azzera i rimborsi e i LIM
  void zero_att      (int month, const char* codatt);
  void zero_annual   (int month);
  void recalc_att    (int month, const char* codatt);
  void recalc_annual (const char* codatt);
  _DescrItem* recalc_rimborso(int month, const char* codatts);
  
  // ricalcolo liquidazioni dai progressivi mensili
  void write_liq     (int month, const char* atts);
  
  // ritorna l'eventuale ma sempre appropriato debito (< 50.000)
  real debt_prec(int month);
  // ritorna il risultato della liquidazione del mese
  // non considera il conguaglio prorata (annuale) 
  real result_liq(int month);
  // ritorna l'appropriato credito precedente al mese in corso
  real credito_prec(int month);
  // ritorna l'appropriato credito di costo precedente al mese in corso
  // (travel agency only)
  real credito_costo_prec(int month);
  // ritorna i versamenti effettuati nel mese per
  // i tipi delega passati (stile tokenstring) sommando  
  // gli interessi se interesse = TRUE
  real versamenti_IVA(int month, const char* types, bool interesse = FALSE);
  
  // supporto stampa
  void describe_firm(int month);
  void describe_att(int month, const char* codatt, bool isresult);
  void describe_name(int month, TToken_string& atts);
  void describe_plafond(int month, const char* codatt); 
  void describe_ventilation(int month, const char* codatt); 
  void describe_agricolo(int month, const char* codatt); 
  void describe_viaggio(int month, const char* codatt); 
  void describe_pims(int month, const char* codatt);
  void describe_liq(int month, const char* codatts, _DescrItem* d = NULL);
  void describe_error(const char* errstr, const char* codatt);
  void describe_annual(const char* codatt);
  void describe_consistence(const char* codatt);
  
  // corrispettivi
  void recalc_corrispettivi (int month, const char* codatt);
  
  // ventilasiun
  void recalc_ventilation (int month, const char* codatt);
  
  // plafond
  void zero_plafond (int month, const char* codatt);
  void add_plafond  (int month, const char* codatt, int type,
                     real& howmuch, bool intra);
  
  // ritorna l'aliquota ordinaria dal
  // codice IVA apposito immesso nei parametri studio
  real aliquota_agvia();
  
  // ritorna l'interesse per il mese in questione (dai parametri studio)
  real interesse_trimestrale(int month);
  
  // minchia di puro suino
  void add_vendite     (int month, const char* codreg, int tipodet, real& r);
  void add_ventilation (real iva, real sum, const char* codiva);
  void add_corrisp     (int month, const char* codreg, real& r, real& p,
                        int tipodet, const char * codiva);
  
  // printappings
  virtual void         set_page(int file, int counter);
  virtual bool         preprocess_page(int file, int counter);
  virtual print_action postprocess_page(int file, int counter);
  
  // settaggio righe per ogni elemento di _descr_arr
  void set_plafond(_DescrItem& d);
  void set_ventila(_DescrItem& d);
  void set_regagr(_DescrItem& d);
  void set_viaggio(_DescrItem& d);
  void set_firm(_DescrItem& d);
  void set_att(_DescrItem& d);
  void set_pim(_DescrItem& d);
  void set_pumpam(_DescrItem& d);
  void set_plm(_DescrItem& d);
  bool set_annual(_DescrItem& d);
  void set_grand(_DescrItem& d);
  
  // cercapalle in tabelle con opzione di creazione se serve
  bool look_pim(int m, const char* a, const char* r, const char* cr,
                const char* i, int tipodet = 0, bool create = FALSE);
  bool look_pum(int m, const char* a, bool create = FALSE);
  bool look_pam(int m, const char* a, bool create = FALSE);
  bool look_pom(int m, const char* a, bool create = FALSE);
  bool look_plm(int m, const char* a, bool create = FALSE);
  bool look_lim(int m, bool create = FALSE);
  bool look_lam(int m, bool create = FALSE);
  bool look_pla(const char* a, bool create = FALSE);
  bool look_ppa(int m, const char* a, int t, bool create = FALSE);
  bool look_del(int month, int type, bool create = FALSE);
  bool look_iva(const char* cod);
  bool look_reg(const char* reg);
  bool look_lia(long ditta = 0l, bool create = FALSE, int anno = 0);
  bool look_rmb(int month, const char* codiva, tiporeg tr, bool create);
  
  _VendItem* look_vendita(int m, const char* codreg);
  _VentItem* look_ventilation(int m, const char* codreg);
  
  // tutti i controlli del mondo sui mesi da calcolare
  static bool is_trim (int x);
  // is_month_ok controlla che il mese passato sia
  // da prendere in considerazione per la liquidazione 
  // controllando il regime trimestrale o mensile e 
  // il ricalcolo annuale
  bool is_month_ok(int x, int mtocalc);
  // is_month_ok_strict controlla che il mese sia OK per la
  // liquidazione, ma ritorna TRUE per le trimestrali solo
  // se il mese cade ESATTAMENTE su un trimestre
  bool is_month_ok_strict(int x, int month = -1);
  bool is_date_ok     (TDate& d, int month);
  bool is_first_month (int m);
  int  liq_month(int x);

  int  previous_month (int m);
  
  // Funzioni accessorie: estrazione deleghe
  bool set_deleghe();
  bool extract_deleghe();
  bool extract_delega(int m);
  
  // Funzioni accessorie: calcolo acconto dicembre
  bool set_acconto();
  bool recalc_acconti();
  bool recalc_acconto();
  // stampa
  void set_acconto_p(_DescrItem& d);  
  void set_acchead_p(_DescrItem& d);
  
  // cippiuppiu'  
  TLiquidazione_app();
  virtual ~TLiquidazione_app() {}
};