Compra B-11648 error en total almacen contra prepoliza,GDiaz - 2024.08.09

AF/CatAF.aspx

@@ -54,6 +54,10 @@
                     <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel
                 </asp:LinkButton>
             </li>
+             <li>
+                 
+                 <asp:LinkButton ID="LnkPersonalizar" OnClick="LnkPersonalizar_Click" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
+             </li>
 
         </ContentTemplate>
         <Triggers>
@@ -160,7 +164,7 @@
                         <asp:TemplateField ItemStyle-Width="132px">
                             <ItemStyle BorderStyle="None" />
                             <ItemTemplate>
-                                <asp:Label ID="LtlCaracteristica" runat="server" Text='<%# Eval("Caracteristica","{0}:")%>' Width="65"></asp:Label>
+                                <asp:Label ID="LtlCaracteristica" runat="server" Text='<%# Eval("Caracteristica", "{0}:")%>' Width="65"></asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:TemplateField>
@@ -190,86 +194,311 @@
                     </Columns>
                 </asp:GridView>
             </div>
-            <div>
+            
-                <td>Encontrados:</td>
-                <td><b>
-                    <asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></td>
-            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 
     <asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-smallpadding Widthall" GridLines="None">
+            <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">
                 <Columns>
-                    <asp:TemplateField HeaderText="Código">
+
+                    <%-- 0 --%>
+                    <asp:TemplateField HeaderText="Código" >
                         <ItemStyle Width="70px" />
                         <ItemTemplate>
                             <asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Descripción">                      
+
+                    <%-- 1 --%>
+                    <asp:TemplateField HeaderText="Descripción">
                         <ItemTemplate>
-                            <%--<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>--%>
                             <asp:HyperLink ID="HplDescripcion" runat="server" Text='<%# Eval("Descripcion") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 2 --%>
                     <asp:TemplateField HeaderText="Tipo Act. Fijo">
                         <ItemStyle Width="125px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 3 --%>
                     <asp:TemplateField HeaderText="Sub Tipo Act. Fijo">
                         <ItemStyle Width="125px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 4 --%>
                     <asp:TemplateField HeaderText="Responsable">
                         <ItemStyle Width="125px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 5 --%>
                     <asp:TemplateField HeaderText="No. Serie">
                         <ItemStyle Width="50px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlNoSerie" runat="server" Text='<%# Eval("NoSerie")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 6 --%>
                     <asp:TemplateField HeaderText="Año" ItemStyle-HorizontalAlign="Right">
                         <ItemStyle Width="50px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlAño" runat="server" Text='<%# Eval("Año")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 7 --%>
                     <asp:TemplateField HeaderText="SubProyecto">
                         <ItemStyle Width="110px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 8 --%>
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
                         <ItemStyle Width="50px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlEstadoActivoFijo" runat="server" Text='<%# Eval("EstadoActivoFijo")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <%-- 9 --%>
                     <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
                         <ItemStyle Width="75px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField> 
+                    </asp:TemplateField>
+
+
+                    <%-- 10 --%>
+                    <asp:TemplateField HeaderText="Grupo">
+                        <ItemStyle Width="75px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("Grupo")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 11 --%>
+                    <asp:TemplateField HeaderText="Marca">
+                        <ItemStyle Width="100px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMarcaActivoFijo" runat="server" Text='<%# Eval("MarcaActivoFijo")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 12 --%>
+                    <asp:TemplateField HeaderText="Modelo">
+                        <ItemStyle Width="100px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlModeloActivoFijo" runat="server" Text='<%# Eval("ModeloActivoFijo")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 13 --%>
+                    <asp:TemplateField HeaderText="Nombre Cuenta">
+                        <ItemStyle Width="100px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlNombreCuenta" runat="server" Text='<%# Eval("NombreCuenta")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 14 --%>
+                    <asp:TemplateField HeaderText="Valor Compra" ItemStyle-HorizontalAlign="Right">
+                        <ItemStyle Width="75px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlValorCompra" runat="server" Text='<%# Eval("ValorCompra", "{0:C}")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 15 --%>
+                    <asp:TemplateField HeaderText="Fecha Compra" ItemStyle-HorizontalAlign="Center">
+                        <ItemStyle Width="75px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaCompra" runat="server" Text='<%# Eval("FechaCompra", "{0:d}")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 16 --%>
+                    <asp:TemplateField HeaderText="Fecha Baja" ItemStyle-HorizontalAlign="Center">
+                        <ItemStyle Width="75px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaBaja" runat="server" Text='<%# Eval("FechaBaja", "{0:d}")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 17 --%>
+                    <asp:TemplateField HeaderText="Proyecto">
+                        <ItemStyle Width="110px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlProyecto" runat="server" Text='<%# Eval("Proyecto")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 18 --%>
+                    <asp:TemplateField HeaderText="Nombre Cliente">
+                        <ItemStyle Width="125px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlNombreCliente" runat="server" Text='<%# Eval("NombreCliente")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <%-- 19 --%>
+                    <asp:TemplateField HeaderText="Observaciones">
+                        <ItemStyle Width="150px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
                 </Columns>
             </asp:GridView>
