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

Attribuzione benemerenze: se definitiva registra le ben. sul doggetto (prima

Browse Source 
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
This commit is contained in:
cris 1998-02-23 08:23:18 +00:00
parent 21e1ff4c41
commit f943fee58f
1 changed files with 44 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
at/at1200.cpp
View File

@ -37,6 +37,7 @@ class TAttribuzioneBenemerenze : public TPrintapp
TAssoc_array _catdon;
TAssoc_array _tabben;
TString16 _gruppoazie, _oldben;
int _bonus;
TDate _dataela, _datapre;
bool _anchegruppi;
bool _definitiva;
@ -58,6 +59,8 @@ public:
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);
@ -73,6 +76,34 @@ bool TAttribuzioneBenemerenze::preprocess_page(int file, int counter)
_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;
}