campo-sirio/mg/mg3100.cpp

#include "mglib.h"
#include "mg3100.h"
#include "mg3frm.h"  

#include "../ve/veconf.h"

#include <applicat.h>
#include <utility.h>

class TForm_giacprezzi : public TForm_stampemg
{
  TCondizione_vendita* _listino;
  TString16 _user1;

public:
  void set_codlistino(const char * codcm,const char* cod);
  bool validate(TForm_item &cf, TToken_string &s);

  void set_description_field(const char* u) { _user1 = u; }
  
  TForm_giacprezzi(const char *name,const char *code);
  virtual ~TForm_giacprezzi();
};

bool TForm_giacprezzi::validate(TForm_item &cf, TToken_string &s)
{ 
  const TFixed_string code = s.get(0); // prende il primo parametro, il codice del messaggio
  if (code == "_USER") 
  {
    const TFixed_string subcode = s.get();
    if (subcode == "PREZZO") 
    {
      const TString80 codart = relation()->curr(LF_ANAMAG).get(ANAMAG_CODART);
      const bool found = _listino->ricerca(codart, ZERO);
      cf.set(found ? _listino->get_prezzo().string() : "");
      return true;
    }
    if (subcode == "DESCR") 
    {
      if (_user1.blank())
        _user1 = ANAMAG_DESCR;
      const TString& desc = relation()->curr(LF_ANAMAG).get(_user1);
      cf.set(desc);
      return true;

    }
  }
  return TForm_stampemg::validate(cf, s);
}

void TForm_giacprezzi::set_codlistino(const char * codcatv,const char * codlist)
{
  _listino->put_listino(codlist,codcatv);
}

TForm_giacprezzi::TForm_giacprezzi(const char *name,const char *code) 
                : TForm_stampemg(name,code), _user1(false)
{
  _listino=new TCondizione_vendita(new TConfig(CONFIG_DITTA,""));
  _listino->set_anamag(relation()->lfile(LF_ANAMAG));
  _listino->set_umart(relation()->lfile(LF_UMART));
}

TForm_giacprezzi::~TForm_giacprezzi()
{
  delete &(_listino->config_ditta());
  delete _listino;
}

class TStampadatist_mask: public TStampemg_mask
{
protected:
  static bool handle_ragg(TMask_field &fld, KEY k); // handler 
  static bool handle_liv(TMask_field &fld, KEY k); // handler 
  static bool handle_subord(TMask_field &fld, KEY k); // handler 

public:
  TStampadatist_mask();
  virtual ~TStampadatist_mask() {}
};

TStampadatist_mask::TStampadatist_mask() : TStampemg_mask("mg3100")
{
  TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
  if (prassid.get_bool("GES", NULL, A_LISTINI))
  {
    field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV"));
  }
  else 
  {
    field(F_CATVENLISTINO).disable(); 
    field(F_CODLISTINO).disable();
  }
  
  set_handler(F_TOLIVELLOART, handle_liv);
  set_handler(F_TOLIVELLOGIAC, handle_liv);
  set_handler(F_ORDINE, handle_ragg);
  set_handler(F_SUBORDINE,handle_subord);
  if (!livelli_articolo().enabled()) 
  {
    TMask_field &f1=field(F_RAGGCODICE);
    f1.reset(); f1.check();f1.hide();
    field(F_FROMLIVELLOART).hide();
    field(F_TOLIVELLOART).hide();
  }
  if (!livelli_giacenza().enabled()) 
  {
    TMask_field &f2=field(F_RAGGLIVGIAC);
    f2.reset(); f2.check();f2.hide();
    field(F_FROMLIVELLOGIAC).hide();
    field(F_TOLIVELLOGIAC).hide();
  }

  if (prassid.get_bool("CHK_USER", "ve", 1))
  {  
    const TString& user1 = prassid.get("PROMPT_USER", "ve", 1);
    field(F_DAUSR).set_prompt(user1);
    show(F_DAUSR); show(F_AUSR);
  }
}

