#include <applicat.h>
#include <config.h>
#include <execp.h>
#include <progind.h>
#include <relation.h>
#include <utility.h>

#include "clifo.h"

//----------------------------------
//		TSkeleton_application
//----------------------------------
class TClienti0001 : public TSkeleton_application
{
	virtual const char * extra_modules() const {return "ba";}

protected:

public:           
	virtual bool create();
  virtual bool destroy();
  virtual void main_loop();

  TClienti0001() {}
};

TClienti0001& app() { return (TClienti0001&) main_app(); }
                                 
bool TClienti0001::create()
{
  return TSkeleton_application::create();
}

bool TClienti0001::destroy()
{
  return TApplication::destroy();
}

void TClienti0001::main_loop()
{  
	TCursor clienti(new TRelation(LF_CLIFO));
	TRectype from(clienti.curr());
	from.put(CLI_TIPOCF, 'C');
	clienti.setregion(from, from);
	const long items = clienti.items();
	for (clienti = 0L; clienti.pos() < items; ++clienti)
	{
		clienti.curr().put(CLI_ALLEG, '6');
		clienti.file().rewrite();
	}
}

int pt0001100 (int argc, char* argv[])
{
  TClienti0001 main_app;
  main_app.run(argc, argv, TR("Settaggio clienti non in allegato"));
  return TRUE;
}