campo-sirio/m770/772400.cpp

// 772400.cpp - Calcolo e Stampa versamenti ritenute
#include <mask.h>
#include <printapp.h>
#include <relation.h>
#include <tabutil.h>
#include <utility.h>
#include <sort.h>
#include <progind.h>
#include <lffiles.h>
#include "scperc.h"
#include "rpag.h" 
#include "rver.h" 
#include <anagr.h> 
#include <nditte.h>
#include "perc.h"
#include <config.h>
#include "772.h"
#include "772400.h"
#include "77lib.h"

static TString256 tmp;

static bool filter_func (const TRelation*);

class TSt_vers : public TPrintapp
 {  
  friend bool filter_func (const TRelation *);
  
  struct righe_vers
  {
    char anno[5];
    char mese[3];
    char codtrib[5];
    char tipoa;
    char codan[6]; 
    char descr[51];
    int  nprog;
    TDate datadoc;
    char numdoc[8];
    real rite;
  };
  righe_vers*       _rig;
  TRelation*        _rel;
  TCursor*          _cur;
  TProgind*         _prog;
  TSort*            _sort;
  const char*       _buf;
  TLocalisamfile*   _nditte;
  TLocalisamfile*   _anag;
  TLocalisamfile*   _rpag; 
  TLocalisamfile*   _rver; 
  TLocalisamfile*   _scperc;
  TTable*           _ca7; 
  int               _annop, _mesep, _codtribp;
  TDate             _datamsk;
  char              _tipoap;         
  long              _codditta, _codanagp;
  real              _tot_cod, _tot_mese;
  bool              _primo;
                                       
protected:
  virtual bool user_create() ;
  virtual bool user_destroy();
  virtual bool set_print(int m);
  virtual bool preprocess_page (int,int);
  virtual bool preprocess_print(int,int);
  virtual print_action postprocess_page (int,int);
  virtual void postclose_print();
  
public:
  TRectype& look_causali(int);
  TRectype& look_schperc(long,char,long,int);
  TDate look_vers(TSchedaP& sch, long numvers);
  void crea_sort();
  void init_sort();
  void leggi_sort();
  void setta_intestazione(); 
  const char* desc_percipiente(char,long); 
  void riempi_record(int,int,int,char,long,const char*,int,const TDate&, const char*,const real&);

  static bool codditta_hnd(TMask_field& f, KEY k); 
  
  TSt_vers() {}
  virtual ~TSt_vers() {}
};

HIDDEN inline TSt_vers& app() { return (TSt_vers&)main_app(); }

bool TSt_vers::codditta_hnd(TMask_field& f, KEY k)
{         
  if (k == K_TAB && !(f.mask().is_running()) )
  {
    TString16 codditta; codditta << app()._codditta;
    if (codditta != "0")        
    {
      f.set(codditta);
      f.check();
    }
  }   

  return TRUE;                                           
}

bool filter_func (const TRelation* rel)
{ 
  long codditta = rel->lfile(LF_RPAG).get_long(PAG_CODDITTA);
  
  //const TRectype& rec = rel->lfile(LF_RVER).curr();
  
  if (codditta != app()._codditta)
     return FALSE;
  
  TDate datapag = rel->lfile(LF_RPAG).get(PAG_DATAPAG); 

  if (datapag.ok() && datapag <= app()._datamsk) 
  {  
    long numvers = rel->lfile(LF_RPAG).get_long(PAG_NUMVERS);
    if (numvers <= 0)
      return TRUE;           
    const long codanagr = rel->lfile(LF_RPAG).get_long(PAG_CODANAGR);
    const char tipoa    = rel->lfile(LF_RPAG).get_char(PAG_TIPOA);
    const int  nprog = rel->lfile(LF_RPAG).get_int(PAG_NPROG);
    TSchedaP sch(codditta, tipoa, codanagr, nprog);
    //TDate datavers = rel->lfile(LF_RVER).get(VER_DATAVERS);
    TDate datavers = app().look_vers(sch, numvers);
    if (!datavers.ok()) 
      return TRUE;  
  }
  return FALSE;
} 

