campo-sirio/mg/mg3200.cpp

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

#include "mglib.h"
#include "mg3200.h"
#include "mg3frm.h"

class TForm_disponibilita : public TForm_stampemg
{
  TString16 _user1;
	
	public:
	  bool validate(TForm_item &cf, TToken_string &s);
	
	  void set_description_field(const char* u) { _user1 = u; }
	  
		TForm_disponibilita(const char *name): TForm_stampemg(name, "") {}
		virtual ~TForm_disponibilita() {}
	};
	
bool TForm_disponibilita::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 == "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);
}
	
class TStampadisp_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:
  TStampadisp_mask();
  virtual ~TStampadisp_mask(){};
};
TStampadisp_mask::TStampadisp_mask() : TStampemg_mask("mg3200")
{
  TCodgiac_livelli giaclev;
  TCodart_livelli  artlev;
  
  set_handler(F_TOLIVELLOART, handle_liv);
  set_handler(F_TOLIVELLOGIAC, handle_liv);
  set_handler(F_ORDINE, handle_ragg);
  set_handler(F_DETTAGLIODEP, handle_ragg);
  set_handler(F_DETTAGLIOMAG, handle_ragg);
  set_handler(F_SUBORDINE,handle_subord);
  if (!artlev.enabled()) {
    TMask_field &f1=field(F_RAGGCODICE);
    f1.reset(); f1.check();f1.hide();
    field(F_FROMLIVELLOART).hide();
    field(F_TOLIVELLOART).hide();
  }
  if (!giaclev.enabled()) {
    TMask_field &f2=field(F_RAGGLIVGIAC);
    f2.reset(); f2.check();f2.hide();
    field(F_FROMLIVELLOGIAC).hide();
    field(F_TOLIVELLOGIAC).hide();
  }

  TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
	
	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 TStampadisp_mask::handle_subord(TMask_field &fld, KEY k)
{
  if (k == K_SPACE) 
  {
    TStampadisp_mask & m=(TStampadisp_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();
				else
				{
					if (!fld.mask().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.check(); fraggcod.disable();
			break;
		}
  }
  return true;
}

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

bool TStampadisp_mask::handle_ragg(TMask_field &fld, KEY k)
{
  if (k == K_SPACE) 
  {
    TStampadisp_mask & m=(TStampadisp_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);
		const char ordine = m.get(F_ORDINE)[0];

    if (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.enable(F_DETTAGLIOMAG,enabmag);
    } 
    fraggcod.enable();
    fragggiac.enable();
  }
  return true;
}


// mg3200       Stampa 
class TStampa_disp : public TSkeleton_application
{
  TStampadisp_mask * _mask;
  TCursor * _cur;
  TForm_disponibilita * _form; // to be moved into TPrint_application

protected:
  virtual bool print_one(int file)  {return TRUE;}
  virtual bool create();
  virtual bool destroy();
  virtual void main_loop();
  virtual void on_firm_change();

  void setprint_permagazzini();
  void setprint_perarticoli();

public:
  TStampa_disp() {}
};


bool TStampa_disp::create()
{
	open_files(LF_TAB,LF_TABCOM,LF_ANAMAG, LF_MAG, LF_CODCORR, LF_DESLIN, 0);
  _mask = new TStampadisp_mask;

  return TSkeleton_application::create();
}

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

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


void TStampa_disp::setprint_permagazzini()
{
  TRectype darec(LF_MAG),arec(LF_MAG);
  TString cfilter,sortexp,joinexp;
  _form = new TForm_disponibilita("mg3200b");
  _cur  = _form->cursor();
  TSorted_cursor & cur= (TSorted_cursor & )*_cur;
  // ********************
  // range di stampa articoli
  // setta il filtro sul cursore
  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 << TR("da \"") << _mask->get(F_DAART) << "\" ";
  }
  if (_mask->get(F_AART).full())
  {
    cfilter << "(CODART[1," << _mask->get(F_AART).len() << "]<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
    srangea << TR("fino a \"") << _mask->get(F_AART) << "\"";
  }
  if (cfilter.not_empty())
    cfilter.cut(cfilter.len()-2); 

  rangea.set(srangea.empty() ? TR("Tutti gli articoli") : format(FR("Articoli  %s"),(const char *)srangea));
  // ***************
  // gestione dei livelli di raggruppamento e di detaglio
  // (abilita/disabilita le sezioni dei totali/header)
  
  _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))
  {
    cur.change_order("ANNOES|CODMAG[1,3]|CODART|LIVELLO");
    _form->find_field('B',odd_page,"GRUPPI_DEPOSITO").setcondition("CODMAG[1,3]",_strexpr);
  }
  // ********************
  // range di stampa magazzini
  TForm_item & rangem=_form->find_field('H',odd_page,FF_RANGEMAGAZ);
  TString srangem;

  darec.put("ANNOES",_mask->get(F_ANNOES));
  arec.put("ANNOES",_mask->get(F_ANNOES));
  darec.put("CODMAG",_mask->get(F_DAMAG));
  arec.put("CODMAG",_mask->get(F_AMAG));
  if (_mask->get(F_DAMAG).full())
    srangem << TR("da \"") <<  _mask->get(F_DAMAG) << "\" ";
  if (_mask->get(F_AMAG).full())
    srangem << TR("fino a \"") <<  _mask->get(F_AMAG) << "\" ";
  rangem.set(srangem.empty() ? TR("Tutti i magazzini") : format(FR("Magazzini %s"),(const char *)srangem));

  cur.setfilter(cfilter);
  cur.setregion(darec,arec);
}

