175 lines
3.6 KiB
C++
Executable File
175 lines
3.6 KiB
C++
Executable File
#include <applicat.h>
|
|
#include <config.h>
|
|
#include "mglib05.h" //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
#include <mask.h>
|
|
#include <printer.h>
|
|
#include <relation.h>
|
|
#include <tabutil.h>
|
|
#include <urldefid.h>
|
|
#include <utility.h>
|
|
#include "mglib01.h"
|
|
#include "mg3300.h"
|
|
|
|
|
|
#include "mglib04.h"
|
|
|
|
|
|
// mg3300 Stampa
|
|
class TStampa_schedemag : public TApplication
|
|
{
|
|
TMask * _mask;
|
|
TForm * _form;
|
|
|
|
int _codicees;
|
|
bool _raggmag;
|
|
TString _daart,_aart,_damag,_amag;
|
|
TDate _dadata,_adata;
|
|
protected:
|
|
virtual bool create();
|
|
virtual bool destroy();
|
|
};
|
|
|
|
bool TStampa_schedemag::create()
|
|
{
|
|
_mask = new TMask("mg3300");
|
|
while (TRUE) {
|
|
if (_mask->run() != K_ENTER)
|
|
return FALSE;
|
|
|
|
// filtro << "CODART>=" <<'"' << _daart<<'"' << " && CODART<=" <<'"' << _aart<<'"' ;
|
|
// filtro << " && ANNOES==" <<'"' << _codicees <<'"' ;
|
|
// estremi di stanpa
|
|
_raggmag=_mask->get_bool(F_RAGGMAG);
|
|
_daart=_mask->get(F_DAART);
|
|
_aart=_mask->get(F_AART);
|
|
_damag=_mask->get(F_DAMAG);
|
|
_amag=_mask->get(F_AMAG);
|
|
_dadata=_mask->get_date(F_DADATA);
|
|
_adata=_mask->get_date(F_ADATA);
|
|
_codicees=1996;
|
|
|
|
TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
|
|
_form = new TForm("mg3300a", "");
|
|
TCursor& cur = *_form->cursor();
|
|
cur.setkey();
|
|
// trova il record iniziale
|
|
//darec.put("ANNOES",_codicees);
|
|
darec.put("CODART",_daart);
|
|
//darec.put("CODMAG",_damag);
|
|
// trova il record finale
|
|
//arec.put("ANNOES",_codicees);
|
|
arec.put("CODART",_aart);
|
|
//arec.put("CODMAG",_amag);
|
|
cur.setregion(darec,arec);
|
|
|
|
_form->print();
|
|
delete _form;
|
|
} // while true
|
|
return TRUE;
|
|
}
|
|
bool TStampa_schedemag::destroy()
|
|
{
|
|
delete _mask;
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// mg3300 Stampa
|
|
class TStampa_schede_mag : public TPrint_app2
|
|
{
|
|
TMask * _mask;
|
|
TForm * _form; // to be moved into TPrint_application
|
|
|
|
int _codicees;
|
|
bool _raggmag;
|
|
TString _daart,_aart,_damag,_amag;
|
|
TDate _dadata,_adata;
|
|
protected:
|
|
virtual bool print_one(int file);
|
|
|
|
virtual bool user_create();
|
|
virtual bool user_destroy();
|
|
virtual bool set_print(int i=1);
|
|
virtual void set_page(int file,int count);
|
|
|
|
public:
|
|
TStampa_schede_mag() {}
|
|
};
|
|
|
|
bool TStampa_schede_mag ::print_one(int file)
|
|
{
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
void TStampa_schede_mag ::set_page(int file,int count)
|
|
{
|
|
}
|
|
|
|
bool TStampa_schede_mag::set_print(int i)
|
|
{
|
|
int s;
|
|
if (_mask->run() != K_ENTER)
|
|
return FALSE;
|
|
|
|
// filtro << "CODART>=" <<'"' << _daart<<'"' << " && CODART<=" <<'"' << _aart<<'"' ;
|
|
// filtro << " && ANNOES==" <<'"' << _codicees <<'"' ;
|
|
// estremi di stanpa
|
|
_raggmag=_mask->get_bool(F_RAGGMAG);
|
|
_daart=_mask->get(F_DAART);
|
|
_aart=_mask->get(F_AART);
|
|
_damag=_mask->get(F_DAMAG);
|
|
_amag=_mask->get(F_AMAG);
|
|
_dadata=_mask->get_date(F_DADATA);
|
|
_adata=_mask->get_date(F_ADATA);
|
|
_codicees=1996;
|
|
|
|
TRectype darec(LF_MAG),arec(LF_MAG);
|
|
TCursor& cur = *_form->cursor();
|
|
cur.setkey();
|
|
// trova il record iniziale
|
|
darec.put("ANNOES",_codicees);
|
|
darec.put("CODART",_daart);
|
|
darec.put("CODMAG",_damag);
|
|
// trova il record finale
|
|
arec.put("ANNOES",_codicees);
|
|
arec.put("CODART",_aart);
|
|
arec.put("CODMAG",_amag);
|
|
cur.setregion(darec,arec);
|
|
return TRUE;
|
|
}
|
|
|
|
bool TStampa_schede_mag::user_create()
|
|
{
|
|
|
|
_mask = new TMask("mg3300");
|
|
_form = new TForm("mg3300a", "");
|
|
add_cursor(_form->cursor());
|
|
add_file(_form->cursor()->file().num());
|
|
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
bool TStampa_schede_mag::user_destroy()
|
|
{
|
|
delete _mask;
|
|
delete _form;
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
int mg3300(int argc, char* argv[])
|
|
{
|
|
//TStampa_schede_mag a; // derivata da Printapp
|
|
TStampa_schedemag a;// derivata da Application e con uso di form
|
|
a.run(argc,argv,"Stampa schede di magazzino");
|
|
return 0;
|
|
}
|