Contabilidad: error al calcular si un asiento está descuadrado o no.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@282 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
8540d46daf
commit
155b4f36f6
@ -231,7 +231,7 @@ end;
|
|||||||
|
|
||||||
function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean;
|
function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean;
|
||||||
var
|
var
|
||||||
Descuadre : Double;
|
Descuadre : Currency;
|
||||||
begin
|
begin
|
||||||
if not Assigned(AApunte) then
|
if not Assigned(AApunte) then
|
||||||
raise Exception.Create ('Apuntes no asignados');
|
raise Exception.Create ('Apuntes no asignados');
|
||||||
@ -258,6 +258,7 @@ begin
|
|||||||
Descuadre := Descuadre - AApunte.HABER;
|
Descuadre := Descuadre - AApunte.HABER;
|
||||||
AApunte.DataTable.Next;
|
AApunte.DataTable.Next;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if (Descuadre <> 0) then
|
if (Descuadre <> 0) then
|
||||||
begin
|
begin
|
||||||
AApunte.DataTable.EnableControls;
|
AApunte.DataTable.EnableControls;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user