root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Modifiche di Marco (annullamento di una convocazione) + messaggio a fine registrazione sulle convocazioni punto prelievo


git-svn-id: svn://10.65.10.50/trunk@9224 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2000-10-10 07:57:16 +00:00
parent 97270ae0c0
commit eac2ab700d
1 changed files with 124 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
at/at0400.cpp
View File

@ -784,10 +784,10 @@ int TGestioneConvocazioni::scrivi(const TMask& m, bool ri)
}
TLocalisamfile soggetti(LF_SOGGETTI);
_sconvocati->destroy_rows();
TSheet_field& s = (TSheet_field&)m.field(F_CONVOCATI);
TRectype* key = new TRectype(LF_RCONVOC);
key->put(RCV_NUMERO, m.get(F_NUMERO));
_sconvocati->set_key(key);
TSheet_field& s = (TSheet_field&)m.field(F_CONVOCATI);
TProgind prg (s.items(), "Registrazione in corso... Prego attendere", FALSE, TRUE, 30);
for (int r=s.items(); r>0; r--)
{
@ -803,6 +803,24 @@ int TGestioneConvocazioni::scrivi(const TMask& m, bool ri)
rec.put(RCV_CHIAMATA,chiamata);
rec.put(RCV_STAMPATO,row.get(5));
rec.put(RCV_ANNULLATO,row.get(6));
}
err = ri ? _sconvocati->rewrite() : _sconvocati->write();
if (err == NOERR)
{
for (int r=s.items(); r>0; r--)
{
prg.addstatus(1);
TToken_string& row = s.row(r-1);
//TRectype& rec = _sconvocati->row(r,TRUE);
const long codice = row.get_long(0);
const TDate dataconv = row.get(3);
const char chiamata = row.get_char(4);
const bool annullato = (row.get(6)[0] == 'X');
//rec.put(RCV_CODICE,codice);
//rec.put(RCV_DATACONV,dataconv);
//rec.put(RCV_CHIAMATA,chiamata);
//rec.put(RCV_STAMPATO,row.get(5));
//rec.put(RCV_ANNULLATO,row.get(6));
// aggiornamento archivio soggetti
soggetti.put(SOG_CODICE,codice);
/* Messo il < invece del != nel primo if, spostato il controllo se sollecito
@ -843,10 +861,11 @@ int TGestioneConvocazioni::scrivi(const TMask& m, bool ri)
TRelation rel(LF_RCONVOC);
TCursor cur(&rel,"",3,&da,&a);
const TRecnotype convocazioni = cur.items();
TRectype& rec = cur.curr();
for (TRecnotype pos = convocazioni-2; pos>=0; pos--)
{
cur = pos;
TRectype& rec = cur.curr();
//TRectype& rec = cur.curr();
if (rec.get(RCV_ANNULLATO)[0] != 'X')
{
soggetti.put(SOG_DATACONV, rec.get(RCV_DATACONV));
@ -929,10 +948,12 @@ int TGestioneConvocazioni::scrivi(const TMask& m, bool ri)
soggetti.rewrite();
}
}
err = ri ? _sconvocati->rewrite() : _sconvocati->write();
}
if (err == NOERR)
//err = ri ? _sconvocati->rewrite() : _sconvocati->write();
message_box("Convocazione registrata");
}
else
error_box("Errore %d durante la scrittura. Convocazione non registrata correttamente", err);
}
else
error_box("Errore %d durante la scrittura. Convocazione non registrata correttamente", err);
return err;