bool TStampadatist_mask::handle_subord(TMask_field &fld, KEY k)
{
  if (k == K_SPACE) 
  {
    TStampadatist_mask &m=(TStampadatist_mask &)fld.mask();
    
    TOperable_field &fraggcod=(TOperable_field &)m.field(F_RAGGCODICE);
    TOperable_field &fragggiac=(TOperable_field &)m.field(F_RAGGLIVGIAC);
    switch (fld.get()[0]) 
    {
    case 'C':
      {
        const char ordine = m.get(F_ORDINE)[0];
        if (ordine == 'A')  
        {
          fraggcod.enable();m.send_key(K_SPACE,F_RAGGCODICE);
        } 
        else 
        {
          if (!m.get_bool(F_DETTAGLIODEP))
          {
            fraggcod.reset(); fraggcod.disable();
            fragggiac.reset(); fragggiac.disable();
            fraggcod.do_message(0);fragggiac.do_message(0);
          }
        }
      }
      break;
    case 'M':
    case 'D':
		case 'P':
      fraggcod.reset(); fraggcod.disable();
      fraggcod.do_message(0);
      fragggiac.reset(); fragggiac.disable();
      fragggiac.do_message(0);
      break;
    default:
      break;
    }
  }
  return TRUE;
}

bool TStampadatist_mask::handle_liv(TMask_field &fld, KEY k)
{
  if (k == K_TAB) 
  {
    const TMask& m = fld.mask();
    TOperable_field &ftotmag=(TOperable_field &)m.field(F_TOTALIMAGAZZINI);
    TOperable_field &fdettgiac=(TOperable_field &)m.field(F_RAGGLIVGIAC);
    if (fld.mask().get_int(F_TOLIVELLOART))
    {
      fdettgiac.reset();
      fdettgiac.disable();
    } 
    else
    {
      fdettgiac.enable();
    }
    const char ordine = m.get(F_ORDINE)[0];
    if (ordine == 'A') 
    {
      if (m.get_int(F_TOLIVELLOART) || m.get_int(F_TOLIVELLOGIAC))
      {
        // raggruppamenti prima del dettaglio magazzini
        ftotmag.reset(); ftotmag.disable(); ftotmag.do_message(0);
      } 
      else 
      {
        ftotmag.enable();
      }
    }
  }
  return TRUE;
}

bool TStampadatist_mask::handle_ragg(TMask_field &fld, KEY k)
{
  if (k == K_SPACE) 
  {
    TStampadatist_mask& m = (TStampadatist_mask&)fld.mask();

    TOperable_field& ftotmag   = (TOperable_field&)m.field(F_TOTALIMAGAZZINI);
    TOperable_field& fraggcod  = (TOperable_field&)m.field(F_RAGGCODICE);
    TOperable_field& fragggiac = (TOperable_field&)m.field(F_RAGGLIVGIAC);

    fraggcod.enable();
    fragggiac.enable();
    if (m.get(F_ORDINE)=="M")
    {
      ftotmag.enable();
      if (!m.get_bool(F_DETTAGLIODEP))
      {
        fraggcod.reset(); fraggcod.disable();
        fragggiac.reset(); fragggiac.disable();
        fraggcod.do_message(0);fragggiac.do_message(0);
        return true;
      }
    }
    else 
    {
      bool enabmag=m.magazz_ini().gestmultimag() || m.magazz_ini().gestdep();
      m.enable(F_TOTALIMAGAZZINI,enabmag && m.field(F_TOTALIMAGAZZINI).enabled());
      m.enable(F_DETTAGLIOMAG,enabmag && m.field(F_DETTAGLIOMAG).enabled());
    }
  }
  return true;
}


// STAMPA anagrafiche
class TStampa_datistorici : public TSkeleton_application
{
  TStampadatist_mask* _mask;
  TCursor* _cur;
  TForm_giacprezzi * _form; // to be moved into TPrint_application

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

  void setprint_permagazzini();
  void setprint_perarticoli();
  void setprint_perarticoli_all();

public:
  TStampa_datistorici() {}
};

void TStampa_datistorici ::on_firm_change()
{
  _mask->enable_livellicodice();
}

bool TStampa_datistorici::create()
{
  open_files(LF_TAB,LF_TABCOM,LF_ANAMAG,LF_MAG,LF_UMART, 0);
  _mask = new TStampadatist_mask();
  return TSkeleton_application::create();
}