+
         </ContentTemplate>
     </asp:UpdatePanel>
+
+
+       <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+       <ContentTemplate>
+           <div id="DivPersonalizar" class="modal fade" role="dialog">
+               <div class="modal-dialog">
+
+                   <!-- Modal content SucursalCobranza-->
+                   <div class="modal-content">
+                       <div class="modal-header">
+                           <button type="button" class="close" data-dismiss="modal">&times;</button>
+                           <h4 class="modal-title">
+                               <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                       </div>
+                       <div class="modal-body">
+                           <table class="table table-striped nobordertop table-advance table-hover">
+                               <tbody>
+                                   <tr>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkCodigo" runat="server" Text="&nbsp;Codigo" Checked="true" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkDescripcion" runat="server" Text="&nbsp;Descripcion"  Checked="true" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkTipoActivoFijo" runat="server" Text="&nbsp;Tipo Activo Fijo" Checked="true"  /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkSubTIpoActivoFijo" runat="server" Text="&nbsp;Sub Tipo Activo Fijo" Checked="true"  /></td>
+                                   </tr>
+                                   <tr>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkResponsable" runat="server" Text="&nbsp;Responsable" Checked="true"  /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkNoSerie" runat="server" Text="&nbsp;No Serie" Checked="true"  /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkAño" runat="server" Text="&nbsp;Año" Checked="true"  /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkSubProyecto" runat="server" Text="&nbsp;Sub Proyecto" Checked="true"  /></td>
+                                   </tr>
+                                   <tr>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkEstadoActivoFijo" runat="server" Text="&nbsp;Estado Activo Fijo" Checked="true"  /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkFechaIng" runat="server" Text="&nbsp;Fecha Ing" Checked="true"  /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkGrupo" runat="server" Text="&nbsp;Grupo" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkMarcaActivoFijo" runat="server" Text="&nbsp;Marca Activo Fijo" /></td>
+                                   </tr>
+                                   <tr>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkModeloActivoFijo" runat="server" Text="&nbsp;Modelo Activo Fijo" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkNombreCuenta" runat="server" Text="&nbsp;Nombre Cuenta" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkValorCompra" runat="server" Text="&nbsp;Valor Compra" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkFechaCompra" runat="server" Text="&nbsp;Fecha Compra" /></td>
+                                   </tr>
+                                   <tr>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkFechaBaja" runat="server" Text="&nbsp;Fecha Baja" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="CheckBox1" runat="server" Text="&nbsp;No Serie" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="CheckBox2" runat="server" Text="&nbsp;Estado Activo Fijo" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="CheckBox3" runat="server" Text="&nbsp;Responsable" /></td>
+                                   </tr>
+                                   <tr>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkProyecto" runat="server" Text="&nbsp;Proyecto" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="CheckBox4" runat="server" Text="&nbsp;Sub Proyecto" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkNombreCliente" runat="server" Text="&nbsp;Nombre Cliente" /></td>
+                                       <td style="text-align: left;">
+                                           <asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;Observaciones" /></td>
+                                   </tr>
+
+
+
+
+
+
+
+
+                               </tbody>
+                           </table>
+
+
+                       </div>
+                       <div class="modal-footer">
+                           <div class="row">
+                               <div class="col-md-6" style="text-align: left">
+                                   <asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
+                               </div>
+                               <div class="col-md-6">
+                                   <%--<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>--%>
+                                   <asp:Button ID="BtnPersonalizar"  ClientIDMode="Static" CssClass="btn btn-success" runat="server" Text="Personalizar" class="btn btn-success" OnClick="BtnPersonalizar_Click"  />
+                                   <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                               </div>
+                           </div>
+
+                       </div>
+                   </div>
+
+               </div>
+           </div>
+       </ContentTemplate>
+   </asp:UpdatePanel>
+
+
+<%--   <asp:UpdatePanel runat="server">
+       <ContentTemplate>
+           
+       </ContentTemplate>
+   </asp:UpdatePanel>--%>
+
+
+
+
+
+
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 
-    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+ <%--   <script src="/Metronic/assets/global/scripts/datatable.js"></script>
     <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
     <script type="text/javascript">
         var OrdenarGV = function () {
@@ -282,5 +511,5 @@
             $('#C_GvDatos').parent().parent().children().first().css("position", "static");
         }
 
