Merge branch 'master' of http://192.168.10.111:8383/SIG

2022-12-16 11:13:33 -07:00
parent 64a408bb0f 2a222d8703
commit ba9933b4ed
12 changed files with 222 additions and 66 deletions
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6410,7 +6410,8 @@ Public Class ClsPaginas
            Else
                Response.ContentType = mimeType
            End If
-            Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
+            Response.ClearHeaders()
+            Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
            Response.BinaryWrite(bytes) ' create the file
            Response.Flush() ' send it to the client to download
            bytes = Nothing
--- a/CRM/CatTipoProceso.aspx
+++ b/CRM/CatTipoProceso.aspx
@@ -74,7 +74,7 @@
                        </ItemTemplate>
                    </asp:TemplateField>

-                       <asp:TemplateField HeaderText="Encuesta" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center">
+                       <asp:TemplateField HeaderText="Datos Técnicos" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center">
                                <ItemTemplate>
                                    <asp:LinkButton ID="LnkEncuesta" runat="server" AlternateText="Usuarios Asignados" CausesValidation="False"
                                        Width="24.1px"
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5,7 +5,6 @@ Imports System.Data
 Imports System.IO
 Imports System.Xml
 Imports Extensiones
-Imports iText.Kernel.Pdf
 Imports Microsoft.Reporting.WebForms
 Imports Stimulsoft.Report
 Imports Stimulsoft.Report.Web
@@ -190,49 +189,49 @@ Partial Class PopUpVerFactura
            'OPCIONES

            If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
-                Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
-                If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
-                    SeleccionaReporte(UrlParametros)
+                    Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
+                    If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
+                        SeleccionaReporte(UrlParametros)
+                    End If
                End If
-            End If

-            If Request("onlyPrint") IsNot Nothing Then
-                If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso
+                If Request("onlyPrint") IsNot Nothing Then
+                    If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso
                    Not IsNothing(Request("CvePeriodo")) AndAlso Not IsNothing(Request("indemnizacion")) Then
-                    Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
-                    Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta
-                    Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1
-                    GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion)
-                End If
-                If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
-                    imprimirpallet2(Request("CvePallet").ToString.ToEntero())
-                End If
-                If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
-                    imprimirpallet(Request("CvePallet").ToString.ToEntero())
-                End If
-                If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then
-                    imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero())
+                        Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
+                        Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta
+                        Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1
+                        GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion)
+                    End If
+                    If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
+                        imprimirpallet2(Request("CvePallet").ToString.ToEntero())
+                    End If
+                    If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
+                        imprimirpallet(Request("CvePallet").ToString.ToEntero())
+                    End If
+                    If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then
+                        imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero())
+                    End If
+
+                    If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
+                        imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                    End If
+                    If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
+                        imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                    End If
+                    If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
+                        imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                    End If
+
+                    If Request("onlyPrint").ToString() = "rfctxtvalidar" Then
+                        rfctxtvalidar()
+                    End If
+                    If Request("onlyPrint").ToString() = "Recibo" Then
+                        ReciboAgropecuaria()
+                    End If
                End If

-                If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
-                    imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
-                End If
-                If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
-                    imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
-                End If
-                If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
-                    imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
-                End If
-
-                If Request("onlyPrint").ToString() = "rfctxtvalidar" Then
-                    rfctxtvalidar()
-                End If
-                If Request("onlyPrint").ToString() = "Recibo" Then
-                    ReciboAgropecuaria()
-                End If
            End If
-
-        End If
    End Sub


@@ -6572,7 +6571,7 @@ Partial Class PopUpVerFactura
        Dim PS As String = ""
        Dim All As Byte()
        Using ms As New MemoryStream
-            Using pdfdoc As New PdfDocument(New PdfReader(ms))
+            Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
                pdfdoc.InitializeOutlines()
                If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                    If ObjInventarios.DtResultados IsNot Nothing Then
@@ -6584,7 +6583,7 @@ Partial Class PopUpVerFactura
                            If Modalidad = "Individual" Then
                                Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

