Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2020-10-09 13:00:11 -07:00
parent c871c61a2d 81d669748d
commit 19d4048c16
33 changed files with 854 additions and 248 deletions
--- a/Compras/CatTipoGasto.aspx
+++ b/Compras/CatTipoGasto.aspx
@@ -45,7 +45,7 @@
                    <div class="modal-header ">
                        <button type="button" class="close" data-dismiss="modal">×</button>
                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Tipo Gastos de Rechazo</asp:Literal></h4>
+                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Tipo Gastos</asp:Literal></h4>
                    </div>
                    <div class="modal-body">

--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -29,6 +29,24 @@ Partial Class Compras_Compras
        End Set
    End Property

+    Private Property EstaAsociadoACajaChica() As Boolean
+        Get
+            Return If(IsNothing(ViewState("EstaAsociadoACajaChica")), False, CBool(ViewState("EstaAsociadoACajaChica")))
+        End Get
+        Set
+            ViewState("EstaAsociadoACajaChica") = Value
+        End Set
+    End Property
+
+    Private Property EstaAsociadoAPersonal() As Boolean
+        Get
+            Return If(IsNothing(ViewState("EstaAsociadoAPersonal")), False, CBool(ViewState("EstaAsociadoAPersonal")))
+        End Get
+        Set
+            ViewState("EstaAsociadoAPersonal") = Value
+        End Set
+    End Property
+
    Private Property CveUsuarioEvaluador() As Integer
        Get
            Return If(IsNothing(ViewState("CveUsuarioEvaluador")), -1, CInt(ViewState("CveUsuarioEvaluador")))
@@ -848,6 +866,14 @@ Partial Class Compras_Compras
            ViewState("PopUpOC") = value
        End Set
    End Property
+    Private Property CompraEstaVinculadaOC As Boolean
+        Get
+            Return CBool(ViewState("CompraEstaVinculadaOC"))
+        End Get
+        Set(value As Boolean)
+            ViewState("CompraEstaVinculadaOC") = value
+        End Set
+    End Property
 #End Region

 #Region "PROPIEDADES ALMACEN" 'Charlie
@@ -1307,6 +1333,9 @@ Partial Class Compras_Compras
                ViewState("CveFactura") = Request("CveFactura").ToEntero

                Dim RFC As String = CargaFactura(CveFactura)
+                If Not VerificarProductosSATPS() Then
+                    Exit Sub
+                End If
                If RFC.Trim <> String.Empty Then
                    DdlProveedor.Visible = False
                    HplProveedor.Visible = True
@@ -1734,6 +1763,7 @@ Partial Class Compras_Compras
                            'TmpDT.Columns.Add("IEPSPSIVAPorcentaje")
                            SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
                            AddPS2(False)
+
                        End If
                    Else
                        CargaConceptosXML(XMLDoc)
@@ -3971,6 +4001,17 @@ Partial Class Compras_Compras
            DtNoEncontrados.Dispose()
        End If

+        'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
+
+        If UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
+            If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
+                If Not CompraEstaVinculadaOC Then
+                    Alert("Debe de vincular una orden de compra para realizar esta factura")
+                    Exit Sub
+                End If
+            End If
+        End If
+
        'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 
        Dim GuardaNoDeducibles As Boolean = False
        If ChkEsNoDeducible.Checked Then
@@ -12712,6 +12753,7 @@ Partial Class Compras_Compras
            CveMoneda = dr("CveMoneda").ToString.ToEntero
            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
+            EstaAsociadoACajaChica = True
        End If

        If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -12740,7 +12782,7 @@ Partial Class Compras_Compras

            ObjMovtos.Dispose()
            DDlCheques.DataBind()
-
+            EstaAsociadoAPersonal = True

            DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
        Else
@@ -13751,6 +13793,9 @@ Partial Class Compras_Compras
 #Region " REEMBOLSOS NO USA AC "
    Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
        ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
+        If DdlPersonalReembolso.SelectedValue.ToEntero > 0 Then
+            EstaAsociadoAPersonal = True
+        End If
    End Sub
    Protected Sub DdlCajaChica2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCajaChicaReembolso.SelectedIndexChanged
        Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaCajaChicaReembolso.SelectedValue)
@@ -13759,6 +13804,7 @@ Partial Class Compras_Compras
            CveMoneda = dr("CveMoneda").ToString.ToEntero
            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
+            EstaAsociadoACajaChica = True
        End If
        ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
    End Sub
@@ -15052,7 +15098,7 @@ Partial Class Compras_Compras

            'SI PUEDE RECIBIR POR OC Y COMPRA
            ' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre
-            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
+            If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
                DivOCVinculaInv.Visible = True
            End If

@@ -15381,27 +15427,27 @@ Partial Class Compras_Compras
        Dim SubTotalCompra As Decimal = Amortizacion
        Dim DiferenciaPermitida = 1
        Dim Cont = 0
-        Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
-        For Each gvr As GridViewRow In GvOC1.Rows
-            SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
-            If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
-            Cont = 1
-            If GvOC1.Columns(6).Visible Then
-                Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
-                Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
-                If SatPS.Contains("01010101") Then
-                    ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
-                    'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
-                    'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+        'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+        'For Each gvr As GridViewRow In GvOC1.Rows
+        '    SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
+        '    If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
+        '    Cont = 1
+        '    If GvOC1.Columns(6).Visible Then
+        '        Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
+        '        Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
+        '        If SatPS.Contains("01010101") Then
+        '            ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
+        '            'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
+        '            'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)

