AF EMD Quitar estatus 3 Asignado / En proyecto, si el af lo tien cargar el esattus en el ddl

AF/AF.aspx.vb

@@ -741,9 +741,17 @@ Partial Class AF_AF
     '    DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
     '    DdlProyecto.DataBind()
     'End Sub
-    Private Sub CargaEstatusActivoFijo()
+    Private Sub CargaEstatusActivoFijo()
-        DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
+
+        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()