-                                Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
+                                Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                docEtiqueta.Close()
                            Else
@@ -6593,7 +6592,7 @@ Partial Class PopUpVerFactura
                                For i As Integer = 0 To Cant
                                    Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

-                                    Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
+                                    Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                    docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                    docEtiqueta.Close()
                                Next
@@ -6622,7 +6621,7 @@ Partial Class PopUpVerFactura

        Dim All As Byte()
        Using ms As New MemoryStream
-            Using pdfdoc As New PdfDocument(New PdfReader(ms))
+            Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
                pdfdoc.InitializeOutlines()
                If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then
                    If ObjInventarios.DtResultados IsNot Nothing Then
@@ -6632,7 +6631,7 @@ Partial Class PopUpVerFactura
                            If Modalidad = "Individual" Then
                                Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

-                                Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
+                                Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                docEtiqueta.Close()
                            Else
@@ -6641,7 +6640,7 @@ Partial Class PopUpVerFactura
                                For i As Integer = 0 To Cant
                                    Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))

-                                    Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
+                                    Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                    docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
                                    docEtiqueta.Close()
                                Next
--- a/General/RepIndicadorResumen.aspx
+++ b/General/RepIndicadorResumen.aspx
@@ -612,7 +612,7 @@
                //newData.sort(function (a, b) {
                //    return a[0] > b[0] ? 1 : -1;
                //});
-                console.log(JSON.stringify(newData))
+                //console.log(JSON.stringify(newData))
                return newData;
            }

--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -37,6 +37,13 @@ Partial Class General_RepIndicadorResumen
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
        CargaDatos()
    End Sub
+    Protected Sub LnkExportarPDF_Click(sender As Object, e As EventArgs) Handles LnkExportarPDF.Click
+        UPPMov.GenerarReportePDF("Reporte Resumen de Indicadores", TxtFechaI.Text, TxtFechaF.Text)
+    End Sub
+    'No quitar porque no funciona el exporta PDF
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+        ' Verifies that the control is rendered 
+    End Sub
    Private Sub CargaDatos()

        Dim ObjVentas As New ClsVentas
@@ -51,7 +58,7 @@ Partial Class General_RepIndicadorResumen

        If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
            'Compras Productores
-            GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial DESC")
+            GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial ASC")
            'CxP Productores
            GvCxP192.DataSource = ObjCitrus.DTSetResultados.Tables(1).FiltraParametros("", "CveMoneda,Saldo DESC")
            'CxP NO productores
@@ -218,7 +225,7 @@ Partial Class General_RepIndicadorResumen
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Unidad = "MXN"
        })
-        Dim query_vxp = top_vxp.Union(group_resto_vxp)
+        Dim query_vxp = top_vxp.Union(group_resto_vxp).OrderByDescending(Function(x) x.Valor)
        'Dim query_vxp = top_vxp.Concat(From e In resto_vxp Group e By e.Texto Into gpo = Group)
        'Dim group_resto_vxp = From e In resto_vxp Group e By e.Texto Into gpo = Group
        'Dim group_resto_vxp = resto_vxp.GroupBy(Function(e) New With {Key e.Texto, Key e.Valor, Key e.Color, Key e.Unidad}).ToList()
@@ -248,7 +255,7 @@ Partial Class General_RepIndicadorResumen
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Unidad = "MXN"
        })
-        Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores)
+        Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores).OrderByDescending(Function(x) x.Valor)

        'Compras TipoProveedor=1 Acreedores (Gastos)
        DtCompAcreed.Reset()
@@ -277,7 +284,7 @@ Partial Class General_RepIndicadorResumen
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Unidad = "MXN"
        })
-        Dim query_comp_acreed = top_comp_acreed.Union(group_resto_comp_acreed)
+        Dim query_comp_acreed = top_comp_acreed.Union(group_resto_comp_acreed).OrderByDescending(Function(x) x.Valor)

        'Cuentas por cobrar x Cliente -- Saldo
        DtCxC.Reset()
@@ -306,7 +313,7 @@ Partial Class General_RepIndicadorResumen
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Unidad = "MXN"
        })
