ab57d73bc0
Files correlati : Ricompilazione Demo : [ ] Commento :aggiunti sorgenti di programmi personalizzati sul main_trunk git-svn-id: svn://10.65.10.50/trunk@15931 c028cbd2-c16b-5b4b-a496-9718f37d4682
59 lines
1.2 KiB
C++
Executable File
59 lines
1.2 KiB
C++
Executable File
#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;
|
|
}
|