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