root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/mg/mglib03.cpp
alex a0a36d6b33 Patch level : XX.282 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Riportata la versione 01.05 patch 282


git-svn-id: svn://10.65.10.50/trunk@8019 c028cbd2-c16b-5b4b-a496-9718f37d4682
1999-04-06 15:34:39 +00:00

408 lines
12 KiB
C++
Executable File
Raw Blame History

#include "form.h"
#include "mglib.h"
#include "mg3frm.h"
#include "mg3msk.h"
void TForm_stampemg::add_giaclev(TString &levname, int from, int to)
{
to=(to==0 ? (_tolivgiac ? _tolivgiac:_giaclev->last_level()) : to);
int lv=(from==0 ? 1: from );
for (; lv <to ; lv++) {
const TString & piece = _giaclev->unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),lv);
if (piece.not_empty())
levname << '/' << piece ;
}
}
void TForm_stampemg::gruppogiac(TForm_item &cf, TToken_string &s)
{
TString valore,levname;
int livello=atoi(s.get());
if (_fromlivgiac && livello == _fromlivgiac)
{
levname << _giaclev->name(livello) << ' ' ;
}
valore=_giaclev->group_descr_packed(relation()->lfile(LF_MAG).get("LIVELLO"),livello);
if (valore.empty())
valore = UNKNOWN_NAME;
cf.set(levname << valore);
}
void TForm_stampemg::gruppoart(TForm_item &cf, TToken_string &s)
{
int lv=atoi(s.get());
TToken_string valore;
valore=_artlev->group_descr_packed(relation()->lfile(LF_ANAMAG).get("CODART"),lv);
if (valore.empty())
{
valore.separator(',');
valore << "_USER,CODGRUPPOART," << lv;
validate(cf,valore);
valore.cut(0);
valore << '"' << cf.get() << '"';
}
cf.set(valore);
}
void TForm_stampemg::codgruppogiac(TForm_item &cf, TToken_string &s)
{
TString valore,levname;
int livello=atoi(s.get());
if (_fromlivgiac && livello == _fromlivgiac)
{
levname=relation()->lfile(LF_MAG).get("CODART");
add_giaclev(levname,1,_fromlivgiac);
levname << ' ';
} else {
levname << _giaclev->name(livello) << ' ' ;
}
valore=_giaclev->unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),livello);
if (valore.empty())
valore = UNKNOWN_NAME;
cf.set(levname << valore);
}
bool TForm_stampemg::validate(TForm_item &cf, TToken_string &s)
{
static TString *last_um=NULL;
const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
TString subcode;
TString valore,levname;
if (code=="_USER") {
subcode=s.get();
if (subcode=="GRUPPOGIAC") {
gruppogiac(cf,s);
} else if (subcode=="GRUPPOART") {
gruppoart(cf,s);
} else if (subcode=="CODGRUPPOGIAC") {
codgruppogiac(cf,s);
} else if (subcode=="CODGRUPPOART") {
int lv=atoi(s.get());
do {
valore=relation()->lfile(LF_ANAMAG).get("CODART");
valore.rpad(25).cut(_artlev->packed_length(lv));
} while (--lv>0 && valore=="");
cf.set(valore);
} else if (subcode=="CATMER") {
valore=relation()->lfile(_ordering == ragg_fisc ? -600 : (_ordering == scat_merc ? -401 : -400)).get("S0");
cf.set(valore);
} else if (subcode=="CODCATMER") {
valore=relation()->lfile(LF_ANAMAG).get(_ordering == ragg_fisc ? "RAGGFIS" : "GRMERC");
if (_ordering != ragg_fisc)
valore.rpad(5).cut(_ordering == scat_merc ? 5:3);
cf.set(valore);
} else if (subcode=="LIVELLIGIAC") {
int lv=_tolivgiac;
valore="";
do {
const TString & piece = _giaclev->unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),lv+1);
if (piece.not_empty()) {
if (valore.not_empty())
valore << '/';
valore << piece ;
}
} while (lv++<_giaclev->last_level());
if (valore!="")
levname=_giaclev->name(_tolivgiac+1);
else
levname="Giacenza";
cf.set(levname << ' ' << valore);
} else if (subcode=="VALIDATE_UM") {
/*CHECK(last_um,"Unit<69> di misura non definita");
if (last_um->blank())
cf.set("");
delete last_um;
last_um = NULL;*/
TForm_string &um_field=(TForm_string &)cf.form().find_field('B',odd_page,atoi(s.get()) );
if (*um_field.get()<=' ') // blank : not a valid UM!
cf.set("0");
} else if (subcode=="SAVE_UM") {
CHECK(FALSE,"SAVE_UM no more available");
} else if (subcode=="RESET_UM") {
TForm_string &dest=(TForm_string &)cf.form().find_field('B',odd_page,atoi(s.get()) );
dest.set("");
} else if (subcode=="COPY_UM") {
/*if (last_um==NULL)
last_um = new TString16(cf.get());
if (*last_um != cf.get())
{
// impossibile sommare le quantit<69> degli articoli per UM diverse
last_um->cut(0);
dest.set("");
cf.form().find_field('B',odd_page,FF_FLAGTOTQTA).set("0");
}*/
TForm_string &dest=(TForm_string &)cf.form().find_field('B',odd_page,atoi(s.get()) );
if (*dest.get() && strcmp(dest.get(),cf.get()) != 0)
{
// impossibile sommare le quantit<69> degli articoli per UM diverse
dest.set(" ");
//cf.form().find_field('B',odd_page,FF_FLAGTOTQTA).set("0");
} else {
// prima sommare le quantit<69> degli articoli per UM diverse
dest.set( cf.get() );
//cf.form().find_field('B',odd_page,FF_FLAGTOTQTA).set("0");
}
}
return TRUE;
} else
return TForm::validate(cf, s);
}
void TForm_stampemg::set_ordering(const TTipo_ordinamento_mg t)
{
_ordering = t;
TForm_subsection &s=((TForm_subsection &)find_field('B',odd_page,"GRUPPI_CATMER"));
TString cond;
switch (_ordering)
{
default:
case normale:
cond = "CODART";
break;
case ragg_fisc:
cond = "RAGGFIS";
break;
case cat_merc:
cond = "GRMERC[1,3]";
break;
}
s.setcondition(cond,_strexpr);
}
bool TForm_stampemg::setdett_perart(bool totaliart,int fromlivart,int livart,bool totaligiac,int fromlivgiac,int livgiac,bool showmag, bool showdep)
{
const int last_artlev=_artlev->last_level() ? _artlev->last_level() : 1;
const int last_giaclev=_giaclev->last_level();
if (totaliart) // voglio i totali di articolo
{
if (livart==0 && fromlivgiac==0)
livart=last_artlev; //
}
else
{
if (fromlivgiac==0)
fromlivart=last_artlev;
}
if (totaligiac) // voglio i totali di giacenza
{
if (livgiac==0 && livart==0)
livgiac=last_giaclev; //
}
else
{
if (fromlivart>livart)
livart=fromlivart;
}
find_field('B',odd_page,"H_MAGAZZINO").enable(showmag && showdep);
find_field('B',odd_page,"TOT_MAGAZZINO").show(showmag);
find_field('B',odd_page,"H_DEPOSITO").show(FALSE);
find_field('B',odd_page,"TOT_DEPOSITO").show(showdep);
return setdettaglio(TRUE,fromlivart,livart,fromlivgiac,livgiac,showmag||showdep);
}
bool TForm_stampemg::setdett_permag(bool totaliart,int fromlivart,int livart,bool totaligiac,int fromlivgiac,int livgiac,bool showmag, bool showdep,bool showdett)
{
const int last_artlev=_artlev->last_level() ? _artlev->last_level() : 1;
const int last_giaclev=_giaclev->last_level();
if (totaliart) // voglio i totali di articolo
{
if (livart==0 && fromlivgiac==0)
livart=last_artlev; //
}
else
{
if (fromlivgiac==0)
fromlivart=last_artlev;
}
if (totaligiac) // voglio i totali di giacenza
{
if (livgiac==0 && livart==0)
livgiac=last_giaclev; //
}
else
{
if (fromlivart>livart)
livart=fromlivart;
}
find_field('B',odd_page,"H_MAGAZZINO").show(showmag && (showdep || showdett) );
find_field('B',odd_page,"TOT_MAGAZZINO").show(showmag);
find_field('B',odd_page,FF_DIVDEPOSITI).enable(showdep);
find_field('B',odd_page,"H_DEPOSITO").show(showdep && showdett);
find_field('B',odd_page,"TOT_DEPOSITO").show(showdep);
return setdettaglio(showdett,fromlivart,livart,fromlivgiac,livgiac,FALSE);
}
bool TForm_stampemg::setdettaglio(bool show, int fromlivart,int livart,int fromlivgiac,int livgiac,bool dettgiac)
{
const int last_artlev=_artlev->last_level() ? _artlev->last_level() : 1;
const int last_giaclev=_giaclev->last_level();
const int tolivart =min(( livart ? livart :last_artlev) ,last_artlev-1);
const int tolivgiac=min((livgiac ? livgiac :last_giaclev),last_giaclev );
_fromlivart=fromlivart;
_fromlivgiac=fromlivgiac;
_tolivart=livart;
_tolivgiac=livgiac;
// ***********
// abilita le sezioni dei livelli di codice
TForm_subsection &s1=(TForm_subsection &)find_field('B',odd_page,"H_ARTICOLO");
TForm_subsection &s2=(TForm_subsection &)find_field('B',odd_page,"TOT_ARTICOLO");
if (fromlivgiac==0 // non raggruppo a partire dai livelli di giacenza
&& (livart==0 || livart==last_artlev)) {
s1.show(show && (dettgiac || livgiac!=0) );
s2.show(show);
} else {
s1.hide();
s2.hide();
}
int i;
for (i=1; i<=FORM_MAXARTLEV; i++)
{
TString sname("TOT_GART");
sname << i;
TForm_subsection &s1=(TForm_subsection &)find_field('B',odd_page,sname);
s1.show(show && i>=fromlivart && i<=tolivart && fromlivgiac==0);
sname="H_GCODART";
sname << i;
TForm_subsection &s2=(TForm_subsection &)find_field('B',odd_page,sname);
s2.show(show && i>=fromlivart &&
(i<tolivart || (i==tolivart && (livart==0 || livart>tolivart || livgiac || dettgiac))) && fromlivgiac==0);
}
// abilita le sezioni del codice livelli giacenza
for (i=1; i<=FORM_MAXGIACLEV; i++)
{
TString sname("TOT_GLIVGIAC");
sname << i;
TForm_subsection &s1=(TForm_subsection &)find_field('B',odd_page,sname);
s1.show(show && i>=fromlivgiac && (i<=tolivgiac) && (livart==0));
sname="H_GLIVGIAC";
sname << i;
TForm_subsection &s2=(TForm_subsection &)find_field('B',odd_page,sname);
s2.show(show && i>=fromlivgiac && (i<tolivgiac ||(i==tolivgiac && dettgiac)) && livart==0);
}
// ***********
fromlivart = fromlivart ? fromlivart :1;
fromlivgiac=fromlivgiac ? fromlivgiac :1;
// codice livello giacenza
for (i=fromlivgiac;i<=tolivgiac ; i++) {
if (livart==0)
{
TString sname=("GRUPPI_LIVGIAC");
sname << i;
TForm_subsection &s=(TForm_subsection &)find_field('B',odd_page,sname);
TString cond(s.condition());
cond << "+LIVELLO[" << _giaclev->packed_length(i-1)+1 << "," << _giaclev->packed_length(i) <<']';
s.setcondition(cond,_strexpr);
}
}
// sezioni livello codice
// for (i=fromlivart;i<=tolivart ; i++) {
for (i=1;i<=tolivart ; i++) {
TString sname("GRUPPI_CODART");
sname << i;
TForm_subsection &s=(TForm_subsection &)find_field('B',odd_page,sname);
TString cond(s.condition());
cond << '[' << (i==1 ? 1:_artlev->packed_length(i-1))<<',' << _artlev->packed_length(i) <<']';
s.setcondition(cond,_strexpr);
}
return TRUE;
}
TForm_stampemg::TForm_stampemg(const char *name,const char *code)
: TForm(name,code)
{
_giaclev= new TCodgiac_livelli();
_artlev= new TCodart_livelli();
_fromlivgiac=_tolivgiac=0;
_fromlivart=_tolivart=0;
_ordering = normale;
}
TForm_stampemg::~TForm_stampemg()
{
delete _giaclev;
delete _artlev;
}
// maschera delle stampe magazzino
void TStampemg_mask::enable_livellicodice()
{
int pos = id2pos(F_RAGGCODICE);
if (pos >= 0)
{
TMask_field &f_ragg=field(F_RAGGCODICE);
if (!_artlev.enabled())
{
// nasconde i campi di livello articolo
f_ragg.reset(); f_ragg.check(); f_ragg.hide();
field(F_FROMLIVELLOART).hide();
field(F_TOLIVELLOART).hide();
} else {
f_ragg.set("");
f_ragg.show();
f_ragg.check();
field(F_FROMLIVELLOART).show();
field(F_TOLIVELLOART).show();
}
}
int pos_g = id2pos(F_RAGGLIVGIAC);
if (pos_g >= 0)
{
TMask_field &f_ragg=field(F_RAGGLIVGIAC);
if (!_giaclev.enabled())
{
// nasconde i campi di livello giacenza
f_ragg.reset(); f_ragg.check();f_ragg.hide();
field(F_FROMLIVELLOGIAC).hide();
field(F_TOLIVELLOGIAC).hide();
} else {
f_ragg.set("");
f_ragg.show();
f_ragg.check();
field(F_FROMLIVELLOGIAC).show();
field(F_TOLIVELLOGIAC).show();
}
}
}
void TStampemg_mask::set_livellicodice()
{
if (!get_bool(F_RAGGCODICE) && get_int(F_FROMLIVELLOGIAC)==0)
{
set(F_FROMLIVELLOART,artlev().last_level());
//set(F_TOLIVELLOART,);
}
if (!get_bool(F_RAGGLIVGIAC))
{
if (get_int(F_TOLIVELLOART)==0)
set(F_TOLIVELLOART,artlev().last_level()); //
} else {
if (get_int(F_TOLIVELLOGIAC)==0)
set(F_TOLIVELLOGIAC,giaclev().last_level()); //
}
}
Reference in New Issue View Git Blame Copy Permalink