// ORDINAMENTO 
void TStampa_disp::setprint_perarticoli()
{
  TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
  TString cfilter,filter,joinexp;
  TString sortexp = ANAMAG_CODART;
  const char subordine = _mask->get(F_SUBORDINE)[0];

  _form = new TForm_disponibilita("mg3200a");
  _cur = _form->cursor();
  // ********************
  // range di stampa magazzini
  TForm_item & rangem=_form->find_field('H',odd_page,FF_RANGEMAGAZ);
  TString srangem;

  if (_mask->get(F_DAMAG).full())
  {
    filter << "(" << LF_MAG<< "->CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
    srangem << TR("da \"") <<  _mask->get(F_DAMAG) << "\" ";
  }
  if (_mask->get(F_AMAG).full())
  {
    filter << "(" << LF_MAG<< "->CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
    srangem << TR("fino a \"") <<  _mask->get(F_AMAG) << "\" ";
  }
  rangem.set(srangem.empty() ? TR("Tutti i magazzini") : format(FR("Magazzini %s"),(const char *)srangem));
  if (filter.not_empty())
    filter.cut(filter.len()-2); 
  // ********************
  // 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;

  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).full())
      srangea << TR("da \"") << _mask->get(F_DAART) << "\" ";
    if (_mask->get(F_AART).full())
      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).full())
      srangea << TR("da \"") << _mask->get(F_DADES) << "\" ";
    if (_mask->get(F_ADES).full())
      srangea << TR("fino a \"") << _mask->get(F_ADES) << "\"";
    break;
  case 'M':
    _cur->setkey(3); sortexp = ANAMAG_GRMERC;
    darec.put("GRMERC",_mask->get(F_DACATMER));
    arec.put("GRMERC",_mask->get(F_ACATMER));
    _form->find_field('B',odd_page,"H_CATMER").show();
    _form->find_field('B',odd_page,"TOT_CATMER").show();
    _form->set_ordering(mg_cat_merc);
    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);


  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_disp::main_loop()
{
  while (_mask->run() == K_ENTER) 
  {
    if (_mask->magazz_ini().gestmag(TRUE))
    {
      if (_mask->get(F_ORDINE)[0] == 'A')  
        setprint_perarticoli();
      else 
        setprint_permagazzini();
      _form->print();
      delete _form;
    }
  } // while true  
  return ;
}


int mg3200(int argc, char* argv[])
{
  TStampa_disp a;// derivata da Application e con uso di form
  a.run(argc,argv,TR("Stampa disponibilita'"));
  return 0;
}