-    </script>
+    </script>--%>
 </asp:Content>

AF/CatAF.aspx.vb

@@ -32,6 +32,19 @@ Partial Class AF_CatAF
             ViewState("DTAFCaracteristicas") = value
         End Set
     End Property
+
+    Private Property DtDatos As DataTable
+        Get
+            If ViewState("DtDatos") Is Nothing Then
+                ViewState("DtDatos") = New DataTable
+            End If
+            Return DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -46,6 +59,9 @@ Partial Class AF_CatAF
                 CargaDatos()
             End If
 
+            CargaPersonalizacion()
+
+
         End If
     End Sub
 
@@ -278,7 +294,7 @@ Partial Class AF_CatAF
         GvDatos.DataSource = DtActivosFijos
         GvDatos.DataBind()
 
-        'LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0)
+        LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0)
 
         UpGV.Update()
         OrdenaDatos()
@@ -492,5 +508,251 @@ Partial Class AF_CatAF
 #End Region
 
 
+#Region " P E R S O N A L I Z A R   C O L U M N A S "
 
+    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
+
+        ChkGuardarPersonalizacion.Checked = False
+        RegistraScript("$('#DivPersonalizar').modal('show')")
+
+    End Sub
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+
+        If ChkGuardarPersonalizacion.Checked Then
+            GuardaPersonalizacion()
+        End If
+
+        Personaliza()
+        CargaGvDatos()
+        UpGV.Update()
+
+    End Sub
+
+
+
+    Private Sub GuardaPersonalizacion()
+
+        Dim objUsuario As New ClsSisUsuarios
+        Dim ListPersonalizada As New List(Of String)
+
+        If ChkCodigo.Checked Then ListPersonalizada.Add("Codigo")
+
+        If ChkDescripcion.Checked Then ListPersonalizada.Add("Descripcion")
+
+        If ChkTipoActivoFijo.Checked Then ListPersonalizada.Add("TipoActivoFijo")
+
+        If ChkSubTIpoActivoFijo.Checked Then ListPersonalizada.Add("SubTIpoActivoFijo")
+
+        If ChkResponsable.Checked Then ListPersonalizada.Add("Responsable")
+
+        If ChkNoSerie.Checked Then ListPersonalizada.Add("NoSerie")
+
+        If ChkAño.Checked Then ListPersonalizada.Add("Año")
+
+        If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto")
+
+        If ChkEstadoActivoFijo.Checked Then ListPersonalizada.Add("EstadoActivoFijo")
+
+        If ChkFechaIng.Checked Then ListPersonalizada.Add("FechaIng")
+
+        If ChkGrupo.Checked Then ListPersonalizada.Add("Grupo")
+
+        If ChkMarcaActivoFijo.Checked Then ListPersonalizada.Add("MarcaActivoFijo")
+
+        If ChkModeloActivoFijo.Checked Then ListPersonalizada.Add("ModeloActivoFijo")
+
+        If ChkNombreCuenta.Checked Then ListPersonalizada.Add("NombreCuenta")
+
+        If ChkValorCompra.Checked Then ListPersonalizada.Add("ValorCompra")
+
+        If ChkFechaCompra.Checked Then ListPersonalizada.Add("FechaCompra")
+
+        If ChkFechaBaja.Checked Then ListPersonalizada.Add("FechaBaja")
+
+        If ChkProyecto.Checked Then ListPersonalizada.Add("Proyecto")
+
+        'If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto")
+
+        If ChkNombreCliente.Checked Then ListPersonalizada.Add("NombreCliente")
+
+        If ChkObservaciones.Checked Then ListPersonalizada.Add("Observaciones")
+
+
+        If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatAF.aspx", String.Join("|", ListPersonalizada)) Then
+            'Alert("Personalizacion guardada")
+        End If
+
+        objUsuario.Dispose()
+
+    End Sub
+
+
+    Private Sub CargaPersonalizacion()
+
+        Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatAF.aspx")
+
+        If strBasePersonalizacion.Trim.Length > 0 Then
+
+            ChkCodigo.Checked = False
+            ChkDescripcion.Checked = False
+            ChkTipoActivoFijo.Checked = False
+            ChkSubTIpoActivoFijo.Checked = False
+            ChkResponsable.Checked = False
+            ChkNoSerie.Checked = False
+            ChkAño.Checked = False
+            ChkSubProyecto.Checked = False
+            ChkEstadoActivoFijo.Checked = False
+            ChkFechaIng.Checked = False
+            ChkGrupo.Checked = False
+            ChkMarcaActivoFijo.Checked = False
+            ChkModeloActivoFijo.Checked = False
+            ChkNombreCuenta.Checked = False
+            ChkValorCompra.Checked = False
+            ChkFechaCompra.Checked = False
+            ChkFechaBaja.Checked = False
+            'ChkNoSerie.Checked = False
+            'ChkEstadoActivoFijo.Checked = False
+            'ChkResponsable.Checked = False
+            ChkProyecto.Checked = False
+            'ChkSubProyecto.Checked = False
+            ChkNombreCliente.Checked = False
+            ChkObservaciones.Checked = False
+
+            Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
+
+            For Each personalizacion As String In Personalizaciones
+                Select Case personalizacion
+                    Case "Codigo"
+                        ChkCodigo.Checked = True
+                        Exit Select
+                    Case "Descripcion"
+                        ChkDescripcion.Checked = True
+                        Exit Select
+                    Case "TipoActivoFijo"
+                        ChkTipoActivoFijo.Checked = True
+                        Exit Select
+                    Case "SubTIpoActivoFijo"
+                        ChkSubTIpoActivoFijo.Checked = True
+                        Exit Select
+                    Case "Responsable"
+                        ChkResponsable.Checked = True
+                        Exit Select
+                    Case "NoSerie"
+                        ChkNoSerie.Checked = True
+                        Exit Select
+                    Case "Año"
+                        ChkAño.Checked = True
+                        Exit Select
+                    Case "SubProyecto"
+                        ChkSubProyecto.Checked = True
+                        Exit Select
+                    Case "EstadoActivoFijo"
+                        ChkEstadoActivoFijo.Checked = True
+                        Exit Select
+                    Case "FechaIng"
+                        ChkFechaIng.Checked = True
+                        Exit Select
+                    Case "Grupo"
+                        ChkGrupo.Checked = True
+                        Exit Select
+                    Case "MarcaActivoFijo"
+                        ChkMarcaActivoFijo.Checked = True
+                        Exit Select
+                    Case "ModeloActivoFijo"
+                        ChkModeloActivoFijo.Checked = True
+                        Exit Select
+                    Case "NombreCuenta"
+                        ChkNombreCuenta.Checked = True
+                        Exit Select
+                    Case "ValorCompra"
+                        ChkValorCompra.Checked = True
+                        Exit Select
+                    Case "FechaCompra"
+                        ChkFechaCompra.Checked = True
+                        Exit Select
+                    Case "FechaBaja"
+                        ChkFechaBaja.Checked = True
+                        Exit Select
+                    Case "Proyecto"
+                        ChkProyecto.Checked = True
+                        Exit Select
+                    Case "NombreCliente"
+                        ChkNombreCliente.Checked = True
+                        Exit Select
+                    Case "Observaciones"
+                        ChkObservaciones.Checked = True
+                        Exit Select
+                    Case Else
+                        Exit Select
+                End Select
+            Next
+
+        Else
+            PersonalizaDefault()
+        End If
+
+        Personaliza()
+
+        UPPersonalizar.Update()
+
+    End Sub
+
+
+    Private Sub PersonalizaDefault()
+
+        ChkCodigo.Checked = True
+        ChkDescripcion.Checked = True
+        ChkTipoActivoFijo.Checked = True
+        ChkSubTIpoActivoFijo.Checked = True
+        ChkResponsable.Checked = True
+        ChkNoSerie.Checked = True
+        ChkAño.Checked = True
+        ChkSubProyecto.Checked = True
+        ChkEstadoActivoFijo.Checked = True
+        ChkFechaIng.Checked = True
+
+    End Sub
+
+
+    Private Sub Personaliza()
+
+        GvDatos.Columns(0).Visible = ChkCodigo.Checked
+        GvDatos.Columns(1).Visible = ChkDescripcion.Checked
+        GvDatos.Columns(2).Visible = ChkTipoActivoFijo.Checked
+        GvDatos.Columns(3).Visible = ChkSubTIpoActivoFijo.Checked
+        GvDatos.Columns(4).Visible = ChkResponsable.Checked
+        GvDatos.Columns(5).Visible = ChkNoSerie.Checked
+        GvDatos.Columns(6).Visible = ChkAño.Checked
+        GvDatos.Columns(7).Visible = ChkSubProyecto.Checked
+        GvDatos.Columns(8).Visible = ChkEstadoActivoFijo.Checked
+        GvDatos.Columns(9).Visible = ChkFechaIng.Checked
+
+        GvDatos.Columns(10).Visible = ChkGrupo.Checked
+        GvDatos.Columns(11).Visible = ChkMarcaActivoFijo.Checked
+        GvDatos.Columns(12).Visible = ChkModeloActivoFijo.Checked
+        GvDatos.Columns(13).Visible = ChkNombreCuenta.Checked
+        GvDatos.Columns(14).Visible = ChkValorCompra.Checked
+        GvDatos.Columns(15).Visible = ChkFechaCompra.Checked
+        GvDatos.Columns(16).Visible = ChkFechaBaja.Checked
+        'GvDatos.Columns(17).Visible = ChkNoSerie.Checked
+        'GvDatos.Columns(18).Visible = ChkEstadoActivoFijo.Checked
+        'GvDatos.Columns(19).Visible = ChkResponsable.Checked
+        GvDatos.Columns(17).Visible = ChkProyecto.Checked
+        'GvDatos.Columns(18).Visible = ChkSubProyecto.Checked
+        GvDatos.Columns(18).Visible = ChkNombreCliente.Checked
+        GvDatos.Columns(19).Visible = ChkObservaciones.Checked
+
+
+
+        'Personalizo = 1
+        'If Personalizo = 1 Then
+        '    ImgExcelPersonalizado.Visible = True
+        'Else
+        '    ImgExcelPersonalizado.Visible = False
+        'End If
+
+    End Sub
+
+#End Region
 End Class

