#include #include #include #include #include #include #include #include #include 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; }