campo-sirio/cg/cg3800.cpp

#include <applicat.h>
#include <automask.h>
#include <form.h>
#include <printer.h>
#include <progind.h>

#include <clifo.h>
#include <mov.h>
#include <partite.h>
#include <rmov.h>
#include <rmoviva.h>

#include "..\cg\cgsaldac.h"
#include "..\ve\velib.h"

#include "cg3800a.h"
#include "cg3800.h"


//===============================================================================================
//maschera

class TDouble_fatt_mask: public TAutomask 
{
public:
  virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);

  TDouble_fatt_mask():TAutomask("cg3800a") {}

};

bool TDouble_fatt_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
/*  switch (o.dlg())
  {
    default: break;
  }*/
  return true;
}


//===============================================================================================
//form
class TDouble_fatt_form : public TForm
{

  TPointer_array& _duplicati;

protected:
  virtual bool validate(TForm_item &cf, TToken_string &s);
  virtual long records() const {return _duplicati.items();}
  const TRectype& get_mov (int i, int j) const;

public:
  void fill_header_last(int i);
  void fill_body_odd(int i , int j);
  void print(const TMask& m);
  TDouble_fatt_form(TPointer_array&);
  virtual ~TDouble_fatt_form();
};


bool TDouble_fatt_form::validate(TForm_item &cf, TToken_string &s)
{
  return TForm::validate(cf,s);
}

const TRectype& TDouble_fatt_form::get_mov (int i, int j) const
{
  const TPointer_array& dup = (const TPointer_array&)_duplicati[i];
  const long numreg = dup.get_long(j);

  return cache().get(LF_MOV, numreg);
}

void TDouble_fatt_form::fill_header_last(int i)
{
  const TRectype& mov = get_mov(i,0);
  TPrint_section& header = section('H', last_page);

  header.reset();

  header.find_field(FR_ANNODOC).set(mov.get(MOV_DATADOC).right(4));
  header.find_field(FR_NDOC).set(mov.get(MOV_NUMDOC));
  const TString& codcf = mov.get(MOV_CODCF);
  TString16 key;
  key.format("F|%s",(const char *)codcf);
  const TRectype& clifo = cache().get(LF_CLIFO, key);
  header.find_field(FR_CODCF).set(codcf);
  header.find_field(FR_RAGSOC).set(clifo.get(CLI_RAGSOC));

  header.update();

  for (word k = 0; k < header.height(); k++)       
    printer().print(header.row(k));

}

void TDouble_fatt_form::fill_body_odd(int i, int j)
{
  const TRectype& mov = get_mov(i,j);
  TPrint_section& body = section('B', odd_page);

  body.reset();

  body.find_field(FR_NUMREG).set(mov.get(MOV_NUMREG));
  body.find_field(FR_DATAREG).set(mov.get(MOV_DATAREG));
  body.find_field(FR_DESCREG).set(mov.get(MOV_DESCR));

  body.update(); 
  for (word k = 0; k < body.height(); k++)
    printer().print(body.row(k));
}

void TDouble_fatt_form::print(const TMask& m)
{
  const TDate dataini = m.get(F_DADATA);
  const TDate datafine = m.get(F_ADATA);

  TPrint_section& header = section('H', odd_page);
  header.find_field(FR_DADATA).set(dataini);
  header.find_field(FR_ADATA).set(datafine);
  header.update();
  set_background(1, TRUE);
  set_header(1, TRUE);
  set_footer(1, FALSE);

  printer().open();
  for (int i = 0; i < _duplicati.items(); i++)  //scan dell'array dei movimenti che presentano duplicati
  {
    const TPointer_array& dup = (const TPointer_array&)_duplicati[i];
//controlla se le date di registrazione dei movimenti sono incluse nell'intervallo proposto nella maschera
    bool stampa = false;
    for (int j = 0; j < dup.items(); j++)
    {
      const TRectype& mov = get_mov(i,j);
      const TDate datareg = mov.get(MOV_DATAREG);
      if ((datareg >= dataini)&&(datareg <= datafine))
      {
        stampa = true;
        break;
      }
    }

    if (stampa)
    {
      fill_header_last(i);
      for (int k = 0; k < dup.items(); k++)
        fill_body_odd(i,k);
    }

  }
  printer().close();
}
  