App_Code/ClsGenerales.vb

@@ -2617,18 +2617,18 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
+
-
+
 #End Region
-
+
 #Region "Bitacora"
     Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer,
                                          CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer,
                                          CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
                                          Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1,
                                          Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1,
-                                         Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean
+                                         Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha, Optional CveContrato As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraGet")
 
@@ -2648,6 +2648,7 @@ Public Class ClsGenerales
             .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
             .Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina
             .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
 
 
             .Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia
@@ -2698,7 +2699,7 @@ Public Class ClsGenerales
                                          CveIE As Integer, Actual As String, Anterior As String, CveUsuario As Integer,
                                          CveEmpresa As Integer, SeElimino As Integer, Descripcion As String, Tipo As String,
                                          Id_Clave As String, Optional IdPoliza As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveUsuarioTabla As Integer = -1,
-                                         Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01") As Boolean
+                                         Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01", Optional CveContrato As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraAdd")
 
@@ -2725,6 +2726,7 @@ Public Class ClsGenerales
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@Motivo", SqlDbType.VarChar).Value = Motivo
             .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
 
 
         End With

Ashx/CargaEventos.ashx

@@ -554,7 +554,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         Dim cevent As CalendarEvent = New CalendarEvent()
 
                         cevent.id = dr("CveContrato").ToString.ToEntero
