diff --git a/App_Code/ClsOP.vb b/App_Code/ClsOP.vb
index 87bcf4845..16b22fa7b 100644
--- a/App_Code/ClsOP.vb
+++ b/App_Code/ClsOP.vb
@@ -357,6 +357,32 @@ Public Class ClsOP
 
 #End Region
 
+
+#Region "O R D E N E S  D E  P R O D U C C I O N"
+    Public Function GetReportesOP(CveOP As Integer, CveCliente As Integer, CveSubProyecto As Integer, CvePS As Integer, CveEstatus As Integer, Asignado As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_OP_OrdendeProduccionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOP", SqlDbType.Int).Value = CveOP
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@Asignado", SqlDbType.Int).Value = Asignado
+            .Add("@FechaI", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaF", SqlDbType.Date).Value = FechaFin
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+#End Region
 #Region "IDisposable Support"
     ' IDisposable
     Protected Overridable Sub Dispose(disposing As Boolean)