#include <applicat.h>
#include <config.h>
#include <mask.h>   
//#include <printer.h>
#include <relation.h>
#include <tabutil.h>
#include <urldefid.h>
#include <utility.h>
#include <form.h>
#include "agenti.h"
#include "pr1100.h"

class TStampa_agenti : public TApplication
{
  TArray _files;
  TMask * _mask;
  TForm * _form; 

  int _codicees;
  bool _raggmag;
  TString _daart,_aart,_damag,_amag;
  TDate _dadata,_adata;
protected:
  virtual bool create();
  virtual bool destroy();
};

bool TStampa_agenti::create()
{
  _files.add(new TLocalisamfile(LF_AGENTI));
  _files.add(new TLocalisamfile(LF_CLIFO));
  _files.add(new TLocalisamfile(LF_TAB));

  TRectype darec(LF_AGENTI),arec(LF_AGENTI);
  _mask = new TMask("pr1100");
  while (_mask->run() == K_ENTER) {
  _form = new TForm("pr1100a", "");
    TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor();
  
    TString sortexp;
    TString filter;

    darec.zero(' ');
    arec.zero(' ');
    if (*_mask->get(F_ORDINAMENTO)=='C')
    {
      darec.put(AGE_CODAGE,_mask->get(F_DAAGE));
      arec.put(AGE_CODAGE,_mask->get(F_AAGE));
      cur.setkey(1);
    }
    else
    {
      darec.put(AGE_RAGSOC,_mask->get(F_DADES));
      arec.put(AGE_RAGSOC,_mask->get(F_ADES));
      cur.setkey(2);
    }
    cur.setregion(darec,arec);
    _form->print();
  delete _form;
  } // while true  
  return FALSE;
}

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




int pr1100(int argc, char** argv)
{
  TStampa_agenti a;
  a.run(argc,argv,"Stampa agenti");
  return 0;
}