campo-sirio/pe/pe1600.cpp
guy 80f65c95ef Preventivazione cantieri
git-svn-id: svn://10.65.10.50/branches/R_10_00@22929 c028cbd2-c16b-5b4b-a496-9718f37d4682
2014-03-07 14:42:30 +00:00

60 lines
1.3 KiB
C++

#include <applicat.h>
#include <doc.h>
#include "pe1500.h"
///////////////////////////////////////////////////////////
// TFabbisognazione_app
///////////////////////////////////////////////////////////
class TFabbisognazione_app : public TSkeleton_application
{
protected:
virtual void main_loop();
};
void TFabbisognazione_app::main_loop()
{
TFilename ininame;
if (argc() >= 2)
{
const TFixed_string arg = argv(2);
ininame = arg.starts_with("-i", true) ? arg.mid(2) : arg;
}
TConfig ini(ininame, "Transaction");
const TString8 codelab = ini.get("Action");
ini.set_paragraph("33");
TRectype doc(LF_DOC);
doc.put(DOC_PROVV, ini.get(DOC_PROVV));
doc.put(DOC_ANNO, ini.get(DOC_ANNO));
doc.put(DOC_CODNUM, ini.get(DOC_CODNUM));
doc.put(DOC_NDOC, ini.get(DOC_NDOC));
if (pe_genera_documento(doc, codelab, 'F'))
{
ini.set_paragraph("Transaction");
ini.set("Result", "OK");
ini.set("Error", "0");
ini.set_paragraph("33");
for (int i = 0; i < doc.items(); i++)
{
const char* fld = doc.fieldname(i);
const TString& val = doc.get(fld);
if (val.full())
ini.set(fld, val);
}
}
}
int pe1600(int argc, char* argv[])
{
TFabbisognazione_app a;
a.run(argc, argv, TR("Generazione fabbisogni"));
return 0;
}