From dd33633471ecb0a1362453887792a63530938c47 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Oct 2023 16:41:15 -0700 Subject: [PATCH] -- PERSONALIZAR COLUMNA 'TC' --- Ventas/RepVentaDetalle.aspx | 8 +- Ventas/RepVentaDetalle.aspx.vb | 157 +++++++++------------------------ 2 files changed, 50 insertions(+), 115 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 8b8409e9f..bf80fe55d 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -579,6 +579,12 @@ + <%-- 39--%> + + + + + @@ -717,7 +723,7 @@ - + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index def5cb316..b292cf75f 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -625,160 +625,85 @@ Partial Class RepVentaDetalle Dim objUsuario As New ClsSisUsuarios Dim ListPersonalizada As New List(Of String) - If ChkOrdenCompra.Checked Then - ListPersonalizada.Add("OrdenCompra") - End If + If ChkOrdenCompra.Checked Then ListPersonalizada.Add("OrdenCompra") - If ChkFolio.Checked Then - ListPersonalizada.Add("Folio") - End If + If ChkFolio.Checked Then ListPersonalizada.Add("Folio") - If ChkPedidoContrato.Checked Then - ListPersonalizada.Add("PedidoContrato") - End If + If ChkPedidoContrato.Checked Then ListPersonalizada.Add("PedidoContrato") + If ChkFolio.Checked Then ListPersonalizada.Add("Folio") - If ChkFolio.Checked Then - ListPersonalizada.Add("Folio") - End If + If ChkFecha.Checked Then ListPersonalizada.Add("Fecha") - If ChkFecha.Checked Then - ListPersonalizada.Add("Fecha") - End If + If ChkCliente.Checked Then ListPersonalizada.Add("Cliente") - If ChkCliente.Checked Then - ListPersonalizada.Add("Cliente") - End If + If ChkSubTotal.Checked Then ListPersonalizada.Add("SubTotal") - If ChkSubTotal.Checked Then - ListPersonalizada.Add("SubTotal") - End If + If ChkDescuento.Checked Then ListPersonalizada.Add("Descuento") - If ChkDescuento.Checked Then - ListPersonalizada.Add("Descuento") - End If + If ChlMotivoDescuento.Checked Then ListPersonalizada.Add("MotivoDescuento") - If ChlMotivoDescuento.Checked Then - ListPersonalizada.Add("MotivoDescuento") - End If + If ChkAmortizacion.Checked Then ListPersonalizada.Add("Amortizacion") - If ChkAmortizacion.Checked Then - ListPersonalizada.Add("Amortizacion") - End If + If ChkIVA.Checked Then ListPersonalizada.Add("IVA") - If ChkIVA.Checked Then - ListPersonalizada.Add("IVA") - End If + If ChkIEPS.Visible AndAlso ChkIEPS.Checked Then ListPersonalizada.Add("IEPS") - If ChkIEPS.Checked Then - ListPersonalizada.Add("IEPS") - End If + If ChkRetIVA.Checked Then ListPersonalizada.Add("RetIVA") - If ChkRetIVA.Checked Then - ListPersonalizada.Add("RetIVA") - End If + If ChkRetISR.Checked Then ListPersonalizada.Add("RetISR") - If ChkRetISR.Checked Then - ListPersonalizada.Add("RetISR") - End If + If ChkTotalImpuestos.Checked Then ListPersonalizada.Add("TotalImpuestos") - If ChkTotalImpuestos.Checked Then - ListPersonalizada.Add("TotalImpuestos") - End If + If ChkTotal.Checked Then ListPersonalizada.Add("Total") - If ChkTotal.Checked Then - ListPersonalizada.Add("Total") - End If + If ChkMoneda.Checked Then ListPersonalizada.Add("Moneda") - If ChkMoneda.Checked Then - ListPersonalizada.Add("Moneda") - End If + If ChkSucursal.Checked Then ListPersonalizada.Add("Sucursal") - If ChkSucursal.Checked Then - ListPersonalizada.Add("Sucursal") - End If + If ChkSucursalEjecucion.Checked Then ListPersonalizada.Add("SucursalEjecucion") - If ChkSucursalEjecucion.Checked Then - ListPersonalizada.Add("SucursalEjecucion") - End If + If ChkCodigo.Checked Then ListPersonalizada.Add("Codigo") - If ChkCodigo.Checked Then - ListPersonalizada.Add("Codigo") - End If + If ChkSucursalCliente.Checked Then ListPersonalizada.Add("SucursalCliente") - If ChkSucursalCliente.Checked Then - ListPersonalizada.Add("SucursalCliente") - End If + If ChkSucursalCobranza.Checked Then ListPersonalizada.Add("SucursalCobranza") - If ChkSucursalCobranza.Checked Then - ListPersonalizada.Add("SucursalCobranza") - End If + If ChkVendedor.Checked Then ListPersonalizada.Add("Vendedor") - If ChkVendedor.Checked Then - ListPersonalizada.Add("Vendedor") - End If + If ChkEstatusFactura.Checked Then ListPersonalizada.Add("EstatusFactura") - If ChkEstatusFactura.Checked Then - ListPersonalizada.Add("EstatusFactura") - End If + If ChkMotivoCancelacion.Checked Then ListPersonalizada.Add("MotivoCancelacion") - If ChkMotivoCancelacion.Checked Then - ListPersonalizada.Add("MotivoCancelacion") - End If + If ChkSeTimbro.Checked Then ListPersonalizada.Add("SeTimbro") - If ChkSeTimbro.Checked Then - ListPersonalizada.Add("SeTimbro") - End If + If ChkSeEnvioMail.Checked Then ListPersonalizada.Add("SeEnvioMail") - If ChkSeEnvioMail.Checked Then - ListPersonalizada.Add("SeEnvioMail") - End If + If ChkCuentaContable.Checked Then ListPersonalizada.Add("CuentaContable") - If ChkCuentaContable.Checked Then - ListPersonalizada.Add("CuentaContable") - End If + If ChkUsuario.Checked Then ListPersonalizada.Add("Usuario") - If ChkUsuario.Checked Then - ListPersonalizada.Add("Usuario") - End If + If ChkObservaciones.Checked Then ListPersonalizada.Add("Observaciones") - If ChkObservaciones.Checked Then - ListPersonalizada.Add("Observaciones") - End If + If ChkFolioFiscal.Checked Then ListPersonalizada.Add("FolioFiscal") - If ChkFolioFiscal.Checked Then - ListPersonalizada.Add("FolioFiscal") - End If + If ChkMailCliente.Checked Then ListPersonalizada.Add("MailCliente") - If ChkMailCliente.Checked Then - ListPersonalizada.Add("MailCliente") - End If + If ChkEstatusFacturacion.Checked Then ListPersonalizada.Add("EstatusFacturacion") - If ChkEstatusFacturacion.Checked Then - ListPersonalizada.Add("EstatusFacturacion") - End If + If ChkFolioFacturacion.Checked Then ListPersonalizada.Add("FolioFacturacion") - If ChkFolioFacturacion.Checked Then - ListPersonalizada.Add("FolioFacturacion") - End If + If ChkSaldo.Checked Then ListPersonalizada.Add("Saldo") - If ChkSaldo.Checked Then - ListPersonalizada.Add("Saldo") - End If + If ChkMetodoPago.Checked Then ListPersonalizada.Add("MetodoPago") - - If ChkMetodoPago.Checked Then - ListPersonalizada.Add("MetodoPago") - End If - - If ChkFormaPago.Checked Then - ListPersonalizada.Add("FormaPago") - End If + If ChkFormaPago.Checked Then ListPersonalizada.Add("FormaPago") If ChkUsoCFDI.Checked Then ListPersonalizada.Add("UsoCFDI") - If ChkKilometraje.Checked Then ListPersonalizada.Add("Kilometraje") + If ChkKilometraje.Visible AndAlso ChkKilometraje.Checked Then ListPersonalizada.Add("Kilometraje") + If ChkTC.Checked Then ListPersonalizada.Add("TC") If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then 'Alert("Personalizacion guardada") @@ -877,6 +802,9 @@ Partial Class RepVentaDetalle Case "IEPS" ChkIEPS.Checked = True Exit Select + Case "TC" + ChkTC.Checked = True + Exit Select Case "RetIVA" ChkRetIVA.Checked = True Exit Select @@ -1018,6 +946,7 @@ Partial Class RepVentaDetalle GvDatos.Columns(37).Visible = ChkFormaPago.Checked GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked GvDatos.Columns(39).Visible = ChkKilometraje.Checked + GvDatos.Columns(40).Visible = ChkTC.Checked Personalizo = 1 If Personalizo = 1 Then