bool TStampa_datistorici::destroy()
{
  delete _mask;
  return TSkeleton_application::destroy();
}

void TStampa_datistorici::setprint_permagazzini()
{
  TRectype darec(LF_MAG),arec(LF_MAG);
  TString cfilter,sortexp,joinexp;
  _form = new TForm_giacprezzi("mg3100b", "");
  _cur = _form->cursor();
  // ********************
  // setta il filtro sul cursore
  TForm_item & it_filtro=_form->find_field('H',odd_page,FF_FILTRO);
  TForm_item & rangea=_form->find_field('H',odd_page,FF_RANGEARTIC);
  TString srangea;
  if (_mask->get(F_DAART).full())
  {
    cfilter << "(CODART[1," << _mask->get(F_DAART).len() << "]>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
    srangea << "da \"" << _mask->get(F_DAART) << "\" ";
  }
  if (_mask->get(F_AART).full())
  {
    cfilter << "(CODART[1," << _mask->get(F_AART).len() << "]<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
    srangea << "fino a " << _mask->get(F_AART)  << "\" ";
  }
  rangea.set(srangea.empty() ? TR("Tutti gli articoli") : format(FR("Articoli %s"), (const char *)srangea));
  switch (_mask->get(F_FILTRO)[0]) 
  {
    case '0': // non nulli
      cfilter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
      it_filtro.set(TR("non nulle"));
    break;
    case 'P': // positivi
      cfilter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
      it_filtro.set(TR("positive"));
    break;
    case 'N': // negativi
      cfilter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
      it_filtro.set(TR("negative"));
    break;
    case 'S': // sottoscorta
      cfilter << "(STR(GIAC<SCORTAMIN))&&";
      it_filtro.set(TR("sottoscorta"));
    break;
  }
  if (cfilter.not_empty())
    cfilter.cut(cfilter.len()-2); 

  // abilita/disabilita le sezioni dei totali
  _form->setdett_permag(
    _mask->get_bool(F_RAGGCODICE),
    _mask->get_int(F_FROMLIVELLOART),
    _mask->get_int(F_TOLIVELLOART),
    _mask->get_bool(F_RAGGLIVGIAC),
    _mask->get_int(F_FROMLIVELLOGIAC),
    _mask->get_int(F_TOLIVELLOGIAC),
    TRUE,
    _mask->get_bool(F_TOTALIDEPOSITI),
    _mask->get_bool(F_DETTAGLIODEP));
  
  if (!_mask->get_bool(F_TOTALIDEPOSITI))
  {
    ((TSorted_cursor *)_cur)->change_order("ANNOES|CODMAG[1,3]|CODART|LIVELLO");
    _form->find_field('B',odd_page,"GRUPPI_DEPOSITO").setcondition("CODMAG[1,3]",_strexpr);
  }
  TString16 ena=((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S')? "1": "0");
  _form->find_field('H',odd_page,FF_FLAGGIAC).set(ena );
  _form->find_field('B',odd_page,FF_FLAGGIAC).set(ena);
	_form->find_field('F',last_page, 247).show(ena != "0");
  _form->find_field('F',last_page, 251).show(ena != "0");
  ena=((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S')? "1": "0") ;
  _form->find_field('H',odd_page,FF_FLAGSOTTOS).set(ena);
  _form->find_field('B',odd_page,FF_FLAGSOTTOS).set(ena);
  ena=_mask->get(F_PREZZIVALORI);
  _form->find_field('H',odd_page,FF_PREZZIVALORI).set(ena);
  _form->find_field('B',odd_page,FF_PREZZIVALORI).set(ena);
  ena=_mask->get_bool(F_VALMEDI) ? "1": "0";
  _form->find_field('H',odd_page,FF_FLAGVALMEDI).set(ena);
  _form->find_field('B',odd_page,FF_FLAGVALMEDI).set(ena);
  _form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));

  // ********************
  // range di stampa magazzini
  TForm_item& rangem=_form->find_field('H',odd_page,FF_RANGEMAGAZ);
  TString srangem;
  if (_mask->get(F_DAMAG).full())
  {
    darec.put("CODMAG",_mask->get(F_DAMAG));
    srangem << "da \"" << _mask->get(F_DAMAG) << "\" ";
  }
  if (_mask->get(F_AMAG).full())
  {
    arec.put("CODMAG",_mask->get(F_AMAG));
    srangem << "fino a \"" <<  _mask->get(F_AMAG) << "\" ";
  }
  rangem.set(srangem.empty() ? TR("Tutti i magazzini") : format(FR("Magazzini %s"), (const char *)srangem));
  darec.put("ANNOES",_mask->get(F_ANNOES));
  arec.put("ANNOES",_mask->get(F_ANNOES));
  _cur->setfilter(cfilter);
  _cur->setregion(darec,arec);
}

void TStampa_datistorici::setprint_perarticoli()
{
  const char ordine= _mask->get(F_ORDINE)[0];
  const char subordine= _mask->get(F_SUBORDINE)[0];
  
  TRectype darec(LF_MAG),arec(LF_MAG);
  TString filter;
  char filtro_articoli=*_mask->get(F_FILTRO);
  _form = new TForm_giacprezzi("mg3100a", "");

  // ********************
  // range di stampa magazzini
  TString srangem;
  TForm_item & rangem=_form->find_field('H',odd_page,FF_RANGEMAGAZ);
  _cur = _form->cursor();
  
  if (_mask->get(F_DAMAG).full())
    srangem << "da \"" << _mask->get(F_DAMAG) << "\" ";
  if (_mask->get(F_AMAG).full())
    srangem << "fino a \"" << _mask->get(F_AMAG) << "\"";

  rangem.set(srangem.blank()? TR("Tutti i magazzini") : format(FR("Magazzini %s"),(const char *)srangem));

  // ********************
  // filtro giacenze
  TForm_item & it_filtro=_form->find_field('H',odd_page,FF_FILTRO);
  switch (filtro_articoli) 
  {
    case '0': // non nulli
      filter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
      it_filtro.set(TR("non nulle"));
    break;
    case 'P': // positivi
      filter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
      it_filtro.set(TR("positive"));
    break;
    case 'N': // negativi
      filter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
      it_filtro.set(TR("negative"));
    break;
    case 'S': // sottoscorta
      filter << "(STR("<< LF_MAG << "->GIAC < " << LF_MAG << "->SCORTAMIN))&&";
      it_filtro.set(TR("sottoscorta"));
    break;
  }

  TString srangea;
  if (subordine == 'P')
  {
    if (_mask->get(F_DAUSR).full())
    {
      filter << "(47->USER1>=\"" << _mask->get(F_DAUSR) << "\")&&";
      srangea << "da \"" << _mask->get(F_DAUSR) << "\" ";
    }
    if (_mask->get(F_AUSR).full())
    {
      filter << "(47->USER1<=\"" << _mask->get(F_AUSR) << "~\")&&";
      srangea << "fino a \"" << _mask->get(F_AUSR) << "\"";
    }
  }
  else
  {
    if (_mask->field(F_DAART).active())
    {
      if (_mask->get(F_DAART).full())
      {
        filter << "(CODART>=\"" << _mask->get(F_DAART) << "\")&&";
        srangea << "da \"" << _mask->get(F_DAART) << "\" ";
      }
      if (_mask->get(F_AART).full())
      {
        filter << "(CODART<=\"" << _mask->get(F_AART) << "~\")&&";
        srangea << "fino a \"" << _mask->get(F_AART) << "\"";
      }
    }
  }
  TForm_item& rangea=_form->find_field('H',odd_page,FF_RANGEARTIC);
  rangea.set(srangea.empty() ? TR("Tutti gli articoli") : format(FR("Articoli %s"), (const char *)srangea));

  if (filter.not_empty())
    filter.rtrim(2); 
  
  switch (subordine)
  {
  case 'C':
  case 'D':
  case 'P':
    _form->find_field('B',odd_page,"H_CATMER").hide();
    _form->find_field('B',odd_page,"TOT_CATMER").hide();
    _form->set_ordering(mg_normale);
    break;
  case 'M':
  case 'S':
    {
      TString espr;
      TForm_item & rangecm=_form->find_field('H',odd_page,FF_RANGECATMER);
      _form->find_field('B',odd_page,"H_CATMER").show();
      _form->find_field('B',odd_page,"TOT_CATMER").show();
      _form->set_ordering(subordine == 'M' ? mg_cat_merc : mg_scat_merc);
    
      espr.format("%d->%s", LF_ANAMAG, subordine == 'M' ? "GRMERC[1,3]" : "GRMERC");
      _form->find_field('B',odd_page,"GRUPPI_CATMER").setcondition(espr,_strexpr); 
    
      TString srangecm;
      if (_mask->get(F_DASCATMER).full())
      {
        srangecm << "da \"" << _mask->get(F_DASCATMER) << "\" ";
        filter << "&&(" << espr << ">=\"" << _mask->get(F_DASCATMER) << "\")";
      }
      if (_mask->get(F_ASCATMER).full())
      {
        srangecm << "fino a \"" << _mask->get(F_ASCATMER) << "\"";
        filter << "&&(" << espr << "<=\"" << _mask->get(F_ASCATMER) << "\")";
      }
      rangecm.set(srangecm.empty() ? TR("Tutte le categorie merceologiche") : format(FR("Categorie merc. %s"), (const char *)srangecm));
    }
    break;
  default:
    break;
  }
  
  _form->setdett_perart(
    _mask->get_bool(F_RAGGCODICE),
    _mask->get_int(F_FROMLIVELLOART),
    _mask->get_int(F_TOLIVELLOART),
    _mask->get_bool(F_RAGGLIVGIAC),
    _mask->get_int(F_FROMLIVELLOGIAC),
    _mask->get_int(F_TOLIVELLOGIAC),
    _mask->get_bool(F_TOTALIMAGAZZINI),
    _mask->get_bool(F_DETTAGLIOMAG));
  _form->set_description_field(subordine == 'P' ? ANAMAG_USER1 : ANAMAG_DESCR);

  TString16 ena = ((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S')? "1": "0");
  _form->find_field('H',odd_page,FF_FLAGGIAC).set(ena );
  _form->find_field('B',odd_page,FF_FLAGGIAC).set(ena);
	_form->find_field('F',last_page, 1647).show(ena != "0");
  _form->find_field('F',last_page, 1651).show(ena != "0");
  ena= ((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S')? "1": "0") ;
  _form->find_field('H',odd_page,FF_FLAGSOTTOS).set(ena);
  _form->find_field('B',odd_page,FF_FLAGSOTTOS).set(ena);
  _form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
  _form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));

  ena = _mask->get_bool(F_VALMEDI) ? "1": "0";
  _form->find_field('H',odd_page,FF_FLAGVALMEDI).set(ena);
  _form->find_field('B',odd_page,FF_FLAGVALMEDI).set(ena);

  _form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));
  
  darec.put("ANNOES",_mask->get(F_ANNOES));
  darec.put("CODMAG",_mask->get(F_DAMAG));
  arec.put("ANNOES",_mask->get(F_ANNOES));
  arec.put("CODMAG",_mask->get(F_AMAG));

  TString so;
  switch (subordine)
  {
  case 'M':
  case 'S': so.format("ANNOES|%d->GRMERC|CODART|LIVELLO|CODMAG", LF_ANAMAG); break;
  case 'D': so.format("ANNOES|%d->DESCR|CODMAG", LF_ANAMAG); break;
  case 'P': so.format("ANNOES|%d->USER1|CODMAG", LF_ANAMAG); break;
  default : break;
  }

  _cur->setregion(darec,arec);
  _cur->setfilter(filter, so.full());
  if (so.full())
    ((TSorted_cursor*) _cur)->change_order(so);
}  

// ORDINAMENTO 
void TStampa_datistorici::setprint_perarticoli_all()
{
  TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
  TString cfilter,filter,joinexp;
  TString sortexp = ANAMAG_CODART;  // Ordinamento su LF_ANAMAG (per default concide con key 1)

  const char ordine = _mask->get(F_ORDINE)[0];
  const char subordine = ordine == 'A' ? _mask->get(F_SUBORDINE)[0] : 'C';
  
  _form = new TForm_giacprezzi("mg3100aa", "");
  // ********************
  // range di stampa magazzini
  TForm_item & rangem=_form->find_field('H',odd_page,FF_RANGEMAGAZ);
  TString srangem;
  _cur = _form->cursor();
  if (_mask->get(F_DAMAG).full())
  {
    filter << "(" << LF_MAG <<"->CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
    srangem << "da \"" << _mask->get(F_DAMAG) << "\" ";
  }
  if (_mask->get(F_AMAG).full())
  {
    filter << "(" << LF_MAG <<"->CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
    srangem << "fino a \"" << _mask->get(F_AMAG) << "\"";
  }
  rangem.set(srangem.blank()? TR("Tutti i magazzini") : format(FR("Magazzini %s"),(const char *)srangem));

  if (filter.not_empty())
    filter.cut(filter.len()-2); 

  // ******************
  // sotto-ordinamenti e range di stampa articoli 
  TForm_item & rangecm=_form->find_field('H',odd_page,FF_RANGECATMER);
  TForm_item & rangea=_form->find_field('H',odd_page,FF_RANGEARTIC);
  TString srangea, srangecm, espr;

  switch (subordine)
  {
    case 'C':
      _cur->setkey(1); sortexp = ANAMAG_CODART;
      darec.put("CODART",_mask->get(F_DAART));
      arec.put("CODART",_mask->get(F_AART));
      _form->find_field('B',odd_page,"H_CATMER").hide();
      _form->find_field('B',odd_page,"TOT_CATMER").hide();
      _form->set_ordering(mg_normale);
      if (!_mask->get(F_DAART).blank())
        srangea << TR("da \"") << _mask->get(F_DAART) << "\" ";
      if (!_mask->get(F_AART).blank())
        srangea << TR("fino a \"") << _mask->get(F_AART) << "\"";
    break;
    case 'D':
      _cur->setkey(2); sortexp = ANAMAG_DESCR;
      darec.put("DESCR",_mask->get(F_DADES));
      arec.put("DESCR",_mask->get(F_ADES));
      _form->find_field('B',odd_page,"H_CATMER").disable();
      _form->find_field('B',odd_page,"TOT_CATMER").hide();
      _form->set_ordering(mg_normale);
      if (!_mask->get(F_DADES).blank())
        srangea << TR("da \"") << _mask->get(F_DADES) << "\" ";
      if (!_mask->get(F_ADES).blank())
        srangea << TR("fino a \"") << _mask->get(F_ADES) << "\"";
    break;
    case 'M':
    case 'S':
      _cur->setkey(3);
			if (subordine == 'M')
			{
				darec.put("GRMERC",_mask->get(F_DACATMER));
				arec.put("GRMERC",_mask->get(F_ACATMER));
	     _form->set_ordering(mg_cat_merc);
	      espr.format("%d->GRMERC[1,3]", LF_ANAMAG);
			}
			else
			{
				darec.put("GRMERC",_mask->get(F_DASCATMER));
				arec.put("GRMERC",_mask->get(F_ASCATMER));
				_form->set_ordering(mg_scat_merc);
	      espr.format("%d->GRMERC", LF_ANAMAG);
			}
      _form->find_field('B',odd_page,"GRUPPI_CATMER").setcondition(espr,_strexpr); 
			_form->find_field('B',odd_page,"H_CATMER").show();
      _form->find_field('B',odd_page,"TOT_CATMER").show();
 
      if (_mask->get(F_DAART).full())
      {
        srangea << TR("da \"") << _mask->get(F_DAART) << "\" ";
        cfilter << "(CODART[1," << _mask->get(F_DAART).len() << "]>=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
      }
      if (_mask->get(F_AART).full())
      {
        srangea << TR("fino a \"") << _mask->get(F_AART) << "\"";
        cfilter << "(CODART[1," << _mask->get(F_AART).len() << "]<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
      }
      if (_mask->get(F_DACATMER).full())
        srangecm << TR("da \"") << _mask->get(F_DACATMER) << "\" ";
      if (_mask->get(F_ACATMER).full())
        srangecm << TR("fino a \"") << _mask->get(F_ACATMER) << "\"";
      rangecm.set(srangecm.empty() ? TR("Tutte le categorie merceologiche") : format(FR("Categorie merc. %s"), (const char *)srangecm));
    break;
    case 'P':
      _cur->setkey(1); sortexp = ANAMAG_USER1;
      _form->find_field('B',odd_page,"H_CATMER").hide();
      _form->find_field('B',odd_page,"TOT_CATMER").hide();
      _form->set_ordering(mg_normale);
      if (_mask->get(F_DAUSR).full())
      {
        cfilter << "(USER1>=\"" << _mask->get(F_DAUSR) << "\")&&";
        srangea << TR("da \"") << _mask->get(F_DAUSR) << "\" ";
      }
      if (_mask->get(F_AUSR).full())
      {
        cfilter << "(USER1<=\"" << _mask->get(F_AUSR) << "~\")&&";
        srangea << TR("fino a \"") << _mask->get(F_AUSR) << "\"";
      }
      break;
  default:
    break;
  }
  rangea.set(srangea.empty() ? TR("Tutti gli articoli") : format(FR("Articoli  %s"), (const char *)srangea));

  _form->setdett_perart(
    _mask->get_bool(F_RAGGCODICE),
    _mask->get_int(F_FROMLIVELLOART),
    _mask->get_int(F_TOLIVELLOART),
    _mask->get_bool(F_RAGGLIVGIAC),
    _mask->get_int(F_FROMLIVELLOGIAC),
    _mask->get_int(F_TOLIVELLOGIAC),
    _mask->get_bool(F_TOTALIMAGAZZINI),
    _mask->get_bool(F_DETTAGLIOMAG));
  _form->set_description_field(subordine == 'P' ? ANAMAG_USER1 : ANAMAG_DESCR);

  TString16 ena=((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S')? "1": "0");
  _form->find_field('H',odd_page,FF_FLAGGIAC).set(ena );
  _form->find_field('B',odd_page,FF_FLAGGIAC).set(ena);
	_form->find_field('F',last_page, 1647).show(ena != "0");
  _form->find_field('F',last_page, 1651).show(ena != "0");
  ena=((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S')? "1": "0") ;
  _form->find_field('H',odd_page,FF_FLAGSOTTOS).set(ena);
  _form->find_field('B',odd_page,FF_FLAGSOTTOS).set(ena);
  _form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
  _form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));

  ena=_mask->get_bool(F_VALMEDI) ? "1": "0";
  _form->find_field('H',odd_page,FF_FLAGVALMEDI).set(ena);
  _form->find_field('B',odd_page,FF_FLAGVALMEDI).set(ena);

  _form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));

  joinexp << "ANNOES==\"" << _mask->get(F_ANNOES) << "\"|CODART==CODART";

  TSortedfile* mag = new TSortedfile(LF_MAG,NULL,"ANNOES|CODART|LIVELLO|CODMAG","",1);

  // il filtro viene qui settato DOPO la creazione del Sortedfile a causa di una bug
  // sulla libreria nei TSorted_file / TCursor
  mag->cursor().setfilter(filter);
  // FINE MODIFICA ; rimettere il filtro nel costruttore quando il bug sar<61> risolto 
  _cur->relation()->replace(mag,1,joinexp);
  if (cfilter.not_empty())
  {
    cfilter.rtrim(2); 
    _cur->setfilter(cfilter);
  }
  _cur->setregion(darec,arec);
  ((TSorted_cursor*)_cur)->change_order(sortexp);
}


void TStampa_datistorici::main_loop()
{
  while (_mask->run() == K_ENTER) 
  {
    if (_mask->magazz_ini().gestmag(TRUE))
    {
      const char ordine = _mask->get(F_ORDINE)[0];
      if (ordine=='A')  
      {
        if (_mask->get(F_FILTRO)[0] == 'T')
          setprint_perarticoli_all();
        else
          setprint_perarticoli();
        
        const bool sp = _mask->get_bool(F_SALTOPAG) && _mask->field(F_SALTOPAG).active();  
        TForm_subsection& ss = _form->find_field('B', odd_page, "H_CATMER");
        ss.set_newpage(sp);
      } 
      else 
      {                      
        setprint_permagazzini();
      }   

      _form->print();
      delete _form;
    }
  } // while true  
}


int mg3100(int argc, char* argv[])
{
  TStampa_datistorici a;// derivata da Application e con uso di form
  a.run(argc,argv,TR("Stampa dati storici di giacenza"));
  return 0;
}