SIG/Compras/RepCxPDetalle.aspx.vb

Option Explicit On


Imports Microsoft.Reporting.WebForms
Imports Extensiones
Imports System.Data

Partial Class RepCxPDetalle
    Inherits ClsPaginas

#Region "PROPIEDADES"

    Public Property CveProveedor() As Integer
        Get
            Return ViewState("CveProveedor").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveProveedor") = value
        End Set
    End Property
    Public Property CveProveedorClasificacion() As Integer
        Get
            Return ViewState("CveProveedorClasificacion").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveProveedorClasificacion") = value
        End Set
    End Property
    Public Property Serie() As String
        Get
            Return ViewState("Serie").ToString
        End Get
        Set(value As String)
            ViewState("Serie") = value
        End Set
    End Property
    Public Property Anio() As Integer
        Get
            Return ViewState("Anio").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("Anio") = value
        End Set
    End Property
    Public Property Mes() As Integer
        Get
            Return ViewState("Mes").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("Mes") = value
        End Set
    End Property
    Public Property AnioMes() As String
        Get
            Return ViewState("AnioMes").ToString
        End Get
        Set(value As String)
            ViewState("AnioMes") = value
        End Set
    End Property
    Public Property Fecha() As String
        Get
            Return ViewState("Fecha").ToString
        End Get
        Set(value As String)
            ViewState("Fecha") = value
        End Set
    End Property
    Public Property FechaInicio() As String
        Get
            Return ViewState("FechaInicio").ToString
        End Get
        Set(value As String)
            ViewState("FechaInicio") = value
        End Set
    End Property
    Public Property FechaFin() As String
        Get
            Return ViewState("FechaFin").ToString
        End Get
        Set(value As String)
            ViewState("FechaFin") = value
        End Set
    End Property

    Public Property FechaVInicio() As String
        Get
            Return ViewState("FechaVInicio").ToString
        End Get
        Set(value As String)
            ViewState("FechaVInicio") = value
        End Set
    End Property
    Public Property FechaVFin() As String
        Get
            Return ViewState("FechaVFin").ToString
        End Get
        Set(value As String)
            ViewState("FechaVFin") = value
        End Set
    End Property
    Public Property FechaCorte() As String
        Get
            Return ViewState("FechaCorte").ToString
        End Get
        Set(value As String)
            ViewState("FechaCorte") = value
        End Set
    End Property
    Public Property CveMoneda() As Integer
        Get
            Return ViewState("CveMoneda").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMoneda") = value
        End Set
    End Property
    Public Property CveUsuario() As Integer
        Get
            Return ViewState("CveUsuario").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveUsuario") = value
        End Set
    End Property
    Public Property Agrupador() As Integer
        Get
            Return ViewState("Agrupador").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("Agrupador") = value
        End Set
    End Property
    Public Property Opcion() As String
        Get
            Return ViewState("Opcion").ToString
        End Get
        Set(value As String)
            ViewState("Opcion") = value
        End Set
    End Property
    Public Property CveEstatusFactura() As Integer
        Get
            Return ViewState("CveEstatusFactura").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveEstatusFactura") = value
        End Set
    End Property
    Public Property CveSubProyecto() As Integer
        Get
            Return ViewState("CveSubProyecto").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveSubProyecto") = value
        End Set
    End Property
    Public Property CveProyecto() As Integer
        Get
            Return ViewState("CveProyecto").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveProyecto") = value
        End Set
    End Property
    Private Property DtDatos As DataTable
        Get
            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
        End Get

        Set(ByVal value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property

    Public Property CveProveedorSucursal() As Integer
        Get
            Return ViewState("CveProveedorSucursal").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveProveedorSucursal") = value
        End Set
    End Property
    Public Property CveTipoProveedor() As Integer
        Get
            Return ViewState("CveTipoProveedor").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveTipoProveedor") = value
        End Set
    End Property

    Private Property TCEspecifico As Double

    Public Property DTCuentasContables() As DataTable
        Get
            If ViewState("DTCuentasContables") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("DTCuentasContables"), DataTable)
            End If

        End Get
        Set(value As DataTable)
            ViewState("DTCuentasContables") = 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
        If Not IsPostBack Then
            ViewState("Opcion") = IfNull(Request("Op"), "S")
            MostrarOcultarColumnas(False)
            CargaCombos()
            If Request("Op") IsNot Nothing Then
                CargaDatos()
            End If
            'ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
        End If
    End Sub

