diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
index 73ab73e3..38e12124 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; ya no se tiene en cuenta porque se desglosa por artículo
 end;
 
 procedure TBizPedidoProveedor.CalcularImporteTotal;