diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 7d260f7a6..03a37d2fa 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -2751,7 +2751,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function ComprasPendientesAlmacenGet(CveProveedor As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean
+    Public Function ComprasPendientesAlmacenGet(CveProveedor As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ComprasPendientesAlmacenGet")
@@ -2759,6 +2759,7 @@ Public Class ClsInventarios
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With