#Region "CARGAS"
    Private Sub CargaCombos()
        CargaProveedores()
        Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero

        DdlProveedores.SelectedValue = CveProveedor
        Me.CveProveedor = CveProveedor

        If DdlProveedores.SelectedValue.ToEntero > 0 Then
            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString
        Else
            DdlProveedores.SelectedText = "-"
        End If

        CveProveedorClasificacion = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero

        Dim ProveedorClasificacion As Integer = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero
        DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
        DdlProveedoresClasificaciones.DataBind()
        DdlProveedoresClasificaciones.Items.Insert(1, New ListItem("Sin Clasificación", "0"))
        DdlProveedoresClasificaciones.SelectedValueExist(ProveedorClasificacion)

        'CargaUsuarios
        Dim UsuarioResponsable As Integer = IfNull(Request("CveUsuarioResponsable"), -1).ToString.ToEntero
        DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0")
        DdlUsuarioResponsable.DataBind()
        DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable)

        Dim UsuarioRegistro As Integer = IfNull(Request("CveUsuario"), -1).ToString.ToEntero
        DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlUsuarioRegistro.DataBind()
        DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)

        Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero

        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        'DdlSubProyecto.DataBind()
        'DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
        'DdlSubProyecto.SelectedValueExist(CveSucursal)

        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)
        DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
        'CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)

        Dim TipoMoneda As Integer = IfNull(Request("TipoMoneda"), 1).ToString.ToEntero
        RblTipoCambio.SelectedValue = TipoMoneda.ToString

        If RblTipoCambio.SelectedValue = "3" Then
            LiEspecifico.Visible = True
        End If

        Dim TCEspecifico As String = IfNull(Request("TCEspecifico"), 1).ToString
        TxtEspecifico.Text = TCEspecifico

        'Carga Agrupador
        Dim GPO As Integer = IfNull(Request("GPO"), 5).ToString.ToEntero
        DdlGrupo.SelectedValueExist(GPO)
        Agrupador = GPO

        'CargaFechas
        FechaInicio = IfNull(Request("FechaI"), "-1").ToString
        FechaFin = IfNull(Request("FechaF"), "-1").ToString
        FechaVInicio = IfNull(Request("FechaVI"), "-1").ToString
        FechaVFin = IfNull(Request("FechaVF"), "-1").ToString
        FechaCorte = IfNull(Request("FechaCorte"), Now.ToDate.ToString).ToString
        txtCorteA.Text = $"31/12/{Now.Year}"

        If Request("FechaI") <> "-1" AndAlso IsDate(Request("FechaI")) Then txtFechaI.Text = Request("FechaI")
        If Request("FechaF") <> "-1" AndAlso IsDate(Request("FechaF")) Then txtFechaF.Text = Request("FechaF")
        If Request("FechaVI") <> "-1" AndAlso IsDate(Request("FechaVI")) Then txtFechaVI.Text = Request("FechaVI")
        If Request("FechaVF") <> "-1" AndAlso IsDate(Request("FechaVF")) Then txtFechaVF.Text = Request("FechaVF")
        If Request("FechaCorte") <> "-1" AndAlso IsDate(Request("FechaCorte")) Then txtCorteA.Text = Request("FechaCorte")

        Anio = IfNull(Request("Anio"), -1).ToString.ToEntero
        Mes = IfNull(Request("Mes"), -1).ToString.ToEntero
        AnioMes = IfNull(Request("AnioMes"), "-1").ToString
        CveMoneda = IfNull(Request("CveMoneda"), -1).ToString.ToEntero
        Fecha = IfNull(Request("Fecha"), "-1").ToString
        CveProveedorSucursal = IfNull(Request("CveProveedorSucursal"), -1).ToString.ToEntero
        CveUsuario = IfNull(Request("CveUsuario"), -1).ToString.ToEntero
        CveEstatusFactura = IfNull(Request("CveEstatusFactura"), -1).ToString.ToEntero
        CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
        CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero

        DdlProyecto.SelectedValueExist(CveProyecto)
        DdlSubProyecto.SelectedValueExist(CveSubProyecto)

        DdlEstatusCompra.DataSource = GlobalDTCompEstatusFactura.FiltraParametros("CveEstatusFactura IN (1, 2)")
        DdlEstatusCompra.DataBind()
        DdlEstatusCompra.SelectedValueExist(CveEstatusFactura)

        CveTipoProveedor = IfNull(Request("CveTipoProveedor"), -1).ToString.ToEntero
        DdlTipoProveedor.SelectedValueExist(CveTipoProveedor)

        Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero
        DdlComprobacion.SelectedValueExist(Comprobaciones)


        Ddlmoneda.DataSource = GlobalDTMonedas
        Ddlmoneda.DataBind()
        Ddlmoneda.Items.Insert(0, New ListItem("Todas", "-1"))
        Ddlmoneda.SelectedValueExist(CveMoneda)


        GvDatos.Columns(11).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)

        For Each lItem As ListItem In DdlGrupo.Items

            If lItem.Value.ToEntero = 9 Then
                lItem.Text = LblSubProyectofiltro.Text & "-Sucursal"
            End If
        Next

    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, CveEstatus:=1)
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

        UPFiltros.Update()
    End Sub

    Private Function CargaCuentasContables(DT As DataTable) As DataTable

        Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
        Try
            If ObjConpaq.GetCuentas(-1, -1, -1) Then
                DTCuentasContables = ObjConpaq.DtResultados

                For Each Proveedor As DataRow In DT.Rows
                    If Proveedor("IdCtaContProveedores").ToString.ToEntero > 0 Then

                        If Not DTCuentasContables.FiltraParametros($"Id = {Proveedor("IdCtaContProveedores").ToString }") Is Nothing Then
                            Proveedor("Cuenta") = DTCuentasContables.FiltroPrimeroValor("CuentaFormato", $"id = {Proveedor("IdCtaContProveedores").ToString.ToEntero }")
                        End If

                    End If
                Next

                DT.AcceptChanges()
            Else
                DTCuentasContables = New DataTable
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al cargar las cuentas contables", ex)
        End Try
        ObjConpaq.Dispose()

        Return DT

    End Function

    Private Sub CargaDatos()
        Dim ObjMovtos As New ClsMovimientos()
        Try
            If RblTipoCambio.SelectedValue.ToEntero = 3 Then
                TCEspecifico = TxtEspecifico.Text.ToDouble
            Else
                TCEspecifico = -1
            End If

            Dim FechaI, FechaF, FechaVI, FechaVF As String
            FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
            FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
            FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
            FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1")

            Dim TipoDocto As String = IfNull(Request("TipoDocto"), "-1").ToString

            CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero

            If ObjMovtos.GetCxPDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, CveProveedorSucursal, CveUsuario,
                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero(), DdlEstatusCompra.SelectedValue.ToEntero,
                                       Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero,
                                       TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3,
                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then


                Dim TMP_DTDatos As New DataTable
                TMP_DTDatos = ObjMovtos.DtResultados
                TMP_DTDatos.Columns.Add("Cuenta")

                If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.TipoContabilidad = 2 Then 'cuando es grupo por proveedor, se muestra la cuneta contable
                    TMP_DTDatos = CargaCuentasContables(TMP_DTDatos)
                    GvDatos.Columns(13).Visible = True
                Else
                    GvDatos.Columns(13).Visible = False
                End If

                DtDatos = TMP_DTDatos


                GvDatos.DataSource = DtDatos
                HplProgramar.NavigateUrl = $"/Bancos/RepProgramarRecursos.aspx{HttpContext.Current.Request.Url.PathAndQuery.Replace("/Compras/RepCxPDetalle.aspx", "")}"

            Else
                GvDatos.DataSource = Nothing
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al obtener el reporte de CxP detalle", ex)
        End Try
        ObjMovtos.Dispose()

        GvDatos.DataBind()
        UPDatos.Update()

    End Sub

