From 4224157a7d20ddc8f77b8ba8fb71d1aea8587040 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 28 Dec 2024 07:09:55 -0700 Subject: [PATCH] =?UTF-8?q?--estatus=20enviaod=20tambien=20por=20par=C3=A1?= =?UTF-8?q?metro.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/PopUpBuscarReq.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb index b547f75b3..331f62b03 100644 --- a/OC/PopUpBuscarReq.aspx.vb +++ b/OC/PopUpBuscarReq.aspx.vb @@ -143,13 +143,14 @@ Partial Class OC_PopUpBuscarReq ViewState("CveProveedor") = DdlProveedorMultiple.SelectedValue tCveProveedor = DdlProveedorMultiple.SelectedValue.ToEntero End If + Dim CveEstatus As Integer = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatus", "Tipo = 'OC' and TipoTermino = 3").ToEntero 'Cargar Datos Dim ObjOC As New ClsOC - ObjOC.GetOrdenesCompraVinculacion("OC", -1, -1, -1, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, UsuarioActual.CveEmpresa) + ObjOC.GetOrdenesCompraVinculacion("OC", -1, -1, CveEstatus, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, UsuarioActual.CveEmpresa) Dim DtOC As Data.DataTable = ObjOC.DtResultados ObjOC.Dispose() - If DtOC.Rows.Count > 0 Then ' tipotermino, esattus inicial + If DtOC.Rows.Count > 0 Then ' tipotermino, estatus inicial BtnVincularOC.Visible = True End If