TDate TSt_vers::look_vers(TSchedaP& scheda, long num)
{
  TLocalisamfile vers(LF_RVER); 
  vers.zero();
  vers.put(VER_CODDITTA, scheda.codditta());
  vers.put(VER_TIPOA,    scheda.tipoa());
  vers.put(VER_CODANAGR, scheda.codanagr());
  vers.put(VER_NPROG,    scheda.nprog());  
  vers.put(VER_NRIGA, num);
  vers.read();
  if (vers.bad())
    vers.zero();

  return vers.get_date(VER_DATAVERS);
}

TRectype& TSt_vers::look_schperc (long cod, char t, long codan, int np)
{
  TLocalisamfile schede(LF_SCPERC); 
  schede.zero();
  schede.put(SPR_CODDITTA, cod);
  schede.put(SPR_TIPOA, t);
  schede.put(SPR_CODANAGR, codan);
  schede.put(SPR_NPROG, np);
  schede.read();
  if (schede.bad())
    schede.zero();

  return schede.curr();
}

TRectype& TSt_vers::look_causali(int cod)
{                            
  TString16 dep;
  
  _ca7->zero();
  dep.format("%02d", cod);
  _ca7->put("CODTAB", dep);
  _ca7->read();      
  if (_ca7->bad())
     _ca7->zero();

  return _ca7->curr();
}

void TSt_vers::init_sort()
{
  _rig  = new righe_vers;
  _sort = new TSort(sizeof(righe_vers));
 
  _sort -> addsortkey((char*)&(_rig->anno) - (char*)&(_rig->anno),4);
  _sort -> addsortkey((char*)&(_rig->mese) - (char*)&(_rig->anno),2);
  _sort -> addsortkey((char*)&(_rig->codtrib) - (char*)&(_rig->anno),4);
  _sort->addsortkey ((char*)&(_rig->tipoa) - (char*)&(_rig->anno),1);
  _sort->addsortkey ((char*)&(_rig->codan) - (char*)&(_rig->anno),5);
  _sort->init();
}
                                    
void TSt_vers::crea_sort()
{
  long codan;
  char tipoa;
  int nprog, codc, mese, anno;
  real rite;
  TDate datapag, datadoc;
  TString16 numdoc;

  init_sort();
  *_cur = 0l;  //il cursore e' stato filtrato (filter_function)

  for (int i = 0; i < _cur->items(); i++, ++(*_cur))
  {
    _prog->addstatus(1);
    tipoa   = _cur->curr().get(PAG_TIPOA)[0];
    codan   = _cur->curr().get_long(PAG_CODANAGR);
    nprog   = _cur->curr().get_int(PAG_NPROG);
    datapag = _cur->curr().get(PAG_DATAPAG);
    mese    = datapag.month();
    anno    = datapag.year();
    
    TRectype dep = look_schperc(_codditta, tipoa, codan, nprog);
    codc = dep.get_int(SPR_CODCAUS);
    datadoc = dep.get_date(SPR_DATADOC);
    numdoc = dep.get(SPR_NUMDOC); 
    
    TRectype cau  = look_causali(codc);
    TString descr = cau.get("S0");
    int codtrib   = cau.get_int("I0");
    
//    rite = _rpag->get_real(PAG_RITENUTA);  Non va!
    rite = _cur->curr().get_real(PAG_RITENUTA);
    riempi_record(anno,mese,codtrib,tipoa,codan,descr,nprog,datadoc,numdoc,rite); 
  }
}

void TSt_vers::riempi_record(int a,int m,int ct,char t,long ca,const char* d,
                               int np,const TDate& dd,const char* nd,const real& ri)
{
  sprintf (_rig->anno, "%4d", a);
  sprintf (_rig->mese, "%2d", m);
  sprintf (_rig->codtrib, "%4d", ct);
  _rig->tipoa = t;
  sprintf(_rig->codan, "%5ld", ca);  
  _rig->rite  = ri;
  sprintf(_rig->descr, "%s", d);
  _rig->nprog = np;
  _rig->datadoc = dd;
  sprintf(_rig->numdoc, "%s", nd);

  _sort->sort((const char*)_rig);
}    

