-- función para obtener el reporte de Ordenes de producción

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)