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