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@4710 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-18 15:27:05 +00:00
parent 88a83b9072
commit ec1d41e5d7
1 changed files with 40 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
mg/mg4100.cpp
View File

@ -14,13 +14,13 @@
class TStampa_listamov : public TApplication class TStampa_listamov : public TApplication
{ {
TMask * _mask; TMask * _mask;
TForm * _form; TForm * _form;
int _codicees; int _codicees;
bool _raggmag; bool _raggmag;
TString _daart,_aart,_damag,_amag; TString _daart,_aart,_damag,_amag;
TDate _dadata,_adata; TDate _dadata,_adata;
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
@ -30,52 +30,52 @@ bool TStampa_listamov::create()
{ {
TRectype darec(LF_MOVMAG),arec(LF_MOVMAG); TRectype darec(LF_MOVMAG),arec(LF_MOVMAG);
_mask = new TMask("mg4100"); _mask = new TMask("mg4100");
while (TRUE) { while (TRUE) {
if (_mask->run() != K_ENTER) if (_mask->run() != K_ENTER)
return FALSE; return FALSE;
_form = new TForm("mg4100", ""); _form = new TForm("mg4100", "");
TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor(); TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor();
TString filter("ANNOES=="); TString filter("ANNOES==");
filter << _mask->get(F_ANNOES); filter << _mask->get(F_ANNOES);
cur.setfilter(filter); cur.setfilter(filter);
darec.zero(' '); darec.zero(' ');
arec.zero(' '); arec.zero(' ');
if (_mask->get(F_ORDINE)=="N") if (_mask->get(F_ORDINE)=="N")
{ {
cur.setkey(1); cur.setkey(1);
// trova il record iniziale // trova il record iniziale
darec.put("NUMREG",_mask->get(F_DANUM)); darec.put("NUMREG",_mask->get(F_DANUM));
// trova il record finale // trova il record finale
arec.put("NUMREG",_mask->get(F_ANUM)); arec.put("NUMREG",_mask->get(F_ANUM));
_form->find_field('B',odd_page,"HEADER_DATA").hide(); _form->find_field('B',odd_page,"HEADER_DATA").hide();
} else { } else {
cur.setkey(4); cur.setkey(4);
// trova il record iniziale // trova il record iniziale
darec.put("DATACOMP",_mask->get(F_DADATA)); darec.put("DATACOMP",_mask->get(F_DADATA));
// trova il record finale // trova il record finale
arec.put("DATACOMP",_mask->get(F_ADATA)); arec.put("DATACOMP",_mask->get(F_ADATA));
_form->find_field('B',odd_page,"HEADER_DATA").show(); _form->find_field('B',odd_page,"HEADER_DATA").show();
} }
cur.setregion(darec,arec); cur.setregion(darec,arec);
_form->print(); _form->print();
delete _form; delete _form;
} // while true } // while true
return TRUE; return TRUE;
} }
bool TStampa_listamov::destroy() bool TStampa_listamov::destroy()
{ {
delete _mask; delete _mask;
return TRUE; return TRUE;
} }
int mg4100(int argc, char* argv[]) int mg4100(int argc, char* argv[])
{ {
TStampa_listamov a;// derivata da Application e con uso di form TStampa_listamov a;// derivata da Application e con uso di form
a.run(argc,argv,"Stampa lista movimenti"); a.run(argc,argv,"Stampa lista movimenti");
return 0; return 0;
} }