campo-sirio/ps/pd0610300.cpp

#include <applicat.h>
#include <automask.h>
#include <recset.h>
#include <relation.h>

#include "../cg/cglib01.h"

#include "doc.h"

#include "pd0610300a.h"

                                           /////////////////////////////////
                                           ////    TSOST_CONDPAG_MSK    ////
                                           /////////////////////////////////

class TSost_condpag_msk: public TAutomask
{
protected:
  bool elabora_documenti();
  virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
	TSost_condpag_msk();
};

bool TSost_condpag_msk::elabora_documenti()
{
  //se non sono settate le date, compilo gli anni dagli esercizi contabili
  TEsercizi_contabili& esc = esercizi();
  const TDate    dadata = get_date(F_DADATA);
  const TDate    adata  = get_date(F_ADATA);
  const long     daanno = dadata.ok() ? dadata.year() : esc.first();
  const long     aanno  = adata.ok()  ? adata.year()  : esc.last();
  const TString8 tipodoc = get(F_TIPODOC); 
  const TString8 stato = get(F_STATO);
  const long     dacodcf = get_long(F_DACODCF);
  const long     acodcf = get_long(F_ACODCF);
  const TString8 codnum = get(F_CODNUM);
  const real     totdoc = get_real(F_TOTDOC);

  TString query;
  query << "USE DOC SELECT (CODNUM=\"" << codnum << "\")&&(TIPODOC=\"" << tipodoc << "\")&&(STATO=\"" << stato << "\")&&(TIPOCF=\"C\")&&(BETWEEN(CODCF," << dacodcf << "," << acodcf << "))&&(BETWEEN(DATADOC,#DADATA,#ADATA))";
  if(totdoc > ZERO)
    query << "&&(TOTDOC<=" << totdoc << ')';
  query << "\n"
        << "FROM PROVV=\"D\" ANNO=" << daanno << "\n"
        << "TO PROVV=\"D\" ANNO=" << aanno;

  //instanzio il recordset e gli setto tutte le variabili
  TISAM_recordset doc(query);
  doc.set_var("#DADATA",  dadata);
  doc.set_var("#ADATA",   adata);

  TLocalisamfile& documenti = doc.cursor()->file();

  const TString4 codpag = get(F_CODPAG);

  //scorro il recordset e aggiorno i documenti che <20> necessario aggiornare
  for(bool ok = doc.move_first(); ok; ok = doc.move_next())
  {
    TRectype& rec = doc.cursor()->curr();

    if(rec.get(DOC_CODPAG) != codpag)
    {
      rec.put(DOC_CODPAG, codpag);
      rec.rewrite(documenti);
    }
  }
  return doc.items() > 0 ? true : false;
}

bool TSost_condpag_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
{ 
  switch(o.dlg())
  {
  case DLG_OK:
    if(e == fe_button)
    {
      if(elabora_documenti())
        message_box(TR("Elaborazione terminata"));
      else
        message_box(TR("Non <20> stato possibile individuare nessuna commessa da modificare con i filtri impostati"));
      return false;
    }
    break;
  default:  break;
  }
  return true;
}

TSost_condpag_msk::TSost_condpag_msk() : TAutomask("pd0610300a")
{
}

                                           /////////////////////////////////
                                           ////    TSOST_CONDPAG_APP    ////
                                           /////////////////////////////////

class TSost_condpag_app: public TSkeleton_application
{
protected:
  virtual bool check_autorization() const {return false;}
  virtual const char * extra_modules() const {return "ve";}
  virtual void main_loop();
  void elabora();
};

void TSost_condpag_app::elabora()
{
}

void TSost_condpag_app::main_loop()
{
  TSost_condpag_msk m;
  while (m.run() == K_ENTER)
	{
		elabora();
	}
}

int pd0610300(int argc, char* argv[])
{  
  TSost_condpag_app app;
  app.run(argc, argv, TR("Sostituzione Condizioni di Pagamento"));
  return 0;
}