#End Region

#Region "CONSULTAR"

    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
        ConfiguraEmpresa()
        'UPDatos.Update()
    End Sub

#End Region

#Region "CONFIGURACIONES"

    Private Function AddRows(ByRef DT As DataTable) As DataTable
        'Dim i As Integer = 0
        'Dim Ultima As String = String.Empty
        'Dim Rows As Integer = 0
        'Dim dbRow As DataRow

        'While i < DT.Rows.Count
        '    If DT.Rows(i)("GPO").ToString <> "" AndAlso DT.Rows(i)("CveVenta").ToString = "" AndAlso Ultima <> DT.Rows(i)("GPO").ToString Then
        '        dbRow = DT.NewRow()
        '        dbRow("GPO") = DT.Rows(i)("GPO") : Ultima = DT.Rows(i)("GPO").ToString
        '        DT.Rows.InsertAt(dbRow, i)
        '    End If
        '    i += 1
        'End While
        Return DT
    End Function

    Private Sub ConfiguraEmpresa()
        'Dim ObjEmpresa As New ClsEmpresas()
        'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then

        'If Opcion <> "S" Then
        '    If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
        '    If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
        'End If
        'End If
        'ObjEmpresa.Dispose()
    End Sub

#End Region

    Private Sub CargaProveedores()
        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
            DdlProveedores.setEsWebService(True)
            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
            DdlProveedores.SelectedText = "Seleccione"
            DdlProveedores.SelectedValue = "-1"
        Else
            DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
            DdlProveedores.DataBind()
            DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If

    End Sub