-        Dim query_cxc = top_cxc.Union(group_resto_cxc)
+        Dim query_cxc = top_cxc.Union(group_resto_cxc) '.OrderByDescending(Function(x) x.Valor)
        'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CxC.Rows))

        'Cuentas por cobrar x Cliente -- Recuperado
@@ -336,7 +343,7 @@ Partial Class General_RepIndicadorResumen
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Unidad = "MXN"
        })
-        Dim query_cxcr = top_cxcr.Union(group_resto_cxcr)
+        Dim query_cxcr = top_cxcr.Union(group_resto_cxcr) '.OrderByDescending(Function(x) x.Valor)

        'CxP proveedores
        DtCxP192.Reset()
@@ -365,7 +372,7 @@ Partial Class General_RepIndicadorResumen
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Unidad = "MXN"
        })
-        Dim query_cxp192 = top_cxp192.Union(group_resto_cxp192)
+        Dim query_cxp192 = top_cxp192.Union(group_resto_cxp192).OrderByDescending(Function(x) x.Valor)

        'CxP NO proveedor
        DtCxP.Reset()
@@ -394,7 +401,7 @@ Partial Class General_RepIndicadorResumen
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Unidad = "MXN"
        })
-        Dim query_cxp = top_cxp.Union(group_resto_cxp)
+        Dim query_cxp = top_cxp.Union(group_resto_cxp).OrderByDescending(Function(x) x.Valor)

        'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON
        Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CompProductores = query_comp_productores, .CompAcreed = query_comp_acreed, .CxC = query_cxc, .CxCR = query_cxcr, .CxP192 = query_cxp192, .CxP = query_cxp})
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -48,6 +48,14 @@
    Entrega Almacén (Surtir Mercancia)
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+    <asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
    <li>
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -268,7 +268,30 @@ Partial Class Inventarios_EntregaAlmacen
            ViewState("FormaPaqueteria") = value
        End Set
    End Property
-
+    'Private Property IndexSeccionAlmacen As Integer
+    '    Get
+    '        Return CType(ViewState("IndexSeccionAlmacen"), Integer)
+    '    End Get
+    '    Set(value As Integer)
+    '        ViewState("IndexSeccionAlmacen") = value
+    '    End Set
+    'End Property
+    Private Property ArchivoBitacora As String
+        Get
+            Return CType(ViewState("ArchivoBitacora"), String)
+        End Get
+        Set(value As String)
+            ViewState("ArchivoBitacora") = value
+        End Set
+    End Property
+    Private Property ArchivoBitacoraDetalle As String
+        Get
+            Return CType(ViewState("ArchivoBitacoraDetalle"), String)
+        End Get
+        Set(value As String)
+            ViewState("ArchivoBitacoraDetalle") = value
+        End Set
+    End Property

 #End Region

@@ -318,7 +341,10 @@ Partial Class Inventarios_EntregaAlmacen
        DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
        DdlAlmacen.SelectedValue = "-1"
        DdlAlmacen.DataBind()
-        DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+        If UsuarioActual.CveAlmacen > 0 Then
+            DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+            RecargaporAlmacenes()
+        End If

        DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
        DdlAlmacenTransitorio.DataBind()
@@ -551,6 +577,15 @@ Partial Class Inventarios_EntregaAlmacen
        If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then
            If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then

+                ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
+                ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
+                If ArchivoBitacora <> "" Then
+                    Dim Archivo = New System.IO.FileInfo(ArchivoBitacora)
+                    If Archivo.Exists() Then
+                        HplCargaBitacora.Visible = True
+                        uppCargaBitacora.Update()
+                    End If
+                End If

                DtDatos = ObjInventario.DtResultados
                If Not DtDatos.Columns.Contains("Consec") Then DtDatos.Columns.Add("Consec", GetType(Integer))
@@ -1280,6 +1315,7 @@ Partial Class Inventarios_EntregaAlmacen
        Row("FechaCaducidad") = If(AplicaCaducidad, TxtFechaCaducidad.Text, MinFecha.ToShortDateString)

        DtDatosDetalle.Rows.Add(Row)