void TSt_vers::leggi_sort()
{
  reset_print();
  
  if ((_buf = _sort->retrieve()) != NULL)
  {
    struct righe_vers* rp;
    
    rp = (struct righe_vers*)_buf;
    int anno = atoi(rp->anno);
    int mese = atoi(rp->mese);
    int codtrib = atoi(rp->codtrib);
    TString80 descr(rp->descr);  //descrizione della causale
    char tipoa = rp->tipoa;           
    long codanag = atol(rp->codan); 
    int nprog = rp->nprog;
    TString16 data((rp->datadoc).string(brief, '.'));
    TString16 numdoc(rp->numdoc);
    real rite = rp->rite;
    
    TString80 dp;
    TString16 ff;
    int i = 1;
    TString dep(94);
    dep.fill('-');
    
    if ((mese != _mesep && _mesep != 0) || (anno != _annop && _annop != 0)) //e' cambiato il mese oppure l'anno
    {
      set_row(i++, "@b@87gTOTALI CODICE ESATTORIA@115g%r", &_tot_cod);
      TDate d = format("%02d/%04d", mese, anno);
      TString16 s(d.string(brief,'/'));
      real arr = _tot_mese.round(-3);
      set_row(i++, "@b@87gTOTALI MESE PAGAMENTO %s@115g%r", (const char*)s, &arr);
      set_row(i++, "");
      set_row(i++, "");
      dp = desc_percipiente(tipoa,codanag);
      ff = format("%5ld/%c", codanag,tipoa); 
      set_row(i++,"@1g%2d  %4d@11g%4d@17g%-.30s@49g%s@61g%-.30s@91g%4d@98g%s@107g%s@115g%r",
              mese,anno,codtrib,(const char*)descr,(const char*)ff,
              (const char*)dp,nprog,(const char*)data,(const char*)numdoc,&rite);
      
      _tot_cod = _tot_mese = ZERO;
    }
    else if (codtrib != _codtribp && _codtribp != -1)
    {
      set_row(i++, "@b@87gTOTALI CODICE ESATTORIA@115g%r", &_tot_cod);
      set_row(i++, "");
      dp = desc_percipiente(tipoa, codanag);            
      ff = format("%5ld/%c", codanag,tipoa);
      set_row(i++,"@11g%4d@17g%-.30s@49g%s@61g%-.30s@91g%4d@98g%s@107g%s@115g%r",
              codtrib,(const char*)descr,(const char*)ff,
              (const char*)dp,nprog,(const char*)data,(const char*)numdoc,&rite);
     
      _tot_cod = ZERO;
    }
    else if ((codanag != _codanagp && _codanagp != 0) || (tipoa != _tipoap && _tipoap != ' ')) 
    {
      dp = desc_percipiente(tipoa,codanag);
      ff = format("%5ld/%c", codanag,tipoa);
      set_row(i++,"@49g%s@61g%-.30s@91g%4d@98g%s@107g%s@115g%r",
              (const char*)ff,(const char*)dp,nprog,(const char*)data,(const char*)numdoc,&rite);
    }
    else //non e' cambiato nulla
    {
     if (_primo)
     { 
       dp = desc_percipiente(tipoa,codanag);
       ff = format("%5ld/%c", codanag,tipoa);
       set_row(i++,"@1g%2d  %4d@11g%4d@17g%-.30s@49g%s@61g%-.30s@91g%4d@98g%s@107g%s@115g%r",
               mese,anno,codtrib,(const char*)descr,(const char*)ff,
              (const char*)dp,nprog,(const char*)data,(const char*)numdoc,&rite);
       
       _primo = FALSE;
     }
     else
       set_row(i++, "@91g%4d@98g%s@107g%s@115g%r", nprog,(const char*)data,(const char*)numdoc,&rite); 
    }  
    _mesep = mese;
    _annop = anno;
    _codtribp = codtrib;
    _codanagp = codanag;
    _tipoap = tipoa;
     
    _tot_cod += rite;
    _tot_mese += rite;
  }
  else
  { 
    set_row(1, "@b@87gTOTALI CODICE ESATTORIA@115g%r", &_tot_cod);
    TDate d = format("%02d/%04d", _mesep, _annop);
    TString16 s(d.string(brief,'/'));
    real arr = _tot_mese.round(-3);
    set_row(2, "@b@87gTOTALI MESE PAGAMENTO %s@115g%r", (const char*)s, &arr);
  }
}

bool TSt_vers::preprocess_print(int file, int counter)
{
  _annop = _mesep = 0;
  _codanagp = 0l;   
  _codtribp = -1;
  _tipoap = ' ';
  _primo = TRUE;
  _tot_mese = _tot_cod = ZERO;
   
  return TRUE;
}

bool TSt_vers::preprocess_page(int file, int counter)
{
  leggi_sort(); 
  return TRUE;
}