-                        cevent.title = dr("DescripcionContrato").ToString
+                        cevent.title = If(dr("CodigoAF").ToString.Trim.Length > 0, $"#{dr("CodigoAF").ToString}-{dr("DescripcionContrato").ToString}", $"-{dr("DescripcionContrato").ToString}")
                         cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
                         cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime))
                         cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)

Compras/Compras.aspx.vb

@@ -6423,10 +6423,21 @@ Partial Class Compras_Compras
                                                                                 Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, NowADS(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
 
                                                                                 If CvePrePoliza2Almacen > 0 Then
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
+
+                                                                                    Dim ImpPrepoliza As Decimal = 0D
+                                                                                    Dim ImpPrepolizaMN As Decimal = 0D
+
+                                                                                    For Each gvRowInv As GridViewRow In GvInv.Rows
+                                                                                        Dim gvCantidad As Decimal = gvRowInv.FCTextBox("TbCantidad").Text.ToDecimal
+                                                                                        Dim gvPU As Decimal = gvRowInv.DataKey("PU").ToDecimal
+                                                                                        ImpPrepoliza = ImpPrepoliza + (gvCantidad * gvPU)
+                                                                                    Next
+                                                                                    ImpPrepolizaMN = ImpPrepoliza * tipoCambioActual * Multiplicador
+
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
                                                                                         ErrorPrepoliza = True
                                                                                     End If
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
                                                                                         ErrorPrepoliza = True
                                                                                     End If
                                                                                 Else

Contratos/RepPresupuestosDetalle.aspx.vb

@@ -82,7 +82,9 @@ Partial Class Contratos_RepPresupuestosDetalle
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
         If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
+                                            GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1),
+                                            GlobalDTSubProyectos(UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, 1))
         End If
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.DataBind()
@@ -94,19 +96,21 @@ Partial Class Contratos_RepPresupuestosDetalle
         Dim CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero
         Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
         Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -1).ToString.ToEntero
-        Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero
+        Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero
+
         Gpo = IfNull(Request("CveAgrupador"), -1).ToString.ToEntero
