root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Esplosione tab

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4836 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-07 11:08:59 +00:00
parent 65d87bb2c1
commit 4d82f94142
2 changed files with 631 additions and 631 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

678
mg/mg4200.cpp
View File

@ -17,22 +17,22 @@
#define MAX_VAL_COLUMNS 6 #define MAX_VAL_COLUMNS 6
class TForm_inventario : public TForm_stampemg class TForm_inventario : public TForm_stampemg
{ {
int colonne; int colonne;
TConfig *conf_ditta; TConfig *conf_ditta;
TArticolo_giacenza * _curr_art; TArticolo_giacenza * _curr_art;
TString16 _codlist,_catven; // codici listino e cat vendita TString16 _codlist,_catven; // codici listino e cat vendita
bool _giaceff, // flag inventario di giacenza bool _giaceff, // flag inventario di giacenza
_valcomp; // flag valorizzzione finiti o componenti _valcomp; // flag valorizzzione finiti o componenti
TTipo_valorizz _valorizz_scelte[MAX_VAL_COLUMNS]; // valorizzazioni delle varie colonne TTipo_valorizz _valorizz_scelte[MAX_VAL_COLUMNS]; // valorizzazioni delle varie colonne
TArticolo_giacenza &curr_art(); TArticolo_giacenza &curr_art();
public: public:
void set_parametri(const char * codcm,const char * cod,bool giaceff, bool valcomp); void set_parametri(const char * codcm,const char * cod,bool giaceff, bool valcomp);
bool valorizzazione(TForm_item &cf, TTipo_valorizz t); bool valorizzazione(TForm_item &cf, TTipo_valorizz t);
bool validate(TForm_item &cf, TToken_string &s); bool validate(TForm_item &cf, TToken_string &s);
void add_colval(int tipo); void add_colval(int tipo);
TForm_inventario(const char *name,const char *code) ; TForm_inventario(const char *name,const char *code) ;
~TForm_inventario(); ~TForm_inventario();
}; };
bool TForm_inventario::validate(TForm_item &cf, TToken_string &s) bool TForm_inventario::validate(TForm_item &cf, TToken_string &s)
@ -41,289 +41,289 @@ bool TForm_inventario::validate(TForm_item &cf, TToken_string &s)
TString subcode; TString subcode;
if (code=="_USER") { if (code=="_USER") {
TRectype & magrec=relation()->lfile(LF_MAG).curr(); TRectype & magrec=relation()->lfile(LF_MAG).curr();
TString16 annoes(magrec.get(MAG_ANNOES)); TString16 annoes(magrec.get(MAG_ANNOES));
subcode=s.get(); subcode=s.get();
if (subcode=="GIAC") { if (subcode=="GIAC") {
real v=magrec.get_real(MAG_GIAC); real v=magrec.get_real(MAG_GIAC);
if (!_giaceff) { if (!_giaceff) {
v +=magrec.get_real(MAG_ACL); v +=magrec.get_real(MAG_ACL);
v -=magrec.get_real(MAG_INCL); v -=magrec.get_real(MAG_INCL);
if (_valcomp) if (_valcomp)
v -=magrec.get_real(MAG_PRODCOMP); v -=magrec.get_real(MAG_PRODCOMP);
else else
v +=magrec.get_real(MAG_PRODFIN); v +=magrec.get_real(MAG_PRODFIN);
} }
cf.set(v.string()); cf.set(v.string());
} }
if (subcode=="VAL1") { if (subcode=="VAL1") {
valorizzazione(cf,_valorizz_scelte[0]); valorizzazione(cf,_valorizz_scelte[0]);
} }
if (subcode=="VAL2"&& colonne >=2) { if (subcode=="VAL2"&& colonne >=2) {
valorizzazione(cf,_valorizz_scelte[1]); valorizzazione(cf,_valorizz_scelte[1]);
} }
if (subcode=="VAL3" && colonne >=3) { if (subcode=="VAL3" && colonne >=3) {
valorizzazione(cf,_valorizz_scelte[2]); valorizzazione(cf,_valorizz_scelte[2]);
} }
if (subcode=="VAL4" && colonne >=4) { if (subcode=="VAL4" && colonne >=4) {
valorizzazione(cf,_valorizz_scelte[3]); valorizzazione(cf,_valorizz_scelte[3]);
} }
if (subcode=="VAL5"&& colonne >=5) { if (subcode=="VAL5"&& colonne >=5) {
valorizzazione(cf,_valorizz_scelte[4]); valorizzazione(cf,_valorizz_scelte[4]);
} }
if (subcode=="VAL6" && colonne >=6) { if (subcode=="VAL6" && colonne >=6) {
valorizzazione(cf,_valorizz_scelte[5]); valorizzazione(cf,_valorizz_scelte[5]);
} }
if (subcode=="NAMEVAL1") { if (subcode=="NAMEVAL1") {
cf.set(Nome_valorizz[_valorizz_scelte[0]]); cf.set(Nome_valorizz[_valorizz_scelte[0]]);
} }
if (subcode=="NAMEVAL2"&& colonne >=2) { if (subcode=="NAMEVAL2"&& colonne >=2) {
cf.set(Nome_valorizz[_valorizz_scelte[1]]); cf.set(Nome_valorizz[_valorizz_scelte[1]]);
} }
if (subcode=="NAMEVAL3" && colonne >=3) { if (subcode=="NAMEVAL3" && colonne >=3) {
cf.set(Nome_valorizz[_valorizz_scelte[2]]); cf.set(Nome_valorizz[_valorizz_scelte[2]]);
} }
if (subcode=="NAMEVAL4" && colonne >=4) { if (subcode=="NAMEVAL4" && colonne >=4) {
cf.set(Nome_valorizz[_valorizz_scelte[3]]); cf.set(Nome_valorizz[_valorizz_scelte[3]]);
} }
if (subcode=="NAMEVAL5"&& colonne >=5) { if (subcode=="NAMEVAL5"&& colonne >=5) {
cf.set(Nome_valorizz[_valorizz_scelte[4]]); cf.set(Nome_valorizz[_valorizz_scelte[4]]);
} }
if (subcode=="NAMEVAL6" && colonne >=6) { if (subcode=="NAMEVAL6" && colonne >=6) {
cf.set(Nome_valorizz[_valorizz_scelte[5]]); cf.set(Nome_valorizz[_valorizz_scelte[5]]);
} }
if (subcode=="LINEATOTALI") { if (subcode=="LINEATOTALI") {
TString l(29*colonne+12,'-'); TString l(29*colonne+12,'-');
cf.set(l); cf.set(l);
} }
} }
return TForm_stampemg::validate(cf, s); return TForm_stampemg::validate(cf, s);
} }
TArticolo_giacenza &TForm_inventario::curr_art() TArticolo_giacenza &TForm_inventario::curr_art()
{ {
TRectype & magrec=relation()->lfile(LF_MAG).curr(); TRectype & magrec=relation()->lfile(LF_MAG).curr();
if (_curr_art==NULL || magrec.get(MAG_CODART)!=_curr_art->codice() ) { if (_curr_art==NULL || magrec.get(MAG_CODART)!=_curr_art->codice() ) {
if (_curr_art) delete _curr_art; if (_curr_art) delete _curr_art;
_curr_art=new TArticolo_giacenza(magrec.get(MAG_CODART)); _curr_art=new TArticolo_giacenza(magrec.get(MAG_CODART));
} }
return *_curr_art; return *_curr_art;
} }
void TForm_inventario::add_colval(int tipo) void TForm_inventario::add_colval(int tipo)
{ {
TTipo_valorizz t ; TTipo_valorizz t ;
switch (tipo) { switch (tipo) {
case 1: case 1:
t=valorizz_ultcos; t=valorizz_ultcos;
break; break;
case 2: case 2:
t=valorizz_mediacos; t=valorizz_mediacos;
break; break;
case 3: case 3:
t=valorizz_przlist; t=valorizz_przlist;
break; break;
case 4: case 4:
t=valorizz_coststd; t=valorizz_coststd;
break; break;
case 5: case 5:
t=valorizz_costmedio; t=valorizz_costmedio;
break; break;
case 6: case 6:
t=valorizz_FIFOa; t=valorizz_FIFOa;
break; break;
case 7: case 7:
t=valorizz_LIFOa; t=valorizz_LIFOa;
break; break;
case 8: case 8:
t=valorizz_FIFO; t=valorizz_FIFO;
break; break;
case 9: case 9:
t=valorizz_LIFO; t=valorizz_LIFO;
break; break;
default: default:
return; return;
} }
_valorizz_scelte[colonne++]=t; _valorizz_scelte[colonne++]=t;
TString col; TString col;
col << colonne; col << colonne;
find_field('B',odd_page,FF_ENABLECOLS).set(col); find_field('B',odd_page,FF_ENABLECOLS).set(col);
find_field('H',odd_page,FF_ENABLECOLS).set(col); find_field('H',odd_page,FF_ENABLECOLS).set(col);
} }
bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t) bool TForm_inventario::valorizzazione(TForm_item &cf, TTipo_valorizz t)
{ {
TRectype & magrec=relation()->lfile(LF_MAG).curr(); TRectype & magrec=relation()->lfile(LF_MAG).curr();
TString annoes(magrec.get(MAG_ANNOES)); TString annoes(magrec.get(MAG_ANNOES));
if (t==valorizz_ultcos) { if (t==valorizz_ultcos) {
cf.set(curr_art().ultimo_costo(annoes).string()); cf.set(curr_art().ultimo_costo(annoes).string());
} }
if (t==valorizz_mediacos) { if (t==valorizz_mediacos) {
cf.set(curr_art().media_costi(annoes).string()); cf.set(curr_art().media_costi(annoes).string());
} }
if (t==valorizz_przlist) { if (t==valorizz_przlist) {
cf.set(curr_art().prezzo_listino(annoes,_codlist,_catven).string()); cf.set(curr_art().prezzo_listino(annoes,_codlist,_catven).string());
} }
if (t==valorizz_coststd) { if (t==valorizz_coststd) {
cf.set(curr_art().costo_standard(annoes).string()); cf.set(curr_art().costo_standard(annoes).string());
} }
if (t==valorizz_costmedio) { if (t==valorizz_costmedio) {
const TString codmag(magrec.get(MAG_CODMAG)); const TString codmag(magrec.get(MAG_CODMAG));
const TString livello(magrec.get(MAG_LIVELLO)); const TString livello(magrec.get(MAG_LIVELLO));
cf.set(curr_art().costo_medio(annoes,codmag,livello).string()); cf.set(curr_art().costo_medio(annoes,codmag,livello).string());
} }
if (t==valorizz_LIFO) { if (t==valorizz_LIFO) {
const TString codmag(magrec.get(MAG_CODMAG)); const TString codmag(magrec.get(MAG_CODMAG));
const TString livello(magrec.get(MAG_LIVELLO)); const TString livello(magrec.get(MAG_LIVELLO));
cf.set(curr_art().LIFO(annoes,codmag,livello, _giaceff,_valcomp).string()); cf.set(curr_art().LIFO(annoes,codmag,livello, _giaceff,_valcomp).string());
} }
if (t==valorizz_FIFO) { if (t==valorizz_FIFO) {
const TString codmag(magrec.get(MAG_CODMAG)); const TString codmag(magrec.get(MAG_CODMAG));
const TString livello(magrec.get(MAG_LIVELLO)); const TString livello(magrec.get(MAG_LIVELLO));
cf.set(curr_art().FIFO(annoes,codmag,livello, _giaceff,_valcomp).string()); cf.set(curr_art().FIFO(annoes,codmag,livello, _giaceff,_valcomp).string());
} }
if (t==valorizz_LIFOa) { if (t==valorizz_LIFOa) {
const TString codmag(magrec.get(MAG_CODMAG)); const TString codmag(magrec.get(MAG_CODMAG));
const TString livello(magrec.get(MAG_LIVELLO)); const TString livello(magrec.get(MAG_LIVELLO));
cf.set(curr_art().LIFO_annuale(annoes,codmag,livello, _giaceff,_valcomp).string()); cf.set(curr_art().LIFO_annuale(annoes,codmag,livello, _giaceff,_valcomp).string());
} }
if (t==valorizz_FIFOa) { if (t==valorizz_FIFOa) {
const TString codmag(magrec.get(MAG_CODMAG)); const TString codmag(magrec.get(MAG_CODMAG));
const TString livello(magrec.get(MAG_LIVELLO)); const TString livello(magrec.get(MAG_LIVELLO));
cf.set(curr_art().FIFO_annuale(annoes,codmag,livello, _giaceff,_valcomp).string()); cf.set(curr_art().FIFO_annuale(annoes,codmag,livello, _giaceff,_valcomp).string());
} }
return TRUE; return TRUE;
} }
void TForm_inventario::set_parametri(const char * codcatv,const char * codlist,bool giaceff, bool valcomp) void TForm_inventario::set_parametri(const char * codcatv,const char * codlist,bool giaceff, bool valcomp)
{ {
_catven=codcatv; _catven=codcatv;
_codlist=codlist; _codlist=codlist;
_giaceff=giaceff; _giaceff=giaceff;
_valcomp=valcomp; _valcomp=valcomp;
} }
TForm_inventario::TForm_inventario(const char *name,const char *code) : TForm_inventario::TForm_inventario(const char *name,const char *code) :
TForm_stampemg(name,code),_curr_art(NULL) TForm_stampemg(name,code),_curr_art(NULL)
{ {
colonne=0; colonne=0;
} }
TForm_inventario::~TForm_inventario() TForm_inventario::~TForm_inventario()
{ {
if (_curr_art) delete _curr_art; if (_curr_art) delete _curr_art;
} }
class TStampainv_mask: public TMask class TStampainv_mask: public TMask
{ {
static bool handle_ragg(TMask_field &fld, KEY k); // handler static bool handle_ragg(TMask_field &fld, KEY k); // handler
static bool handle_liv(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 static bool handle_subord(TMask_field &fld, KEY k); // handler
public: public:
TStampainv_mask(); TStampainv_mask();
~TStampainv_mask(){}; ~TStampainv_mask(){};
}; };
TStampainv_mask::TStampainv_mask(): TStampainv_mask::TStampainv_mask():
TMask("mg4200") TMask("mg4200")
{ {
TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
if (prassid.get_bool("GES", NULL, A_LISTINI)) if (prassid.get_bool("GES", NULL, A_LISTINI))
field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV")); field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV"));
else { else {
field(F_CATVENLISTINO).disable(); field(F_CODLISTINO).disable(); field(F_CATVENLISTINO).disable(); field(F_CODLISTINO).disable();
} }
TMag_livelli giaclev("FCA"),artlev("FCG"); TMag_livelli giaclev("FCA"),artlev("FCG");
set_handler(F_TOLIVELLOART, handle_liv); set_handler(F_TOLIVELLOART, handle_liv);
set_handler(F_TOLIVELLOGIAC, handle_liv); set_handler(F_TOLIVELLOGIAC, handle_liv);
set_handler(F_ORDINE, handle_ragg); set_handler(F_ORDINE, handle_ragg);
set_handler(F_DETTAGLIODEP, handle_ragg); set_handler(F_DETTAGLIODEP, handle_ragg);
set_handler(F_DETTAGLIOMAG, handle_ragg); set_handler(F_DETTAGLIOMAG, handle_ragg);
set_handler(F_ORDINEART,handle_subord); set_handler(F_ORDINEART,handle_subord);
if (!artlev.enabled()) { if (!artlev.enabled()) {
TMask_field &f1=field(F_RAGGCODICE); TMask_field &f1=field(F_RAGGCODICE);
f1.reset(); f1.check();f1.hide(); f1.reset(); f1.check();f1.hide();
} }
if (!giaclev.enabled()) { if (!giaclev.enabled()) {
TMask_field &f2=field(F_RAGGLIVGIAC); TMask_field &f2=field(F_RAGGLIVGIAC);
f2.reset(); f2.check();f2.hide(); f2.reset(); f2.check();f2.hide();
} }
} }
bool TStampainv_mask::handle_subord(TMask_field &fld, KEY k) bool TStampainv_mask::handle_subord(TMask_field &fld, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
{ {
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
switch (fld.get()[1]) { switch (fld.get()[1]) {
case 'C': case 'C':
if (fld.mask().get(F_ORDINE)=="A") if (fld.mask().get(F_ORDINE)=="A")
fraggcod.enable(); fraggcod.enable();
else { else {
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{ {
fraggcod.reset(); fraggcod.disable(); fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable(); fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0); fraggcod.do_message(0);fragggiac.do_message(0);
} }
} }
break; break;
case 'M': case 'M':
case 'D': case 'D':
fraggcod.reset(); fraggcod.check();fraggcod.disable(); fraggcod.reset(); fraggcod.check();fraggcod.disable();
break; break;
} }
} }
return TRUE; return TRUE;
} }
bool TStampainv_mask::handle_liv(TMask_field &fld, KEY k) bool TStampainv_mask::handle_liv(TMask_field &fld, KEY k)
{ {
if (k == K_TAB) if (k == K_TAB)
{ {
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG); TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
if (fld.mask().get(F_ORDINE)=="A") if (fld.mask().get(F_ORDINE)=="A")
{ {
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC)) if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
{ {
// raggruppamenti prima del dettaglio magazzini // raggruppamenti prima del dettaglio magazzini
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0); ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
} else { } else {
ftotmag.enable(); ftotmag.enable();
} }
} }
} }
return TRUE; return TRUE;
} }
bool TStampainv_mask::handle_ragg(TMask_field &fld, KEY k) bool TStampainv_mask::handle_ragg(TMask_field &fld, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
{ {
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
if (fld.mask().get(F_ORDINE)=="M") if (fld.mask().get(F_ORDINE)=="M")
{ {
ftotmag.enable(); ftotmag.enable();
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{ {
fraggcod.reset(); fraggcod.disable(); fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable(); fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0); fraggcod.do_message(0);fragggiac.do_message(0);
return TRUE; return TRUE;
} }
} }
fraggcod.enable(); fraggcod.enable();
fragggiac.enable(); fragggiac.enable();
} }
return TRUE; return TRUE;
} }
@ -331,10 +331,10 @@ bool TStampainv_mask::handle_ragg(TMask_field &fld, KEY k)
// STAMPA anagrafiche // STAMPA anagrafiche
class TStampa_inventario : public TPrint_application class TStampa_inventario : public TPrint_application
{ {
TArray * _files; TArray * _files;
TMask * _mask; TMask * _mask;
TCursor * _cur; TCursor * _cur;
TForm_inventario * _form; // to be moved into TPrint_application TForm_inventario * _form; // to be moved into TPrint_application
protected: protected:
virtual bool print_one(int file) virtual bool print_one(int file)
@ -343,9 +343,9 @@ protected:
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool set_print(int i=1); virtual bool set_print(int i=1);
virtual void set_page(int file,int count) virtual void set_page(int file,int count)
{ } { }
void setprint_permagazzini(); void setprint_permagazzini();
void setprint_perarticoli(); void setprint_perarticoli();
public: public:
TStampa_inventario() {} TStampa_inventario() {}
@ -356,7 +356,7 @@ bool TStampa_inventario::user_create()
{ {
_mask = new TStampainv_mask(); _mask = new TStampainv_mask();
_files = new TArray(); _files = new TArray();
// aggiunge i files per usare i tracciati record // aggiunge i files per usare i tracciati record
_files->add(new TLocalisamfile(LF_ANAMAG)); _files->add(new TLocalisamfile(LF_ANAMAG));
_files->add(new TLocalisamfile(LF_UMART)); _files->add(new TLocalisamfile(LF_UMART));
_files->add(new TLocalisamfile(LF_DESLIN)); _files->add(new TLocalisamfile(LF_DESLIN));
@ -370,8 +370,8 @@ bool TStampa_inventario::user_create()
bool TStampa_inventario::user_destroy() bool TStampa_inventario::user_destroy()
{ {
delete _mask; delete _mask;
delete _files; delete _files;
return TRUE; return TRUE;
} }
@ -381,25 +381,25 @@ void TStampa_inventario::setprint_permagazzini()
TRectype darec(LF_MAG),arec(LF_MAG); TRectype darec(LF_MAG),arec(LF_MAG);
TString cfilter,sortexp,joinexp; TString cfilter,sortexp,joinexp;
_cur = _form->cursor(); _cur = _form->cursor();
// setta il filtro sul cursore // setta il filtro sul cursore
if (*_mask->get(F_DAART)) if (*_mask->get(F_DAART))
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ; cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
if (*_mask->get(F_AART)) if (*_mask->get(F_AART))
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ; cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
if (cfilter.not_empty()) if (cfilter.not_empty())
cfilter.cut(cfilter.len()-2); cfilter.cut(cfilter.len()-2);
// abilita/disabilita le sezioni dei totali // abilita/disabilita le sezioni dei totali
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART), _form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC), _mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC),
TRUE,_mask->get_bool(F_DETTAGLIOMAG),_mask->get_bool(F_DETTAGLIODEP)); TRUE,_mask->get_bool(F_DETTAGLIOMAG),_mask->get_bool(F_DETTAGLIODEP));
darec.put("ANNOES",_mask->get(F_ANNOES)); darec.put("ANNOES",_mask->get(F_ANNOES));
darec.put("CODMAG",_mask->get(F_DAMAG)); darec.put("CODMAG",_mask->get(F_DAMAG));
arec.put("ANNOES",_mask->get(F_ANNOES)); arec.put("ANNOES",_mask->get(F_ANNOES));
arec.put("CODMAG",_mask->get(F_AMAG)); arec.put("CODMAG",_mask->get(F_AMAG));
_cur->setfilter(cfilter); _cur->setfilter(cfilter);
_cur->setregion(darec,arec); _cur->setregion(darec,arec);
} }
// ORDINAMENTO // ORDINAMENTO
@ -407,101 +407,101 @@ void TStampa_inventario::setprint_perarticoli()
{ {
TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
TString cfilter,filter,joinexp; TString cfilter,filter,joinexp;
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG"); TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
char subordine=*_mask->get(F_ORDINEART); char subordine=*_mask->get(F_ORDINEART);
_cur = _form->cursor(); _cur = _form->cursor();
if (*_mask->get(F_DAMAG)) if (*_mask->get(F_DAMAG))
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ; filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
if (*_mask->get(F_AMAG)) if (*_mask->get(F_AMAG))
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ; filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
if (filter.not_empty()) if (filter.not_empty())
filter.cut(filter.len()-2); filter.cut(filter.len()-2);
switch (subordine) switch (subordine)
{ {
case 'C': case 'C':
_cur->setkey(1); _cur->setkey(1);
darec.put("CODART",_mask->get(F_DAART)); darec.put("CODART",_mask->get(F_DAART));
arec.put("CODART",_mask->get(F_AART)); arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").hide(); _form->find_field('B',odd_page,"H_CATMER").hide();
_form->find_field('B',odd_page,"TOT_CATMER").hide(); _form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE); _form->setcatmer(FALSE);
break; break;
case 'D': case 'D':
_cur->setkey(2); _cur->setkey(2);
darec.put("DESCR",_mask->get(F_DADES)); darec.put("DESCR",_mask->get(F_DADES));
arec.put("DESCR",_mask->get(F_ADES)); arec.put("DESCR",_mask->get(F_ADES));
_form->find_field('B',odd_page,"H_CATMER").disable(); _form->find_field('B',odd_page,"H_CATMER").disable();
_form->find_field('B',odd_page,"TOT_CATMER").hide(); _form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE); _form->setcatmer(FALSE);
break; break;
case 'M': case 'M':
_cur->setkey(3); _cur->setkey(3);
darec.put("GRMERC",_mask->get(F_DACATMER)); darec.put("GRMERC",_mask->get(F_DACATMER));
darec.put("CODART",_mask->get(F_DAART)); darec.put("CODART",_mask->get(F_DAART));
arec.put("GRMERC",_mask->get(F_ACATMER)); arec.put("GRMERC",_mask->get(F_ACATMER));
arec.put("CODART",_mask->get(F_AART)); arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").show(); _form->find_field('B',odd_page,"H_CATMER").show();
_form->find_field('B',odd_page,"TOT_CATMER").show(); _form->find_field('B',odd_page,"TOT_CATMER").show();
_form->setcatmer(TRUE); _form->setcatmer(TRUE);
break; break;
} }
_form->setdett_perart( _form->setdett_perart(
_mask->get_int(F_FROMLIVELLOART), _mask->get_int(F_FROMLIVELLOART),
_mask->get_int(F_TOLIVELLOART), _mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC), _mask->get_int(F_FROMLIVELLOGIAC),
_mask->get_int(F_TOLIVELLOGIAC), _mask->get_int(F_TOLIVELLOGIAC),
_mask->get_bool(F_TOTALIMAGAZZINI), _mask->get_bool(F_TOTALIMAGAZZINI),
_mask->get_bool(F_TOTALIDEPOSITI)); _mask->get_bool(F_TOTALIDEPOSITI));
joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART"; joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
TSortedfile *mag; TSortedfile *mag;
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1); mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
_cur->relation()->replace(mag,1,joinexp); _cur->relation()->replace(mag,1,joinexp);
_cur->setfilter(cfilter); _cur->setfilter(cfilter);
_cur->setregion(darec,arec); _cur->setregion(darec,arec);
} }
bool TStampa_inventario::set_print(int i) bool TStampa_inventario::set_print(int i)
{ {
while (TRUE) { while (TRUE) {
if (_mask->run() != K_ENTER) if (_mask->run() != K_ENTER)
return FALSE; return FALSE;
if (*_mask->get(F_ORDINE)=='A') if (*_mask->get(F_ORDINE)=='A')
{ {
_form = new TForm_inventario("mg4200a", ""); _form = new TForm_inventario("mg4200a", "");
setprint_perarticoli(); setprint_perarticoli();
} else { } else {
_form = new TForm_inventario("mg4200b", ""); _form = new TForm_inventario("mg4200b", "");
setprint_permagazzini(); setprint_permagazzini();
} }
_form->add_colval(_mask->get_int(F_VAL1)); _form->add_colval(_mask->get_int(F_VAL1));
_form->add_colval(_mask->get_int(F_VAL2)); _form->add_colval(_mask->get_int(F_VAL2));
_form->add_colval(_mask->get_int(F_VAL3)); _form->add_colval(_mask->get_int(F_VAL3));
_form->add_colval(_mask->get_int(F_VAL4)); _form->add_colval(_mask->get_int(F_VAL4));
_form->add_colval(_mask->get_int(F_VAL5)); _form->add_colval(_mask->get_int(F_VAL5));
_form->add_colval(_mask->get_int(F_VAL6)); _form->add_colval(_mask->get_int(F_VAL6));
_form->set_parametri(_mask->get(F_CATVENLISTINO), _form->set_parametri(_mask->get(F_CATVENLISTINO),
_mask->get(F_CODLISTINO), _mask->get(F_CODLISTINO),
*_mask->get(F_REALE_GIAC)=='G', *_mask->get(F_REALE_GIAC)=='G',
*_mask->get(F_FIN_COMP)=='C' *_mask->get(F_FIN_COMP)=='C'
); );
_form->print(); _form->print();
delete _form; delete _form;
} // while true } // while true
return TRUE; return TRUE;
} }
int mg4200(int argc, char* argv[]) int mg4200(int argc, char* argv[])
{ {
TStampa_inventario a; TStampa_inventario a;
a.run(argc,argv,"Stampa inventario"); a.run(argc,argv,"Stampa inventario");
return 0; return 0;
} }

584
mg/mg4300.cpp
View File

@ -22,16 +22,16 @@
class TRegistro_giornalemag : public TRegistro_std class TRegistro_giornalemag : public TRegistro_std
{ {
public: public:
int freq_stampa() const { return get_int("I3"); } int freq_stampa() const { return get_int("I3"); }
bool raggruppato() const { return get_int("B1"); } bool raggruppato() const { return get_int("B1"); }
bool ragg_mag() const { return get_int("B2"); } bool ragg_mag() const { return get_int("B2"); }
bool ragg_giac() const { return get_int("B3"); } bool ragg_giac() const { return get_int("B3"); }
bool ragg_clafis() const { return get_int("B4"); } bool ragg_clafis() const { return get_int("B4"); }
bool ragg_grpfis() const { return get_int("B5"); } bool ragg_grpfis() const { return get_int("B5"); }
bool ragg_caus() const { return get_int("B6"); } bool ragg_caus() const { return get_int("B6"); }
void set_last_numreg(long n) { put("I4",n); } void set_last_numreg(long n) { put("I4",n); }
int last_numreg() const { return get_int("I4"); } int last_numreg() const { return get_int("I4"); }
TRegistro_giornalemag(const char* code = "", int year = 0); TRegistro_giornalemag(const char* code = "", int year = 0);
virtual ~TRegistro_giornalemag() {} virtual ~TRegistro_giornalemag() {}
@ -41,62 +41,62 @@ public:
// ************************************************ // ************************************************
// TEMP!!!!!!!!!!!!!!!! // TEMP!!!!!!!!!!!!!!!!
TRegistro_giornalemag:: TRegistro_giornalemag::
TRegistro_giornalemag(const char* cod, int year) TRegistro_giornalemag(const char* cod, int year)
:TRegistro_std(cod,year) :TRegistro_std(cod,year)
{ {
if (tipo()!=TIPOREG_GIOMAG) if (tipo()!=TIPOREG_GIOMAG)
fatal_box("Il registro richiesto non è relativo ad un libro giornale di magazzino"); fatal_box("Il registro richiesto non è relativo ad un libro giornale di magazzino");
} }
class TGiornalemag : public TForm_stampemg class TGiornalemag : public TForm_stampemg
{ {
static TDate dadata; static TDate dadata;
static TDate adata; static TDate adata;
static int freq_stampa; static int freq_stampa;
static bool stampa_def; static bool stampa_def;
static bool ragg_mag; static bool ragg_mag;
static bool ragg_articoli; static bool ragg_articoli;
static bool ragg_classi; static bool ragg_classi;
static bool ragg_raggart; static bool ragg_raggart;
static bool ragg_caus; static bool ragg_caus;
static TCursor * cur; static TCursor * cur;
static TAssoc_array _cod_magazzini; static TAssoc_array _cod_magazzini;
static int _annoes; static int _annoes;
long last_num_reg; long last_num_reg;
word last_pag_stampata; word last_pag_stampata;
TConfig *conf_ditta; TConfig *conf_ditta;
TArticolo_giacenza * _curr_art; TArticolo_giacenza * _curr_art;
TString16 _codlist,_catven; TString16 _codlist,_catven;
TRegistro_giornalemag *_reg_giorn; TRegistro_giornalemag *_reg_giorn;
private: private:
TArticolo_giacenza &curr_art(); TArticolo_giacenza &curr_art();
static const char * get_fiscfield(TVariable_rectype & r); static const char * get_fiscfield(TVariable_rectype & r);
static const char * get_cronofield(TVariable_rectype & r); static const char * get_cronofield(TVariable_rectype & r);
static bool filter_func(const TRelation* r); static bool filter_func(const TRelation* r);
protected: protected:
void add_mag(TRectype & magrec,const char * codreg); void add_mag(TRectype & magrec,const char * codreg);
public: public:
void set_parametri(TMask & m); void set_parametri(TMask & m);
bool can_be_printed(); bool can_be_printed();
bool validate(TForm_item &cf, TToken_string &s); bool validate(TForm_item &cf, TToken_string &s);
TGiornalemag(const char *name,const char *code) ; TGiornalemag(const char *name,const char *code) ;
~TGiornalemag(); ~TGiornalemag();
}; };
TArticolo_giacenza &TGiornalemag::curr_art() TArticolo_giacenza &TGiornalemag::curr_art()
{ {
TRectype & magrec=relation()->lfile(LF_MAG).curr(); TRectype & magrec=relation()->lfile(LF_MAG).curr();
if (_curr_art==NULL || _curr_art->codice()!=magrec.get(MAG_CODART) ) { if (_curr_art==NULL || _curr_art->codice()!=magrec.get(MAG_CODART) ) {
if (_curr_art) delete _curr_art; if (_curr_art) delete _curr_art;
_curr_art=new TArticolo_giacenza(magrec.get(MAG_CODART)); _curr_art=new TArticolo_giacenza(magrec.get(MAG_CODART));
} }
return *_curr_art; return *_curr_art;
} }
bool TGiornalemag::validate(TForm_item &cf, TToken_string &s) bool TGiornalemag::validate(TForm_item &cf, TToken_string &s)
@ -106,108 +106,108 @@ bool TGiornalemag::validate(TForm_item &cf, TToken_string &s)
TString subcode; TString subcode;
if (code=="_USER") { if (code=="_USER") {
subcode=s.get(); subcode=s.get();
if (subcode== "INTEST_REG") { if (subcode== "INTEST_REG") {
cf.set(_reg_giorn->intest()); cf.set(_reg_giorn->intest());
return TRUE; return TRUE;
} else if (subcode== "INTEST_DITTA") { } else if (subcode== "INTEST_DITTA") {
if (!_reg_giorn->stampa_intditta()) return TRUE; if (!_reg_giorn->stampa_intditta()) return TRUE;
s="_DITTA,!RAGSOC"; s="_DITTA,!RAGSOC";
} else if (subcode== "PAGENO") { } else if (subcode== "PAGENO") {
valore << (int)(last_pag_stampata+printer().getcurrentpage()); valore << (int)(last_pag_stampata+printer().getcurrentpage());
cf.set(valore); cf.set(valore);
return TRUE; return TRUE;
} else if (subcode== "NUMREGST") { } else if (subcode== "NUMREGST") {
valore << last_num_reg; valore << last_num_reg;
cf.set(valore); cf.set(valore);
return TRUE; return TRUE;
} else if (subcode=="INCNUMREGST") { } else if (subcode=="INCNUMREGST") {
last_num_reg=max(last_num_reg,_reg_giorn->last_numreg())+1; last_num_reg=max(last_num_reg,_reg_giorn->last_numreg())+1;
if (stampa_def) if (stampa_def)
{ {
_reg_giorn->set_last_numreg(last_num_reg); _reg_giorn->set_last_numreg(last_num_reg);
_reg_giorn->rewrite(); _reg_giorn->rewrite();
} }
return TRUE; return TRUE;
} else if (subcode== "REGISTRASTAMPA") { } else if (subcode== "REGISTRASTAMPA") {
TRectype & movr=cursor()->relation()->lfile(LF_MOVMAG).curr(); TRectype & movr=cursor()->relation()->lfile(LF_MOVMAG).curr();
if ((1 || movr.get_long("NUMREGST")<=last_num_reg )&& stampa_def) if ((1 || movr.get_long("NUMREGST")<=last_num_reg )&& stampa_def)
{ {
// movimento ancora da registrare // movimento ancora da registrare
movr.put("NUMREGST",last_num_reg+1); movr.put("NUMREGST",last_num_reg+1);
cursor()->relation()->lfile(LF_MOVMAG).rewrite(); cursor()->relation()->lfile(LF_MOVMAG).rewrite();
_reg_giorn->set_pag_stampate(last_pag_stampata+printer().getcurrentpage()); _reg_giorn->set_pag_stampate(last_pag_stampata+printer().getcurrentpage());
_reg_giorn->set_last_print(TDate(TODAY)); _reg_giorn->set_last_print(TDate(TODAY));
_reg_giorn->rewrite(); _reg_giorn->rewrite();
} }
} else if (subcode== "INFO_CRONO") { } else if (subcode== "INFO_CRONO") {
TDate datamov(cursor()->relation()->lfile(LF_MOVMAG).get_date("DATAREG")); TDate datamov(cursor()->relation()->lfile(LF_MOVMAG).get_date("DATAREG"));
switch (freq_stampa ) { switch (freq_stampa ) {
case 0: case 0:
valore.format("%7g Movimento del %s ", (double)last_num_reg+1, (const char *)datamov.string()); valore.format("%7g Movimento del %s ", (double)last_num_reg+1, (const char *)datamov.string());
valore << cursor()->relation()->lfile(LF_MOVMAG).get("DESCR"); valore << cursor()->relation()->lfile(LF_MOVMAG).get("DESCR");
break; break;
default: default:
valore.format("%7g Movimenti del %s, dal %d al %d", (double)last_num_reg+1, valore.format("%7g Movimenti del %s, dal %d al %d", (double)last_num_reg+1,
(const char *)itom(datamov.month()), (const char *)itom(datamov.month()),
(int)((datamov.day()-1)/freq_stampa)*freq_stampa+1, (int)((datamov.day()-1)/freq_stampa)*freq_stampa+1,
(int)min(((datamov.day()-1)/freq_stampa+1)*freq_stampa,TDate::last_day(datamov.month(),datamov.year())) ); (int)min(((datamov.day()-1)/freq_stampa+1)*freq_stampa,TDate::last_day(datamov.month(),datamov.year())) );
break; break;
} }
cf.set(valore); cf.set(valore);
return TRUE; return TRUE;
} else if (subcode== "INFO_FISC") { } else if (subcode== "INFO_FISC") {
valore.cut(0); valore.cut(0);
if (!ragg_mag) if (!ragg_mag)
{ {
vv=cursor()->relation()->lfile(LF_RMOVMAG).get("CODMAG"); vv=cursor()->relation()->lfile(LF_RMOVMAG).get("CODMAG");
valore << "Mag." << vv.mid(0,3); valore << "Mag." << vv.mid(0,3);
vv=vv.mid(3,2); vv=vv.mid(3,2);
if (vv.not_empty()) if (vv.not_empty())
valore << '-' << vv ; valore << '-' << vv ;
else else
valore << " " ; valore << " " ;
valore << ' '; valore << ' ';
} }
if (ragg_articoli) if (ragg_articoli)
{ {
valore << "Art." << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART) << ' '; valore << "Art." << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART) << ' ';
} else { } else {
if (ragg_classi) if (ragg_classi)
{ {
valore << "Classe fiscale " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS) << ' '; valore << "Classe fiscale " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS) << ' ';
if (ragg_raggart) if (ragg_raggart)
{ {
valore << " ragg. " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS) << ' '; valore << " ragg. " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS) << ' ';
} }
} else { } else {
vv.cut(0); vv.cut(0);
if (!ragg_caus && freq_stampa==0) if (!ragg_caus && freq_stampa==0)
{ {
//valore << "Mov." << cursor()->relation()->lfile(LF_RMOVMAG).get("NUMREG") << "/"; //valore << "Mov." << cursor()->relation()->lfile(LF_RMOVMAG).get("NUMREG") << "/";
//valore << cursor()->relation()->lfile(LF_RMOVMAG).get("NRIG"); //valore << cursor()->relation()->lfile(LF_RMOVMAG).get("NRIG");
} }
vv << "Art. " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART); vv << "Art. " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART);
vv << ' ' << cursor()->relation()->lfile(LF_RMOVMAG).get("LIVGIAC") << ' '; vv << ' ' << cursor()->relation()->lfile(LF_RMOVMAG).get("LIVGIAC") << ' ';
} }
} }
if (ragg_caus) if (ragg_caus)
{ {
valore << "Causali " << cur->relation()->lfile(-ALIAS_CAUSALI).get("S8") << ' '; valore << "Causali " << cur->relation()->lfile(-ALIAS_CAUSALI).get("S8") << ' ';
} }
valore << vv; valore << vv;
cf.set(valore); cf.set(valore);
return TRUE; return TRUE;
} }
} }
return TForm_stampemg::validate(cf, s); return TForm_stampemg::validate(cf, s);
} }
@ -215,186 +215,186 @@ bool TGiornalemag::validate(TForm_item &cf, TToken_string &s)
const char * TGiornalemag::get_cronofield(TVariable_rectype & r) const char * TGiornalemag::get_cronofield(TVariable_rectype & r)
{ {
static TString80 valore; static TString80 valore;
TDate datamov(cur->relation()->lfile(LF_MOVMAG).get_date("DATAREG")); TDate datamov(cur->relation()->lfile(LF_MOVMAG).get_date("DATAREG"));
long numreg=cur->relation()->lfile(LF_MOVMAG).get_int("NUMREG"); long numreg=cur->relation()->lfile(LF_MOVMAG).get_int("NUMREG");
// gestione frequenza // gestione frequenza
valore.cut(0); valore.cut(0);
switch (freq_stampa ) { switch (freq_stampa ) {
case 0: case 0:
valore.format("%4d%2d%2d%7d",datamov.year(), valore.format("%4d%2d%2d%7d",datamov.year(),
datamov.month(), datamov.month(),
datamov.day(), datamov.day(),
numreg); numreg);
break; break;
default: default:
valore.format("%4d%2d%2d",datamov.year(), valore.format("%4d%2d%2d",datamov.year(),
datamov.month(), datamov.month(),
(int)(datamov.day()/freq_stampa)); (int)(datamov.day()/freq_stampa));
} }
return valore; return valore;
} }
const char * TGiornalemag::get_fiscfield(TVariable_rectype & r) const char * TGiornalemag::get_fiscfield(TVariable_rectype & r)
{ {
static TString80 valore; static TString80 valore;
TString vv; TString vv;
valore.cut(0); valore.cut(0);
// gestione ragruppamenti // gestione ragruppamenti
if (!ragg_mag) if (!ragg_mag)
{ {
valore.format("%-15s",(const char *)cur->relation()->lfile(LF_RMOVMAG).get("CODMAG")); valore.format("%-15s",(const char *)cur->relation()->lfile(LF_RMOVMAG).get("CODMAG"));
} }
if (ragg_articoli) if (ragg_articoli)
{ {
valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART); valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART);
} else { } else {
if (ragg_classi) if (ragg_classi)
{ {
valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS); valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS);
if (ragg_raggart) if (ragg_raggart)
{ {
valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS); valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS);
} }
} else { } else {
if (!ragg_caus && freq_stampa==0) { if (!ragg_caus && freq_stampa==0) {
vv.format("%4d",cur->relation()->lfile(LF_RMOVMAG).get_int("NRIG")); vv.format("%4d",cur->relation()->lfile(LF_RMOVMAG).get_int("NRIG"));
} else { } else {
TString c1(cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART)); TString c1(cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART));
TString c2(cur->relation()->lfile(LF_RMOVMAG).get("LIVGIAC")); TString c2(cur->relation()->lfile(LF_RMOVMAG).get("LIVGIAC"));
vv.format("%-20s%-15s", (const char *)c1,(const char *)c2 ); vv.format("%-20s%-15s", (const char *)c1,(const char *)c2 );
} }
} }
} }
if (ragg_caus) if (ragg_caus)
{ {
valore << cur->relation()->lfile(-ALIAS_CAUSALI).get("S8"); valore << cur->relation()->lfile(-ALIAS_CAUSALI).get("S8");
} }
valore << vv; valore << vv;
return valore; return valore;
} }
void TGiornalemag::set_parametri(TMask & m) void TGiornalemag::set_parametri(TMask & m)
{ {
// set static variables // set static variables
dadata=m.get_date(F_DATAIN); dadata=m.get_date(F_DATAIN);
adata=m.get_date(F_DATAFIN); adata=m.get_date(F_DATAFIN);
freq_stampa = m.get_int(F_FREQ); freq_stampa = m.get_int(F_FREQ);
stampa_def = (*m.get(F_DEFINITIVA) == 'D'); stampa_def = (*m.get(F_DEFINITIVA) == 'D');
ragg_mag = m.get_bool(F_RAGGMAG); ragg_mag = m.get_bool(F_RAGGMAG);
ragg_articoli = m.get_bool(F_RAGGARTICOLI ); ragg_articoli = m.get_bool(F_RAGGARTICOLI );
ragg_classi = m.get_bool(F_CLASSEFISART ); ragg_classi = m.get_bool(F_CLASSEFISART );
ragg_raggart = m.get_bool(F_RAGGFISART ); ragg_raggart = m.get_bool(F_RAGGFISART );
ragg_caus = m.get_bool(F_RAGGCAUS ); ragg_caus = m.get_bool(F_RAGGCAUS );
_annoes=m.get_int(F_ANNOES); _annoes=m.get_int(F_ANNOES);
cur=cursor(); cur=cursor();
// load Tregistro // load Tregistro
if (_reg_giorn) delete _reg_giorn; if (_reg_giorn) delete _reg_giorn;
_reg_giorn= new TRegistro_giornalemag(m.get(F_CODREG),m.get_int(F_ANNOES)); _reg_giorn= new TRegistro_giornalemag(m.get(F_CODREG),m.get_int(F_ANNOES));
last_pag_stampata=_reg_giorn->pag_stampate(); last_pag_stampata=_reg_giorn->pag_stampate();
last_num_reg=_reg_giorn->last_numreg(); last_num_reg=_reg_giorn->last_numreg();
// show/hide sections // show/hide sections
find_field('B',odd_page,"HEADER_RAGG_FISC").show( find_field('B',odd_page,"HEADER_RAGG_FISC").show(
ragg_articoli || ragg_classi || ragg_caus); ragg_articoli || ragg_classi || ragg_caus);
find_field('B',odd_page,"HEADER_MOV").show(freq_stampa==0); find_field('B',odd_page,"HEADER_MOV").show(freq_stampa==0);
TVariable_rectype *vrec_rmov= new TVariable_rectype(LF_RMOVMAG); TVariable_rectype *vrec_rmov= new TVariable_rectype(LF_RMOVMAG);
vrec_rmov->add_field(new TVariable_field ("CRONO_FIELD",get_cronofield,32)); vrec_rmov->add_field(new TVariable_field ("CRONO_FIELD",get_cronofield,32));
vrec_rmov->add_field(new TVariable_field ("FISC_FIELD",get_fiscfield,48)); vrec_rmov->add_field(new TVariable_field ("FISC_FIELD",get_fiscfield,48));
cursor()->relation()->lfile().set_curr(vrec_rmov); cursor()->relation()->lfile().set_curr(vrec_rmov);
// inserisce tutti i magazzini collegati // inserisce tutti i magazzini collegati
TTable mag("MAG"); TTable mag("MAG");
_cod_magazzini.destroy(); _cod_magazzini.destroy();
mag.first(); mag.first();
while (!mag.eof()) while (!mag.eof())
{ {
TString16 codmag(mag.get("CODTAB").left(3)); TString16 codmag(mag.get("CODTAB").left(3));
if (mag.get("CODTAB")==codmag) if (mag.get("CODTAB")==codmag)
if (mag.get("S8")==m.get(F_CODREG)) if (mag.get("S8")==m.get(F_CODREG))
_cod_magazzini.add(codmag); _cod_magazzini.add(codmag);
mag.next(); mag.next();
} }
// setta il filtro sui magazzini di questo giornale // setta il filtro sui magazzini di questo giornale
cursor()->set_filterfunction(filter_func,TRUE); cursor()->set_filterfunction(filter_func,TRUE);
} }
// unused : ora i magazzini hanno l'indicazione esplicita del registro // unused : ora i magazzini hanno l'indicazione esplicita del registro
void TGiornalemag::add_mag(TRectype & magrec,const char * codreg) void TGiornalemag::add_mag(TRectype & magrec,const char * codreg)
{ {
TString16 codmag(magrec.get("CODTAB").left(3)); TString16 codmag(magrec.get("CODTAB").left(3));
if (magrec.get("CODTAB")==codmag) if (magrec.get("CODTAB")==codmag)
{ {
if (_cod_magazzini.is_key(codmag)) return; if (_cod_magazzini.is_key(codmag)) return;
if (magrec.get_int("I2")==1) if (magrec.get_int("I2")==1)
{ {
// Indicazione di magazzino // Indicazione di magazzino
TTable mag("MAG"); TTable mag("MAG");
mag.put("CODTAB",magrec.get("S6")); mag.put("CODTAB",magrec.get("S6"));
mag.read(); mag.read();
add_mag(mag.curr(),codreg); add_mag(mag.curr(),codreg);
} else { } else {
// Indicazione di libro giornale // Indicazione di libro giornale
if (magrec.get("S8")==codreg) if (magrec.get("S8")==codreg)
_cod_magazzini.add(codmag); _cod_magazzini.add(codmag);
} }
} }
} }
bool TGiornalemag::filter_func(const TRelation* r) bool TGiornalemag::filter_func(const TRelation* r)
{ {
bool rval; bool rval;
rval = r->lfile(LF_MOVMAG).get_date("DATAREG").year()==_annoes; rval = r->lfile(LF_MOVMAG).get_date("DATAREG").year()==_annoes;
rval &=_cod_magazzini.is_key(r->lfile(LF_RMOVMAG).get("CODMAG").left(3)); rval &=_cod_magazzini.is_key(r->lfile(LF_RMOVMAG).get("CODMAG").left(3));
if (!dadata.empty()) rval &=r->lfile(LF_MOVMAG).get_date("DATAREG")>=dadata; if (!dadata.empty()) rval &=r->lfile(LF_MOVMAG).get_date("DATAREG")>=dadata;
if (!adata.empty()) rval &=r->lfile(LF_MOVMAG).get_date("DATAREG")<=adata; if (!adata.empty()) rval &=r->lfile(LF_MOVMAG).get_date("DATAREG")<=adata;
return rval; return rval;
} }
bool TGiornalemag::can_be_printed() bool TGiornalemag::can_be_printed()
{ {
if (stampa_def) if (stampa_def)
{ {
TLocalisamfile mov(LF_MOVMAG); TLocalisamfile mov(LF_MOVMAG);
mov.setkey(3); mov.setkey(3);
mov.put("DATAREG",dadata); mov.put("DATAREG",dadata);
mov.read(); mov.read();
mov.prev(); mov.prev();
if (!mov.eof() || mov.get("NUMREGST")!=_reg_giorn->last_numreg()) if (!mov.eof() || mov.get("NUMREGST")!=_reg_giorn->last_numreg())
return FALSE; return FALSE;
} }
return TRUE; return TRUE;
} }
TGiornalemag::TGiornalemag(const char *name,const char *code) : TGiornalemag::TGiornalemag(const char *name,const char *code) :
TForm_stampemg(name,code),_curr_art(NULL), TForm_stampemg(name,code),_curr_art(NULL),
last_pag_stampata(0),last_num_reg(0),_reg_giorn(NULL) last_pag_stampata(0),last_num_reg(0),_reg_giorn(NULL)
{ {
} }
TGiornalemag::~TGiornalemag() TGiornalemag::~TGiornalemag()
{ {
if (_curr_art) delete _curr_art; if (_curr_art) delete _curr_art;
if (_reg_giorn) delete _reg_giorn; if (_reg_giorn) delete _reg_giorn;
} }
// dichiarazioni degli static // dichiarazioni degli static
TDate TGiornalemag::dadata; TDate TGiornalemag::dadata;
TDate TGiornalemag::adata; TDate TGiornalemag::adata;
int TGiornalemag::freq_stampa; int TGiornalemag::freq_stampa;
bool TGiornalemag::ragg_mag; bool TGiornalemag::ragg_mag;
bool TGiornalemag::stampa_def; bool TGiornalemag::stampa_def;
bool TGiornalemag::ragg_articoli; bool TGiornalemag::ragg_articoli;
@ -410,10 +410,10 @@ int TGiornalemag::_annoes;
class TStampa_giornalemag : public TPrint_application class TStampa_giornalemag : public TPrint_application
{ {
TArray * _files; TArray * _files;
TMask * _mask; TMask * _mask;
TGiornalemag * _form; // to be moved into TPrint_application TGiornalemag * _form; // to be moved into TPrint_application
TCursor * _cur; TCursor * _cur;
protected: protected:
virtual bool print_one(int file) virtual bool print_one(int file)
@ -422,7 +422,7 @@ protected:
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool set_print(int i=1); virtual bool set_print(int i=1);
virtual void set_page(int file,int count) virtual void set_page(int file,int count)
{ } { }
public: public:
TStampa_giornalemag() {} TStampa_giornalemag() {}
@ -440,8 +440,8 @@ bool TStampa_giornalemag::user_create()
} }
bool TStampa_giornalemag::user_destroy() bool TStampa_giornalemag::user_destroy()
{ {
delete _mask; delete _mask;
delete _files; delete _files;
return TRUE; return TRUE;
} }
@ -449,25 +449,25 @@ bool TStampa_giornalemag::user_destroy()
bool TStampa_giornalemag::set_print(int i) bool TStampa_giornalemag::set_print(int i)
{ {
while (TRUE) { while (TRUE) {
if (_mask->run() != K_ENTER) if (_mask->run() != K_ENTER)
return FALSE; return FALSE;
_form = new TGiornalemag("mg4300", ""); _form = new TGiornalemag("mg4300", "");
_form->set_parametri(*_mask); _form->set_parametri(*_mask);
if (_form->can_be_printed()) if (_form->can_be_printed())
_form->print(); _form->print();
else else
error_box("Impossibile stampare il giornale dalla data indicata"); error_box("Impossibile stampare il giornale dalla data indicata");
delete _form; delete _form;
} // while true } // while true
return TRUE; return TRUE;
} }
int mg4300(int argc, char* argv[]) int mg4300(int argc, char* argv[])
{ {
TStampa_giornalemag a; TStampa_giornalemag a;
a.run(argc,argv,"Stampa giornale di magazzino"); a.run(argc,argv,"Stampa giornale di magazzino");
return 0; return 0;
} }