root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/mg/mg3100.cpp
alex 2a7d0abdc4 Patch level : 10.0 918 
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
2011-02-12 00:48:12 +00:00

776 lines
24 KiB
C++
Executable File
Raw Blame History

#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>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
srangea << "da \"" << _mask->get(F_DAART) << "\" ";
}
if (_mask->get(F_AART).full())
{
cfilter << "(CODART<=" <<'"' << _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 << "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));
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 << " a " << _mask->get(F_AMAG) << " ";
if (_mask->get(F_DADEP).full())
{
filter << "(" << LF_MAG<< "->CODMAG[4,5]>=" <<'"' << _mask->get(F_DADEP)<< "\")&&" ;
srangem << TR("deposito ") << _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.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 << "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.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>=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
}
if (_mask->get(F_AART).full())
{
srangea << TR("fino a \"") << _mask->get(F_AART) << "\"";
cfilter << "(CODART<=" <<'"' << _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, 0x2);
((TSorted_cursor*)_cur)->change_order(sortexp);
}
void TStampa_datistorici::main_loop()
{
_mask->set(F_STAMPAGIAC, "X");
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;
}
_mask->set(F_STAMPAGIAC, "X");
} // 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;
}
Reference in New Issue View Git Blame Copy Permalink