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

Corretto controllo sulla cancellazione dei sottoconti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1410 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-05-29 16:19:44 +00:00
parent ef3522c5ec
commit 4748c283df
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cg/cg0100.cpp
View File

@ -1,6 +1,7 @@
#include <relapp.h>
#include <defmask.h>
#include <pconti.h>
#include <saldi.h>
#include "cg0.h"
#include "cg0100.h"
@ -121,8 +122,17 @@ bool CG0100_application::protected_record(TRectype &rec)
_saldi->put(PCN_CONTO, conto);
_saldi->put(PCN_SOTTOCONTO, sottoc);
_saldi->read(_isgteq);
return _saldi->good() && gruppo ==_saldi->get_int(PCN_GRUPPO) &&
bool ok = FALSE;
if (_saldi->good())
ok = _saldi->get_real(SLD_SALDO) != ZERO ||
_saldi->get_real(SLD_PDARE) != ZERO ||
_saldi->get_real(SLD_PAVERE) != ZERO ||
_saldi->get_real(SLD_PDARESCA) != ZERO ||
_saldi->get_real(SLD_PAVERESCA) != ZERO ||
_saldi->get_real(SLD_PDAREPRO) != ZERO ||
_saldi->get_real(SLD_PAVEREPRO) != ZERO;
return ok && gruppo ==_saldi->get_int(PCN_GRUPPO) &&
conto ==_saldi->get_int(PCN_CONTO) &&
sottoc ==_saldi->get_long(PCN_SOTTOCONTO);
}