diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx
index 4db930e6d..15630a45b 100644
--- a/CxC/RepCxC.aspx
+++ b/CxC/RepCxC.aspx
@@ -62,6 +62,9 @@
             <li>
                 <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
+            </li>
             <li>
                 <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Columnas</asp:HyperLink>
             </li>
@@ -85,7 +88,9 @@
             <asp:PostBackTrigger ControlID="ImgExcel" />
             <asp:PostBackTrigger ControlID="ImgImprimir" />
             <asp:PostBackTrigger ControlID="LnkDescargarSegmentos" />
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado" />
         </Triggers>
+
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb
index 62b50ca4c..19da2ee10 100644
--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports System.IO
+Imports DocumentFormat.OpenXml.VariantTypes
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -18,8 +19,15 @@ Partial Class RepCxC
         Set(ByVal value As DataTable)
             ViewState("DtDatos") = value
         End Set
+    End Property
+    Public Property SePersonalizo() As Integer
+        Get
+            Return ViewState("SePersonalizo").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("SePersonalizo") = value
+        End Set
     End Property
-
     Private Property DtPersonalizarRango As DataTable
         Get
             DtPersonalizarRango = DirectCast(ViewState("DtPersonalizarRango"), DataTable)
@@ -96,6 +104,7 @@ Partial Class RepCxC
         If Not IsPostBack Then
             Index = 0
             Modalidad = ""
+            SePersonalizo = 0
             CargaCombos()
             CargaGvPersonalizarRangoColumnas()
             ProcesaRequest()
@@ -127,7 +136,6 @@ Partial Class RepCxC
                     itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
                 Next
             Next
-
         End If
 
         If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
@@ -138,7 +146,6 @@ Partial Class RepCxC
             DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
         End If
 
-
     End Sub
 
     Private Sub CargaCombos()
@@ -202,10 +209,9 @@ Partial Class RepCxC
             DdlContrato.DataSource = ObjContratos.DtResultados
         End If
         divContrato.Visible = True
-        divContrato1.visible = True
+        divContrato1.Visible = True
         ObjContratos.Dispose()
         DdlContrato.DataBind()
-
     End Sub
 
     Private Sub CargaDatos()
@@ -229,7 +235,7 @@ Partial Class RepCxC
         CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero
         CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero
         Dim CveCliente As Integer = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
-        Dim AplicaAnticipos As Integer = If(ChkAnticipos.checked, 1, 0)
+        Dim AplicaAnticipos As Integer = If(ChkAnticipos.Checked, 1, 0)
 
 
         If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
@@ -645,6 +651,7 @@ Partial Class RepCxC
             GvDatos.Columns(16).Visible = True
             GvDatos.Columns(17).Visible = True
             GvDatos.Columns(18).Visible = True
+            SePersonalizo = 1
         Else
             GvDatos.Columns(14).Visible = False
             GvDatos.Columns(15).Visible = False
@@ -653,15 +660,30 @@ Partial Class RepCxC
             GvDatos.Columns(18).Visible = False
         End If
 
-        GvDatos.Columns(1).Visible = ChkCodigoCl.Checked
-        GvDatos.Columns(2).Visible = ChkNombreCorto.Checked
-        GvDatos.Columns(19).Visible = ChkSubTotalP.Checked
-        GvDatos.Columns(20).Visible = ChkIVAP.Checked
-        GvDatos.Columns(21).Visible = ChkIEPSP.Checked
+        ActivaColumna(1, ChkCodigoCl.Checked)
+        ActivaColumna(2, ChkNombreCorto.Checked)
+        ActivaColumna(19, ChkSubTotalP.Checked)
+        ActivaColumna(20, ChkIVAP.Checked)
+        ActivaColumna(21, ChkIEPSP.Checked)
+
+        If SePersonalizo = 1 Then
+            ImgExcelPersonalizado.Visible = True
+        Else
+            ImgExcelPersonalizado.Visible = False
+        End If
 
         UPDatos.Update()
     End Sub
 
+    Private Sub ActivaColumna(Indice As Integer, Activo As Boolean)
+
+        If Activo Then
+            GvDatos.Columns(Indice).Visible = True
+            SePersonalizo = 1
+        End If
+
+    End Sub
+
 #End Region
 
 #Region "IMPRESIONES"
@@ -966,12 +988,12 @@ Partial Class RepCxC
         Dim ObjSMS As New ClsTecnoMovil
         Dim ObjEventos As New ClsOIEventos
 
-        Dim Pesos = 0.0
-        Dim Dolares = 0.0
+        Dim Pesos As Decimal = 0
+        Dim Dolares As Decimal = 0
         Dim Telefono As String = ""
         Dim Mensaje As String = ""
         Dim StrSaldo As String = ""
