Correcion Rep Contatos Calendario, CatAF ajuestes, AF esatatus duplciados en ddl, cat AFG impresion con imagen

AF/AF.aspx.vb

@@ -376,8 +376,8 @@ Partial Class AF_AF
 
             InicializaValores()
 
-            CargaCombos()
-
+
+
             If Request("CveActivoFijo") IsNot Nothing AndAlso IsNumeric(Request("CveActivoFijo")) AndAlso Request("CveActivoFijo").ToEntero > 0 Then
                 ViewState("CveActivoFijo") = Request("CveActivoFijo")
                 CargaDatos()
@@ -396,7 +396,8 @@ Partial Class AF_AF
                 HlEvento.Visible = True
                 HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;")
                 LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveActivoFijo:{0}}});""> <i class=""fa fa-plus""></i> Tarea</a>", CveActivoFijo)
-            Else
+            Else
+                CargaCombos()
                 ViewState("CveActivoFijo") = -1