Corrette funzioni imponibile ed imposta

git-svn-id: svn://10.65.10.50/trunk@5089 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-08-21 09:52:53 +00:00
parent badef196fa
commit fe58938d2b

View File

@ -910,7 +910,7 @@ void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & st
if (nparms > 1)
ndec = (int) stack.pop_real().integer();
if (nparms > 0)
spese = !stack.pop_real().is_zero();
spese = !stack.peek_real().is_zero();
else
stack.push(ZERO);
real & val = stack.peek_real();
@ -925,7 +925,7 @@ void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & st
if (nparms > 1)
ndec = (int) stack.pop_real().integer();
if (nparms > 0)
spese = !stack.pop_real().is_zero();
spese = !stack.peek_real().is_zero();
else
stack.push(ZERO);
real & val = stack.peek_real();