root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/at/at1200.cpp
cris f943fee58f Attribuzione benemerenze: se definitiva registra le ben. sul doggetto (prima 
non lo faceva!)
Patch level         :
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@6242 c028cbd2-c16b-5b4b-a496-9718f37d4682
1998-02-23 08:23:18 +00:00

376 lines
11 KiB
C++
Executable File
Raw Blame History

#include <form.h>
#include <mask.h>
#include <prefix.h>
#include <printapp.h>
#include <progind.h>
#include <recarray.h>
#include <tabutil.h>
#include <utility.h>
#include "at1.h"
// nomi campi maschera
#include "at1200a.h"
// nomi dei campi
#include "soggetti.h"
#include "donaz.h"
#include "benem.h"
#include "sezioni.h"
#include "atopera.h"
#include "atropera.h"
#define ALIAS_GAZ 300
class TAttribuzioneBenemerenze : public TPrintapp
{
TMask* _msk;
TRelation* _rel;
TLocalisamfile* _donaz;
TLocalisamfile* _benem;
TLocalisamfile* _atopera;
TLocalisamfile* _atropera;
TLocalisamfile* _sezioni;
TRecord_array* _sdonazioni;
TRecord_array* _sbenemerenze;
TCursor* _cur;
TAssoc_array _catdon;
TAssoc_array _tabben;
TString16 _gruppoazie, _oldben;
int _bonus;
TDate _dataela, _datapre;
bool _anchegruppi;
bool _definitiva;
TParagraph_string _cognome_nome;
int _contatore;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual bool set_print(int m);
virtual void set_page(int file, int cnt);
virtual bool preprocess_page(int file, int counter);
public:
void crea_intestazione();
void header_ben(const TString16 tipoben);
TAttribuzioneBenemerenze() : _cognome_nome("",25) {}
};
HIDDEN inline TAttribuzioneBenemerenze& app() { return (TAttribuzioneBenemerenze&) main_app(); }
bool TAttribuzioneBenemerenze::preprocess_page(int file, int counter)
{
if (file==LF_ATROPERA)
{
TRectype& recsog = current_cursor()->curr(LF_SOGGETTI);
TString80 nome = recsog.get(SOG_COGNOME);
nome << " ";
nome << recsog.get(SOG_NOME);
_cognome_nome = nome;
// salto pagina se cambio benemerenza
const TString16 tipoben = current_cursor()->curr().get(ROP_S0);
if (tipoben!=_oldben)
{
if (_oldben != "**")
printer().formfeed();
_oldben = tipoben;
header_ben(tipoben);
}
if (app()._definitiva)
{
const long codice = recsog.get_long(SOG_CODICE);
TRectype* key = new TRectype(LF_BENEM);
key->put(BEN_CODICE, codice);
int err = app()._sbenemerenze->read(key);
if (err == NOERR)
{
int r = app()._sbenemerenze->rows();
TRectype& rec = app()._sbenemerenze->row(r+1,TRUE);
TString16 codsez = recsog.get(SOG_CODSEZ);
TString16 codsot = recsog.get(SOG_CODSOT);
TString16 gruppoazie = recsog.get(SOG_GRUPPOAZIE);
rec.put(BEN_TIPOBEN, tipoben);
//rec.put(BEN_DATAMAT, row.get(2));
//rec.put(BEN_BONUS, row.get());
rec.put(BEN_DATABEN, app()._dataela);
rec.put(BEN_DATACON, app()._datapre);
//rec.put(BEN_RITIRATA, row.get());
rec.put(BEN_CODSEZ, codsez);
rec.put(BEN_CODSOT, codsot);
rec.put(BEN_GRUPPOAZIE, gruppoazie);
int err = app()._sbenemerenze->rewrite();
}
}
}
return TRUE;
}
void TAttribuzioneBenemerenze::set_page(int file, int cnt)
{
if (file == LF_SOGGETTI)
{
set_row(1,"@0g#a", &_cognome_nome);
set_row(1,"@26g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(1,"@29g@S", FLD(LF_SOGGETTI,SOG_TESSAVIS));
set_row(1,"@39g@pn", FLD(LF_SOGGETTI,SOG_TOTDON,"###"));
}
else
set_row(1,"");
}
void TAttribuzioneBenemerenze::header_ben(const TString16 tipoben)
{
TString intestazione(132);
intestazione = "Benemerenza ";
intestazione << tipoben;
intestazione << " ";
TTable ben("BNZ");
ben.zero();
ben.put("CODTAB", tipoben);
ben.read();
if (ben.good())
intestazione << ben.get("S0");
intestazione.center_just();
set_header(1,"@0g%s", (const char*) intestazione);
return;
}
bool TAttribuzioneBenemerenze::set_print(int)
{
KEY tasto;
tasto = _msk->run();
if (tasto == K_ENTER)
{
_oldben = "**";
_contatore = 0;
_dataela = _msk->get(F_DATAELA);
_datapre = _msk->get(F_DATAPRE);
_gruppoazie = _msk->get(F_GRUPPOAZIE);
_anchegruppi = _msk->get_bool(F_ANCHEGRUPPI);
_definitiva = _msk->get_bool(F_DEFINITIVA);
_catdon.destroy();
const TString16 catpri = _msk->get(F_CAT1);
const TString16 catsec = _msk->get(F_CAT2);
const TString16 catter = _msk->get(F_CAT3);
const TString16 catqua = _msk->get(F_CAT4);
const TString16 catqui = _msk->get(F_CAT5);
const TString16 catses = _msk->get(F_CAT6);
if (catpri.not_empty() && catpri.ok())
_catdon.add((const char*) catpri);
if (catsec.not_empty() && catsec.ok())
_catdon.add((const char*) catsec);
if (catter.not_empty() && catter.ok())
_catdon.add((const char*) catter);
if (catqua.not_empty() && catqua.ok())
_catdon.add((const char*) catqua);
if (catqui.not_empty() && catqui.ok())
_catdon.add((const char*) catqui);
if (catses.not_empty() && catses.ok())
_catdon.add((const char*) catses);
_tabben.destroy();
TTable ben("BNZ");
for(ben.first(); !ben.eof(); ben.next())
{
TString16 codben = ben.get("CODTAB");
int numdonben = ben.get_int("I0");
real* oggetto = new real(numdonben);
_tabben.add((const char*)codben, (TObject*) oggetto);
}
TString80 filtro = "";
if (_gruppoazie.not_empty())
filtro.format("(90->GRUPPOAZIE == \"%s\")",(const char*)_gruppoazie);
else
if (!_anchegruppi)
filtro.format("(90->GRUPPOAZIE == \"\")");
// filtro per sezioni
const TString16 sezini = _msk->get(F_SEZINI);
const TString16 sotini = _msk->get(F_SOTINI);
TRectype da(LF_SOGGETTI);
if (sezini.not_empty())
da.put(SOG_CODSEZ, sezini);
if (sotini.not_empty())
da.put(SOG_CODSOT, sotini);
_cur = new TCursor(_rel, "", 3, &da, &da);
_cur->setfilter(filtro, TRUE);
TLocalisamfile atopera(LF_ATOPERA);
atopera.last();
int progope = atopera.get_int(OPE_PROGOPE);
progope++;
atopera.zero();
atopera.put(OPE_PROGOPE, progope);
atopera.put(OPE_CODSEZ,sezini);
atopera.put(OPE_CODSOT,sotini);
atopera.put(OPE_GRUPPOAZIE,_gruppoazie);
atopera.put(OPE_DATA1,_dataela);
atopera.put(OPE_DATA2,_datapre);
atopera.put(OPE_FLAG1,_anchegruppi);
atopera.put(OPE_UTENTE,user());
atopera.write();
TLocalisamfile atropera(LF_ATROPERA);
// cancelliamo l'elaborazione precedente
for (atropera.first(); !atropera.eof(); atropera.next())
atropera.remove();
TRectype& sog = _cur->curr();
long last = _cur->items();
_benem->setkey(3);
TProgind prg (last, "Elaborazione in corso... Prego attendere", FALSE, TRUE, 30);
for ( *_cur=0; _cur->pos() < last; ++(*_cur) )
{
prg.addstatus(1);
// controllare la categoria
bool filtrato = TRUE;
long codice = sog.get_long(SOG_CODICE);
if (_catdon.items() != 0)
{
const TString16 cat = sog.get(SOG_CATDON);
filtrato = _catdon.is_key((const char*) cat);
}
if (filtrato)
{
TRectype* key = new TRectype(LF_DONAZ);
key->put(DON_CODICE, codice);
int err = _sdonazioni->read(key);
if (err == NOERR)
{
int precsi = sog.get_int(SOG_DONPRECSI);
int precaf = sog.get_int(SOG_DONPRECAF);
int numdon = 0;
if (precsi>0)
numdon = numdon+precsi;
if (precaf>0)
numdon = numdon+precaf;
for (int r=1; r<=_sdonazioni->rows(); r++)
{
const TRectype& riga = _sdonazioni->row(r);
TDate datadon = riga.get_date(DON_DATADON);
if (datadon<=_dataela)
numdon++;
}
TString16 ultben = "**";
TRectype* key = new TRectype(LF_BENEM);
key->put(BEN_CODICE, codice);
int err = _sbenemerenze->read(key);
if (err == NOERR)
{
for (int r=1; r<=_sbenemerenze->rows(); r++)
{
const TRectype& riga = _sbenemerenze->row(r);
ultben = riga.get(BEN_TIPOBEN);
}
}
long bonusctrl = 0;
if (ultben != "**")
{
real& ndonult = (real&) _tabben.find((const char*) ultben);
bonusctrl = ndonult.integer();
}
_tabben.restart();
real* c;
for (c = (real*) _tabben.first_item(); c != NULL; c = (real*) _tabben.succ_item())
{
const char* tipoben = _tabben.get_hashobj()->key();
long bonus = c->integer();
if (bonus > bonusctrl)
{
if (numdon >= bonus)
{
// controllo che non abbia ricevuto la benemerenza
//const char* tipoben = _tabben.get_hashobj()->key();
_benem->zero();
_benem->put(BEN_CODICE, codice);
_benem->put(BEN_TIPOBEN, tipoben);
_benem->read();
if (_benem->bad())
{
atropera.zero();
atropera.put(ROP_PROGOPE, progope);
atropera.put(ROP_CODICE, codice);
atropera.put(ROP_S0, tipoben);
atropera.write();
}
}
}
}
}
}
}
reset_files();
TRelation* relope = new TRelation(LF_ATROPERA);
relope->add(LF_SOGGETTI, "CODICE==CODICE");
TString80 chiave = "131->S0|UPPER(90->COGNOME)|UPPER(90->NOME)";
int curope = add_cursor(new TSorted_cursor(relope, (const char*) chiave, "", 1));
filtro = "";
current_cursor()->setfilter((const char*) filtro, TRUE);
add_file(LF_ATROPERA);
add_file(LF_SOGGETTI,LF_ATROPERA);
reset_print();
crea_intestazione();
return TRUE;
}
else
return FALSE;
}
void TAttribuzioneBenemerenze::crea_intestazione()
{
reset_header();
TString sep(132);
sep = "ATTRIBUZIONE BENEMERENZE ";
sep << " ALLA DATA ";
sep << _dataela.string();;
sep.center_just();
set_header(2, "@0g%s", (const char*) sep);
sep = "";
sep << "Pag. @#";
set_header(2, "@120g%s", (const char*) sep);
sep = "";
sep.fill('-');
set_header(3, (const char *) sep);
set_header(4,"@0gCognome e nome@26gC.@29gTessera@39gTot.don.");
set_header(5,"@0-------------------------@26g--@29g--------@39g--------");
}
bool TAttribuzioneBenemerenze::user_create()
{
_msk = new TMask("at1200a");
_rel = new TRelation(LF_SOGGETTI);
_rel->add(LF_SEZIONI,"CODSEZ==CODSEZ|CODSOT==CODSOT");
_rel->add("GAZ", "CODTAB==GRUPPOAZIE",1,0,ALIAS_GAZ);
_donaz = new TLocalisamfile(LF_DONAZ);
_benem = new TLocalisamfile(LF_BENEM);
_sdonazioni = new TRecord_array(LF_DONAZ,DON_PROGDON);
_sbenemerenze = new TRecord_array(LF_BENEM, BEN_PROGBEN);
_atopera = new TLocalisamfile(LF_ATOPERA);
_atropera = new TLocalisamfile(LF_ATROPERA);
_sezioni = new TLocalisamfile(LF_SEZIONI);
return TRUE;
}
bool TAttribuzioneBenemerenze::user_destroy()
{
delete _rel;
delete _msk;
delete _donaz;
delete _benem;
delete _sdonazioni;
delete _sbenemerenze;
delete _atopera;
delete _atropera;
delete _sezioni;
return TRUE;
}
int at1200(int argc, char* argv[])
{
TAttribuzioneBenemerenze a;
a.run(argc, argv, "Attribuzione benemerenze");
return 0;
}
Reference in New Issue View Git Blame Copy Permalink