- incluir método y forma de pago en detalle, y personalizado

CxC/RepCxCDetalle.aspx.vb

@@ -627,13 +627,15 @@ Partial Class RepCxCDetalle
         ActivaColumna(44, ChkFechaEjecucion.Checked)
         ActivaColumna(45, ChkMostrarLineaAdicional.Checked)
         ActivaColumna(46, ChkMostrarDescripcionVenta.Checked)
-        ActivaColumna(47, ChkContrato.Checked)
-        ActivaColumna(48, ChkSubTotalPend.Checked)
-        ActivaColumna(49, ChkIVAPend.Checked)
-        ActivaColumna(50, ChkIEPSPend.Checked)
-        ActivaColumna(51, ChkEnQuebranto.Checked)
-        ActivaColumna(52, ChkEnDemanda.Checked)
-        ActivaColumna(53, ChkRegistroFirmas.Checked)
+        ActivaColumna(47, ChkMetodoPago.Checked)
+        ActivaColumna(48, ChkFormaPago.Checked)
+        ActivaColumna(49, ChkContrato.Checked)
+        ActivaColumna(50, ChkSubTotalPend.Checked)
+        ActivaColumna(51, ChkIVAPend.Checked)
+        ActivaColumna(52, ChkIEPSPend.Checked)
+        ActivaColumna(53, ChkEnQuebranto.Checked)
+        ActivaColumna(54, ChkEnDemanda.Checked)
+        ActivaColumna(55, ChkRegistroFirmas.Checked)
 
         If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
@@ -641,18 +643,15 @@ Partial Class RepCxCDetalle
             ImgExcelPersonalizado.Visible = False
         End If
 
-
         CargaDatos()
         RegistraScript("$('#DivPersonalizar').modal('hide');")
     End Sub
 
     Private Sub ActivaColumna(Indice As Integer, Activo As Boolean)
 
-        If Activo Then
-            GvDatos.Columns(Indice).Visible = True
+        If GvDatos.Columns(Indice).Visible <> Activo Then
+            GvDatos.Columns(Indice).Visible = Activo
             SePersonalizo = 1
-            'Else
-            '    SePersonalizo = 0
         End If
 
     End Sub