From 56a1d7bee08b90d8790049aa18b80d0088bc8597 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 21 May 2024 15:38:23 -0700 Subject: [PATCH] =?UTF-8?q?EMD=20-=20Agregar=20Clasificaci=C3=B3n=20a=20un?= =?UTF-8?q?=20presupuesto,=20ajuste=20clasificaci=C3=B3n=20activa?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contratos/ModificarPresupuesto.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contratos/ModificarPresupuesto.aspx.vb b/Contratos/ModificarPresupuesto.aspx.vb index 7eba861ad..f26d46780 100644 --- a/Contratos/ModificarPresupuesto.aspx.vb +++ b/Contratos/ModificarPresupuesto.aspx.vb @@ -319,7 +319,7 @@ Partial Class Contratos_ModificarPresupuesto Private Sub CargaAccionesDdlclasificaciones() Dim dtClasificaciones As DataTable = Me.DtClasificaciones.Copy - Dim globalDtClasificacionesn As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Tipo = 1").Copy + Dim globalDtClasificacionesn As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Tipo = 1 AND Estado = 1 ").Copy Dim filteredRecords = From globalRow In globalDtClasificacionesn.AsEnumerable()