diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 82ec4bb9e..859f7fd37 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -4677,7 +4677,7 @@ Partial Class Inventarios_EntregaAlmacen
                             Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero()
                             Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal
                             If CveVentaDetalle > 0 Then
-                                If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then
+                                If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad, UsuarioActual.CveUsuario) Then
                                     Respuesta = False
                                     Exit For
                                 End If