Stampa tabelle di magazzino
git-svn-id: svn://10.65.10.50/trunk@4465 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
4cb017d7da
commit
209f44601c
51
mg/mg0200.cpp
Executable file
51
mg/mg0200.cpp
Executable file
@ -0,0 +1,51 @@
|
||||
#include <applicat.h>
|
||||
#include <config.h>
|
||||
#include <form.h>
|
||||
#include <mask.h>
|
||||
#include <printer.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <urldefid.h>
|
||||
#include <utility.h>
|
||||
|
||||
class TStampa_tabmag : public TApplication
|
||||
{
|
||||
TMask * _mask;
|
||||
TForm * _form;
|
||||
|
||||
protected:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
};
|
||||
|
||||
bool TStampa_tabmag::create()
|
||||
{
|
||||
|
||||
_mask = new TMask("bastgca");
|
||||
while (TRUE) {
|
||||
if (_mask->run() != K_ENTER)
|
||||
return FALSE;
|
||||
|
||||
/* _mask->get(F_INIZIO1);
|
||||
_mask->get(F_INIZIO2);
|
||||
_mask->get(F_FINE1);
|
||||
_mask->get(F_FINE2);*/
|
||||
|
||||
_form = new TForm("tab_gca");
|
||||
_form->print();
|
||||
delete _form;
|
||||
} // while true
|
||||
return TRUE;
|
||||
}
|
||||
bool TStampa_tabmag::destroy()
|
||||
{
|
||||
delete _mask;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
int mg0200(int argc, char* argv[])
|
||||
{
|
||||
TStampa_tabmag a;// derivata da Application e con uso di form
|
||||
a.run(argc,argv,"Stampa tabelle di magazzino");
|
||||
return 0;
|
||||
}
|
Loading…
x
Reference in New Issue
Block a user