-                End If
-            End If
-        Next
-        If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
-            Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
-            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        '        End If
+        '    End If
+        'Next
+        'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+        '    Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+        '    Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If

        If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
            LbSubTotalDif.Visible = False
@@ -15434,15 +15480,16 @@ Partial Class Compras_Compras


        'SI PUEDE RECIBIR POR OC Y COMPRA
-        If UsuarioActual.CveEmpresa.Contiene(119) Then
-            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
-                If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
-                    Alert("El campo <b>Tipo de recepción almacén</b> es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
+
+        If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
+
+            If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
+                Alert("El campo <b>Tipo de recepción almacén</b> es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
            End If
        End If

+
        If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 AndAlso UsuarioActual.CveEmpresa.Contiene(119) Then
            Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
            Exit Sub
@@ -15639,6 +15686,7 @@ Partial Class Compras_Compras
        End If

        CalculaTotales()
+        CompraEstaVinculadaOC = True

    End Sub

@@ -19831,7 +19879,7 @@ Partial Class Compras_Compras
                                End If
                            Else
                                '2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
-                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
+                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
                                        Retorno = False
                                        Exit For
@@ -20156,7 +20204,37 @@ Partial Class Compras_Compras

    End Sub

+    Private Function VerificarProductosSATPS() As Boolean
+        Dim CvePSGRuposAux As New StringBuilder("")
+        For Each gvr As GridViewRow In GvPS.Rows
+            Dim CvePSIndividual As String = gvr.DataKey("CvePS")
+            CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
+        Next

+        If CvePSGRuposAux.Length > 0 Then
+            Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+
+            Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+
+            Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+            For Each PS As GridViewRow In GvPS.Rows
+                Dim PSIndividual As String = PS.DataKey("PS")
+                Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+                If ClavePSSAT = "46920" Then
+                    ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
+                End If
+            Next
+
+            If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+                Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+                Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+                Return False
+            End If
+        End If
+
+        Return True
+
+    End Function

 End Class

--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1241,6 +1241,7 @@ Partial Class PopUpVerFactura
        Dim Observaciones As String = ObjInventarios.Observaciones
        Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
        Dim NombreCapturo As String = ObjInventarios.NombreCapturo
+        Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
        Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
        Dim Recibio As String = ObjInventarios.Recibio
        Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
@@ -1344,7 +1345,7 @@ Partial Class PopUpVerFactura
                          EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                          MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
-                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen)
+                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego)

    End Sub
    Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1361,7 +1362,7 @@ Partial Class PopUpVerFactura
                                  Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                  EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                  EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
-                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1)
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "")


        Select Case CveConcepto
@@ -2707,7 +2708,7 @@ Partial Class PopUpVerFactura
                    End If

                    Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
-                    Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
+                    Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))

                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
@@ -2718,7 +2719,7 @@ Partial Class PopUpVerFactura
                    params.Add(New ReportParameter("Descuentos", ""))
                    params.Add(New ReportParameter("IVA", ""))
                    params.Add(New ReportParameter("Total", ""))
-                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    params.Add(New ReportParameter("NombreEntrego", NombreEntrego))
                    params.Add(New ReportParameter("NombreRecibio", Recibio))
                    params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
                    params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
@@ -2730,7 +2731,7 @@ Partial Class PopUpVerFactura

                    End If
                    params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
-                    params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
+                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("Observaciones", Observaciones))


--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -644,7 +644,7 @@ Partial Class Compras_ReembolsosComprobaciones
                        ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
                        Referencia = gvr.DataKey("SerieFolio").ToString
                        IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
-                        CveCuentaProveedor = gvr.DataKey("IdCtaContProveedoresSIG").ToEntero
+

                        ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                        ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
@@ -660,6 +660,11 @@ Partial Class Compras_ReembolsosComprobaciones
                                Case Else
                            End Select
                        End If
+                        If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
+                            IdCtaProveedor = gvr.DataKey("IdCtaContAcreedor").ToEntero
+                        Else
+                            IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
+                        End If

                        If SaldoCheque > 0 Then
                            ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -249,7 +249,7 @@
        <ContentTemplate>

           <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%"   EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
                <Columns>
                    <asp:TemplateField>
                        <HeaderTemplate>
@@ -366,6 +366,14 @@
                            <asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
                        </ItemTemplate>
                    </asp:TemplateField>
+                    <asp:TemplateField ControlStyle-Width="150px" Visible="false">
+                        <HeaderTemplate>
+                            Descripción
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                </Columns>
                <RowStyle CssClass="Texto" />
                <HeaderStyle CssClass="Titulos" />
@@ -419,6 +427,8 @@
                                                        <asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
                                                    <td style="text-align: left;">
                                                        <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></td>
+                                                      <td style="text-align: left;">
+                                                        <asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción" Checked="false" /></td>
                                                </tr>
                                                <tr>
                                                    <td style="text-align: left;">
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -621,6 +621,8 @@ Partial Class RepCxPDetalle
            GvDatos.Columns(13).Visible = False
        End If

+        GvDatos.Columns(14).Visible = ChkDescripcion.Checked
+
        Personalizo = 1
        If Personalizo = 1 Then
            ImgExcelPersonalizado.Visible = True