From 153c9c3a565215ca167409ab6435b1ef7ee8c743 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 4 Mar 2025 10:16:06 -0700 Subject: [PATCH] =?UTF-8?q?--=20funci=C3=B3n=20para=20obtener=20el=20repor?= =?UTF-8?q?te=20de=20Ordenes=20de=20producci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsOP.vb | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) 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)