+        ActualizaBitacora()
        RegistraScript("playsonidito('beep-07.wav')", "Sonidito")

        If Tipo = 1 Then
@@ -1307,11 +1343,44 @@ Partial Class Inventarios_EntregaAlmacen
        End Try

        DtDatosDetalle.AcceptChanges()
+        ActualizaBitacora()
        CargaSerie()

    End Sub
 #End Region
+#Region "Bitacora"
+    Private Sub ActualizaBitacora(Optional Eliminar As Boolean = False)
+        If Not Eliminar Then
+            DtDatos.TableName = "DtDatos"
+            DtDatosDetalle.TableName = "DtDatosDetalle"
+            DtDatos.WriteXml(ArchivoBitacora, XmlWriteMode.WriteSchema)
+            DtDatosDetalle.WriteXml(ArchivoBitacoraDetalle, XmlWriteMode.WriteSchema)
+        Else
+            File.Delete(ArchivoBitacora)
+        End If

+    End Sub
+
+    Protected Sub HplCargaBitacora_Click(sender As Object, e As EventArgs)
+
+        If IO.File.Exists(ArchivoBitacora) Then
+            'DtInv.Clear()
+            'DtDatosDetalle.Clear()
+            DtDatos.ReadXml(ArchivoBitacora)
+            If IO.File.Exists(ArchivoBitacoraDetalle) Then
+                Dim dtt As New DataTable
+                dtt.ReadXml(ArchivoBitacoraDetalle)
+                DtDatosDetalle = dtt
+                Alert("Registro(s) Recuperados", TipoMensaje.ToastInformacion)
+            End If
+            CargaGvDatos()
+
+        Else
+            Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
+        End If
+
+    End Sub
+#End Region
 #Region "   AGREGA CON LOTE BATCH   "

    Private Sub CreaDtDetalleLote()
@@ -3894,7 +3963,11 @@ Partial Class Inventarios_EntregaAlmacen
        RegistraScript("$('#ModalVerSugerencias').modal('hide')")
    End Sub

-    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
+    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlAlmacen.SelectedIndexChanged
+        RecargaporAlmacenes()
+    End Sub
+
+    Private Sub RecargaporAlmacenes()
        If DdlAlmacen.SelectedValue <> "-1" Then
            CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
        End If
--- a/Inventarios/RecepcionAlmacen.aspx
+++ b/Inventarios/RecepcionAlmacen.aspx
@@ -17,13 +17,15 @@
    <li>
        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Excel</asp:HyperLink>
    </li>
-     
-         <asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline"><ContentTemplate>
-             <li>
-        <asp:Linkbutton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click"  Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:Linkbutton>
+
+    <asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:LinkButton>
            </li>
-                 </ContentTemplate></asp:UpdatePanel>
-    
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
    Recepción Almacén   
--- a/RH/CatPersonal.aspx
+++ b/RH/CatPersonal.aspx
@@ -651,6 +651,24 @@
                                    <asp:Literal ID="LtlTipodeSalario" runat="server" Text='<%# Eval("TipodeSalario") %>'></asp:Literal>
                                </ItemTemplate>
                            </asp:TemplateField>
+                             <asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
+                                <HeaderTemplate>Banco</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlBanco" runat="server" Text='<%# Eval("BancoNombre") %>'></asp:Literal>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                             <asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
+                                <HeaderTemplate>Cuenta Bancaria</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlCuentaBancaria" runat="server" Text='<%# Eval("CuentaBancaria") %>'></asp:Literal>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
+                                <HeaderTemplate>CLABE</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlCLABE" runat="server" Text='<%# Eval("CLABE") %>'></asp:Literal>
+                                </ItemTemplate>
+                            </asp:TemplateField>

                        </Columns>
                        <RowStyle CssClass="Texto" />
@@ -832,6 +850,17 @@
                                        <div class="col-md-3">
                                            <asp:CheckBox ID="ChkTipodeSalario" runat="server" Text="Tipo de salario" />
                                        </div>
