AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Personalizacion Rep Ventas Rep ventas Detalles

Browse Source
This commit is contained in:
rakcsle
2023-08-01 18:06:54 -07:00
parent 69cad8a218
commit 738a491f1b
8 changed files with 1042 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

315
Ventas/RepVentas.aspx.vb
View File

@@ -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("&emsp;<b>Agrupado por</b>: {0}", DdlGrupo.SelectedItem.Text)
StrFiltro.AppendFormat("&emsp;<b>Agrupado por</b>: {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