Corretto controllo sulla cancellazione dei sottoconti
git-svn-id: svn://10.65.10.50/trunk@1410 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
ef3522c5ec
commit
4748c283df
@ -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);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user