733 lines
29 KiB
VB.net
733 lines
29 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
|
|
Imports System.Data
|
|
Imports System.IO
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
Partial Class Ventas_RepRecuperacionDetalle
|
|
Inherits ClsPaginas
|
|
|
|
#Region "Propiedades"
|
|
Public Property Iva() As String
|
|
Get
|
|
Return ViewState("IVA").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("IVA") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtDatos As DataTable
|
|
Get
|
|
Return DirectCast(ViewState("DtDatos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtDatos") = value
|
|
End Set
|
|
End Property
|
|
Public Property Grupo() As String
|
|
Get
|
|
Return ViewState("Grupo").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Grupo") = value
|
|
End Set
|
|
End Property
|
|
Private Property TipoCambio As Integer
|
|
Get
|
|
Return ViewState("TipoCambio").ToString.ToEntero
|
|
End Get
|
|
|
|
Set(value As Integer)
|
|
ViewState("TipoCambio") = value
|
|
End Set
|
|
End Property
|
|
Private Property TCEspecifico As Decimal
|
|
Get
|
|
Return ViewState("TCEspecifico").ToString.ToDecimal
|
|
End Get
|
|
|
|
Set(value As Decimal)
|
|
ViewState("TCEspecifico") = value
|
|
End Set
|
|
End Property
|
|
Private Property Tipo As Integer
|
|
Get
|
|
Return ViewState("Tipo").ToString.ToEntero
|
|
End Get
|
|
|
|
Set(value As Integer)
|
|
ViewState("Tipo") = value
|
|
End Set
|
|
End Property
|
|
Private Property EsDistribuidor As Integer
|
|
Get
|
|
Return ViewState("EsDistribuidor").ToString.ToEntero
|
|
End Get
|
|
|
|
Set(value As Integer)
|
|
ViewState("EsDistribuidor") = value
|
|
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
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaCombos()
|
|
CargaPersonalizacion()
|
|
CargaDatos()
|
|
End If
|
|
End Sub
|
|
|
|
#Region "CARGAS"
|
|
|
|
Private Sub CargaCombos()
|
|
Dim CveCliente, CveVendedor, CveUsuario, CveProyecto, CveSubProyecto,
|
|
CveEstatus, CveResponsable, CveAgrupador, CveBanco, CveCuenta, CveClienteSucursal, CveMoneda, CveClienteClasificacion As Integer
|
|
Dim FechaI, FechaF, TipoDocto, TipoCambio, FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF As String
|
|
|
|
'Carga Clientes
|
|
If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
|
|
DdlClientes.setEsWebService(True)
|
|
DdlClientes.Attributes.Add("data-metodo", "getcliente")
|
|
DdlClientes.SelectedText = "Todos"
|
|
DdlClientes.SelectedValue = "-1"
|
|
Else
|
|
DdlClientes.setEsWebService(False)
|
|
DdlClientes.ddl.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
|
DdlClientes.ddl.DataBind()
|
|
DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Add(New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "18"))
|
|
'Carga SubProyectos
|
|
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
|
'DdlSubProyecto.DataBind()
|
|
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
|
|
|
|
'Carga Vendedor
|
|
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
|
|
DdlVendedor.DataBind()
|
|
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
|
|
If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
|
|
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
|
|
DdlVendedor.Attributes.Add("disabled", "disabled")
|
|
DdlVendedor.Enabled = False
|
|
End If
|
|
DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
|
|
|
|
'Carga Usuarios
|
|
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
|
DdlUsuario.DataBind()
|
|
|
|
'Carga Responsable
|
|
DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
|
DdlResponsable.DataBind()
|
|
|
|
'Carga Bancos'
|
|
DdlBanco.DataSource = GlobalDTBancos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
|
DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlBanco.DataBind()
|
|
|
|
'Carga Monedas'
|
|
DdlMoneda.DataSource = GlobalDTMonedas
|
|
DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlMoneda.DataBind()
|
|
|
|
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones().FiltraParametros("Tipo = 'Ing' and Estatus = True ")
|
|
DdlTipoTransaccion.DataBind()
|
|
DdlTipoTransaccion.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
'Cargamos las fechas
|
|
FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
|
|
FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
|
|
If FechaF <> "-1" Then
|
|
txtFechaF.Text = FechaF
|
|
End If
|
|
If FechaI <> "-1" Then
|
|
txtFechaI.Text = FechaI
|
|
End If
|
|
|
|
FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing AndAlso Request("FechaAplicadoI").ToString <> "01/01/1900", Request("FechaAplicadoI").ToString, "-1").ToString
|
|
FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing AndAlso Request("FechaAplicadoF").ToString <> "01/01/9999", Request("FechaAplicadoF").ToString, "-1").ToString
|
|
|
|
FechaRegistroIEI = If(Request("FechaRegistroIEI") IsNot Nothing AndAlso Request("FechaRegistroIEI").ToString <> "01/01/1900", Request("FechaRegistroIEI").ToString, "-1").ToString
|
|
FechaRegistroIEF = If(Request("FechaRegistroIEF") IsNot Nothing AndAlso Request("FechaRegistroIEF").ToString <> "01/01/9999", Request("FechaRegistroIEF").ToString, "-1").ToString
|
|
|
|
If FechaAplicadoF <> "-1" Then
|
|
TxtFechaAplicadoF.Text = FechaAplicadoF
|
|
End If
|
|
If FechaAplicadoI <> "-1" Then
|
|
TxtFechaAplicadoI.Text = FechaAplicadoI
|
|
End If
|
|
|
|
If FechaRegistroIEF <> "-1" Then
|
|
TxtFechaRegistroIEF.Text = FechaRegistroIEF
|
|
End If
|
|
If FechaRegistroIEI <> "-1" Then
|
|
TxtFechaRegistroIEI.Text = FechaRegistroIEI
|
|
End If
|
|
|
|
TipoDocto = IfNull(Request("TipoDocto"), "-1").ToString
|
|
CveClienteSucursal = IfNull(Request("CveClienteSucursal"), "-1").ToString.ToEntero
|
|
CveProyecto = IfNull(Request("CveProyecto"), "-1").ToString.ToEntero
|
|
CveSubProyecto = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
|
|
CveVendedor = IfNull(Request("Vendedor"), "-1").ToString.ToEntero
|
|
CveCliente = IfNull(Request("CveCliente"), "-1").ToString.ToEntero
|
|
CveUsuario = IfNull(Request("CveUsuario"), "-1").ToString.ToEntero
|
|
CveEstatus = IfNull(Request("CveEstatusFactura"), "-1").ToString.ToEntero
|
|
CveResponsable = IfNull(Request("CveUsuarioResponsable"), "-1").ToString.ToEntero
|
|
CveAgrupador = IfNull(Request("GPO"), "-1").ToString.ToEntero
|
|
CveBanco = IfNull(Request("CveBanco"), "-1").ToString.ToEntero
|
|
CargaCuentas()
|
|
CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
|
|
Iva = IfNull(Request("IVA"), "-1").ToString
|
|
Grupo = IfNull(Request("Grupo"), "-1").ToString
|
|
TipoCambio = IfNull(Request("TipoCambio"), "-1").ToString
|
|
TxtEspecifico.Text = IfNull(Request("TCEspecifico"), "").ToString
|
|
CveMoneda = IfNull(Request("CveMoneda"), "-1").ToString.ToEntero
|
|
CveClienteClasificacion = IfNull(Request("CveClienteClasificacion"), "-1").ToString.ToEntero
|
|
Tipo = IfNull(Request("Tipo"), "-1").ToString.ToEntero
|
|
EsDistribuidor = IfNull(Request("EsDistribuidor"), "-1").ToString.ToEntero
|
|
|
|
'Carga Clasificacion Cliente'
|
|
Dim ObjCliente As New ClsClientes
|
|
If ObjCliente.GetClienteClasificacion(UsuarioActual.CveEmpresa) Then
|
|
DdlClienteClasificacion.DataSource = ObjCliente.DtResultados
|
|
End If
|
|
|
|
Dim Entro As Boolean = False
|
|
If CveClienteSucursal > 0 Then
|
|
DivLblClientes.Visible = True
|
|
DivDdlClientes.Visible = True
|
|
If ObjCliente.GetSucursales(CveCliente) Then
|
|
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
|
DdlClienteSucursal.DataSource = ObjCliente.DtResultados
|
|
Entro = True
|
|
End If
|
|
End If
|
|
End If
|
|
ObjCliente.Dispose()
|
|
If Entro Then
|
|
DdlClienteSucursal.DataBind()
|
|
DdlClienteSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
|
|
End If
|
|
DdlClienteClasificacion.DataBind()
|
|
DdlClienteClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
|
|
|
|
DdlVendedor.SelectedValueExist(CveVendedor)
|
|
DdlProyecto.SelectedValueExist(CveProyecto)
|
|
DdlSubProyecto.SelectedValueExist(CveSubProyecto)
|
|
If CveCliente > 0 Then
|
|
DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
|
|
DdlClientes.SelectedValue = CveCliente.ToString
|
|
End If
|
|
DdlUsuario.SelectedValueExist(CveUsuario)
|
|
DdlResponsable.SelectedValueExist(CveResponsable)
|
|
DdlGrupo.SelectedValueExist(CveAgrupador)
|
|
DdlEstatusCliente.SelectedValueExist(CveEstatus)
|
|
DdlTipoDocto.SelectedValueExist(TipoDocto)
|
|
DdlBanco.SelectedValueExist(CveBanco)
|
|
DdlCuentaBancaria.SelectedValueExist(CveCuenta)
|
|
RblTipoCambio.SelectedValue = TipoCambio
|
|
DdlMoneda.SelectedValueExist(If(TipoCambio.ToEntero > 1, -1, CveMoneda))
|
|
DdlClienteClasificacion.SelectedValueExist(CveClienteClasificacion)
|
|
DdlClienteSucursal.SelectedValueExist(CveClienteSucursal)
|
|
DdlDistribuidor.SelectedValueExist(EsDistribuidor)
|
|
DdlTipoTransaccion.SelectedValueExist(IfNull(Request("CveTipoTransaccion"), "-1").ToString.ToEntero)
|
|
DdlCondicionesPago.SelectedValueExist(IfNull(Request("CveCondicionesPago"), "-1").ToString.ToEntero)
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
|
lblEsDistribuidor.Visible = True
|
|
divEsDistribuidor.Visible = True
|
|
End If
|
|
|
|
End Sub
|
|
Public Sub CargaDatos()
|
|
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
|
|
TCEspecifico = TxtEspecifico.Text.ToDecimal
|
|
Else
|
|
TCEspecifico = -1
|
|
End If
|
|
|
|
Dim FechaAplicadoI As Date = If(IsDate(TxtFechaAplicadoI.Text), TxtFechaAplicadoI.Text.ToDate, MinFecha)
|
|
Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
|
|
|
|
Dim FechaRegistroIEI As Date = If(IsDate(TxtFechaRegistroIEI.Text), TxtFechaRegistroIEI.Text.ToDate, MinFecha)
|
|
Dim FechaRegistroIEF As Date = If(IsDate(TxtFechaRegistroIEF.Text), TxtFechaRegistroIEF.Text.ToDate, MaxFecha)
|
|
|
|
Dim ObjMovtos As New ClsMovimientos()
|
|
If ObjMovtos.GetRepRecuperacionDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero,
|
|
DdlClienteSucursal.SelectedValue.ToEntero, -1,
|
|
Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
|
|
DdlTipoDocto.SelectedValue, CveProyecto:=DdlProyecto.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo,
|
|
TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, Tipo:=Tipo,
|
|
EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF,
|
|
CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then
|
|
|
|
GvDatos.DataSource = ObjMovtos.DtResultados
|
|
DtDatos = ObjMovtos.DtResultados
|
|
Else
|
|
GvDatos.DataSource = Nothing
|
|
End If
|
|
|
|
ObjMovtos.Dispose()
|
|
GvDatos.DataBind()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
Public Sub CargaCuentas()
|
|
DdlCuentaBancaria.Items.Clear()
|
|
If DdlBanco.SelectedValue.ToEntero > 0 Then
|
|
DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
|
|
End If
|
|
DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlCuentaBancaria.DataBind()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "GRIDVIEW"
|
|
|
|
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If e.Row.DBCampo("SubProyecto") = "" And e.Row.DBCampo("CveMoneda") = "1" Then
|
|
e.Row.Cells(6).Text = "Total Pesos"
|
|
e.Row.CssClass = "Totales"
|
|
e.Row.Cells(2).Text = ""
|
|
e.Row.Cells(8).Text = ""
|
|
ElseIf e.Row.DBCampo("SubProyecto") = "" And e.Row.DBCampo("CveMoneda") = "2" Then
|
|
e.Row.Cells(6).Text = "Total Dólares"
|
|
e.Row.CssClass = "Totales"
|
|
e.Row.Cells(2).Text = ""
|
|
e.Row.Cells(8).Text = ""
|
|
ElseIf e.Row.DBCampo("CveVenta") = "" Then
|
|
e.Row.CssClass = "SubTotales"
|
|
e.Row.Cells(2).Text = ""
|
|
e.Row.Cells(8).Text = ""
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "SELECTED INDEX CHANGE"
|
|
|
|
Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
CargaCuentas()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "IMPRESIONES"
|
|
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
|
|
Imprimir("PDF")
|
|
End Sub
|
|
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
|
|
Imprimir("EXCEL")
|
|
End Sub
|
|
Public Sub Imprimir(Formato As String)
|
|
If DtDatos IsNot Nothing Then
|
|
Dim StrFiltro As New StringBuilder
|
|
If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
|
|
If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
|
|
If DdlSubProyecto.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Sucursal</b>: {0}", DdlSubProyecto.SelectedItem.Text)
|
|
If DdlGrupo.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text)
|
|
If DdlVendedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Vendedor</b>: {0}", DdlVendedor.SelectedItem.Text)
|
|
If DdlClientes.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Cliente</b>: {0}", DdlClientes.SelectedText)
|
|
If DdlUsuario.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text)
|
|
If DdlResponsable.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Responsable</b>: {0}", DdlResponsable.SelectedItem.Text)
|
|
If DdlTipoDocto.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Tipo Docto</b>: {0}", DdlTipoDocto.SelectedItem.Text)
|
|
If DdlEstatusCliente.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Estatus Cliente</b>: {0}", DdlEstatusCliente.SelectedItem.Text)
|
|
If DdlBanco.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Banco</b>: {0}", DdlBanco.SelectedItem.Text)
|
|
If DdlCuentaBancaria.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Cuenta Bancaria</b>: {0}", DdlCuentaBancaria.SelectedItem.Text)
|
|
If DdlClienteSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Cliente Sucursal</b>: {0}", DdlClienteSucursal.SelectedItem.Text)
|
|
|
|
Dim RutaPDF As String
|
|
Dim Ruta As String = UsuarioActual.Empresa.Ruta '$"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
|
|
RutaPDF = $"{Ruta}\Formatos\RepRecuperacionDetalle.rdlc"
|
|
If Not File.Exists(RutaPDF) Then
|
|
RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc"
|
|
End If
|
|
|
|
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
|
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
|
ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacionDetalle-{0}", NowADS().ToDateTime.ToShortDateString), Formato)
|
|
Else
|
|
Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Protected Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
|
|
LiEspecifico.Visible = True
|
|
Else
|
|
LiEspecifico.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#Region "PERSONALIZAR"
|
|
|
|
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()
|
|
CargaDatos()
|
|
'GvDatosDataBind()
|
|
End Sub
|
|
|
|
|
|
Private Sub Personaliza()
|
|
|
|
GvDatos.Columns(0).Visible = True
|
|
GvDatos.Columns(1).Visible = ChkFecha.Checked
|
|
GvDatos.Columns(2).Visible = ChkFolio.Checked
|
|
GvDatos.Columns(3).Visible = True
|
|
GvDatos.Columns(4).Visible = ChkTotal.Checked
|
|
GvDatos.Columns(5).Visible = True
|
|
GvDatos.Columns(6).Visible = ChkSucursal.Checked
|
|
GvDatos.Columns(7).Visible = True
|
|
GvDatos.Columns(8).Visible = ChkCliente.Checked
|
|
GvDatos.Columns(9).Visible = True
|
|
GvDatos.Columns(10).Visible = True
|
|
GvDatos.Columns(11).Visible = ChkDiasTranscurridos.Checked
|
|
GvDatos.Columns(12).Visible = ChkDiasPago.Checked
|
|
GvDatos.Columns(13).Visible = True
|
|
GvDatos.Columns(14).Visible = True
|
|
|
|
GvDatos.Columns(15).Visible = ChkSucursalCliente.Checked
|
|
GvDatos.Columns(16).Visible = ChkObservaciones.Checked
|
|
GvDatos.Columns(17).Visible = ChkDescuento.Checked
|
|
GvDatos.Columns(18).Visible = ChkVendedor.Checked
|
|
GvDatos.Columns(19).Visible = ChkCodigo.Checked
|
|
|
|
GvDatos.Columns(20).Visible = ChkLimiteCredito.Checked
|
|
GvDatos.Columns(21).Visible = ChkRetIVA.Checked
|
|
GvDatos.Columns(22).Visible = ChkRetISR.Checked
|
|
GvDatos.Columns(23).Visible = ChkSubTotal.Checked
|
|
GvDatos.Columns(24).Visible = ChkTC.Checked
|
|
GvDatos.Columns(25).Visible = ChkMostrarDescripcionVenta.Checked
|
|
|
|
|
|
Personalizo = 1
|
|
If Personalizo = 1 Then
|
|
'ImgExcelPersonalizado.Visible = True
|
|
Else
|
|
'ImgExcelPersonalizado.Visible = False
|
|
End If
|
|
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
Private Sub GuardaPersonalizacion()
|
|
Dim objUsuario As New ClsSisUsuarios
|
|
Dim ListPersonalizada As New List(Of String)
|
|
|
|
If ChkFolio.Checked Then
|
|
ListPersonalizada.Add("Folio")
|
|
End If
|
|
|
|
If ChkFecha.Checked Then
|
|
ListPersonalizada.Add("Fecha")
|
|
End If
|
|
|
|
If ChkSubTotal.Checked Then
|
|
ListPersonalizada.Add("SubTotal")
|
|
End If
|
|
|
|
If ChkObservaciones.Checked Then
|
|
ListPersonalizada.Add("Observaciones")
|
|
End If
|
|
|
|
If ChkDescuento.Checked Then
|
|
ListPersonalizada.Add("Descuento")
|
|
End If
|
|
|
|
If ChkVendedor.Checked Then
|
|
ListPersonalizada.Add("Vendedor")
|
|
End If
|
|
|
|
If ChkSucursal.Checked Then
|
|
ListPersonalizada.Add("Sucursal")
|
|
End If
|
|
|
|
If ChkCodigo.Checked Then
|
|
ListPersonalizada.Add("Codigo")
|
|
End If
|
|
|
|
If ChkLimiteCredito.Checked Then
|
|
ListPersonalizada.Add("LimiteCredito")
|
|
End If
|
|
|
|
If ChkRetIVA.Checked Then
|
|
ListPersonalizada.Add("RetIVA")
|
|
End If
|
|
|
|
If ChkCliente.Checked Then
|
|
ListPersonalizada.Add("Cliente")
|
|
End If
|
|
|
|
If ChkRetISR.Checked Then
|
|
ListPersonalizada.Add("RetISR")
|
|
End If
|
|
|
|
If ChkSucursalCliente.Checked Then
|
|
ListPersonalizada.Add("SucursalCliente")
|
|
End If
|
|
|
|
If ChkTotal.Checked Then
|
|
ListPersonalizada.Add("Total")
|
|
End If
|
|
|
|
If ChkDiasTranscurridos.Checked Then
|
|
ListPersonalizada.Add("DiasTranscurridos")
|
|
End If
|
|
|
|
If ChkDiasPago.Checked Then
|
|
ListPersonalizada.Add("DiasPago")
|
|
End If
|
|
|
|
If ChkTC.Checked Then
|
|
ListPersonalizada.Add("TC")
|
|
End If
|
|
|
|
If ChkMostrarDescripcionVenta.Checked Then
|
|
ListPersonalizada.Add("MostrarDescripcionVenta")
|
|
End If
|
|
|
|
If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepRecuperacionDetalle.aspx", String.Join("|", ListPersonalizada)) Then
|
|
'Alert("Personalizacion guardada")
|
|
End If
|
|
|
|
objUsuario.Dispose()
|
|
End Sub
|
|
|
|
Private Sub CargaPersonalizacion()
|
|
Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("RepRecuperacionDetalle.aspx")
|
|
|
|
If strBasePersonalizacion.Trim.Length > 0 Then
|
|
|
|
|
|
Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
|
|
|
|
For Each personalizacion As String In Personalizaciones
|
|
Select Case personalizacion
|
|
Case "Folio"
|
|
ChkFolio.Checked = True
|
|
Case "Fecha"
|
|
ChkFecha.Checked = True
|
|
Case "SubTotal"
|
|
ChkSubTotal.Checked = True
|
|
Case "Observaciones"
|
|
ChkObservaciones.Checked = True
|
|
Case "Descuento"
|
|
ChkDescuento.Checked = True
|
|
Case "Vendedor"
|
|
ChkVendedor.Checked = True
|
|
Case "Sucursal"
|
|
ChkSucursal.Checked = True
|
|
Case "Codigo"
|
|
ChkCodigo.Checked = True
|
|
Case "LimiteCredito"
|
|
ChkLimiteCredito.Checked = True
|
|
Case "RetIVA"
|
|
ChkRetIVA.Checked = True
|
|
Case "Cliente"
|
|
ChkCliente.Checked = True
|
|
Case "RetISR"
|
|
ChkRetISR.Checked = True
|
|
Case "SucursalCliente"
|
|
ChkSucursalCliente.Checked = True
|
|
Case "Total"
|
|
ChkTotal.Checked = True
|
|
Case "DiasTranscurridos"
|
|
ChkDiasTranscurridos.Checked = True
|
|
Case "DiasPago"
|
|
ChkDiasPago.Checked = True
|
|
Case "TC"
|
|
ChkTC.Checked = True
|
|
Case "MostrarDescripcionVenta"
|
|
ChkMostrarDescripcionVenta.Checked = True
|
|
Case Else
|
|
' Do nothing
|
|
End Select
|
|
Next
|
|
|
|
Personaliza()
|
|
Else
|
|
PersonalizaDefault()
|
|
End If
|
|
UPPersonalizar.Update()
|
|
End Sub
|
|
|
|
Private Sub PersonalizaDefault()
|
|
ChkFolio.Checked = True
|
|
ChkFecha.Checked = True
|
|
ChkTotal.Checked = True
|
|
ChkSucursal.Checked = True
|
|
ChkCliente.Checked = True
|
|
ChkDiasTranscurridos.Checked = True
|
|
ChkDiasPago.Checked = True
|
|
|
|
|
|
ChkSucursalCliente.Checked = False
|
|
ChkSubTotal.Checked = False
|
|
ChkObservaciones.Checked = False
|
|
ChkDescuento.Checked = False
|
|
ChkVendedor.Checked = False
|
|
ChkCodigo.Checked = False
|
|
ChkLimiteCredito.Checked = False
|
|
ChkRetIVA.Checked = False
|
|
ChkRetISR.Checked = False
|
|
ChkTC.Checked = False
|
|
ChkMostrarDescripcionVenta.Checked = False
|
|
|
|
GvDatos.Columns(0).Visible = True
|
|
GvDatos.Columns(1).Visible = True
|
|
GvDatos.Columns(2).Visible = True
|
|
GvDatos.Columns(3).Visible = True
|
|
GvDatos.Columns(4).Visible = True
|
|
GvDatos.Columns(5).Visible = True
|
|
GvDatos.Columns(6).Visible = True
|
|
GvDatos.Columns(7).Visible = True
|
|
GvDatos.Columns(8).Visible = True
|
|
GvDatos.Columns(9).Visible = True
|
|
GvDatos.Columns(10).Visible = True
|
|
GvDatos.Columns(11).Visible = True
|
|
GvDatos.Columns(12).Visible = True
|
|
GvDatos.Columns(13).Visible = True
|
|
GvDatos.Columns(14).Visible = True
|
|
GvDatos.Columns(15).Visible = False
|
|
GvDatos.Columns(16).Visible = False
|
|
GvDatos.Columns(17).Visible = False
|
|
GvDatos.Columns(18).Visible = False
|
|
GvDatos.Columns(19).Visible = False
|
|
GvDatos.Columns(20).Visible = False
|
|
GvDatos.Columns(21).Visible = False
|
|
GvDatos.Columns(22).Visible = False
|
|
GvDatos.Columns(23).Visible = False
|
|
GvDatos.Columns(24).Visible = False
|
|
GvDatos.Columns(25).Visible = False
|
|
|
|
End Sub
|
|
|
|
|
|
'Private Sub GuardaPersonalizacion()
|
|
|
|
' Dim objUsuario As New ClsSisUsuarios
|
|
' Dim ListPersonalizada As New List(Of String)
|
|
|
|
' 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 GvDatosDataBind()
|
|
|
|
GvDatos.DataSource = DtDatos
|
|
GvDatos.DataBind()
|
|
UpDatos.Update()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
End Class
|