cambios de extensiones .SUM de double a decimal

CxC/RepCxC.aspx.vb

@@ -97,7 +97,7 @@ Partial Class RepCxC
             Index = 0
             Modalidad = ""
             CargaCombos()
-            CargaGvPersonalizarRaqngoColumnas()
+            CargaGvPersonalizarRangoColumnas()
             ProcesaRequest()
             CargaDatos()
             If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
@@ -228,7 +228,7 @@ Partial Class RepCxC
 
         CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero
         CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero
-        Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
+        Dim CveCliente As Integer = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
         Dim AplicaAnticipos As Integer = If(ChkAnticipos.checked, 1, 0)
 
 
@@ -651,21 +651,13 @@ Partial Class RepCxC
             GvDatos.Columns(16).Visible = False
             GvDatos.Columns(17).Visible = False
             GvDatos.Columns(18).Visible = False
-        End If
-
-
-        If ChkCodigoCl.Checked Then
-            GvDatos.Columns(1).Visible = True
-        Else
-            GvDatos.Columns(1).Visible = False
-        End If
-
-        If ChkNombreCorto.Checked Then
-            GvDatos.Columns(2).Visible = True
-        Else
-            GvDatos.Columns(2).Visible = False
-        End If
-
+        End If
+
+        GvDatos.Columns(1).Visible = ChkCodigoCl.Checked
+        GvDatos.Columns(2).Visible = ChkNombreCorto.Checked
+        GvDatos.Columns(19).Visible = ChkIVAP.Checked
+        GvDatos.Columns(20).Visible = ChkIEPSP.Checked
+
         UPDatos.Update()
     End Sub
 
@@ -815,7 +807,7 @@ Partial Class RepCxC
         UpBodyPersonalizar.Update()
     End Sub
 
-    Private Sub CargaGvPersonalizarRaqngoColumnas()
+    Private Sub CargaGvPersonalizarRangoColumnas()
         Dim ObjComp As New ClsCompras
         If ObjComp.GetRepCxCColumnas(UsuarioActual.CveEmpresa) Then
             GvPersonalizarRango.DataSource = ObjComp.DtResultados