subtotal pendiente

CxC/RepCxCDetalle.aspx

@@ -547,6 +547,7 @@
                     <asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" Visible="false" />
                     <asp:BoundField HeaderText="Descripción" DataField="DescripcionVenta" Visible="false" />
                     <asp:BoundField HeaderText="Contrato" DataField="NumeroContrato" Visible="false" />
+                    <asp:BoundField HeaderText="SubTotal Pend" DataField="SubTotalPendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" Visible="false" />
                     <asp:BoundField HeaderText="IVA Pend" DataField="IVAPendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" Visible="false" />
                     <asp:BoundField HeaderText="IEPS Pend" DataField="IEPSPendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" Visible="false" />
                 </Columns>
@@ -684,12 +685,13 @@
 
                                     </tr>
                                     <tr>
+                                             <td style="text-align: left;">
+                                                 <asp:CheckBox ID="ChkSubTotalPend" runat="server" Text="&nbsp;SubTotal Pendiente" Checked="false" /></td>
+                                                </td>
                                             <td style="text-align: left;">
                                                 <asp:CheckBox ID="ChkIVAPend" runat="server" Text="&nbsp;IVA Pendiente" Checked="false" /></td>
                                             <td style="text-align: left;">
-                                                <asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" /></td>
+                                                <asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" /></td>                                           
-                                            <td style="text-align: left;">
-                                               </td>
                                             <td style="text-align: left;"></td>
 
                                         </tr>

CxC/RepCxCDetalle.aspx.vb

@@ -569,331 +569,69 @@ Partial Class RepCxCDetalle
             End If
 
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "PERSONALIZAR COLUMNAS"
-
-    Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
-
-        If ChkFecha.Checked Then
-            GvDatos.Columns(1).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(1).Visible = False
-        End If
-
-        If ChkFolio.Checked Then
-            GvDatos.Columns(2).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(2).Visible = False
-        End If
-
-        If ChkTotal.Checked Then
-            GvDatos.Columns(9).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkSubTotal.Checked Then
-            GvDatos.Columns(3).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(3).Visible = False
-        End If
-
-        If ChkIVA.Checked Then
-            GvDatos.Columns(6).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(6).Visible = False
-        End If
-
-        If ChkDescuento.Checked Then
-            GvDatos.Columns(4).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(4).Visible = False
-        End If
-
-        If ChkAmortizacion.Checked Then
-            GvDatos.Columns(5).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(5).Visible = False
-        End If
-
-        If ChkRetIVA.Checked Then
-            GvDatos.Columns(7).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(7).Visible = False
-        End If
-
-        If ChkRetISR.Checked Then
-            GvDatos.Columns(9).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkMoneda.Checked Then
-            GvDatos.Columns(10).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(10).Visible = False
-        End If
-
-        If ChkSucursal.Checked Then
-            GvDatos.Columns(11).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(11).Visible = False
-        End If
-
-        If ChkCodigo.Checked Then
-            GvDatos.Columns(15).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(15).Visible = False
-        End If
-
-        If ChkCliente.Checked Then
-            GvDatos.Columns(16).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(16).Visible = False
-        End If
-
-        If ChkSucursalCliente.Checked Then
-            GvDatos.Columns(17).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(17).Visible = False
-        End If
-
-        If ChkVendedor.Checked Then
-            GvDatos.Columns(18).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(18).Visible = False
-        End If
-
-        If ChlMotivoDescuento.Checked Then
-            GvDatos.Columns(19).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(19).Visible = False
-        End If
-
-        If ChkEstatusFactura.Checked Then
-            GvDatos.Columns(20).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(20).Visible = False
-        End If
-
-        If ChkSeTimbro.Checked Then
-            GvDatos.Columns(21).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(21).Visible = False
-        End If
-
-        If ChkCuentaContableReferencia.Checked Then
-            GvDatos.Columns(22).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(22).Visible = False
-        End If
-
-
-        If ChkCuentaContable.Checked Then
-            GvDatos.Columns(23).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(23).Visible = False
-        End If
-
-        If ChkUsuario.Checked Then
-            GvDatos.Columns(24).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(24).Visible = False
-        End If
-
-        If ChkMotivoCancelacion.Checked Then
-            GvDatos.Columns(25).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(25).Visible = False
-        End If
-
-        If ChkObservaciones.Checked Then
-            GvDatos.Columns(26).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(26).Visible = False
-        End If
-
-        If ChkSucursalEjecucion.Checked Then
-            GvDatos.Columns(27).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(27).Visible = False
-        End If
-
-        If ChkTelefono.Checked Then
-            GvDatos.Columns(28).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(28).Visible = False
-        End If
-
-        If ChkMail.Checked Then
-            GvDatos.Columns(29).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(29).Visible = False
-        End If
-
-        If ChkLimiteCredito.Checked Then
-            GvDatos.Columns(30).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(30).Visible = False
-        End If
-
-        If ChkSucursalCobranza.Checked Then
-            GvDatos.Columns(31).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(31).Visible = False
-        End If
-
-        If ChkEstatusCobranza.Checked Then
-            GvDatos.Columns(33).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(33).Visible = False
-        End If
-
-        If ChkTurnoCobranza.Checked Then
-            GvDatos.Columns(34).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(34).Visible = False
-        End If
-
-        If ChkObsCobranza.Checked Then
-            GvDatos.Columns(35).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(35).Visible = False
-        End If
-
-
-        If ChkFechaCobranza.Checked Then
-            GvDatos.Columns(36).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(36).Visible = False
-        End If
-
-        If ChkHorario.Checked Then
-            GvDatos.Columns(37).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(37).Visible = False
-        End If
-
-        If ChkDiasPago.Checked Then
-            GvDatos.Columns(38).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(38).Visible = False
-        End If
-
-        If ChkSeEnvioMail.Checked Then
-            GvDatos.Columns(39).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(39).Visible = False
-        End If
-
-        If ChkEstatusCliente.Checked Then
-            GvDatos.Columns(40).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(40).Visible = False
-        End If
-
-        If ChkIEPS.Checked Then
-            GvDatos.Columns(41).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(41).Visible = False
-        End If
-
-        If ChkDiasTranscurridos.Checked Then
-            GvDatos.Columns(42).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(42).Visible = False
-        End If
-
-        If ChkTC.Checked Then
-            GvDatos.Columns(43).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(43).Visible = False
-        End If
-
-        If ChkFechaEjecucion.Checked Then
-            GvDatos.Columns(44).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(44).Visible = False
-        End If
-
-        If ChkMostrarLineaAdicional.Checked Then
-            GvDatos.Columns(45).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(45).Visible = False
-        End If
 