print_action TSt_vers::postprocess_page(int file, int counter)
{
  if (_buf == NULL)
     return NEXT_PAGE;

  return REPEAT_PAGE;   
}

void TSt_vers::postclose_print()
{
  delete _sort;
}
                                         
bool TSt_vers::set_print(int)
{
  TMask msk ("772400a");
  KEY tasto;
  TLocalisamfile& fl = _cur->file(LF_RPAG);

  msk.set_handler (F_CODDITTA, codditta_hnd);
    
  tasto = msk.run();

  if (tasto == K_ENTER)
  {
    int anno = msk.get_int(F_ANNO);
    int mese = msk.get_int(F_MESE);   
   
    TDate d (1, mese, anno);
    int ult = d.last_day(mese, anno);
    TDate dd (ult, mese, anno);
    
    _datamsk = dd;
    
    _cur->set_filterfunction(filter_func);
    
    set_real_picture ("###.###.###.###");
    set_print_zero(); 
    printer().footerlen(5);
    
    setta_intestazione();
    
    _prog = new TProgind(_cur->items(),"Elaborazione in corso... prego attendere",FALSE);
    
    crea_sort();
    _sort->endsort();
    
    delete _rig;
    delete _prog;  
    
    return TRUE;
  }
  else
    return FALSE;
}

void TSt_vers::setta_intestazione()
{
  int soh = 1;       
  TString sep(132);
  TString ragsoc(50);
 
  TLocalisamfile nditte(LF_NDITTE); 
  nditte.zero();
  nditte.put(NDT_CODDITTA, get_firm_770());   
  if (nditte.read() == NOERR) 
    ragsoc = nditte.get(NDT_RAGSOC);
  
  reset_header();
  
  set_header (soh++, "STAMPA VERSAMENTI RITENUTE@54gDITTA@61g%-.45s@107gDATA @<  PAG. @#", (const char*) ragsoc);
  sep.fill('-');
  set_header (soh++, (const char *) sep);
  set_header (soh++, "PAGAMENTO  CODICE ESATTORIA@48gPERCIPIENTE@91gN<67>@101gDOCUMENTO@122gRITENUTA");
  set_header (soh++, "MESE ANNO@48gCODICE/TIPO@61gDESCRIZIONE@91gPROG.@99gDATA@108gNUMERO");
  set_header (soh, (const char *) sep);
}

const char* TSt_vers::desc_percipiente(char t, long c)
{ 
  TString80 ragsoc;
  _anag->setkey(1);
  _anag->zero();
  _anag->put(ANA_TIPOA, t);
  _anag->put(ANA_CODANAGR, c);
  if (_anag->read() == NOERR)
  {  
    ragsoc = _anag->get(ANA_RAGSOC);
    if (t == 'F')
    {
      TString80 nome = ragsoc.mid(30);
      ragsoc.cut(30);
      ragsoc.trim(); nome.trim();
      ragsoc << ' ' << nome;
    }
    tmp = ragsoc;
  }
  else tmp = "";
  return tmp;
}

bool TSt_vers::user_create()
{
  //TToken_string exp;
  
  //exp.add("CODDITTA=CODDITTA");
  //exp.add("NUMVERS=NUMVERS");
  
  _rel = new TRelation (LF_RPAG);
  
  //_rel->add(LF_RVER, exp, 2, LF_RPAG);
  
  _cur = new TCursor(_rel,"",1);
  
  _nditte = new TLocalisamfile (LF_NDITTE);
  _anag   = new TLocalisamfile (LF_ANAG);
  _rpag   = new TLocalisamfile (LF_RPAG);
  _rver   = new TLocalisamfile (LF_RVER);
  _scperc = new TLocalisamfile (LF_SCPERC);
  _ca7    = new TTable ("%CA7");
  _rig    = new righe_vers;
  _codditta = get_firm_770();
  return TRUE;
}

bool TSt_vers::user_destroy()
{
  delete _rel;   
  delete _cur;
  delete _nditte;
  delete _anag;
  delete _rpag;
  delete _rver;
  delete _scperc;
  delete _ca7;
  delete _rig;
  
  return TRUE;
}

int m72400(int argc, char* argv[])
{
  TSt_vers a;
  a.run(argc, argv, "Calcolo e stampa versamenti ritenute");
  return 0;
}