diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 299054caa..1a79d3b39 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -301,7 +301,7 @@ Public Class ClsSisUsuarios Retorno.CveTipoDocumento = "-1" End If - + Retorno.ListaPersonalizacion = CargaPersonalizacionUsuario(Retorno.CveUsuario) End If @@ -313,6 +313,21 @@ Public Class ClsSisUsuarios Return Retorno End Function + Public Function CargaPersonalizacionUsuario(CveUsuarioParamerto As Integer) As Hashtable + + Dim Retorno As New Hashtable + If GetUsuariosPersonalizaciones(CveUsuarioParamerto) Then + + For Each drow As DataRow In Data.Rows + Retorno.Add(drow("PersonalizacionNombre").ToString, drow("PersonalizacionValor").ToString) + Next + + End If + + Return Retorno + + End Function + Public Function ValidaUsuarioAsignacion(CveUsuario As Integer, CveEmpresa As Integer) As Usuario Dim Retorno As Usuario = Nothing @@ -2951,6 +2966,56 @@ Public Class ClsSisUsuarios #End Region +#Region "PERSONALIZACIÓN COLUMNAS USUARIO" + Public Function GetUsuariosPersonalizaciones(ByVal CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Sis_UsuariosPersonalizacionesGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la personalización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Retorno = False + End Try + + Return Retorno + + End Function + + + Public Function AddUsuariosPersonalizaciones(ByRef UsuarioActual As Usuario, PersonalizacionNombre As String, PersonalizacionValor As String) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Sis_UsuariosPersonalizacionesAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = UsuarioActual.CveUsuario + .Add("@PersonalizacionNombre", SqlDbType.VarChar).Value = PersonalizacionNombre + .Add("@PersonalizacionValor", SqlDbType.VarChar).Value = PersonalizacionValor + End With + + Try + SqlAdapter.Fill(Data) + UsuarioActual.ListaPersonalizacion = CargaPersonalizacionUsuario(UsuarioActual.CveUsuario) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar la personalización.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Retorno = False + End Try + + Return Retorno + + End Function + +#End Region + #Region "IDisposable Support" Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then diff --git a/App_Code/Usuario.vb b/App_Code/Usuario.vb index dd88e9a40..4cc510cf0 100644 --- a/App_Code/Usuario.vb +++ b/App_Code/Usuario.vb @@ -47,7 +47,7 @@ Public Class Usuario Public Property NombreAbreviatura As String Public Property SessionId As String Private Property ListaSesion As Hashtable - Private Property ListaPersonalizacion As Hashtable + Public Property ListaPersonalizacion As Hashtable Public Property Acceso As Integer Public Property TipoControl As Integer diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 9c2e5c7a6..5e479eddc 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -669,7 +669,7 @@ - + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 3a2c26cbd..59bf6db47 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1576,6 +1576,14 @@ Partial Class Inventarios_TraspasoAlmacen End If e.Row.FCTextBox("TxtSerie").ReadOnly = True + 'If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If UsuarioActual.CveEmpresa = 141 Then + e.Row.FCTextBox("TxtCantidad").Enabled = False + e.Row.FCTextBox("TxtCantidad").Text = e.Row.DataKey("Cantidad").ToDecimal.ToString("#,###.######") + e.Row.FCCheckBox("Chk").Enabled = False + e.Row.FCCheckBox("Chk").Checked = True + End If + End If 'FUNCIONALIDAD PISTOLA DE CODIGOS @@ -1587,12 +1595,7 @@ Partial Class Inventarios_TraspasoAlmacen End If - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - e.Row.FCTextBox("TxtCantidad").Enabled = False - e.Row.FCTextBox("TxtCantidad").Text = e.Row.DataKey("Cantidad") - e.Row.FCCheckBox("Chk").Enabled = False - e.Row.FCCheckBox("Chk").Checked = True - End If + diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index c6a069f88..aeb271225 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -60,7 +60,8 @@ Excel Personalizado
  • - Personalizar Columnas + <%-- Personalizar Columnas--%> + Personalizar Columnas
  • Descarga PDFs @@ -332,178 +333,226 @@ + <%-- 0--%> + <%-- 1--%> + <%-- 2--%> + <%-- 3--%> + <%-- 4--%> + <%-- 5--%> + <%-- 6--%> + <%-- 7--%> + <%-- 8--%> + <%-- 9--%> + <%-- 10--%> + <%-- 11--%> + <%-- 12--%> + <%-- 13--%> + <%-- 14--%> + <%-- 15--%> + <%-- 16--%> + <%-- 17--%> + <%-- 18--%> + <%-- 19--%> + <%-- 20--%> + <%-- 21--%> + <%-- 22--%> + <%-- 23--%> + <%-- 24--%> + <%-- 25--%> + <%-- 26--%> + <%-- 27--%> + <%-- 28--%> + <%-- 29--%> + <%-- 30--%> + <%-- 31--%> + <%-- 32--%> + <%-- 33--%> + + <%-- 34--%> + + + + + + <%-- 35--%> + + + + + + @@ -576,102 +625,90 @@ - - - - - + + + - - - - - - + + + - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - + + + + - - - - - + + + - - - - - + + + + + + + + - - - - - - + + + + -
    - - - -
    - - - -
    - - - -
    -
    - - -
    - - - -
    - - - -
    - - - -
    - - - -
    + + + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 303f97a9a..e3c411985 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -28,6 +28,9 @@ Partial Class RepVentaDetalle End Property Private Property DtVentas As DataTable Get + If ViewState("DtVentas") Is Nothing Then + ViewState("DtVentas") = New DataTable + End If Return DirectCast(ViewState("DtVentas"), DataTable) End Get Set(value As DataTable) @@ -94,6 +97,20 @@ Partial Class RepVentaDetalle End Set End Property + + Public Property Primeracontsulta As Boolean + Get + If ViewState("Primeracontsulta") Is Nothing Then + ViewState("Primeracontsulta") = True + End If + Return Boolean.Parse(ViewState("Primeracontsulta").ToString) + + End Get + Set(value As Boolean) + ViewState("Primeracontsulta") = value + End Set + End Property + #End Region 'pRivate ReadOnly Property ColumnasVisibles As Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -111,6 +128,8 @@ Partial Class RepVentaDetalle DVServicioDomicilio.Visible = True End If + PrePersonalizacion() + CargaPersonalizacion() End If End Sub @@ -407,6 +426,16 @@ Partial Class RepVentaDetalle ImgImprimir.Enabled = True GvDatos.DataSource = AddRows(ObjVentas.DtResultados) GvVsh.DataSource = ObjVentas.DtResultados.FiltraParametros("CveVenta > 0") + + If DtVentas.SUMD("Descuento") <= 0 Then + GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io + Else + If Primeracontsulta Then + GvDatos.Columns(5).Visible = True + ChkDescuento.Checked = True + End If + End If + Else GvDatos.DataSource = Nothing GvVsh.DataSource = Nothing @@ -416,8 +445,19 @@ Partial Class RepVentaDetalle If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 AndAlso DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io Agrupador = DdlGrupo.SelectedItem.Text - GvDatos.DataBind() + GvDatosDataBind() GvVsh.DataBind() + + Primeracontsulta = False + + End Sub + + Private Sub GvDatosDataBind() + + GvDatos.DataSource = DtVentas + GvDatos.DataBind() + UPDatos.Update() + End Sub #End Region @@ -526,8 +566,388 @@ Partial Class RepVentaDetalle #Region "PERSONALIZAR COLUMNAS" + Private Sub PrePersonalizacion() + + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then + ChkIEPS.Visible = True + Else + ChkIEPS.Visible = False + GvDatos.Columns(9).Visible = False + End If + End Sub + + Private Sub PersonalizaDefault() + + ChkTipoDocto.Checked = True + ChkFolio.Checked = True + ChkFecha.Checked = True + ChkSubTotal.Checked = True + + If DtVentas.Rows.Count > 0 AndAlso DtVentas.SUMD("Descuento") > 0 Then + ChkDescuento.Checked = True + End If + + ChkIVA.Checked = True + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then + ChkIEPS.Checked = True + End If + + ChkTotal.Checked = True + ChkMoneda.Checked = True + ChkSucursal.Checked = True + ChkEstatusFactura.Checked = True + ChkCliente.Checked = True + + End Sub + + Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs) + + ChkGuardarPersonalizacion.Checked = False + RegistraScript("$('#DivPersonalizar').modal('show')") + + End Sub + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + If ChkGuardarPersonalizacion.Checked Then + GuardaPersonalizacion() + End If + + Personaliza() + GvDatosDataBind() + UPDatos.Update() + + End Sub + + Private Sub GuardaPersonalizacion() + + Dim objUsuario As New ClsSisUsuarios + Dim ListPersonalizada As New List(Of String) + + If ChkOrdenCompra.Checked Then + ListPersonalizada.Add("OrdenCompra") + End If + + If ChkFolio.Checked Then + ListPersonalizada.Add("Folio") + End If + + If ChkPedidoContrato.Checked Then + ListPersonalizada.Add("PedidoContrato") + End If + + + If ChkFolio.Checked Then + ListPersonalizada.Add("Folio") + End If + + If ChkFecha.Checked Then + ListPersonalizada.Add("Fecha") + End If + + If ChkCliente.Checked Then + ListPersonalizada.Add("Cliente") + End If + + If ChkSubTotal.Checked Then + ListPersonalizada.Add("SubTotal") + End If + + If ChkDescuento.Checked Then + ListPersonalizada.Add("Descuento") + End If + + If ChlMotivoDescuento.Checked Then + ListPersonalizada.Add("MotivoDescuento") + End If + + If ChkAmortizacion.Checked Then + ListPersonalizada.Add("Amortizacion") + End If + + If ChkIVA.Checked Then + ListPersonalizada.Add("IVA") + End If + + If ChkIEPS.Checked Then + ListPersonalizada.Add("IEPS") + End If + + If ChkRetIVA.Checked Then + ListPersonalizada.Add("RetIVA") + End If + + If ChkRetISR.Checked Then + ListPersonalizada.Add("RetISR") + End If + + If ChkTotalImpuestos.Checked Then + ListPersonalizada.Add("TotalImpuestos") + End If + + If ChkTotal.Checked Then + ListPersonalizada.Add("Total") + End If + + If ChkMoneda.Checked Then + ListPersonalizada.Add("Moneda") + End If + + If ChkSucursal.Checked Then + ListPersonalizada.Add("Sucursal") + End If + + If ChkSucursalEjecucion.Checked Then + ListPersonalizada.Add("SucursalEjecucion") + End If + + If ChkCodigo.Checked Then + ListPersonalizada.Add("Codigo") + End If + + If ChkSucursalCliente.Checked Then + ListPersonalizada.Add("SucursalCliente") + End If + + If ChkSucursalCobranza.Checked Then + ListPersonalizada.Add("SucursalCobranza") + End If + + If ChkVendedor.Checked Then + ListPersonalizada.Add("Vendedor") + End If + + If ChkEstatusFactura.Checked Then + ListPersonalizada.Add("EstatusFactura") + End If + + If ChkMotivoCancelacion.Checked Then + ListPersonalizada.Add("MotivoCancelacion") + End If + + If ChkSeTimbro.Checked Then + ListPersonalizada.Add("SeTimbro") + End If + + If ChkSeEnvioMail.Checked Then + ListPersonalizada.Add("SeEnvioMail") + End If + + If ChkCuentaContable.Checked Then + ListPersonalizada.Add("CuentaContable") + End If + + If ChkUsuario.Checked Then + ListPersonalizada.Add("Usuario") + End If + + If ChkObservaciones.Checked Then + ListPersonalizada.Add("Observaciones") + End If + + If ChkFolioFiscal.Checked Then + ListPersonalizada.Add("FolioFiscal") + End If + + If ChkMailCliente.Checked Then + ListPersonalizada.Add("MailCliente") + End If + + If ChkEstatusFacturacion.Checked Then + ListPersonalizada.Add("EstatusFacturacion") + End If + + If ChkFolioFacturacion.Checked Then + ListPersonalizada.Add("FolioFacturacion") + End If + + If ChkSaldo.Checked Then + ListPersonalizada.Add("Saldo") + End If + + If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then + 'Alert("Personalizacion guardada") + End If + + objUsuario.Dispose() + + End Sub + + + Private Sub CargaPersonalizacion() + + Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("RepVentaDetalles.aspx") + + If strBasePersonalizacion.Trim.Length > 0 Then + + ChkTipoDocto.Checked = False + ChkOrdenCompra.Checked = False + ChkPedidoContrato.Checked = False + + ChkFolio.Checked = False + ChkFecha.Checked = False + ChkCliente.Checked = False + ChkSubTotal.Checked = False + ChkDescuento.Checked = False + ChlMotivoDescuento.Checked = False + ChkAmortizacion.Checked = False + ChkIVA.Checked = False + ChkIEPS.Checked = False + ChkRetIVA.Checked = False + ChkRetISR.Checked = False + ChkTotalImpuestos.Checked = False + ChkTotal.Checked = False + ChkMoneda.Checked = False + ChkSucursal.Checked = False + ChkSucursalEjecucion.Checked = False + ChkCodigo.Checked = False + ChkSucursalCliente.Checked = False + ChkSucursalCobranza.Checked = False + ChkSucursalEjecucion.Checked = False + ChkVendedor.Checked = False + ChkEstatusFactura.Checked = False + ChkMotivoCancelacion.Checked = False + ChkSeTimbro.Checked = False + ChkSeEnvioMail.Checked = False + ChkCuentaContable.Checked = False + ChkUsuario.Checked = False + ChkObservaciones.Checked = False + ChkFolioFiscal.Checked = False + ChkMailCliente.Checked = False + ChkEstatusFacturacion.Checked = False + ChkFolioFacturacion.Checked = False + ChkSaldo.Checked = False + + Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c) + + For Each personalizacion As String In Personalizaciones + Select Case personalizacion + Case "TipoDocto" + ChkTipoDocto.Checked = True + Exit Select + Case "OrdenCompra" + ChkOrdenCompra.Checked = True + Exit Select + Case "PedidoContrato" + ChkPedidoContrato.Checked = True + Exit Select + Case "Folio" + ChkFolio.Checked = True + Exit Select + Case "Fecha" + ChkFecha.Checked = True + Exit Select + Case "Cliente" + ChkCliente.Checked = True + Exit Select + Case "SubTotal" + ChkSubTotal.Checked = True + Exit Select + Case "Descuento" + ChkDescuento.Checked = True + Exit Select + Case "MotivoDescuento" + ChlMotivoDescuento.Checked = True + Exit Select + Case "Amortizacion" + ChkAmortizacion.Checked = True + Exit Select + Case "IVA" + ChkIVA.Checked = True + Exit Select + Case "IEPS" + ChkIEPS.Checked = True + Exit Select + Case "RetIVA" + ChkRetIVA.Checked = True + Exit Select + Case "RetISR" + ChkRetISR.Checked = True + Exit Select + Case "TotalImpuestos" + ChkTotalImpuestos.Checked = True + Exit Select + Case "Total" + ChkTotal.Checked = True + Exit Select + Case "Moneda" + ChkMoneda.Checked = True + Exit Select + Case "Sucursal" + ChkSucursal.Checked = True + Exit Select + Case "SucursalEjecucion" + ChkSucursalEjecucion.Checked = True + Exit Select + Case "Codigo" + ChkCodigo.Checked = True + Exit Select + Case "SucursalCliente" + ChkSucursalCliente.Checked = True + Exit Select + Case "SucursalCobranza" + ChkSucursalCobranza.Checked = True + Exit Select + Case "SucursalEjecucion" + ChkSucursalEjecucion.Checked = True + Exit Select + Case "Vendedor" + ChkVendedor.Checked = True + Exit Select + Case "EstatusFactura" + ChkEstatusFactura.Checked = True + Exit Select + Case "MotivoCancelacion" + ChkMotivoCancelacion.Checked = True + Exit Select + Case "SeTimbro" + ChkSeTimbro.Checked = True + Exit Select + Case "SeEnvioMail" + ChkSeEnvioMail.Checked = True + Exit Select + Case "CuentaContable" + ChkCuentaContable.Checked = True + Exit Select + Case "Usuario" + ChkUsuario.Checked = True + Exit Select + Case "Observaciones" + ChkObservaciones.Checked = True + Exit Select + Case "FolioFiscal" + ChkFolioFiscal.Checked = True + Exit Select + Case "MailCliente" + ChkMailCliente.Checked = True + Exit Select + Case "EstatusFacturacion" + ChkEstatusFacturacion.Checked = True + Exit Select + Case "FolioFacturacion" + ChkFolioFacturacion.Checked = True + Exit Select + Case "Saldo" + ChkSaldo.Checked = True + Exit Select + Case Else + Exit Select + End Select + Next + + Personaliza() + Else + PersonalizaDefault() + End If + + UPPersonalizar.Update() + + End Sub + + + Private Sub Personaliza() + + GvDatos.Columns(0).Visible = ChkTipoDocto.Checked GvDatos.Columns(1).Visible = ChkFolio.Checked GvDatos.Columns(2).Visible = ChkFecha.Checked GvDatos.Columns(3).Visible = ChkCliente.Checked @@ -561,6 +981,8 @@ Partial Class RepVentaDetalle GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked GvDatos.Columns(33).Visible = ChkSaldo.Checked + GvDatos.Columns(34).Visible = ChkOrdenCompra.Checked + GvDatos.Columns(35).Visible = ChkPedidoContrato.Checked Personalizo = 1 If Personalizo = 1 Then @@ -568,7 +990,7 @@ Partial Class RepVentaDetalle Else ImgExcelPersonalizado.Visible = False End If - UPDatos.Update() + End Sub #End Region @@ -871,4 +1293,6 @@ Partial Class RepVentaDetalle #End Region + + End Class diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index 4335aa294..45085366d 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -69,10 +69,19 @@ +
  • - Personalizar + Excel Personalizado +
  • + +
  • + Personalizar Columnas + <%-- Personalizar--%>
  • + + + @@ -344,34 +353,51 @@ + <%--0--%> + <%--1--%> + <%--2--%> + <%--3--%> + <%--4--%> - + <%--5--%> - + <%--6--%> + <%--7--%> + <%--8--%> + <%--9--%> + <%--10--%> + <%--11--%> + <%--12--%> + <%--13--%> + <%--14--%> + <%--15--%> + <%--16--%> + <%--17--%> + <%--18--%> @@ -397,46 +423,121 @@ - + - + + - + + - + + - + + - + + + - + + - + + - + + - + + - + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 65a96a42d..bfcb41745 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -61,6 +61,9 @@ Partial Class Ventas_RepVentas End Property Private Property DtVentas As DataTable Get + If ViewState("DtVentas") Is Nothing Then + ViewState("DtVentas") = New DataTable + End If Return DirectCast(ViewState("DtVentas"), DataTable) End Get Set(value As DataTable) @@ -68,6 +71,28 @@ Partial Class Ventas_RepVentas End Set End Property + Private Property Personalizo As Integer + Get + Return ViewState("Personalizo").ToString.ToEntero + End Get + + Set(value As Integer) + ViewState("Personalizo") = value + End Set + End Property + + Public Property Primeracontsulta As Boolean + Get + If ViewState("Primeracontsulta") Is Nothing Then + ViewState("Primeracontsulta") = True + End If + Return Boolean.Parse(ViewState("Primeracontsulta").ToString) + + End Get + Set(value As Boolean) + ViewState("Primeracontsulta") = value + End Set + End Property #End Region @@ -76,7 +101,8 @@ Partial Class Ventas_RepVentas If Not IsPostBack Then If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") TipoCambio = 1 - TCEspecifico = -1 + TCEspecifico = -1 + Personalizo = 0 CargaCombos() ConfiguraEmpresa() @@ -121,7 +147,10 @@ Partial Class Ventas_RepVentas DVServicioDomicilio.Visible = True DivLblDistr.Visible = True DivDistr.Visible = True - End If + End If + + PrePersonalizacion() + CargaPersonalizacion() End If @@ -254,12 +283,34 @@ Partial Class Ventas_RepVentas GvDatos.DataSource = Nothing End If - If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io + If DtVentas.SUMD("Descuento") <= 0 Then + GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io + 'ChkDescuentos.Visible = False + Else + If Primeracontsulta Then + GvDatos.Columns(3).Visible = True + ChkDescuentos.Checked = True + End If + End If + UPPersonalizar.Update() Agrupador = DdlGrupo.SelectedItem.Text CveProyecto = DdlProyecto.SelectedValue.ToEntero - ObjVentas.Dispose() - GvDatos.DataBind() + ObjVentas.Dispose() + + + GvDatosDataBind() + + + Primeracontsulta = False + End Sub + + Private Sub GvDatosDataBind() + + GvDatos.DataSource = DtVentas + GvDatos.DataBind() + UPDatos.Update() + End Sub #End Region @@ -474,25 +525,261 @@ Partial Class Ventas_RepVentas #End Region #Region " PERSONALIZAR " - Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) - Personaliza() + + + Private Sub PrePersonalizacion() + 'ChkDescuentos.Visible = False + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then + ChkIEPS.Visible = True + Else + ChkIEPS.Visible = False + GvDatos.Columns(7).Visible = False + End If + End Sub + + Protected Sub LnkPErsonalizar_Click(sender As Object, e As EventArgs) + ChkGuardarPersonalizacion.Checked = False + RegistraScript("$('#DivPersonalizar').modal('show')") + End Sub + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) + + If ChkGuardarPersonalizacion.Checked Then + GuardaPersonalizacion() + End If + + Personaliza() + GvDatosDataBind() End Sub + Private Sub GuardaPersonalizacion() + + Dim objUsuario As New ClsSisUsuarios + Dim ListPersonalizada As New List(Of String) + + 'ChkCantidad.Checked = False + 'ChkSubtotal.Checked = False + 'ChkDescuentos.Checked = False + 'ChkIVA.Checked = False + 'ChkTotal.Checked = False + + If ChkCantidad.Checked Then + ListPersonalizada.Add("Cantidad") + End If + + If ChkSubtotal.Checked Then + ListPersonalizada.Add("Subtotal") + End If + + If ChkDescuentos.Checked Then + ListPersonalizada.Add("Descuentos") + End If + + If ChkIVA.Checked Then + ListPersonalizada.Add("IVA") + End If + + If ChkTotal.Checked Then + ListPersonalizada.Add("Total") + End If + + If ChkSubTotal2.Checked Then + ListPersonalizada.Add("SubTotal2") + End If + If ChkIEPS.Checked Then + ListPersonalizada.Add("IEPS") + End If + If ChkRetIVA.Checked Then + ListPersonalizada.Add("RetIVA") + End If + If ChkRetISR.Checked Then + ListPersonalizada.Add("RetISR") + End If + If ChkImpLoc.Checked Then + ListPersonalizada.Add("ImpLoc") + End If + If ChkMinSub.Checked Then + ListPersonalizada.Add("MinSub") + End If + If ChkAVGSub.Checked Then + ListPersonalizada.Add("AVGSub") + End If + If ChkMaxSub.Checked Then + ListPersonalizada.Add("MaxSub") + End If + If ChkMaxTot.Checked Then + ListPersonalizada.Add("MaxTot") + End If + If ChkAvgTot.Checked Then + ListPersonalizada.Add("AvgTot") + End If + If ChkMinTot.Checked Then + ListPersonalizada.Add("MinTot") + End If + If CheckRefacturado.Checked Then + ListPersonalizada.Add("CheckRefacturado") + End If + + If ChkCantidad.Checked Then + ListPersonalizada.Add("Cantidad") + End If + + + If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentas.aspx", String.Join("|", ListPersonalizada)) Then + 'Alert("Personalizacion guardada") + End If + + objUsuario.Dispose() + + End Sub + + + Private Sub CargaPersonalizacion() + + + Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("RepVentas.aspx") + + If strBasePersonalizacion.Trim.Length > 0 Then + + ChkCantidad.Checked = False + ChkSubtotal.Checked = False + ChkDescuentos.Checked = False + ChkIVA.Checked = False + ChkTotal.Checked = False + + ChkSubTotal2.Checked = False + ChkIEPS.Checked = False + ChkRetIVA.Checked = False + ChkRetISR.Checked = False + ChkImpLoc.Checked = False + ChkMinSub.Checked = False + ChkAVGSub.Checked = False + ChkMaxSub.Checked = False + ChkMaxTot.Checked = False + ChkAvgTot.Checked = False + ChkMinTot.Checked = False + CheckRefacturado.Checked = False + + Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c) + + For Each personalizacion As String In Personalizaciones + + Select Case personalizacion + + Case "Cantidad" + ChkCantidad.Checked = True + Exit Select + Case "Subtotal" + ChkSubtotal.Checked = True + Exit Select + Case "Descuentos" + ChkDescuentos.Checked = True + Exit Select + Case "IVA" + ChkIVA.Checked = True + Exit Select + Case "Total" + ChkTotal.Checked = True + Exit Select + Case "SubTotal2" + ChkSubTotal2.Checked = True + Exit Select + Case "IEPS" + ChkIEPS.Checked = True + Exit Select + Case "RetIVA" + ChkRetIVA.Checked = True + Exit Select + Case "RetISR" + ChkRetISR.Checked = True + Exit Select + Case "ImpLoc" + ChkImpLoc.Checked = True + Exit Select + Case "MinSub" + ChkMinSub.Checked = True + Exit Select + Case "AVGSub" + ChkAVGSub.Checked = True + Exit Select + Case "MaxSub" + ChkMaxSub.Checked = True + Exit Select + Case "MaxTot" + ChkMaxTot.Checked = True + Exit Select + Case "AvgTot" + ChkAvgTot.Checked = True + Exit Select + Case "MinTot" + ChkMinTot.Checked = True + Exit Select + Case "CheckRefacturado" + CheckRefacturado.Checked = True + Exit Select + Case Else + Exit Select + End Select + + Next + + + Personaliza() + Else + PersonalizaDefault() + End If + UPPersonalizar.Update() + + End Sub + + Private Sub PersonalizaDefault() + ChkCantidad.Checked = True + 'ChkSubtotal.Checked = True + + If DtVentas.Rows.Count > 0 AndAlso DtVentas.SUMD("Descuento") > 0 Then + ChkDescuentos.Checked = True + End If + + ChkSubTotal2.Checked = True + ChkIVA.Checked = True + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then + ChkIEPS.Checked = True + End If + 'ChkRetIVA.Checked = True + 'ChkRetISR.Checked = True + 'ChkImpLoc.Checked = True + ChkTotal.Checked = True + End Sub + Private Sub Personaliza() + + GvDatos.Columns(1).Visible = ChkCantidad.Checked + GvDatos.Columns(2).Visible = ChkSubtotal.Checked + GvDatos.Columns(3).Visible = ChkDescuentos.Checked + GvDatos.Columns(6).Visible = ChkIVA.Checked + GvDatos.Columns(11).Visible = ChkTotal.Checked + GvDatos.Columns(5).Visible = ChkSubTotal2.Checked GvDatos.Columns(7).Visible = ChkIEPS.Checked GvDatos.Columns(8).Visible = ChkRetIVA.Checked GvDatos.Columns(9).Visible = ChkRetISR.Checked GvDatos.Columns(10).Visible = ChkImpLoc.Checked - GvDatos.Columns(12).Visible = ChkMinSub.Checked + GvDatos.Columns(12).Visible = ChkMaxSub.Checked GvDatos.Columns(13).Visible = ChkAVGSub.Checked - GvDatos.Columns(14).Visible = ChkMaxSub.Checked + + GvDatos.Columns(14).Visible = ChkMinSub.Checked + GvDatos.Columns(15).Visible = ChkMaxTot.Checked GvDatos.Columns(16).Visible = ChkAvgTot.Checked GvDatos.Columns(17).Visible = ChkMinTot.Checked GvDatos.Columns(18).Visible = CheckRefacturado.Checked + Personalizo = 1 + If Personalizo = 1 Then + ImgExcelPersonalizado.Visible = True + Else + ImgExcelPersonalizado.Visible = False + End If UPDatos.Update() End Sub @@ -510,7 +797,7 @@ Partial Class Ventas_RepVentas Private Sub GenerarPDF(Optional Formato As String = "PDF") If DtVentas IsNot Nothing Then Dim StrFiltro As New StringBuilder - StrFiltro.AppendFormat(" Agrupado por: {0}", DdlGrupo.SelectedItem.Text) + StrFiltro.AppendFormat(" Agrupado por: {0}", DdlGrupo.SelectedItem.Text) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepVentas.rdlc", UsuarioActual.Empresa.Ruta)) Dim ruta As String = "" @@ -743,5 +1030,13 @@ Partial Class Ventas_RepVentas End Sub + Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click + 'GvVsh.Visible = True + 'GvVsh.ExportToExcel("DetalleVentas_" & Now.ToShortDateString) + 'GvVsh.Visible = False + GvDatos.ExportToExcel("Ventas_" & Now.ToShortDateString & ".xls") + 'GvDatos.ExportToExcelG("DetalleVentas_" & Now.ToShortDateString & ".xlsx") + End Sub + End Class