+
         Dim Mensual = CBool(IfNull(Request("Mensual"), False))
         Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False))
         'If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
         DdlAgrupador.SelectedValueExist(Agrupador)
         DdlClasificacion.SelectedValueExist(CveClasificacion)
 
-        If DdlAgrupador.SelectedValue.ToEntero = 1 Then
+        If DdlAgrupador.SelectedValue.ToEntero = 1 Then 'Clasificación
             DdlClasificacion.SelectedValueExist(Gpo)
             DdlProyecto.SelectedValueExist(CveProyecto)
             DdlSubProyecto.SelectedValueExist(CveSubProyecto)
-        ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then
+        ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then ' Centro costo
             If Not EsProyecto Then
                 Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
                 DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
@@ -121,6 +125,10 @@ Partial Class Contratos_RepPresupuestosDetalle
         TxtFiltrosFechaInicio.Text = FechaInicio
         TxtFiltrosFechaFin.Text = FechaFin
         ChkMensual.Checked = Mensual
+
+        If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
+        DdlAgrupador.SelectedValueExist(Agrupador)
+
     End Sub
 #End Region
 

Inventarios/TrasladoSolicitud.aspx

@@ -89,6 +89,8 @@
                             <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
                             <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" />
                             <asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" ItemStyle-Width="200px" />
+                            <asp:BoundField DataField="Observaciones" HeaderText="Observaciones"   />
+                            
                             <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" />
                             <asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
 
@@ -163,6 +165,20 @@
                                  <asp:RequiredFieldValidator ID="RfvDdlAlmacenDestino" runat="server" InitialValue="-1" ControlToValidate="DdlAlmacenDestino" CssClass="help-block errorimput" 
                                     ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén Destino''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud"></asp:RequiredFieldValidator>
                             </div>
+                         </div>
+                         <div class="row ">
+
+                             <div class="col-md-12">
+
+                                 <div class="  form-group form-md-line-input input-iconright">
+                                     <asp:TextBox ID="TxtObservaciones" CssClass="form-control marginFixRow" runat="server" MaxLength="255" CausesValidation="true"></asp:TextBox>
+                                        <label for="<%= TxtObservaciones.ClientID.ToString()%>">Observaciones:</label>                                 
+                                 </div>
+                                 
+                             </div>
+
+                             
+
                          </div>
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
                         <div class="row marginRowLeft">
@@ -185,14 +201,7 @@
                         </div>
                          
  
-                     <%--  <div class="row">
+                
-                          <div class="col-md-12" style="text-align:right!important">
-                             
-                              
-
-                          </div>
-                      </div>--%>
-
                         <div class="row">
                             <div class="col-md-12">
 

Inventarios/TrasladoSolicitud.aspx.vb

@@ -323,7 +323,7 @@ Partial Class Inventarios_TrasladoSolicitud
             Estatus = 3
         End If
 
-        Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud("", DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, NowADS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EstatusAlmacen:=EstatusAlmacen)
+        Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.text, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, NowADS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EstatusAlmacen:=EstatusAlmacen)
 
         If Folio > 0 Then
             CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud

Transportes/RepContratoDetalle.aspx

@@ -145,12 +145,12 @@
                                           <label class="col-md-4"> 
                                               <asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
                                           </label>
-                                          <div class="col-md-8">
+                                              <div class="col-md-8">
-                                                   <asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%"  DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList>
+                                                  <asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList>
-       <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
+                                                  <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
-           ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                      ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-       <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                  <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
-</div>
+                                              </div>
                                               <div class="input-group">
                                                    
                                           </div>
@@ -396,9 +396,46 @@
                                         </asp:UpdatePanel>
                                     </div>
                                 </div>
-                            </div>
+                            </div>                            
-
                         </div>
+                         <asp:UpdatePanel ID="UpBitacora" runat="server" UpdateMode="Conditional">
+     <ContentTemplate>
+         <div class="row">
+             <div class="col-md-12">
+                 <div class="portlet light bordered xspadding">
+                     <div class="portlet-title">
+                         <div class="caption">
+                             <i class="icon-pin"></i>
+                             <span class="caption-subject bold uppercase">Historial de Modificación</span>
+                         </div>
+                         <div class="actions">
+                             <div class="btn-group">
+                             </div>
+                         </div>
+                     </div>
+                     <div class="portlet-body">
+                         <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn" CellSpacing="0" AutoGenerateColumns="False">
+                             <Columns>
+                                 <asp:TemplateField>
+                                     <HeaderTemplate>Fecha</HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                 <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
+                                 <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
+                                 <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
+                                 <asp:BoundField DataField="Descripcio  n" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
+                                 <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
+                             </Columns>
+                         </asp:GridView>
+                     </div>
+                 </div>
+             </div>
+         </div>
+     </ContentTemplate>
+ </asp:UpdatePanel>
+
                     </ContentTemplate>
                 </ajax:TabPanel>
                 <%-- Pre init --%>
