52962b0e14
Files correlati : batbmtc.msk at0.exe Ricompilazione Demo : [ ] Commento : aggiunto sui motivi un flag per la segnalazione, utilizzato nell'inserimento giornaliero controlli: se il soggetto é sospeso con quel motivo, me lo segnala (PR) git-svn-id: svn://10.65.10.50/trunk@10130 c028cbd2-c16b-5b4b-a496-9718f37d4682
549 lines
14 KiB
C++
Executable File
549 lines
14 KiB
C++
Executable File
#include <applicat.h>
|
||
#include <execp.h>
|
||
#include <mask.h>
|
||
#include <msksheet.h>
|
||
#include <mailbox.h>
|
||
#include <prefix.h>
|
||
#include <progind.h>
|
||
#include <recarray.h>
|
||
#include <relation.h>
|
||
#include <tabutil.h>
|
||
#include <urldefid.h>
|
||
#include <validate.h>
|
||
#include <lffiles.h>
|
||
|
||
#include "at0.h"
|
||
|
||
// nomi campi maschera
|
||
#include "at0300a.h"
|
||
|
||
// nomi dei campi
|
||
#include "soggetti.h"
|
||
#include "donaz.h"
|
||
#include "contsan.h"
|
||
#include "idoneita.h"
|
||
|
||
#include "atlib.h"
|
||
|
||
#define ALIAS_CTD 700
|
||
|
||
class TGiornalieroC : public TApplication
|
||
{
|
||
TMask* _msk;
|
||
TRelation* _rel;
|
||
|
||
TLocalisamfile* _soggetti;
|
||
TLocalisamfile* _donaz;
|
||
TLocalisamfile* _contsan;
|
||
TLocalisamfile* _idoneita;
|
||
TRecord_array* _sdonazioni;
|
||
TRecord_array* _scontrolli;
|
||
TRecord_array* _sidoneita;
|
||
TAssoc_array* _asoggetti; // array dei soggetti inseriti per controllare doppio ins.
|
||
bool _modified;
|
||
|
||
protected:
|
||
virtual bool create();
|
||
virtual bool destroy();
|
||
virtual bool menu(MENU_TAG m);
|
||
virtual TMask& get_mask() { return *_msk; }
|
||
virtual TRelation* get_relation() const { return _rel; }
|
||
|
||
TAssoc_array& get_array_sogg() { return *_asoggetti; }
|
||
int write(TSheet_field& s);
|
||
|
||
bool check_sog_sheet(const char* codsog);
|
||
static bool nome_handler(TMask_field& f, KEY k);
|
||
static bool codice_handler(TMask_field& f, KEY k);
|
||
static bool tipocon_handler(TMask_field& f, KEY k);
|
||
static bool soggetti_notify(TSheet_field& s, int r, KEY k);
|
||
void add_rows_soggetti(TSheet_field& s, int count = 20, int start = 0);
|
||
|
||
public:
|
||
TGiornalieroC() {}
|
||
|
||
};
|
||
|
||
HIDDEN inline TGiornalieroC& app() { return (TGiornalieroC&) main_app(); }
|
||
|
||
void TGiornalieroC::add_rows_soggetti(TSheet_field& s, int count, int start)
|
||
{
|
||
if (start == 0)
|
||
s.destroy();
|
||
for (int r=start; r<=start+count-1; r++)
|
||
s.row(r);
|
||
}
|
||
|
||
bool TGiornalieroC::create()
|
||
{
|
||
TApplication::create();
|
||
_modified = FALSE;
|
||
_msk = new TMask("at0300a");
|
||
_rel = new TRelation(LF_SOGGETTI);
|
||
_rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD);
|
||
_donaz = new TLocalisamfile(LF_DONAZ);
|
||
_contsan = new TLocalisamfile(LF_CONTSAN);
|
||
_idoneita = new TLocalisamfile(LF_IDONEITA);
|
||
_sdonazioni = new TRecord_array(LF_DONAZ,DON_PROGDON);
|
||
_scontrolli = new TRecord_array(LF_CONTSAN,CON_PROGCON);
|
||
_sidoneita = new TRecord_array(LF_IDONEITA,IDO_PROGIDO);
|
||
_asoggetti = new TAssoc_array();
|
||
|
||
TSheet_field& ss = (TSheet_field&)_msk->field(F_SOGGETTI);
|
||
ss.set_notify(soggetti_notify);
|
||
|
||
ss.sheet_mask().set_handler(F_S_NOME,nome_handler);
|
||
ss.sheet_mask().set_handler(F_S_CODICE,codice_handler);
|
||
|
||
ss.sheet_mask().set_handler(F_S_TIPOCON,tipocon_handler);
|
||
|
||
dispatch_e_menu(BAR_ITEM(1));
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
bool TGiornalieroC::destroy()
|
||
{
|
||
delete _asoggetti;
|
||
delete _sidoneita;
|
||
delete _scontrolli;
|
||
delete _sdonazioni;
|
||
delete _idoneita;
|
||
delete _contsan;
|
||
delete _donaz;
|
||
delete _rel;
|
||
delete _msk;
|
||
return TApplication::destroy();
|
||
}
|
||
|
||
bool TGiornalieroC::menu(MENU_TAG m)
|
||
{
|
||
TMask& msk = get_mask();
|
||
const TDate oggi(TODAY);
|
||
KEY tasto;
|
||
do
|
||
{
|
||
TSheet_field& s = (TSheet_field&)msk.field(F_SOGGETTI);
|
||
//s.reset();
|
||
if (s.items() == 0)
|
||
add_rows_soggetti(s);
|
||
_asoggetti->destroy();
|
||
msk.set(F_DATACON,oggi);
|
||
tasto = msk.run();
|
||
switch (tasto)
|
||
{
|
||
case K_ESC: // annulla
|
||
{
|
||
if (_modified)
|
||
if (yesno_box("Registrare le modifiche?"))
|
||
TGiornalieroC::write(s);
|
||
_modified = FALSE;
|
||
msk.reset();
|
||
}
|
||
break;
|
||
case K_SAVE: // registra
|
||
{
|
||
TGiornalieroC::write(s);
|
||
_modified = FALSE;
|
||
msk.reset();
|
||
}
|
||
break;
|
||
case K_INS: // nuovo
|
||
{
|
||
if (_modified)
|
||
if (yesno_box("Registrare le modifiche?"))
|
||
TGiornalieroC::write(s);
|
||
_modified = FALSE;
|
||
msk.reset();
|
||
}
|
||
break;
|
||
case K_QUIT: // fine
|
||
{
|
||
if (_modified)
|
||
if (yesno_box("Registrare le modifiche?"))
|
||
TGiornalieroC::write(s);
|
||
msk.reset();
|
||
_modified = FALSE;
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
while (tasto != K_QUIT);
|
||
return FALSE;
|
||
}
|
||
|
||
int TGiornalieroC::write(TSheet_field& s)
|
||
{
|
||
|
||
const TMask& m = s.mask();
|
||
const TDate datagen = m.get(F_DATACON);
|
||
const TString16 tipogen = m.get(F_TIPOCON);
|
||
const TDate prdatagen = m.get(F_PROSSDATA);
|
||
const TString16 prtipogen = m.get(F_PROSSTIPO);
|
||
const TString16 motivogen = m.get(F_MOTIVO);
|
||
const TString80 respgen = m.get(F_RESPONSAB);
|
||
|
||
int items = s.items();
|
||
TProgind *pi;
|
||
pi = new TProgind(items,"Registrazione controlli", FALSE, TRUE, 10);
|
||
pi->setstatus(1);
|
||
|
||
for (int r=1; r<=s.items(); r++)
|
||
{
|
||
|
||
pi->addstatus(1);
|
||
|
||
TToken_string& row = s.row(r-1);
|
||
const long codsog = row.get_long(0);
|
||
if (codsog != 0)
|
||
{
|
||
TLocalisamfile& sog = get_relation()->lfile();
|
||
sog.setkey(1);
|
||
sog.zero();
|
||
sog.put(SOG_CODICE, codsog);
|
||
int err = sog.read();
|
||
if (err == NOERR)
|
||
{
|
||
TString16 tipocon = row.get(3);
|
||
TString16 idon1 = row.get(4);
|
||
TString16 idon2 = row.get(5);
|
||
TString16 idon3 = row.get(6);
|
||
TString16 idon4 = row.get(7);
|
||
int intsi = row.get_int(8);
|
||
int intaf = row.get_int(9);
|
||
TString16 prosstipo = row.get(10);
|
||
TDate prossdata = row.get(11);
|
||
TString16 motivo = row.get(12);
|
||
TString80 resp = row.get(13);
|
||
if (tipocon.blank())
|
||
tipocon = tipogen;
|
||
if (prosstipo.blank())
|
||
prosstipo = prtipogen;
|
||
if (!prossdata.ok())
|
||
prossdata = prdatagen;
|
||
if (motivo.blank())
|
||
motivo = motivogen;
|
||
if (resp.blank())
|
||
resp = respgen;
|
||
if (!tipocon.blank())
|
||
{
|
||
TRectype* recc = new TRectype(LF_CONTSAN);
|
||
recc->put(CON_CODICE, row.get(0));
|
||
recc->put(CON_DATACON, datagen);
|
||
recc->put(CON_TIPOCON, tipocon);
|
||
recc->put(CON_IDON1, idon1);
|
||
recc->put(CON_IDON2, idon2);
|
||
recc->put(CON_IDON3, idon3);
|
||
recc->put(CON_IDON4, idon4);
|
||
recc->put(CON_INTSI, intsi);
|
||
recc->put(CON_INTAF, intaf);
|
||
recc->put(CON_PROSSTIPO, prosstipo);
|
||
recc->put(CON_PROSSDATA, prossdata);
|
||
recc->put(CON_MOTIVO, motivo);
|
||
recc->put(CON_RESPONSAB, resp);
|
||
if (modstato_tcs(tipocon) == 'I')
|
||
{
|
||
if (idon1.empty() && idon2.empty() && idon3.empty() && idon4.empty() && intsi == 0 && intaf == 0)
|
||
{
|
||
recc->put(CON_IDON1, sog.get(SOG_IDON1));
|
||
recc->put(CON_IDON2, sog.get(SOG_IDON2));
|
||
recc->put(CON_IDON3, sog.get(SOG_IDON3));
|
||
recc->put(CON_IDON4, sog.get(SOG_IDON4));
|
||
recc->put(CON_INTSI, sog.get(SOG_INTSI));
|
||
recc->put(CON_INTAF, sog.get(SOG_INTAF));
|
||
}
|
||
}
|
||
bool insert = FALSE;
|
||
bool exist = FALSE;
|
||
TRectype* keyc = new TRectype(LF_CONTSAN);
|
||
keyc->put(CON_CODICE, row.get(0));
|
||
int err = _scontrolli->read(keyc);
|
||
if (err == NOERR)
|
||
{
|
||
int r=_scontrolli->rows();
|
||
while (r>=1 && !insert && !exist)
|
||
{
|
||
const TRectype& riga = _scontrolli->row(r);
|
||
const TDate d = riga.get(CON_DATACON);
|
||
if (datagen==d) // esiste gia' un controllo in questa data
|
||
{
|
||
exist=TRUE;
|
||
r=0;
|
||
}
|
||
else
|
||
if (datagen > d)
|
||
{
|
||
recc->put(CON_PROGCON,r+1);
|
||
_scontrolli->insert_row(recc);
|
||
insert=TRUE;
|
||
}
|
||
r--;
|
||
}
|
||
if (!exist && !insert)
|
||
{
|
||
recc->put(CON_PROGCON,1);
|
||
_scontrolli->insert_row(recc);
|
||
}
|
||
}
|
||
else
|
||
if (err == _iseof || err == _isemptyfile)
|
||
{
|
||
recc->put(CON_PROGCON,1);
|
||
_scontrolli->insert_row(recc);
|
||
}
|
||
if (!exist)
|
||
_scontrolli->write(TRUE);
|
||
TRectype* keyi = new TRectype(LF_IDONEITA);
|
||
keyi->put(IDO_CODICE, row.get(0));
|
||
err = _sidoneita->read(keyi);
|
||
con_reord(sog.curr(),_scontrolli,_sidoneita);
|
||
const TDate oggi(TODAY);
|
||
sog.put(SOG_DATAULTAGG,oggi);
|
||
sog.put(SOG_UTENULTAGG,user());
|
||
sog.rewrite();
|
||
const TDate dataprossi = sog.get_date(SOG_DATAPROSSI);
|
||
const TDate dataconv = sog.get_date(SOG_DATACONV);
|
||
const char stato = modstato_tcs(sog.get(SOG_STATO));
|
||
const TString16 statosi = sog.get(SOG_STATOSI);
|
||
// cancellazione data convocazione se sospeso
|
||
// o se <20> venuto a donare (la dataprossi diventa > della dataconvoc.
|
||
if ((stato == 'S') || (statosi == SOSPENSIONE) || (dataprossi > dataconv))
|
||
{
|
||
const TDate datanulla(NULLDATE);
|
||
sog.put(SOG_DATACONV, datanulla);
|
||
const int numzero = 0;
|
||
sog.put(SOG_NUMCONV,numzero);
|
||
sog.rewrite();
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
delete pi;
|
||
|
||
return NOERR;
|
||
}
|
||
|
||
bool TGiornalieroC::check_sog_sheet(const char* codsog)
|
||
{
|
||
TAssoc_array& array_sogg = app().get_array_sogg();
|
||
if (array_sogg.is_key(codsog))
|
||
return FALSE;
|
||
else
|
||
return TRUE;
|
||
}
|
||
|
||
bool TGiornalieroC::soggetti_notify(TSheet_field& s, int r, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
switch (k)
|
||
{
|
||
case K_CTRL+K_DEL:
|
||
// avvenuta cancellazione riga
|
||
break;
|
||
case K_SPACE:
|
||
// inizio modifica riga
|
||
break;
|
||
case K_TAB:
|
||
// entrata riga
|
||
{
|
||
static bool entering = TRUE;
|
||
if (entering)
|
||
{
|
||
entering = FALSE;
|
||
if ((r == s.items()-1) && (r == s.first_empty()))
|
||
app().add_rows_soggetti(s,10,r+1);
|
||
TToken_string& row = s.row(r);
|
||
if (row.empty_items())
|
||
s.select(r,1,FALSE);
|
||
entering = TRUE;
|
||
}
|
||
}
|
||
break;
|
||
case K_ENTER:
|
||
// uscita da riga modificata
|
||
case K_CTRL+K_TAB:
|
||
// uscita riga
|
||
{
|
||
TToken_string& row = s.row(r);
|
||
if (!row.empty_items())
|
||
app()._modified = TRUE;
|
||
const long codsog = row.get_long(0);
|
||
if (codsog != 0)
|
||
{
|
||
for (int i=s.items()-1; i>=0; i--)
|
||
{
|
||
if (i != r)
|
||
{
|
||
TToken_string& row = s.row(i);
|
||
if (codsog == row.get_long(0))
|
||
return s.sheet_mask().field(F_S_CODICE).error_box("Soggetto gia' inserito");
|
||
}
|
||
}
|
||
TLocalisamfile contsan(LF_CONTSAN);
|
||
contsan.setkey(2);
|
||
contsan.zero();
|
||
TDate datacon = row.get(5);
|
||
if (!datacon.ok())
|
||
datacon = s.mask().get_date(F_DATACON);
|
||
contsan.put(CON_DATACON,datacon);
|
||
contsan.put(CON_CODICE,codsog);
|
||
if (contsan.read() == NOERR)
|
||
return s.sheet_mask().field(F_S_CODICE).error_box("Il soggetto ha gia' un controllo in data %s", datacon.string());
|
||
else
|
||
{
|
||
TLocalisamfile soggetti(LF_SOGGETTI);
|
||
soggetti.setkey(1);
|
||
soggetti.zero();
|
||
soggetti.put(SOG_CODICE,codsog);
|
||
if (soggetti.read() == NOERR)
|
||
{
|
||
TString16 statosog = soggetti.get(SOG_STATO);
|
||
const char modstatosog = modstato_tcs(statosog);
|
||
if (modstatosog == 'S')
|
||
{
|
||
contsan.zero();
|
||
contsan.put(CON_DATACON,soggetti.get(SOG_DATASTATO));
|
||
contsan.put(CON_CODICE,codsog);
|
||
if (contsan.read() == NOERR)
|
||
{
|
||
TString16 motivo = contsan.get(CON_MOTIVO);
|
||
const TRectype& recmot = cache().get("MTC", motivo);
|
||
if (recmot.get_bool("B0"))
|
||
warning_box("Attenzione! Il soggetto e' sospeso, motivo: %s", (const char *) recmot.get("S0"));
|
||
}
|
||
}
|
||
}
|
||
TString16 tipocon = row.get(3);
|
||
if (tipocon.blank())
|
||
tipocon = s.mask().get(F_TIPOCON);
|
||
const char modstato = modstato_tcs(tipocon);
|
||
if ( modstato == 'I' || modstato == 'M')
|
||
{
|
||
TString16 idon1 = row.get(4);
|
||
TString16 idon2 = row.get(5);
|
||
TString16 idon3 = row.get(6);
|
||
TString16 idon4 = row.get(7);
|
||
int intsi = row.get_int(8);
|
||
int intaf = row.get_int(9);
|
||
if ((idon1.blank() && idon2.blank() && idon3.blank() && idon4.blank()) || (intsi==0 && intaf==0))
|
||
return s.sheet_mask().field(F_S_CODICE).error_box("Il soggetto non ha idoneita' precedenti; inserire idoneita' e intervalli");
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
const char* cognome = row.get(1);
|
||
if ((cognome != NULL) && (cognome != "\0"))
|
||
s.sheet_mask().field(F_S_NOME).set_focusdirty();
|
||
//s.set_focus_cell(r,2);
|
||
}
|
||
}
|
||
break;
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TGiornalieroC::nome_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (f.to_check(k))
|
||
{
|
||
TMask& m = f.mask();
|
||
long codsog = m.get_long(F_S_CODICE);
|
||
if (codsog == 0)
|
||
f.on_key(K_F9);
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TGiornalieroC::codice_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if ((k==K_TAB) && (f.to_check(k)))
|
||
{
|
||
TMask& m = f.mask();
|
||
long codsog = m.get_long(F_S_CODICE);
|
||
if (codsog != 0)
|
||
{
|
||
TLocalisamfile& sog = app().get_relation()->lfile();
|
||
sog.setkey(1);
|
||
sog.zero();
|
||
sog.put(SOG_CODICE, codsog);
|
||
int err = sog.read();
|
||
if (err == NOERR)
|
||
{
|
||
m.set(F_S_COGNOME, sog.get(SOG_COGNOME));
|
||
m.set(F_S_NOME, sog.get(SOG_NOME));
|
||
m.set(F_S_DATANASC, sog.get(SOG_DATANASC));
|
||
m.set(F_S_TESSAVIS, sog.get(SOG_TESSAVIS));
|
||
m.set(F_S_CODSEZ, sog.get(SOG_CODSEZ));
|
||
m.set(F_S_CODSOT, sog.get(SOG_CODSOT));
|
||
m.set(F_S_CATDON, sog.get(SOG_CATDON));
|
||
TString16 tipogen = app()._msk->get(F_TIPOCON);
|
||
if (tipogen == "ID")
|
||
{
|
||
m.set(F_S_IDON1, sog.get(SOG_IDON1));
|
||
m.set(F_S_IDON2, sog.get(SOG_IDON2));
|
||
m.set(F_S_IDON3, sog.get(SOG_IDON3));
|
||
m.set(F_S_IDON4, sog.get(SOG_IDON4));
|
||
m.set(F_S_INTSI, sog.get(SOG_INTSI));
|
||
m.set(F_S_INTAF, sog.get(SOG_INTAF));
|
||
}
|
||
}
|
||
else
|
||
ok = FALSE; // codice non esistente
|
||
}
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TGiornalieroC::tipocon_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
//if (k == K_TAB && !f.focusdirty())
|
||
if ((k==K_TAB) && (f.to_check(k)))
|
||
{
|
||
TMask& m = f.mask();
|
||
TString16 tipo = m.get(F_S_TIPOCON);
|
||
if (tipo.empty())
|
||
tipo = app()._msk->get(F_TIPOCON);
|
||
const char modstato = modstato_tcs(tipo);
|
||
if ( modstato == 'I' || modstato == 'M')
|
||
{
|
||
TString16 idon1 = m.get(F_S_IDON1);
|
||
TString16 idon2 = m.get(F_S_IDON2);
|
||
TString16 idon3 = m.get(F_S_IDON3);
|
||
TString16 idon4 = m.get(F_S_IDON4);
|
||
|
||
// propongo i dati precedenti per idoneita'
|
||
if (idon1.empty() && idon2.empty() && idon3.empty() && idon4.empty())
|
||
{
|
||
TLocalisamfile& sog = app().get_relation()->lfile();
|
||
sog.setkey(1);
|
||
sog.zero();
|
||
sog.put(SOG_CODICE, m.get_long(F_S_CODICE));
|
||
int err = sog.read();
|
||
if (err == NOERR)
|
||
{
|
||
m.set(F_S_IDON1,sog.get(SOG_IDON1));
|
||
m.set(F_S_IDON2,sog.get(SOG_IDON2));
|
||
m.set(F_S_IDON3,sog.get(SOG_IDON3));
|
||
m.set(F_S_IDON4,sog.get(SOG_IDON4));
|
||
m.set(F_S_INTSI,sog.get(SOG_INTSI));
|
||
m.set(F_S_INTAF,sog.get(SOG_INTAF));
|
||
}
|
||
}
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
int at0300(int argc, char* argv[])
|
||
{
|
||
TGiornalieroC a;
|
||
a.run(argc, argv, "Giornaliero controlli");
|
||
return 0;
|
||
} |