-        Dim Contador = 0
+        Dim Contador As Integer = 0
 
         'Dim sw As New System.Diagnostics.Stopwatch()
         'sw.Start()
@@ -984,8 +1006,8 @@ Partial Class RepCxC
             Telefono = Dr("CobranzaTelefono").ToString
 
             If Telefono.Length = 10 Then
-                Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDouble, 0)
-                Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDouble, 0)
+                Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDecimal, 0)
+                Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDecimal, 0)
 
                 If Pesos > 0 Then StrSaldo = $" ${Pesos.FormatoNumero} pesos"
                 If Dolares > 0 Then StrSaldo = $" ${Mensaje} ${Dolares.FormatoNumero} dólares"
@@ -1019,11 +1041,11 @@ Partial Class RepCxC
     Protected Sub LBEnviarCorreo_Click(sender As Object, e As EventArgs)
         Dim ObjEventos As New ClsOIEventos
 
-        Dim Pesos = 0.0
-        Dim Dolares = 0.0
+        Dim Pesos As Decimal = 0
+        Dim Dolares As Decimal = 0
         Dim Correo As String = ""
         Dim Mensaje As String = ""
-        Dim Contador = 0
+        Dim Contador As Integer = 0
 
         'Dim sw As New System.Diagnostics.Stopwatch()
         'sw.Start()
@@ -1035,8 +1057,8 @@ Partial Class RepCxC
             Correo = Dr("CobranzaCorreo").ToString
 
             If Correo.Length > 0 Then
-                Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDouble, 0)
-                Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDouble, 0)
+                Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDecimal, 0)
+                Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDecimal, 0)
 
                 If Pesos > 0 Then Mensaje = $" ${Pesos.FormatoNumero} pesos"
                 If Dolares > 0 Then Mensaje = $" {Mensaje} ${Dolares.FormatoNumero} dólares"
@@ -1346,7 +1368,7 @@ Partial Class RepCxC
         Next
 
         Dim Dr1 As DataRow = DtGrafica.Rows(0)
-        For Cont = 1 To 8
+        For Cont As Integer = 1 To 8
             If Dr1($"TC{Cont}").ToString.ToEntero = Tipo And Not Dr1($"NomC{Cont}").ToString = "Total" Then
                 Top = 1
                 Dim Row As DataRow = Dt5.NewRow()
@@ -1379,6 +1401,8 @@ Partial Class RepCxC
         CambioGrafica(DdlVer.SelectedValue.ToEntero)
     End Sub
 
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 
 #End Region
 
@@ -1399,5 +1423,27 @@ Partial Class RepCxC
 
 #End Region
 
+    Private Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
+
+        Dim Cliente As String = If(DdlClientesWS.SelectedValue = "-1", "", $" Cliente: {DdlClientesWS.SelectedText}")
+        Dim Sucursal As String = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}")
+        Dim Grupo As String = $" Agrupado Por: {DdlGrupo.SelectedItem.Text}" 'If(DdlGrupo.SelectedValue = "3", "", $"&emsp;<b>Agrupado Por:</b>&nbsp;{DdlGrupo.SelectedItem.Text}")
+        Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedText = "", "", $" Documentos: {DdlTipoDocto.GetSelectedText}")
+        Dim Vendedor As String = If(DdlVendedor.SelectedValue = "-1", "", $" Vendedor: {DdlVendedor.SelectedItem.Text}")
+        Dim FechaIn As String = If(txtFechaI.Text = "", "", $" Fecha Inicio Docto: {txtFechaI.Text}")
+        Dim FechaFn As String = If(txtFechaF.Text = "", "", $" Fecha Fin Docto: {txtFechaF.Text}")
+        Dim FVI As String = If(txtFechaVI.Text = "", "", $" Fecha Venc. Inic.: {txtFechaVI.Text}")
+        Dim FVF As String = If(txtFechaVF.Text = "", "", $" Fecha Venc. Final: ;{txtFechaVF.Text}")
+        Dim Registro As String = If(DdlUsuario.SelectedValue = "-1", "", $" Registró: ;{DdlUsuario.SelectedItem.Text}")
+        Dim Responsable As String = If(DdlResponsable.SelectedValue = "-1", "", $" Responsable: ;{DdlResponsable.SelectedItem.Text}")
+        Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"Corte A {txtCorteA.Text}")
+        Dim ClasificacionCli As String = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlClienteClasificacion.SelectedItem.Text}")
+
+        Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{FVI}{FVF}{ClasificacionCli}{CorteA}"
+
+        GvDatos.ExportToExcelGembox("ReporteCxC", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE", DatoTituloExtra:=$"", DatosFiltros:=Filtro)
+
+
+    End Sub
 
 End Class
\ No newline at end of file