diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
index 5fef610f..b3ab6660 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas	
@@ -100,7 +100,7 @@ begin
   if not Self.DataTable.Editing then
     Edit;
   IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
-  BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
+  BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; // + IMPORTE_PORTE; OJO YA SE AŅADE EL PORTE A NIVEL DE ARTICULO
 end;
 
 procedure TBizPedidoProveedor.CalcularImporteTotal;