From 22ec9d4d4d9bc407e43cf6a84f6e202bec795556 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 29 May 2025 12:32:43 -0700 Subject: [PATCH] AF EMD Quitar estatus 3 Asignado / En proyecto, si el af lo tien cargar el esattus en el ddl --- AF/AF.aspx.vb | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 32714e22c..9b6ce58b5 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -741,9 +741,17 @@ Partial Class AF_AF ' DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual) ' DdlProyecto.DataBind() 'End Sub - Private Sub CargaEstatusActivoFijo() - DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo + Private Sub CargaEstatusActivoFijo() + + If UsuarioActual.CveEmpresa = 13 Then + DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo.FiltraParametros(" CveEstadoActivoFijo <> 3 ") + Else + DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo + End If + + DdlEstadoActivoFijo.DataBind() + End Sub 'Private Sub CargaCliente() ' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) @@ -1035,7 +1043,16 @@ Partial Class AF_AF CargarHistorial() CargaCaracteristicas() + If UsuarioActual.CveEmpresa = 13 AndAlso ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero = 3 Then + Dim existeItem As Boolean = DdlEstadoActivoFijo.Items.FindByValue("3") IsNot Nothing + If Not existeItem Then + Dim nuevoItem As New ListItem("Asignado / En proyecto", "3") + DdlEstadoActivoFijo.Items.Add(nuevoItem) + End If + End If + DdlEstadoActivoFijo.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString + DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString CargaSubProyecto()