TDouble_fatt_form::TDouble_fatt_form(TPointer_array& dupl) :TForm ("cg3800a"), _duplicati(dupl)
{
} 

TDouble_fatt_form::~TDouble_fatt_form()
{ 
}


//===============================================================================================
//Applicazione

class TDouble_fatt : public TSkeleton_application
{ 
  TAssoc_array _movimenti;  //assocarray con tutti i movimenti
  TPointer_array _duplicati;

  TDouble_fatt_mask* _mask;
  TDouble_fatt_form* _form;

protected:
  virtual void main_loop();
  virtual bool create();
  virtual bool destroy();

  static bool mov_callback(const TRelation& rel, void* pJolly);
  void store_mov(const TRectype& mov);

public:

};


bool TDouble_fatt::create()
{
  _mask = new TDouble_fatt_mask;
  _form = new TDouble_fatt_form(_duplicati);


  return TSkeleton_application::create();
}

bool TDouble_fatt::destroy()
{
  delete _mask;
  delete _form;
  return TRUE;
}

// Mettere in libreria al piu' presto!!!!
typedef bool (*SCAN_FUNC)(const TRelation& rel, void* pJolly);

bool scan_cursor(TCursor& cur, const char* msg, SCAN_FUNC func, void* pJolly)
{
  TRecnotype items = 0; // Temporarily
  TProgind pi(items, msg, true, true);

  {
    TWait_cursor hourglass;
    items = cur.items();
  }
  
  bool ok = true;
  if (items > 0)
  {
    cur.freeze();
    pi.setmax(items);
    for (cur = 0; cur.pos() < items; ++cur)
    {
      pi.addstatus(1);
      if (pi.iscancelled())
      {
        ok = false;
        break;
      }
      if (!func(*cur.relation(), pJolly))
      {
        ok = false;
        break;
      }
    }
    cur.freeze(false);
  }
  return ok;
}

void TDouble_fatt::store_mov(const TRectype& mov)
{
  TString key;
  key << mov.get(MOV_CODCF) << '_' << mov.get_date(MOV_DATADOC).year() << '_' << mov.get(MOV_NUMDOC);
  const long numreg = mov.get_long(MOV_NUMREG);

  TPointer_array* pa = (TPointer_array*)_movimenti.objptr(key); //elemento dell' assocarray

  if (pa == NULL) //se non c'e' il valore lo aggiungo all'assocarray
  {
    pa = new TPointer_array;
    _movimenti.add(key,pa);
  }
  pa->add_long(numreg);
  if (pa->items() > 1)
    _duplicati.add(pa);
}


bool TDouble_fatt::mov_callback(const TRelation& rel, void* pJolly)
{
  TDouble_fatt* app = (TDouble_fatt*)pJolly;

  app -> store_mov(rel.curr());

  return true;
}


void TDouble_fatt::main_loop()
{
  TDate d(TODAY);
  _mask->set(F_ADATA, d);
  d.set_day(1); d.set_month(1);
  _mask->set(F_DADATA, d);
  
  while (_mask->run() == K_ENTER)
  {     
    TRelation rel(LF_MOV);

    TRectype darec(LF_MOV), arec(LF_MOV);
    const TDate dataini(1,1,_mask->get_date(F_DADATA).year()-1);
    const TDate datafin(31,12,_mask->get_date(F_ADATA).year()+1);

    darec.put(MOV_DATAREG, dataini);
    arec.put(MOV_DATAREG, datafin);
    
    TCursor cur(&rel, "TIPO=='F'", 2, &darec, &arec);
    _movimenti.destroy();
    _duplicati.destroy();
    scan_cursor(cur, "Ricerca fatture doppie...", mov_callback, this);

    if (_duplicati.items() > 0)
      _form->print(*_mask);

  }
}



int cg3800(int argc, char* argv[])
{
  TDouble_fatt a;
  a.run(argc,argv,TR("Stampa lista fatture doppie"));
  return 0;
}