Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fallo en el calculo de iva y re cuando se aplica un descuento en la factura

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@249 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-06-23 11:40:05 +00:00
parent 1fc4ab84be
commit 40e374cfeb
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -168,14 +168,14 @@ procedure TBizFacturaCliente.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); IMPORTE_IVA := (IVA / 100) * BASE_IMPONIBLE;
end; end;
procedure TBizFacturaCliente.CalcularRE; procedure TBizFacturaCliente.CalcularRE;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_RE := (RE / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
end; end;
constructor TBizFacturaCliente.Create(aDataTable: TDADataTable); constructor TBizFacturaCliente.Create(aDataTable: TDADataTable);

4
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -162,14 +162,14 @@ procedure TBizFacturaProveedor.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); IMPORTE_IVA := (IVA / 100) * BASE_IMPONIBLE;
end; end;
procedure TBizFacturaProveedor.CalcularRE; procedure TBizFacturaProveedor.CalcularRE;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_RE := (RE / 100) * (BASE_IMPONIBLE - IMPORTE_DESCUENTO); IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
end; end;
constructor TBizFacturaProveedor.Create(aDataTable: TDADataTable); constructor TBizFacturaProveedor.Create(aDataTable: TDADataTable);