d327a5c85f
Files correlati : Commento : Aggiornati programmi personalizzati per poterli compilare. Manca ps0883 git-svn-id: svn://10.65.10.50/branches/R_10_00@23224 c028cbd2-c16b-5b4b-a496-9718f37d4682
61 lines
1.2 KiB
C++
Executable File
61 lines
1.2 KiB
C++
Executable File
#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;
|
|
}
|