#include <applicat.h>
#include <execp.h>
#include <reprint.h>

#include "ca1.h"
#include "ca1400a.h"
#include "calib01.h"
#include "calib02.h"

class TPrint_pdc : public TSkeleton_application
{
	bool create();

public:
  virtual void main_loop();
};

bool TPrint_pdc::create()
{
  TConfig_anal cfg;
  const bool use_cg1 = cfg.get_bool("UsePdcc");
  if (use_cg1)
  {
    TExternal_app app("cg1 -0");
    app.run(true);
    return false;
  }
  else
  {
    const TString& pdc = cfg.get("Pdci", NULL, 1);
    if (pdc.blank())
      return error_box(TR("Il piano dei conti analitico non e' stato configurato"));
  }
  return TSkeleton_application::create();
}

void TPrint_pdc::main_loop()
{
  TFilename path;
  TMask m("ca1400a");;
  while (m.run() == K_ENTER)
  {
    TReport_book book;
    TAnal_report rep;
    ;
		path = m.get(F_REPORT);
		if (path.empty())
			path = "ca1400";
		path.ext("rep");
		path.custom_path();
    if (rep.load(path))
		{
	    TRecordset * r = rep.recordset();

      if (r != NULL)
			{
				TVariant var;

				var = m.get(F_DACONTO);
				r->set_var("#DACONTO", var);
				var = m.get(F_ACONTO);
				r->set_var("#ACONTO", var);
			}
		}
		book.add(rep);
    book.print_or_preview();
  }
}

int ca1400(int argc, char* argv[])
{
  TPrint_pdc a;
  a.run(argc, argv, TR("Stampa piano dei conti analitica"));
  return 0;
}