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

AF/AF.aspx.vb

@@ -376,7 +376,7 @@ 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")
@@ -397,6 +397,7 @@ Partial Class AF_AF
                 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
+                CargaCombos()
                 ViewState("CveActivoFijo") = -1
 
 

AF/CatAF.aspx

@@ -205,10 +205,26 @@
                     </div>
                 </div>
             </div>
+            <div class="row ">
+                <div class="col-lg-6">
+                    <div>
+                        <asp:UpdatePanel ID="UpTotalRegistros" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                Encontrados:<b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>                            
+                     </div>
+                </div>
+                <div class="col-lg-6">
                     <div class="" align="right">
                         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
+                </div>
+
+            </div>
+
+            
             <div class="">
                 <asp:GridView ID="GvCaracteristicas" runat="server" GridLines="None" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion,CveCaracteristica,TipoCampo,Requerida" ShowHeaderWhenEmpty="true" CssClass="table table-hover table-advance Widthall ScrollAD">
                     <Columns>
@@ -251,9 +267,7 @@
 
     <asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div>
-                Encontrados:<b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
-            </div>
+            
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None"
                 DataKeyNames="RutaUltimaImagen"
                 >

AF/CatAF.aspx.vb

@@ -56,7 +56,7 @@ Partial Class AF_CatAF
             CargaCaracteristicas()
 
             If UsuarioActual.CveEmpresa = 13 Then
-                ChkUltimaImagen.Checked = True
+                'ChkUltimaImagen.Checked = True
                 ChkMarcaActivoFijo.Checked = True
                 ChkModeloActivoFijo.Checked = True
                 ChkNoSerie.Checked = True
@@ -328,6 +328,7 @@ Partial Class AF_CatAF
         End If
 
         UpGV.Update()
+        UpTotalRegistros.Update()
         OrdenaDatos()
     End Sub
 
@@ -557,10 +558,22 @@ Partial Class AF_CatAF
             If Archivo.Exists Then
                 Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc"
 
-                If Not DtActivosFijos.Columns.Contains("UltimaImagen") Then
-                    'DTAFCaracteristicas.
+                If Not DtActivosFijos.Columns.Contains("UltimaImagenByte") Then
+                    DtActivosFijos.Columns.Add("UltimaImagenByte", GetType(Byte()))
                 End If
 
+                For Each dRow As DataRow In DtActivosFijos.Rows
+                    Dim RutaUltimaImagen As String = dRow("RutaUltimaImagen").ToString()
+                    Dim bytes As Byte() = Nothing
+                    If RutaUltimaImagen.Length > 0 Then
+                        Dim rutaArchivo As System.IO.FileInfo = New IO.FileInfo($"{UsuarioActual.Empresa.Ruta}\{RutaUltimaImagen}")
+                        If rutaArchivo.Exists Then
+                            bytes = System.IO.File.ReadAllBytes(rutaArchivo.FullName)
+                        End If
+                    End If
+                    dRow("UltimaImagenByte") = bytes
+                Next
+
             Else
                 Ruta = "Empresas/Grales/Formatos/CatAF.rdlc"
             End If
@@ -689,7 +702,7 @@ Partial Class AF_CatAF
             ChkUltimaImagen.Checked = False
 
             If UsuarioActual.CveEmpresa = 13 Then
-                ChkUltimaImagen.Checked = True
+                'ChkUltimaImagen.Checked = True
                 ChkMarcaActivoFijo.Checked = True
                 ChkModeloActivoFijo.Checked = True
                 ChkNoSerie.Checked = True

Transportes/RepContratosCalendario.aspx.vb

@@ -677,12 +677,13 @@ Partial Class RepContratosCalendario
 
         If TieneError Then
             ObjContratos.RollBack()
-            Alert("Se presento un error al Actualizar el contrato.")
+            Alert("Se Presento un Error al Actualizar el Contrato.", TipoMensaje.MsgError)
         Else
             ObjContratos.Commit()
             RegistraScript("$('#ModalActualizar').modal('hide');")
             Alert("Contrato Actualizado Correctamente.")
         End If
+
         ObjContratos.Dispose()
         objGenerales.Dispose()
         ObjVentas.Dispose()