cambios de extensiones .SUM de double a decimal

CxC/RepCxC.aspx

@@ -529,6 +529,24 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <asp:TemplateField Visible="true">
+                        <HeaderTemplate>
+                            IVA Pend
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label CssClass="Texto" ID="LtlIVAP" runat="server" Text='<%# Eval("IVAPendiente", "{0:N2}") %>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                     <asp:TemplateField Visible="true">
+                         <HeaderTemplate>
+                             IEPS Pend
+                         </HeaderTemplate>
+                         <ItemTemplate>
+                             <asp:Label CssClass="Texto" ID="LtlIEPSP" runat="server" Text='<%# Eval("IEPSPendiente", "{0:N2}") %>'></asp:Label>
+                         </ItemTemplate>
+                         <ItemStyle HorizontalAlign="Right" />
+                     </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -556,6 +574,12 @@
                             <br />
                             <asp:CheckBox ID="ChkNombreCorto" runat="server" Text="" Checked="False" />
                             <label for="ChkNombreCorto">Nombre Corto </label>
+                            <br />
+                            <asp:CheckBox ID="ChkIVAP" runat="server" Text="" Checked="False" />
+                            <label for="ChkNombreCorto">IVA Pendiente </label>
+                                                        <br />
+                            <asp:CheckBox ID="ChkIEPSP" runat="server" Text="" Checked="False" />
+                            <label for="ChkNombreCorto">IEPS Pendiente </label>
 
                         </div>
                         <div class="modal-footer">

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