campo-sirio/pe/pe1600.cpp

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