-        If ChkMostrarDescripcionVenta.Checked Then
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
-            GvDatos.Columns(46).Visible = True
+
-            SePersonalizo = 1
+        ActivaColumna(1, ChkFecha.Checked)
-        Else
+        ActivaColumna(2, ChkFolio.Checked)
-            GvDatos.Columns(46).Visible = False
+        ActivaColumna(3, ChkSubTotal.Checked)
-        End If
+        ActivaColumna(4, ChkDescuento.Checked)
-
+        ActivaColumna(5, ChkAmortizacion.Checked)
-        If ChkContrato.Checked Then
+        ActivaColumna(6, ChkIVA.Checked)
-            GvDatos.Columns(47).Visible = True
+        ActivaColumna(7, ChkRetIVA.Checked)
-            SePersonalizo = 1
+        ActivaColumna(8, ChkRetISR.Checked)
-        Else
+        ActivaColumna(9, ChkTotal.Checked)
-            GvDatos.Columns(47).Visible = False
+        ActivaColumna(10, ChkMoneda.Checked)
-        End If
+
-        If ChkIVAPend.Checked Then
+        ActivaColumna(11, ChkSucursal.Checked)
-            GvDatos.Columns(48).Visible = True
+        'ActivaColumna(12, ChkCuentaContableReferencia.Checked)
-            SePersonalizo = 1
+        'ActivaColumna(13, ChkCuentaContable.Checked)
-        Else
+        'ActivaColumna(14, ChkUsuario.Checked)
-            GvDatos.Columns(48).Visible = False
+        ActivaColumna(15, ChkCodigo.Checked)
-        End If
+        ActivaColumna(16, ChkCliente.Checked)
+        ActivaColumna(17, ChkSucursalCliente.Checked)
+        ActivaColumna(18, ChkVendedor.Checked)
+        ActivaColumna(19, ChlMotivoDescuento.Checked)
+        ActivaColumna(20, ChkEstatusFactura.Checked)
+
+        ActivaColumna(21, ChkSeTimbro.Checked)
+        ActivaColumna(22, ChkCuentaContableReferencia.Checked)
+        ActivaColumna(23, ChkCuentaContable.Checked)
+        ActivaColumna(24, ChkUsuario.Checked)
+        ActivaColumna(25, ChkMotivoCancelacion.Checked)
+        ActivaColumna(26, ChkObservaciones.Checked)
+        ActivaColumna(27, ChkSucursalEjecucion.Checked)
+        ActivaColumna(28, ChkTelefono.Checked)
+        ActivaColumna(29, ChkMail.Checked)
+        ActivaColumna(30, ChkLimiteCredito.Checked)
+
+        ActivaColumna(31, ChkSucursalCobranza.Checked)
+        'chk ActivaColumna(32, ChkSucursalCobranza.Checked)
+        ActivaColumna(33, ChkEstatusCobranza.Checked)
+        ActivaColumna(34, ChkTurnoCobranza.Checked)
+        ActivaColumna(35, ChkObsCobranza.Checked)
+        ActivaColumna(36, ChkFechaCobranza.Checked)
+        ActivaColumna(37, ChkHorario.Checked)
+        ActivaColumna(38, ChkDiasPago.Checked)
+        ActivaColumna(39, ChkSeEnvioMail.Checked)
+        ActivaColumna(40, ChkEstatusCliente.Checked)
+
+        ActivaColumna(41, ChkIEPS.Checked)
+        ActivaColumna(42, ChkDiasTranscurridos.Checked)
+        ActivaColumna(43, ChkTC.Checked)
+        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)
 
-        If ChkIEPSPend.Checked Then
-            GvDatos.Columns(49).Visible = True
-            SePersonalizo = 1
-        Else
-            GvDatos.Columns(49).Visible = False
-        End If
-
-
         If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
         Else
@@ -903,10 +641,20 @@ Partial Class RepCxCDetalle
 
         CargaDatos()
         RegistraScript("$('#DivPersonalizar').modal('hide');")
-    End Sub
+    End Sub
-
+
+    Private Sub ActivaColumna(Indice As Integer, Activo As Boolean)
+
+        If Activo Then
+            GvDatos.Columns(Indice).Visible = True
+            SePersonalizo = 1
+        Else
+            SePersonalizo = 0
+        End If
+
+    End Sub
 #End Region
-
+
 #Region "IMPRESIONES"
     Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
         GenerarImpresion("EXCEL")