campo-sirio/at/benem.cpp
alex 9e87d4da39 Prima versione di AT Win
git-svn-id: svn://10.65.10.50/trunk@3294 c028cbd2-c16b-5b4b-a496-9718f37d4682
1996-07-30 14:46:52 +00:00

20 lines
540 B
C++
Executable File

if (filtrato)
{
const TString benemerenza =
TLocalisamfile* sog = &(rel->lfile(LF_SOGGETTI));
TRectype* key = new TRectype(LF_BENEM);
long codsog = sog->curr().get(SOG_CODICE);
key->put(BEN_CODICE, codsog);
err = _sbenemerenze->read(key);
if (err == NOERR)
{
for (int r=1; r<=_sbenemerenze->rows(); r++)
{
const TRectype& riga = _sbenemerenze->row(r);
const TString bene = riga.get(BEN_TIPOBEN);
if (bene =
row.add(riga.get(BEN_DATABEN));
row.add(riga.get(BEN_RITIRATA));
}