From 39067c39bdab73da87255e134c16875c354d5c38 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 30 Sep 2008 09:33:19 +0000 Subject: [PATCH] Se adaptan los detalles para que puedan ser las cantidades decimales git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@632 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Controladores/uControllerDetallesBase.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas index 7b8484ad..2a205325 100644 --- a/Source/Base/Controladores/uControllerDetallesBase.pas +++ b/Source/Base/Controladores/uControllerDetallesBase.pas @@ -143,7 +143,7 @@ end; function TControllerDetallesBase.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; begin with DataTable do - Result := FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat; + Result := FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat; end; function TControllerDetallesBase.CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double;