#include <applicat.h>
#include <config.h>
#include <execp.h>
#include <progind.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_CLIENTI));
	TRectype from(clienti.curr());
	from.put(CF_TIPOCF, 'C');
	clienti.setregion(from, from);
	for (clienti = 0L; clienti.pos() < items; ++clienti)
	{
		clienti.curr().put(CF_ALLEG, '6');
		clienti.curr().rewrite();
	}
}

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