From 40e374cfeb5b5b3071677c94dd246fcb5fb10cff Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 23 Jun 2008 11:40:05 +0000 Subject: [PATCH] Fallo en el calculo de iva y re cuando se aplica un descuento en la factura git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@249 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas | 4 ++-- .../Facturas de proveedor/Model/uBizFacturasProveedor.pas | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index f4f2d91a..0e5a2cd1 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -168,14 +168,14 @@ procedure TBizFacturaCliente.CalcularIVA; begin if not Self.DataTable.Editing then Edit; - IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); + IMPORTE_IVA := (IVA / 100) * BASE_IMPONIBLE; end; procedure TBizFacturaCliente.CalcularRE; begin if not Self.DataTable.Editing then Edit; - IMPORTE_RE := (RE / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); + IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; end; constructor TBizFacturaCliente.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index 3e8682d6..e70ccc43 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -162,14 +162,14 @@ procedure TBizFacturaProveedor.CalcularIVA; begin if not Self.DataTable.Editing then Edit; - IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); + IMPORTE_IVA := (IVA / 100) * BASE_IMPONIBLE; end; procedure TBizFacturaProveedor.CalcularRE; begin if not Self.DataTable.Editing then Edit; - IMPORTE_RE := (RE / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); + IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; end; constructor TBizFacturaProveedor.Create(aDataTable: TDADataTable);