diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index c4c0b3881..52fd6dc07 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1628,7 +1628,7 @@ Public Class ClsInventarios
 
     End Function
 
-    Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer) As Boolean
+    Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1639,6 +1639,8 @@ Public Class ClsInventarios
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try