#Region "GRIDVIEW"

    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If DdlGrupo.SelectedValue.ToEntero = 11 Then
                If e.Row.DBCampo("CveSubProyecto") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then
                    e.Row.CssClass = "Totales"
                ElseIf e.Row.DBCampo("RazonSocial") = "" Then
                    e.Row.CssClass = "SubTotales"
                End If
            Else
                If e.Row.DBCampo("RazonSocial") = "" And e.Row.DBCampo("SerieFolio") = "" Then
                    e.Row.CssClass = "SubTotales"
                End If

                If e.Row.DBCampo("Agrupador") = "" And e.Row.DBCampo("TipoDocto") <> "Ant" Then
                    e.Row.CssClass = "Totales"
                    e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
                    e.Row.FCHyperLink("HplFolio").ForeColor = Drawing.Color.White

                    If e.Row.DBCampo("CveMoneda") = "1" Then
                        e.Row.FCHyperLink("HplFolio").Text = "Total Pesos"
                    ElseIf e.Row.DBCampo("CveMoneda") = "2" Then
                        e.Row.FCHyperLink("HplFolio").Text = "Total Dólares"
                    Else
                        e.Row.FCHyperLink("HplFolio").Text = "Total"
                    End If

                End If
            End If

            If e.Row.DBCampo("CveCompra") = "" Then
                e.Row.FCLabel("LblMoneda").Text = ""
            End If

            If e.Row.DBCampo("CveCompra") = "" And e.Row.DBCampo("Agrupador") <> "" Then
                e.Row.FCHyperLink("HplFolio").Text = e.Row.DBCampo("Agrupador")
                e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
                If e.Row.DBCampo("Agrupador").Length > 25 Then
                    e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25))
                End If
            Else

                If (e.Row.DBCampo("TipoDocto").ToString = "Ant") Then
                    e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveCompra"))
                Else
                    e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
                End If

                If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
                        Dim Str As New StringBuilder
                        Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
                        If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
                        If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
                        Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")

                        e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
                        Select Case e.Row.DBCampo("EstatusInventario").ToEntero
                            Case 1
                                e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
                                e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
                            Case 2
                                e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
                                e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
                            Case 3
                                e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
                                e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
                        End Select
                    End If
                End If

            End If
    End Sub

#End Region