@@ -593,7 +630,7 @@
                                                     <label class="col-md-4 bold">Observación</label>
                                                     <div class="col-md-8">
                                                         <asp:TextBox CssClass="form-control" runat="server" MaxLength="200"
-                                                            ID="TxtObservacion">Observacion</asp:TextBox>
+                                                            ID="TxtObservacion"></asp:TextBox>
                                                     </div>
                                                 </div>
 

Transportes/RepContratoDetalle.aspx.vb

@@ -113,6 +113,7 @@ Partial Class RepContratoDetalle
             CveViajePasajero = 0
             Session("FileExtension") = ""
             ArchivoUpdate = ""
+            CargaGvBitacora()
 
         End If
     End Sub
@@ -298,7 +299,7 @@ Partial Class RepContratoDetalle
         Try
             If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
                                             DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
-                                            DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then
+                                            DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then
                 Alert("Contrato actualizado correctamente")
             End If
             ObjContratos.Commit()
@@ -606,6 +607,19 @@ Partial Class RepContratoDetalle
     End Sub
 #End Region
 
+#Region "Bitacora historial"
+    Private Sub CargaGvBitacora()
+        ' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
+        If CveContrato > 0 Then
+            Dim ObjGral As New ClsGenerales()
+            If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
+                GvBitacora.DataSource = ObjGral.DtResultados
+            End If
+            ObjGral.Dispose()
+        End If
+        GvBitacora.DataBind()
+    End Sub
+#End Region
 End Class
 
 

Transportes/RepContratosCalendario.aspx

@@ -126,7 +126,7 @@
                                 <label class="col-md-1 ">Tipo de Unidad</label>
                                 <div class="col-md-1">
                                     <asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
-                                        DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall" ClientIDMode="Static"
+                                        DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall" ClientIDMode="Static"                                        
                                         Style="width: 100%;" runat="server">
                                     </asp:DropDownList>
                                 </div>
@@ -441,10 +441,19 @@
                                 <div class="col-md-8">
                                     <asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo"
                                         DataTextField="CodDesc" Class="form-control select2me"
-                                        Width="100%" runat="server">
+                                        Width="100%" runat="server"  AutoPostBack="true" OnSelectedIndexChanged="DdlAF_SelectedIndexChanged" >
                                     </asp:DropDownList>
                                 </div>
                             </div>
+                                
+                             <div  class="row my-1"   runat="server"  id="DVMotivoCambioAF" visible="false">
+                                 <label class="col-md-4">Motivo Cambio:</label>
+                                 <div class="col-md-8">
+                                     <asp:TextBox ID="TxtMotivoCambioUnidad" CssStyle=" form-control" runat="server" MaxLength="2000"  Width="100%" ></asp:TextBox>
+                                     <asp:RequiredFieldValidator ID="RfvTxtMotivoCambioUnidad" runat="server" ControlToValidate="TxtMotivoCambioUnidad"  ErrorMessage="Campo Motivo Cambio requerido." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCERfvTxtMotivoCambioUnidad" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtMotivoCambioUnidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                                 </div>
+                             </div>
 
                             <div class="row my-1">
                                 <label class="col-md-4">Chofer 1</label>
@@ -533,6 +542,7 @@
     <asp:HiddenField runat="server" ID="HidCveVentaRemision" Value="-1" ClientIDMode="Static" />
     <asp:HiddenField runat="server" ID="HidRemisionSaldo" Value="-1" ClientIDMode="Static" />
     <asp:HiddenField runat="server" ID="HidCveAF" Value="-1" ClientIDMode="Static" />
+    <asp:HiddenField runat="server" ID="HidCveAFDes" Value="-1" ClientIDMode="Static" />
 
 </asp:Content>
 
@@ -811,7 +821,13 @@
             $('#HidRemisionSerieFolio').val(event.RemisionSerieFolio);
             $('#HidCveVentaRemision').val(event.CveVentaRemision);
             $('#HidRemisionSaldo').val(event.RemisionSaldo);
-            $('#HidCveAF').val(event.CveActivoFijo);
+
+            if (event.CveActivoFijo > 0) {
+                $('#HidCveAF').val(event.CveActivoFijo);
+            } else {
+                $('#HidCveAF').val('-1');
+            }
+            
             
 
           <%--  $('#HidRemision').text(event.RemisionSerieFolio);            
