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, CveSubProyectoCobranza,
         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(382) = "1" Then
            DivSPCobranza.Visible = True
            LblSPCobranza.Visible = True
        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)

        DdlSubProyectoCobranza.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        DdlSubProyectoCobranza.DataBind()

        DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Sin Asignar", "-2"))
        DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Todos", "-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
        CveSubProyectoCobranza = IfNull(Request("CveSubProyectoCobranza"), "-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)
        DdlSubProyectoCobranza.SelectedValueExist(CveSubProyectoCobranza)

        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, CveSubProyectoCobranza:=DdlSubProyectoCobranza.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("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
            If DdlSubProyecto.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Sucursal</b>: {0}", DdlSubProyecto.SelectedItem.Text)
            If DdlGrupo.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text)
            If DdlVendedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.SelectedItem.Text)
            If DdlClientes.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedText)
            If DdlUsuario.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text)
            If DdlResponsable.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Responsable</b>: {0}", DdlResponsable.SelectedItem.Text)
            If DdlTipoDocto.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Tipo Docto</b>: {0}", DdlTipoDocto.SelectedItem.Text)
            If DdlEstatusCliente.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Estatus Cliente</b>: {0}", DdlEstatusCliente.SelectedItem.Text)
            If DdlBanco.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Banco</b>: {0}", DdlBanco.SelectedItem.Text)
            If DdlCuentaBancaria.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cuenta Bancaria</b>: {0}", DdlCuentaBancaria.SelectedItem.Text)
            If DdlClienteSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<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
        GvDatos.Columns(26).Visible = ChkSucursalCobranza.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