+                                    </div>
+                                    <div class="row">
+                                        <div class="col-md-3">
+                                            <asp:CheckBox ID="ChkBanco" runat="server" Text="Banco" />
+                                        </div>
+                                        <div class="col-md-3">
+                                            <asp:CheckBox ID="ChkCuentaBancaria" runat="server" Text="Cuenta Bancaria" />
+                                        </div>
+                                        <div class="col-md-3">
+                                            <asp:CheckBox ID="ChkCLABE" runat="server" Text="CLABE" />
+                                        </div>

                                    </div>
                                </div>
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -2,6 +2,7 @@
 Option Strict On

 Imports System.Data
+Imports CFDI_GenCodigo
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms

@@ -605,6 +606,9 @@ Partial Class RH_CatPersonal
        Else
            GvDatos.Columns(45).Visible = False
        End If
+        GvDatos.Columns(46).Visible = ChkBanco.Checked
+        GvDatos.Columns(47).Visible = ChkCuentaBancaria.Checked
+        GvDatos.Columns(48).Visible = ChkClaBE.Checked


        If (GvDatos.Rows.Count > 0) Then
--- a/Ventas/CatAutorizacionLimites.aspx
+++ b/Ventas/CatAutorizacionLimites.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatAutorizacionLimites.aspx.vb" Inherits="Ventas_CatAutorizacionLimites" %>
+<%@ Page Title="" Language="VB" EnableEventValidation="false" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatAutorizacionLimites.aspx.vb" Inherits="Ventas_CatAutorizacionLimites" %>

 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -22,9 +22,13 @@
    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <li>
-                <asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" runat="server"><i class="fa fa-plus"></i>Agregar autorización</asp:LinkButton></li>
+                <asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" runat="server"><i class="fa fa-plus"></i>Agregar autorización</asp:LinkButton>
+            </li>
        </ContentTemplate>
    </asp:UpdatePanel>
+    <li>
+        <asp:LinkButton ID="LnkExportarExcel" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Exportar Excel</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
--- a/Ventas/CatAutorizacionLimites.aspx.vb
+++ b/Ventas/CatAutorizacionLimites.aspx.vb
@@ -336,4 +336,33 @@ Partial Class Ventas_CatAutorizacionLimites
        End Select
        UpModal.Update()
    End Sub
+
+#Region "  EXPORTA EXCEL  "
+    Protected Sub LnkExportarExcel_Click(sender As Object, e As EventArgs) Handles LnkExportarExcel.Click
+        If GvDatos.Rows.Count <= 0 Then
+            Alert("No hay registros para exportar. Por favor modifique su consulta.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim StrFiltro As New StringBuilder
+        StrFiltro.AppendFormat("Filtro:  ")
+        StrFiltro.AppendFormat("Estatus: {0},  ", DdlEstatus.SelectedItem)
+        StrFiltro.AppendFormat("Cliente: {0},  ", IIf(DdlClienteFiltro.SelectedText <> "", DdlClienteFiltro.SelectedText, "Todos"))
+        StrFiltro.AppendFormat("Vendedor: {0},  ", DdlVendedorFiltro.SelectedItem)
+        StrFiltro.AppendFormat("Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToString("dd/MM/yyyy"))
+        'If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(",  Fecha Fin: {0}", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"))
+        Dim fechaFin As String = IIf(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy"))
+        StrFiltro.AppendFormat(",  Fecha Fin: {0}", fechaFin)
+
+        'Oculta columnas en export sin afectar GridView en página
+        Dim tcols = GvDatos.Columns.Count
+        GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar
+        GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar
+
+        GvDatos.ExportToExcelGembox("CatAutorizacionLimites " & txtFechaI.Text.ToDate.ToString("dd-MM-yyyy") + " a " & fechaFin.ToDate.ToString("dd-MM-yyyy"), UsuarioActual, "Catálogo de autorizaciones de límite de crédito", DatosFiltros:=StrFiltro.ToString())
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+    End Sub
+#End Region
 End Class