a1095f6e04
Prime modifiche per utilizzare le nuove maschere (upgrade R9604/R9605) git-svn-id: svn://10.65.10.50/trunk@3889 c028cbd2-c16b-5b4b-a496-9718f37d4682
147 lines
3.0 KiB
C++
Executable File
147 lines
3.0 KiB
C++
Executable File
// Modello 770 - Generazione dettaglio Quadro H
|
|
|
|
#include <applicat.h>
|
|
#include <mask.h>
|
|
#include <printapp.h>
|
|
#include <progind.h>
|
|
#include <relation.h>
|
|
#include <tabutil.h>
|
|
#include <utility.h>
|
|
#include <config.h>
|
|
#include <urldefid.h>
|
|
#include <execp.h>
|
|
#include <mailbox.h>
|
|
#include "774100.h"
|
|
#include "rpag.h"
|
|
#include "rver.h"
|
|
#include "scperc.h"
|
|
#include "quadrol.h"
|
|
|
|
class TGenera_dett : public TApplication
|
|
{
|
|
TLocalisamfile* _dettH;
|
|
TLocalisamfile* _quaH;
|
|
TRelation* _rel;
|
|
|
|
long _codditta;
|
|
int _anno;
|
|
TString _ente;
|
|
|
|
public:
|
|
virtual bool create();
|
|
virtual bool menu(MENU_TAG m);
|
|
virtual bool destroy();
|
|
|
|
bool set();
|
|
|
|
TGenera_dett() {};
|
|
~TGenera_dett() {};
|
|
};
|
|
|
|
bool TGenera_dett::set()
|
|
{
|
|
real tot_dat,tot_lav;
|
|
|
|
TRecnotype items_deth = _dettH->items();
|
|
|
|
TProgind progn(items_deth,"Generazione Quadro H in corso... Prego attendere", FALSE, TRUE);
|
|
|
|
TRectype recdet(_dettH->curr());
|
|
|
|
recdet.zero();
|
|
recdet.put("CODDITTA", _codditta);
|
|
recdet.put("ANNO", _anno);
|
|
recdet.put("ENTE", _ente);
|
|
|
|
_dettH->setkey(1);
|
|
_dettH->zero();
|
|
_dettH->put("CODDITTA", _codditta);
|
|
_dettH->put("ANNO", _anno);
|
|
_dettH->put("ENTE", _ente);
|
|
|
|
for (_dettH->read(_isgteq); _dettH->good(); _dettH->next())
|
|
{
|
|
if (_dettH->curr() > recdet)
|
|
break;
|
|
|
|
real dat = _dettH->get_real("CONTRDAT");
|
|
real lav = _dettH->get_real("CONTRLAV");
|
|
|
|
TString dats = dat.string();
|
|
TString lavs = lav.string();
|
|
|
|
tot_dat += dat;
|
|
tot_lav += lav;
|
|
|
|
progn.addstatus(1);
|
|
}
|
|
|
|
_quaH->setkey(1);
|
|
_quaH->zero();
|
|
_quaH->put("CODDITTA", _codditta);
|
|
_quaH->put("H1ANNO", _anno);
|
|
_quaH->put("H1ENTE", _ente);
|
|
|
|
if (_quaH->read() == NOERR)
|
|
{
|
|
_quaH->put("H1DAT", tot_dat);
|
|
_quaH->put("H1LAV", tot_lav);
|
|
_quaH->rewrite();
|
|
}
|
|
|
|
return FALSE; // Per fare in modo che ritorni subito all' applicazione di partenza
|
|
}
|
|
|
|
bool TGenera_dett::menu(MENU_TAG m)
|
|
{
|
|
if (m == BAR_ITEM(1))
|
|
return (set());
|
|
return FALSE;
|
|
}
|
|
|
|
bool TGenera_dett::create()
|
|
{
|
|
TApplication::create();
|
|
|
|
_rel = new TRelation (LF_DETH);
|
|
_dettH = new TLocalisamfile(LF_DETH);
|
|
_quaH = new TLocalisamfile(LF_QUAH);
|
|
|
|
TMailbox m;
|
|
TMessage* msg = m.next_s("");
|
|
TToken_string subj(50);
|
|
|
|
if (msg != NULL)
|
|
{
|
|
subj = msg->body();
|
|
|
|
_codditta = atol(subj.get(0));
|
|
_anno = atoi(subj.get(1));
|
|
_ente = subj.get(2);
|
|
}
|
|
/*
|
|
_codditta = 1;
|
|
_anno = 1994;
|
|
_ente = "Aresi Alessandro";
|
|
*/
|
|
dispatch_e_menu (BAR_ITEM(1));
|
|
return TRUE;
|
|
}
|
|
|
|
bool TGenera_dett::destroy()
|
|
{
|
|
delete _dettH;
|
|
delete _rel;
|
|
delete _quaH;
|
|
|
|
return TApplication::destroy();
|
|
}
|
|
|
|
int m75200 (int argc, char* argv[])
|
|
{
|
|
TGenera_dett a;
|
|
a.run(argc, argv, "Generazione righe dettaglio Quadro H");
|
|
return 0;
|
|
}
|
|
|