1997-05-30 15:49:50 +00:00
|
|
|
#include <applicat.h>
|
2006-12-13 16:22:33 +00:00
|
|
|
#include <reprint.h>
|
1997-05-30 15:49:50 +00:00
|
|
|
#include <mask.h>
|
1999-10-22 10:00:18 +00:00
|
|
|
|
1998-01-09 16:33:25 +00:00
|
|
|
#include "mglib.h"
|
1997-06-19 06:59:33 +00:00
|
|
|
#include "mg0200.h"
|
1997-05-30 15:49:50 +00:00
|
|
|
|
2006-12-13 16:22:33 +00:00
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
// Report
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
|
|
class TTable_report : public TReport
|
1997-05-30 15:49:50 +00:00
|
|
|
{
|
2006-12-13 16:22:33 +00:00
|
|
|
public:
|
|
|
|
virtual bool use_mask() { return false; }
|
|
|
|
};
|
|
|
|
|
1997-05-30 15:49:50 +00:00
|
|
|
|
2006-12-13 16:22:33 +00:00
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
// Applicazione
|
|
|
|
///////////////////////////////////////////////////////////
|
1999-10-22 10:00:18 +00:00
|
|
|
|
2006-12-13 16:22:33 +00:00
|
|
|
class TStampa_tabmag : public TSkeleton_application
|
|
|
|
{
|
1997-05-30 15:49:50 +00:00
|
|
|
protected:
|
1999-10-22 10:00:18 +00:00
|
|
|
virtual void main_loop();
|
|
|
|
|
1998-01-09 16:33:25 +00:00
|
|
|
public:
|
1998-01-23 09:57:34 +00:00
|
|
|
// @cmember Disabilita la verifica del modulo in chiave
|
2006-12-13 16:22:33 +00:00
|
|
|
virtual bool check_autorization() const { return false; }
|
1997-05-30 15:49:50 +00:00
|
|
|
};
|
|
|
|
|
1999-10-22 10:00:18 +00:00
|
|
|
void TStampa_tabmag::main_loop()
|
1997-06-12 14:58:19 +00:00
|
|
|
{
|
2006-12-13 16:22:33 +00:00
|
|
|
TFilename name;
|
|
|
|
TString4 tabname(argv(2));
|
1997-06-12 14:58:19 +00:00
|
|
|
tabname.upper();
|
2006-12-13 16:22:33 +00:00
|
|
|
name << "bast" << tabname;
|
|
|
|
TMask m(name);
|
1997-05-30 15:49:50 +00:00
|
|
|
|
2006-12-13 16:22:33 +00:00
|
|
|
while ((m.run() == K_ENTER))
|
|
|
|
{
|
|
|
|
//se viene scelta la stampa dettagliata -> va stampata la tabella GCA ordinata per
|
|
|
|
//codici FCA
|
|
|
|
//Guido perdoni la barbara implementazione...
|
|
|
|
TFilename rptname;
|
1997-06-12 14:58:19 +00:00
|
|
|
|
2006-12-13 16:22:33 +00:00
|
|
|
if (tabname == "FCA" || tabname == "FCG")
|
|
|
|
{
|
|
|
|
if (m.get_bool(F_DETTAGLIO))
|
|
|
|
{
|
|
|
|
if (tabname == "FCA")
|
|
|
|
rptname = "bastgca";
|
|
|
|
else
|
|
|
|
rptname = "bastgcg";
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if (tabname == "FCA")
|
|
|
|
rptname = "bastfca";
|
|
|
|
else
|
|
|
|
rptname = "bastfcg";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
rptname = name;
|
|
|
|
|
|
|
|
TTable_report rep;
|
|
|
|
rep.load(rptname);
|
|
|
|
rep.mask2report(m);
|
|
|
|
rep.print_or_preview();
|
|
|
|
} // while
|
1997-05-30 15:49:50 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
int mg0200(int argc, char* argv[])
|
|
|
|
{
|
2006-12-13 16:22:33 +00:00
|
|
|
TStampa_tabmag a;
|
2004-05-18 10:44:57 +00:00
|
|
|
a.run(argc,argv,TR("Stampa tabelle di magazzino"));
|
1997-06-19 06:59:32 +00:00
|
|
|
return 0;
|
1997-05-30 15:49:50 +00:00
|
|
|
}
|