2a7d0abdc4
Files correlati : mg3.exe Ricompilazione Demo : [ ] Commento : Bug 0001770: 003343 - Diana 2000 Il cliente richiede che nella stampa disponibilità e giacenze venga inserito un filtro per magazzino e deposito. git-svn-id: svn://10.65.10.50/branches/R_10_00@21635 c028cbd2-c16b-5b4b-a496-9718f37d4682
474 lines
14 KiB
C++
Executable File
474 lines
14 KiB
C++
Executable File
#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) << "\" ";
|
||
if (_mask->get(F_DADEP).full())
|
||
{
|
||
cfilter << "(" << LF_MAG<< "->CODMAG[4,5]>=" <<'"' << _mask->get(F_DADEP)<< "\")&&" ;
|
||
srangem << TR("deposito da ") << _mask->get(F_DADEP) << " ";
|
||
}
|
||
if (_mask->get(F_ADEP).full())
|
||
{
|
||
cfilter << "(" << LF_MAG<< "->CODMAG[4,5]<=" <<'"' << _mask->get(F_ADEP)<< "\")&&" ;
|
||
srangem << TR("a ") << _mask->get(F_ADEP) << " ";
|
||
}
|
||
if (cfilter.full())
|
||
cfilter.rtrim(2);
|
||
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("a ") << _mask->get(F_AMAG) << " ";
|
||
}
|
||
if (_mask->get(F_DADEP).full())
|
||
{
|
||
filter << "(" << LF_MAG<< "->CODMAG[4,5]>=" <<'"' << _mask->get(F_DADEP)<< "\")&&" ;
|
||
srangem << TR("deposito da") << _mask->get(F_DADEP) << " ";
|
||
}
|
||
if (_mask->get(F_ADEP).full())
|
||
{
|
||
filter << "(" << LF_MAG<< "->CODMAG[4,5]<=" <<'"' << _mask->get(F_ADEP)<< "\")&&" ;
|
||
srangem << TR("a ") << _mask->get(F_ADEP) << " ";
|
||
}
|
||
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;
|
||
}
|