#Region "PERSONALIZAR"
    Protected Sub MostrarOcultarColumnas(Optional Personalizo As Boolean = True)

        If ChkTipoDocto.Checked Then
            GvDatos.Columns(0).Visible = True
        Else
            GvDatos.Columns(0).Visible = False
        End If

        If ChkFolio.Checked Then
            GvDatos.Columns(1).Visible = True
        Else
            GvDatos.Columns(1).Visible = False
        End If

        If ChkSubTotal.Checked Then
            GvDatos.Columns(3).Visible = True
        Else
            GvDatos.Columns(3).Visible = False
        End If

        If ChkIVA.Checked Then
            GvDatos.Columns(4).Visible = True
        Else
            GvDatos.Columns(4).Visible = False
        End If

        If ChkIEPS.Checked Then
            GvDatos.Columns(5).Visible = True
        Else
            GvDatos.Columns(5).Visible = False
        End If

        If ChkDescuento.Checked Then
            GvDatos.Columns(6).Visible = True
        Else
            GvDatos.Columns(6).Visible = False
        End If

        If ChkTotal.Checked Then
            GvDatos.Columns(7).Visible = True
        Else
            GvDatos.Columns(7).Visible = False
        End If

        If ChkMoneda.Checked Then
            GvDatos.Columns(8).Visible = True
        Else
            GvDatos.Columns(8).Visible = False
        End If

        If ChkSaldo.Checked Then
            GvDatos.Columns(9).Visible = True
        Else
            GvDatos.Columns(9).Visible = False
        End If

        If ChkFechaVencimiento.Checked Then
            GvDatos.Columns(10).Visible = True
        Else
            GvDatos.Columns(10).Visible = False
        End If

        If ChkDiasVencidos.Checked Then
            GvDatos.Columns(11).Visible = True
        Else
            GvDatos.Columns(11).Visible = False
        End If

        If ChkProveedor.Checked Then
            GvDatos.Columns(12).Visible = True
        Else
            GvDatos.Columns(12).Visible = False
        End If

        If ChkCuenta.Checked Then
            GvDatos.Columns(13).Visible = True
        Else
            GvDatos.Columns(13).Visible = False
        End If

        If ChkObservaciones.Checked Then
            GvDatos.Columns(14).Visible = True
        Else
            GvDatos.Columns(14).Visible = False
        End If

        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
            GvDatos.Columns(15).Visible = True
        Else
            GvDatos.Columns(15).Visible = False
        End If

        GvDatos.Columns(16).Visible = ChkDescripcion.Checked

        If Personalizo Then
            ImgExcelPersonalizado.Visible = True
        Else
            ImgExcelPersonalizado.Visible = False
        End If
        UPAcciones.Update()

        UPDatos.Update()
    End Sub
    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
        MostrarOcultarColumnas()
        RegistraScript("$('#DivPersonalizar').modal('hide');")
    End Sub

#End Region

#Region "IMPRESIONES"

    Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
        GenerarPDF("EXCEL")
    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("DetalleCompras_" & Now.ToShortDateString & ".xls")
        'GvDatos.ExportToExcelG("DetalleVentas_" & Now.ToShortDateString & ".xlsx")
    End Sub


    Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
        GenerarPDF()
    End Sub

    Private Sub GenerarPDF(Optional Formato As String = "PDF")
        If RblTipoCambio.SelectedValue.ToEntero = 3 Then
            TCEspecifico = TxtEspecifico.Text.ToDouble
        Else
            TCEspecifico = -1
        End If

        Dim FechaI, FechaF, FechaVI, FechaVF As String
        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
        FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
        FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1")

        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("FechaInicio", FechaI))
        params.Add(New ReportParameter("FechaFin", FechaF))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
        'PARA  REPORTE
        Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
        Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
        Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
        Dim FechaIn As String = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}")
        Dim FechaFn As String = If(txtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}")
        Dim FechaInV As String = If(txtFechaVI.Text = "", "", $"&emsp;<b>Fecha Inicio Venc:</b> {txtFechaVI.Text}")
        Dim FechaFnV As String = If(txtFechaVF.Text = "", "", $"&emsp;<b>Fecha Fin Venc:</b> {txtFechaVF.Text}")
        Dim Responsable = If(DdlUsuarioResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b> {DdlUsuarioResponsable.SelectedItem.Text}")
        Dim Estatus = If(DdlEstatusCompra.SelectedValue = "-1", "", $"&emsp;<b>Estatus:</b> {DdlEstatusCompra.SelectedItem.Text}")
        Dim Registro = If(DdlUsuarioRegistro.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b> {DdlUsuarioRegistro.SelectedItem.Text}")
        Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
        Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")
        params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Responsable}{Estatus}{Registro}{Clasificacion}{Sucursal}{TipoMoneda}"))

        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/RepCxPDetalle.rdlc", DtDatos, params, "ReporteCxPDetalle", Formato)

    End Sub

#End Region

#Region "TIPO DE CAMBIO"

    Private Sub DdlTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
        If RblTipoCambio.SelectedValue.ToEntero = 3 Then
            Dim TipoCambio As Double
            LiEspecifico.Visible = True
            TipoCambio = GlobalTipoCambio(Now)
            TxtEspecifico.Text = TipoCambio.ToString
        Else
            LiEspecifico.Visible = False
        End If

        UPFiltros.Update()
    End Sub

#End Region





    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)

        RegistraScript("$('#DivPersonalizar').modal({ backdrop: 'static',  keyboard: false});")

    End Sub

End Class