root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/mg/mg3200.cpp
alex c434cad322 Patch level : 4.0 451 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Riportata la versione 3.1 patch 650


git-svn-id: svn://10.65.10.50/trunk@14148 c028cbd2-c16b-5b4b-a496-9718f37d4682
2006-07-11 13:10:51 +00:00

452 lines
13 KiB
C++
Executable File
Raw Blame History

#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;
}
Reference in New Issue View Git Blame Copy Permalink