@@ -978,8 +994,15 @@
                     slotEventOverlap: false, // No permitir la superposición en vistas de agenda
                     eventRender: function (event, element) {
                         element.css({
-                            'margin-bottom': '1px', // Ajusta el valor según sea necesario
+                            'margin-bottom': '1px',
-                            'margin-left': '1px' // Ajusta el valor según sea necesario
+                            'margin-left': '1px',
+                            'white-space': 'normal', // Permitir el ajuste de texto
+                            'height': 'auto', // Ajustar la altura automáticamente
+                            'overflow': 'hidden' // Ocultar cualquier desbordamiento
+                        });
+                        element.find('.fc-title').css({
+                            'white-space': 'normal', // Asegurar que el texto se ajuste
+                            'line-height': '1.2em' // Ajustar la altura de línea para mejor legibilidad
                         });
                     },
                     events: {

Transportes/RepContratosCalendario.aspx.vb

@@ -221,7 +221,7 @@ Partial Class RepContratosCalendario
 
 
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
-
+        Dim TieneError As Boolean = False
         Dim NumChoferes As Integer = If(chkSegundoChofer.Checked, 2, 1)
 
         If NumChoferes = 2 AndAlso DdlChofer2.SelectedValue.ToEntero <= 0 Then
@@ -230,6 +230,7 @@ Partial Class RepContratosCalendario
         End If
 
         Dim ObjContratos As New ClsContratos
+        ObjContratos.IniciaTransacSQL()
 
         Dim DTAgendadados As New DataTable
         If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato) Then
@@ -261,10 +262,30 @@ Partial Class RepContratosCalendario
                                             CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim, NumChoferes:=NumChoferes) Then
             RegistraScript("$('#ModalActualizar').modal('hide');")
             Alert("Actualizado Correctamente.")
+        Else
+            TieneError = True
         End If
 
+
+        If HidCveAF.Value.ToEntero <> DdlAF.SelectedValue.ToEntero Then
+            Dim objGenerales = New ClsGenerales(ObjContratos.IniciaTransacSQL())
+
+            If Not objGenerales.AddHistorialBitacora(465, -1, -1, -1, -1, -1, -1, -1, DdlAF.SelectedItem.Text, HidCveAFDes.Value, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, TxtMotivoCambioUnidad.Text, "", "", CveContrato:=CveContrato) Then
+                TieneError = True
+            End If
+        End If
+
+        If TieneError Then
+            ObjContratos.RollBack()
+        Else
+            ObjContratos.Commit()
+        End If
+
+
+
         ObjContratos.Dispose()
 
+
         UpTitulos.Update()
         CargaDatos()
         InicializaCalendar()
@@ -299,6 +320,15 @@ Partial Class RepContratosCalendario
 
         DdlAF.SelectedValueExist(GvRow.DataKey("CveAF"))
 
+        HidCveAF.Value = "-1"
+        HidCveAFDes.Value = ""
+        If GvRow.DataKey("CveAF").ToEntero > 0 Then
+            HidCveAF.Value = GvRow.DataKey("CveAF").ToString
+            HidCveAFDes.Value = DdlAF.SelectedItem.Text
+        End If
+
+        TxtMotivoCambioUnidad.Text = ""
+        DVMotivoCambioAF.Visible = False
 
 
         HypRemision.Text = GvRow.DataKey("RemisionSerieFolio")
@@ -326,6 +356,9 @@ Partial Class RepContratosCalendario
             HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial")
         End If
 
+        TxtMotivoCambioUnidad.Text = ""
+        DVMotivoCambioAF.Visible = False
+
         DdlClientes.SelectedText = HidModClienteNombre.Value
         DdlClientes.SelectedValue = HidModCveCliente.Value
 
@@ -347,9 +380,10 @@ Partial Class RepContratosCalendario
         End If
 
         CargaAFDdl(HidCveTipoAF.Value.ToEntero)
+
         DdlAF.SelectedValueExist(HidCveAF.Value)
 
-
+        HidCveAFDes.Value = DdlAF.SelectedItem.Text
 
         UpModal.Update()
 
@@ -452,4 +486,16 @@ Partial Class RepContratosCalendario
         CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
     End Sub
 
+
+    Protected Sub DdlAF_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DVMotivoCambioAF.Visible = False
+
+        If HidCveAF.Value.ToEntero > 0 AndAlso DdlAF.SelectedValue.ToEntero <> HidCveAF.Value.ToEntero Then
+            DVMotivoCambioAF.Visible = True
+        End If
+
+        UpModal.Update()
+    End Sub
+
+
 End Class

Ventas/RepVentasDetalle.aspx

@@ -346,7 +346,8 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                 <Columns>
                     <%-- 0--%>
                     <asp:TemplateField HeaderText="Tipo Docto">