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

Partial Class Compras_RepCxP
    Inherits ClsPaginas

#Region "PROPIEDADES"

    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

    Private Property DtPersonalizarRango As DataTable
        Get
            DtPersonalizarRango = DirectCast(ViewState("DtPersonalizarRango"), DataTable)
        End Get

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

    Private Property Index As Integer
        Get
            Index = DirectCast(ViewState("Index"), Integer)
        End Get

        Set(ByVal value As Integer)
            ViewState("Index") = value
        End Set
    End Property
    Private Property Modalidad As String
        Get
            Modalidad = DirectCast(ViewState("Modalidad"), String)
        End Get

        Set(ByVal value As String)
            ViewState("Modalidad") = value
        End Set
    End Property

    Private Property Agrupador As String
        Get
            Return ViewState("Agrupador").ToString
        End Get

        Set(value As String)
            ViewState("Agrupador") = value
        End Set
    End Property
    Private Property DtColor As DataTable
        Get
            Return DirectCast(ViewState("DtColor"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtColor") = value
        End Set
    End Property
    Private Property DtGrafica As DataTable
        Get
            Return DirectCast(ViewState("DtGrafica"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtGrafica") = value
        End Set
    End Property

    Private Property CantVencidos() As Integer
        Get
            Return If(IsNothing(ViewState("CantVencidos")), -1, CInt(ViewState("CantVencidos")))
        End Get
        Set
            ViewState("CantVencidos") = Value
        End Set
    End Property

    Private Property CantPorVencer() As Integer
        Get
            Return If(IsNothing(ViewState("CantPorVencer")), -1, CInt(ViewState("CantPorVencer")))
        End Get
        Set
            ViewState("CantPorVencer") = Value
        End Set
    End Property

    Private Property TCEspecifico As Double

#End Region


    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaCombos()
            CargaGvPersonalizarRaqngoColumnas()
            CargaDatos()
            CreaDataTableColor()

            If UsuarioActual.CveRol = 1 Then
                divAgruparMes.Visible = True
            End If
        End If
    End Sub

#Region "CARGAS"
    Private Sub CargaCombos()

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



        DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0")
        DdlUsuarioResponsable.DataBind()

        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        'DdlSubProyecto.DataBind()
        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)

        DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
        DdlProveedoresClasificaciones.DataBind()
        DdlProveedoresClasificaciones.Items.Insert(1, New ListItem("Sin Clasificación", "0"))

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

        If UsuarioActual.CveEmpresa = 66 Then DdlEstatusCompra.SelectedIndex = 2 : DdlGrupo.SelectedValue = "8"

        DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre")
        DdlUsuarioRegistro.DataBind()
        DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))

        txtCorteA.Text = $"31/12/{Now.Year}"

        'Dim ObjSisUsuarios As New ClsSisUsuarios()

        'If ObjSisUsuarios.GetEmpresasUsuario(UsuarioActual.CveUsuario) Then
        '    DdlEmpresas.DataSource = ObjSisUsuarios.DtResultados
        '    DdlEmpresas.DataBind()
        '    DivEmpresasFiltro.Visible = True
        '    For i As Integer = 0 To DdlEmpresas.Items.Count - 1
        '        DdlEmpresas.Items(i).Selected = True
        '    Next
        'End If
        'ObjSisUsuarios.Dispose()

        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 Sub CargaDatos()
        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
            TCEspecifico = TxtEspecifico.Text
        Else
            TCEspecifico = -1
        End If


        GvCxP.Columns(0).HeaderText = DdlGrupo.SelectedItem.Text
        Dim Mov As New ClsMovimientos
        Dim FechaI As String = txtFechaI.Text
        Dim FechaF As String = txtFechaF.Text
        Dim FechaVI As String = txtFechaVI.Text
        Dim FechaVF As String = txtFechaVF.Text
        If txtFechaI.Text = "" Then FechaI = "-1"
        If txtFechaF.Text = "" Then FechaF = "-1"
        If txtFechaVI.Text = "" Then FechaVI = "-1"
        If txtFechaVF.Text = "" Then FechaVF = "-1"
        Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)

        Dim CveProyecto As Integer = -1
        If DdlProyecto.Visible Then
            CveProyecto = DdlProyecto.SelectedValue.ToEntero()
        End If

        Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
        If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero(), DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
                      DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion, CveProyecto:=CveProyecto) Then
            GvCxP.DataSource = Mov.DtResultados
            DtDatos = Mov.DtResultados
            DtGrafica = Mov.DtResultados
        End If
        Mov.Dispose()
        Dim NumCol As Integer

        If chkAgruparMes.Checked Then

            Dim monthNames As String() = {"", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
            GvCxP.Columns(2).Visible = False
            GvCxP.Columns(3).Visible = True
            GvCxP.Columns(4).Visible = True
            GvCxP.Columns(5).Visible = True
            GvCxP.Columns(6).Visible = True
            GvCxP.Columns(7).Visible = True
            GvCxP.Columns(8).Visible = True
            GvCxP.Columns(9).Visible = True
            GvCxP.Columns(10).Visible = True
            GvCxP.Columns(11).Visible = True
            GvCxP.Columns(12).Visible = True
            GvCxP.Columns(13).Visible = True
            GvCxP.Columns(14).Visible = True
            GvCxP.Columns(15).Visible = True
            GvCxP.Columns(16).Visible = True

            Dim Dr As DataRow = DtDatos.Rows(0)
            GvCxP.Columns(2).HeaderText = "Vencido"
            GvCxP.Columns(3).HeaderText = "Total"
            GvCxP.Columns(4).HeaderText = monthNames(Dr("NomMes1").ToString.ToDate.Month)
            GvCxP.Columns(5).HeaderText = monthNames(Dr("NomMes2").ToString.ToDate.Month)
            GvCxP.Columns(6).HeaderText = monthNames(Dr("NomMes3").ToString.ToDate.Month)
            GvCxP.Columns(7).HeaderText = monthNames(Dr("NomMes4").ToString.ToDate.Month)
            GvCxP.Columns(8).HeaderText = monthNames(Dr("NomMes5").ToString.ToDate.Month)
            GvCxP.Columns(9).HeaderText = monthNames(Dr("NomMes6").ToString.ToDate.Month)
            GvCxP.Columns(10).HeaderText = monthNames(Dr("NomMes7").ToString.ToDate.Month)
            GvCxP.Columns(11).HeaderText = monthNames(Dr("NomMes8").ToString.ToDate.Month)
            GvCxP.Columns(12).HeaderText = monthNames(Dr("NomMes9").ToString.ToDate.Month)
            GvCxP.Columns(13).HeaderText = monthNames(Dr("NomMes10").ToString.ToDate.Month)
            GvCxP.Columns(14).HeaderText = monthNames(Dr("NomMes11").ToString.ToDate.Month)
            GvCxP.Columns(15).HeaderText = monthNames(Dr("NomMes12").ToString.ToDate.Month)
            GvCxP.Columns(16).HeaderText = "12+"
            GvCxP.DataBind()
            UPPDatos.Update()
        Else
            If DtDatos.Rows.Count > 0 Then
                GvCxP.Columns(2).Visible = False
                GvCxP.Columns(3).Visible = False
                GvCxP.Columns(4).Visible = False
                GvCxP.Columns(5).Visible = False
                GvCxP.Columns(6).Visible = False
                GvCxP.Columns(7).Visible = False
                GvCxP.Columns(8).Visible = False
                GvCxP.Columns(9).Visible = False
                GvCxP.Columns(10).Visible = False
                GvCxP.Columns(11).Visible = False
                GvCxP.Columns(12).Visible = False
                GvCxP.Columns(13).Visible = False
                GvCxP.Columns(14).Visible = False
                GvCxP.Columns(15).Visible = False
                GvCxP.Columns(16).Visible = False
                Dim Contador As Integer = 2

                Dim CargaColumnaVencido As Boolean = False
                Dim Dr As DataRow = DtDatos.Rows(0)
                If Dr("NomC1").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC1").ToString
                    Contador += 1
                    If Dr("TC1").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 2
                End If
                If Dr("NomC2").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC2").ToString
                    Contador += 1
                    If Dr("TC2").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 3
                End If
                If Dr("NomC3").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC3").ToString
                    Contador += 1
                    If Dr("TC3").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 4
                End If
                If Dr("NomC4").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC4").ToString
                    Contador += 1
                    If Dr("TC4").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 5
                End If
                If Dr("NomC5").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC5").ToString
                    Contador += 1
                    If Dr("TC5").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 6
                End If
                If Dr("NomC6").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC6").ToString
                    Contador += 1
                    If Dr("TC6").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 7
                End If
                If Dr("NomC7").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC7").ToString
                    Contador += 1
                    If Dr("TC7").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 8
                End If
                If Dr("NomC8").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC8").ToString
                    Contador += 1
                    If Dr("TC8").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 8
                End If
                If Dr("NomC9").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC9").ToString
                    Contador += 1
                    If Dr("TC9").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 10
                End If
                If Dr("NomC10").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC10").ToString
                    Contador += 1
                    If Dr("TC10").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 11
                End If
                If Dr("NomC11").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC11").ToString
                    Contador += 1
                    If Dr("TC11").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 12
                End If
                If Dr("NomC12").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC12").ToString
                    Contador += 1
                    If Dr("TC12").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If
                If Dr("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = "Total"
                    Contador += 1
                    CargaColumnaVencido = True
                    NumCol = 13
                End If
                If Dr("NomC13").ToString <> "" Then
                    GvCxP.Columns(Contador).Visible = True
                    GvCxP.Columns(Contador).HeaderText = Dr("NomC13").ToString
                    Contador += 1
                    If Dr("TC12").ToString.ToEntero = 1 Then
                        CantVencidos += 1
                    Else
                        CantPorVencer += 1
                    End If
                End If

            End If
            GvCxP.DataBind()
            UPPDatos.Update()
            ActualizarDatatable(NumCol)

        End If

        Agrupador = DdlGrupo.SelectedItem.Text
    End Sub

#End Region

#Region "GRIDVIEW"

    Protected Sub GvCxP_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvCxP.RowCreated
        If e.Row.RowType = DataControlRowType.Header Then
            Dim FC As New SortedList
            If chkAgruparMes.Checked Then
                FC.Add(0, " ,2,1,Titulos")
                FC.Add(2, "Vencido,2,1,Titulos")
                FC.Add(3, "Por Vencer,14,1,Titulos")
            Else
                FC.Add(0, " ,2,1,Titulos")
                FC.Add(2, String.Format("Vencido,{0},1,Titulos", CantVencidos + 2))
                FC.Add(3, String.Format("Por Vencer,{0},1,Titulos", CantPorVencer + 2))
                CantVencidos = 0
                CantPorVencer = 0
            End If
            GetMultiRowHeader(DirectCast(sender, GridView), e, FC, "Titulos")
        End If
    End Sub

    Protected Sub GvCxP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCxP.RowDataBound


        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim Css As String = "Texto"
            Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)

            If chkAgruparMes.Checked Then
                Dim TipoMoneda As Integer = RblTipoCambio.SelectedValue.ToEntero
                '  Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
                Dim Responsable As Integer = DdlUsuarioResponsable.SelectedValue.ToEntero
                'Dim CveClasificacion As Integer = DdlProveedoresClasificaciones.SelectedValue.ToEntero
                Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero
                'Dim CveProveedorSucursal As Integer = If(e.Row.DBCampo("CveProveedorSucursal").ToEntero > 0, e.Row.DBCampo("CveProveedorSucursal").ToEntero, -1)

                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(), Date.Now.ToShortDateString)
                If DdlGrupo.SelectedValue.ToEntero = 11 Then
                    If e.Row.DBCampo("CveSubProyecto") = "-1" Then
                        e.Row.CssClass = "Totales"
                    ElseIf e.Row.DBCampo("Orden") = "" Then
                        e.Row.CssClass = "SubTotales"
                    End If
                Else
                    If e.Row.DBCampo("Orden") = "" Then
                        e.Row.CssClass = "Totales"
                    End If
                End If
                If e.Row.DBCampo("Orden") <> "" Then
                    e.Row.Cells(1).BackColor = Drawing.Color.LightGray
                    e.Row.Cells(3).BackColor = Drawing.Color.LightGray
                    e.Row.Cells(17).BackColor = Drawing.Color.LightGray
                End If
                If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3, 5) Then
                    e.Row.Visible = False
                End If
                e.Row.FCHyperLink($"HplColumna1").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna2").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna3").Text = e.Row.DBCampo("Mes1").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna4").Text = e.Row.DBCampo("Mes2").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna5").Text = e.Row.DBCampo("Mes3").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna6").Text = e.Row.DBCampo("Mes4").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna7").Text = e.Row.DBCampo("Mes5").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna8").Text = e.Row.DBCampo("Mes6").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna9").Text = e.Row.DBCampo("Mes7").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna10").Text = e.Row.DBCampo("Mes8").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna11").Text = e.Row.DBCampo("Mes9").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna12").Text = e.Row.DBCampo("Mes10").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna13").Text = e.Row.DBCampo("Mes11").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna14").Text = e.Row.DBCampo("Mes12").ToString.FormatoNumero
                e.Row.FCHyperLink($"HplColumna15").Text = e.Row.DBCampo("Mes13").ToString.FormatoNumero

                Dim CveProyecto As Integer = -1
                If DdlProyecto.Visible Then
                    CveProyecto = DdlProyecto.SelectedValue.ToEntero()
                End If

                Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna1").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna2").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes1"), e.Row.DBCampo("NomMesF1"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna3").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes2"), e.Row.DBCampo("NomMesF2"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna4").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes3"), e.Row.DBCampo("NomMesF3"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna5").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes4"), e.Row.DBCampo("NomMesF4"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna6").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes5"), e.Row.DBCampo("NomMesF5"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna7").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes6"), e.Row.DBCampo("NomMesF6"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna8").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes7"), e.Row.DBCampo("NomMesF7"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna9").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes8"), e.Row.DBCampo("NomMesF8"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna10").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes9"), e.Row.DBCampo("NomMesF9"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna11").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes10"), e.Row.DBCampo("NomMesF10"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna12").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes11"), e.Row.DBCampo("NomMesF11"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna13").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes12"), e.Row.DBCampo("NomMesF12"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna14").NavigateUrl = Liga1
                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes13"), "31/12/9999", TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                e.Row.FCHyperLink($"HplColumna15").NavigateUrl = Liga1

                If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-"
                If e.Row.FCHyperLink("HplColumna1").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna1").Text = "-"
                If e.Row.FCHyperLink("HplColumna2").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna2").Text = "-"
                If e.Row.FCHyperLink("HplColumna3").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna3").Text = "-"
                If e.Row.FCHyperLink("HplColumna4").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna4").Text = "-"
                If e.Row.FCHyperLink("HplColumna5").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna5").Text = "-"
                If e.Row.FCHyperLink("HplColumna6").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna6").Text = "-"
                If e.Row.FCHyperLink("HplColumna7").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna7").Text = "-"
                If e.Row.FCHyperLink("HplColumna8").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna8").Text = "-"
                If e.Row.FCHyperLink("HplColumna9").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna9").Text = "-"
                If e.Row.FCHyperLink("HplColumna10").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna10").Text = "-"
                If e.Row.FCHyperLink("HplColumna11").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna11").Text = "-"
                If e.Row.FCHyperLink("HplColumna12").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna12").Text = "-"
                If e.Row.FCHyperLink("HplColumna13").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna13").Text = "-"
                If e.Row.FCHyperLink("HplColumna14").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna14").Text = "-"
                If e.Row.FCHyperLink("HplColumna15").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna15").Text = "-"


                If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-"
                If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-"
                If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-"
            Else
                If DdlGrupo.SelectedValue.ToEntero = 11 Then
                    If e.Row.DBCampo("CveSubProyecto") = "-1" And e.Row.DBCampo("Orden") = "" Then
                        e.Row.CssClass = "Totales"
                    ElseIf e.Row.DBCampo("Orden") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then
                        e.Row.CssClass = "SubTotales"
                    End If
                Else
                    If e.Row.DBCampo("Orden") = "" Then
                        e.Row.CssClass = "Totales"
                    End If
                End If


                If e.Row.DBCampo("Orden") <> "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                    e.Row.Cells(1).BackColor = Drawing.Color.LightGray
                    e.Row.Cells(17).BackColor = Drawing.Color.LightGray
                End If


                If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3, 5) Then
                    e.Row.Visible = False
                End If

                Dim TipoMoneda As Integer = RblTipoCambio.SelectedValue.ToEntero
                '  Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
                Dim Responsable As Integer = DdlUsuarioResponsable.SelectedValue.ToEntero
                'Dim CveClasificacion As Integer = DdlProveedoresClasificaciones.SelectedValue.ToEntero
                Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero
                'Dim CveProveedorSucursal As Integer = If(e.Row.DBCampo("CveProveedorSucursal").ToEntero > 0, e.Row.DBCampo("CveProveedorSucursal").ToEntero, -1)

                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")

                '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx

                Dim CveProyecto As Integer = -1
                If DdlProyecto.Visible Then
                    CveProyecto = DdlProyecto.SelectedValue.ToEntero()
                End If

                Dim LigaTot As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)


                Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C9&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C10&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C11&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                Dim Liga12 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C12&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                Dim Liga13 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C13&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga14 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga15 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)

                Dim Liga16 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)





                Dim Contador As Integer = 1
                Dim ContadorColumna As Integer = 2
                Dim CargaColumnaVencido As Boolean = False
                If e.Row.DBCampo("NomC1").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna1").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga1
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC2").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna2").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga2
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC3").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna3").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga3
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC4").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna4").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga4
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC5").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna5").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga5
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC6").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna6").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga6
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC7").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna7").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga7
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC8").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna8").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga8
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC9").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna9").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga9
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC10").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna10").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC11").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna11").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga11
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC12").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna12").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga12
                    Contador += 1
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                    If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then
                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                    End If
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                    Contador += 1
                    CargaColumnaVencido = True
                    ContadorColumna += 1
                End If

                If e.Row.DBCampo("NomC12").ToString <> "" Then
                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna13").ToString.FormatoNumero
                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga13
                    Contador += 1
                    ContadorColumna += 1
                End If




                e.Row.FCHyperLink("LtlPorVencer").NavigateUrl = Liga16
                e.Row.FCHyperLink("LtlVentas").NavigateUrl = Liga14
                e.Row.FCHyperLink("LtlSaldo1").NavigateUrl = LigaTot
                e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot

                If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-"
                If e.Row.FCHyperLink("HplColumna1").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna1").Text = "-"
                If e.Row.FCHyperLink("HplColumna2").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna2").Text = "-"
                If e.Row.FCHyperLink("HplColumna3").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna3").Text = "-"
                If e.Row.FCHyperLink("HplColumna4").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna4").Text = "-"
                If e.Row.FCHyperLink("HplColumna5").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna5").Text = "-"
                If e.Row.FCHyperLink("HplColumna6").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna6").Text = "-"
                If e.Row.FCHyperLink("HplColumna7").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna7").Text = "-"
                If e.Row.FCHyperLink("HplColumna8").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna8").Text = "-"
                If e.Row.FCHyperLink("HplColumna9").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna9").Text = "-"
                If e.Row.FCHyperLink("HplColumna10").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna10").Text = "-"
                If e.Row.FCHyperLink("HplColumna11").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna11").Text = "-"
                If e.Row.FCHyperLink("HplColumna12").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna12").Text = "-"
                If e.Row.FCHyperLink("HplColumna13").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna13").Text = "-"
                If e.Row.FCHyperLink("HplColumna14").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna14").Text = "-"

                If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-"
                If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-"
                If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-"

                e.Row.Cells(2).Width = Unit.Pixel(75)
                e.Row.Cells(3).Width = Unit.Pixel(75)
                e.Row.Cells(4).Width = Unit.Pixel(75)
                e.Row.Cells(5).Width = Unit.Pixel(75)
                e.Row.Cells(6).Width = Unit.Pixel(75)
                e.Row.Cells(7).Width = Unit.Pixel(75)
                e.Row.Cells(8).Width = Unit.Pixel(75)
                e.Row.Cells(9).Width = Unit.Pixel(75)
                e.Row.Cells(10).Width = Unit.Pixel(75)
                e.Row.Cells(11).Width = Unit.Pixel(75)
                e.Row.Cells(12).Width = Unit.Pixel(75)
                e.Row.Cells(13).Width = Unit.Pixel(75)
                e.Row.Cells(14).Width = Unit.Pixel(75)
                e.Row.Cells(15).Width = Unit.Pixel(75)
                e.Row.Cells(16).Width = Unit.Pixel(75)

            End If
        End If
    End Sub

#End Region

#Region "CONSULTA"

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

#End Region

#Region "IMPRESIONES"

    Private Sub ActualizarDatatable(NumCol As Integer)

        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then

            For Each Dt As DataRow In DtDatos.Rows

                For Cont = 9 To NumCol + 1 Step -1

                    Dt($"Columna{Cont}") = Dt($"Columna{Cont - 1}")
                    Dt($"TC{Cont}") = Dt($"TC{Cont - 1}")
                    Dt($"NomC{Cont}") = Dt($"NomC{Cont - 1}")

                Next

                Dt($"Columna{NumCol}") = Dt("vencido")
                Dt($"TC{NumCol}") = "1"
                Dt($"NomC{NumCol}") = "Total"

            Next

        End If


    End Sub


    Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
        Dim Mov As New ClsMovimientos
        Dim FechaI As String = txtFechaI.Text
        Dim FechaF As String = txtFechaF.Text
        Dim FechaVI As String = txtFechaVI.Text
        Dim FechaVF As String = txtFechaVF.Text
        If txtFechaI.Text = "" Then FechaI = "-1"
        If txtFechaF.Text = "" Then FechaF = "-1"
        If txtFechaVI.Text = "" Then FechaVI = "-1"
        If txtFechaVF.Text = "" Then FechaVF = "-1"
        Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)
        Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
        If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, -1, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
                      DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then

        End If
        Dim Dr As DataRow = Mov.DtResultados.Rows(0)
        Dim NombreArchivo As String
        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
        Dim workbook As New ExcelFile()
        Dim worksheet = workbook.Worksheets.Add("Cxp")
        Dim Mes(12) As String
        Dim monthNames As String() = {"", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
        Mes(0) = monthNames(Dr("NomMes1").ToString.ToDate.Month)
        Mes(1) = monthNames(Dr("NomMes2").ToString.ToDate.Month)
        Mes(2) = monthNames(Dr("NomMes3").ToString.ToDate.Month)
        Mes(3) = monthNames(Dr("NomMes4").ToString.ToDate.Month)
        Mes(4) = monthNames(Dr("NomMes5").ToString.ToDate.Month)
        Mes(5) = monthNames(Dr("NomMes6").ToString.ToDate.Month)
        Mes(6) = monthNames(Dr("NomMes7").ToString.ToDate.Month)
        Mes(7) = monthNames(Dr("NomMes8").ToString.ToDate.Month)
        Mes(8) = monthNames(Dr("NomMes9").ToString.ToDate.Month)
        Mes(9) = monthNames(Dr("NomMes10").ToString.ToDate.Month)
        Mes(10) = monthNames(Dr("NomMes11").ToString.ToDate.Month)
        Mes(11) = monthNames(Dr("NomMes12").ToString.ToDate.Month)
        Mes(12) = "12+"
        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
            TCEspecifico = TxtEspecifico.Text
        Else
            TCEspecifico = -1
        End If


        Dim DtExcel As DataTable
        If chkAgruparMes.Checked Then
            DtExcel = (From row As DataRow In Mov.DtResultados.Rows
                       Select New With
                            {
                            .GPO = row.Item("GPO"),
                            .Saldo = row.Item("Saldo"),
                            .TotalVencido = row.Item("vencido"),
                            .Mes1 = row.Item("Mes1"),
                            .Mes2 = row.Item("Mes2"),
                            .Mes3 = row.Item("Mes3"),
                            .Mes4 = row.Item("Mes4"),
                            .Mes5 = row.Item("Mes5"),
                            .Mes6 = row.Item("Mes6"),
                            .Mes7 = row.Item("Mes7"),
                            .Mes8 = row.Item("Mes8"),
                            .Mes9 = row.Item("Mes9"),
                            .Mes10 = row.Item("Mes10"),
                            .Mes11 = row.Item("Mes11"),
                            .Mes12 = row.Item("Mes12"),
                            .Mes13 = row.Item("Mes13"),
                            .TotalxVencer = row.Item("por_vencer")
                        }).QueryToDataTable(True)
            Dim RowDolares As Integer = 0
            For Each row As DataRow In DtExcel.Rows
                If row("GPO").ToString = "Dólares" Then
                    RowDolares += 1
                    Exit For
                Else
                    RowDolares += 1
                End If
            Next

            worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
             {
                 .ColumnHeaders = True,
                 .StartRow = 0,
                 .StartColumn = 0
             })
            worksheet.Columns("B").Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
            worksheet.Columns("C").Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
            worksheet.Columns("Q").Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
            worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
            worksheet.Rows(1).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(103, 128, 159), SpreadsheetColor.FromArgb(255, 255, 255))
            worksheet.Rows(RowDolares).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(103, 128, 159), SpreadsheetColor.FromArgb(255, 255, 255))

            Dim columnCount = worksheet.CalculateMaxUsedColumns()
            For i = 0 To columnCount
                worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
            Next

            worksheet.Cells("A1").Value = DdlGrupo.SelectedItem.Text
            worksheet.Cells("D1").Value = Mes(0)
            worksheet.Cells("E1").Value = Mes(1)
            worksheet.Cells("F1").Value = Mes(2)
            worksheet.Cells("G1").Value = Mes(3)
            worksheet.Cells("H1").Value = Mes(4)
            worksheet.Cells("I1").Value = Mes(5)
            worksheet.Cells("J1").Value = Mes(6)
            worksheet.Cells("K1").Value = Mes(7)
            worksheet.Cells("L1").Value = Mes(8)
            worksheet.Cells("M1").Value = Mes(9)
            worksheet.Cells("N1").Value = Mes(10)
            worksheet.Cells("O1").Value = Mes(11)
            worksheet.Cells("P1").Value = Mes(12)


            NombreArchivo = "CxP"
            workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
        Else
            'DtExcel = (From row As DataRow In Mov.DtResultados.Rows
            '           Select New With
            '            {
            '                .GPO = row.Item("GPO"),
            '                .Saldo = row.Item("Saldo"),
            '                .Columna1vencido = row.Item("Columna1"),
            '                .Columna2vencido = row.Item("Columna2"),
            '                .Columna3vencido = row.Item("Columna3"),
            '                .Columna4vencido = row.Item("Columna4"),
            '                .Columna5vencido = row.Item("Columna5"),
            '                .Columna6vencido = row.Item("Columna6"),
            '                .Columna7vencido = row.Item("Columna7"),
            '                .Columna8vencido = row.Item("Columna8"),
            '                .Columna9vencido = row.Item("Columna9"),
            '                .Columna10vencido = row.Item("Columna10"),
            '                .Columna11vencido = row.Item("Columna11"),
            '                .Columna12vencido = row.Item("Columna12"),
            '                .Columna13vencido = row.Item("Columna13"),
            '                .TotalVencido = row.Item("vencido"),
            '                .Columna1xVencer = row.Item("Columna1"),
            '                .Columna2xVencer = row.Item("Columna2"),
            '                .Columna3xVencer = row.Item("Columna3"),
            '                .Columna4xVencer = row.Item("Columna4"),
            '                .Columna5xVencer = row.Item("Columna5"),
            '                .Columna6xVencer = row.Item("Columna6"),
            '                .Columna7xVencer = row.Item("Columna7"),
            '                .Columna8xVencer = row.Item("Columna8"),
            '                .Columna9xVencer = row.Item("Columna9"),
            '                .Columna10xVencer = row.Item("Columna10"),
            '                .Columna11xVencer = row.Item("Columna11"),
            '                .Columna12xVencer = row.Item("Columna12"),
            '                .Columna13xVencer = row.Item("Columna13"),
            '                .TotalxVencer = row.Item("por_vencer")
            '            }).QueryToDataTable(True)
            GenerarPDF("EXCEL")

        End If
        Mov.Dispose()





        'If chkAgruparMes.Checked Then

        'Else
        '    Dim Vencido As Integer = 0
        '    Dim Xvencer As Integer = 0
        '    If Dr("TC1").ToString.ToEntero = 1 Then
        '        worksheet.Cells("C1").Value = Dr("NomC1").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC1").ToString.ToEntero = 2 Then
        '        worksheet.Cells("Q1").Value = Dr("NomC1").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC2").ToString.ToEntero = 1 Then
        '        worksheet.Cells("D1").Value = Dr("NomC2").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC2").ToString.ToEntero = 2 Then
        '        worksheet.Cells("R1").Value = Dr("NomC2").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC3").ToString.ToEntero = 1 Then
        '        worksheet.Cells("E1").Value = Dr("NomC3").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC3").ToString.ToEntero = 2 Then
        '        worksheet.Cells("S1").Value = Dr("NomC3").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC4").ToString.ToEntero = 1 Then
        '        worksheet.Cells("F1").Value = Dr("NomC4").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC4").ToString.ToEntero = 2 Then
        '        worksheet.Cells("T1").Value = Dr("NomC4").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC5").ToString.ToEntero = 1 Then
        '        worksheet.Cells("G1").Value = Dr("NomC5").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC5").ToString.ToEntero = 2 Then
        '        worksheet.Cells("U1").Value = Dr("NomC5").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC6").ToString = "1" Then
        '        worksheet.Cells("H1").Value = Dr("NomC6").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC6").ToString.ToEntero = 2 Then
        '        worksheet.Cells("V1").Value = Dr("NomC6").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC7").ToString.ToEntero = 1 Then
        '        worksheet.Cells("I1").Value = Dr("NomC7").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC7").ToString.ToEntero = 2 Then
        '        worksheet.Cells("W1").Value = Dr("NomC7").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC8").ToString.ToEntero = 1 Then
        '        worksheet.Cells("J1").Value = Dr("NomC8").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC8").ToString.ToEntero = 2 Then
        '        worksheet.Cells("X1").Value = Dr("NomC8").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC9").ToString.ToEntero = 1 Then
        '        worksheet.Cells("K1").Value = Dr("NomC9").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC9").ToString.ToEntero = 2 Then
        '        worksheet.Cells("Y1").Value = Dr("NomC9").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC10").ToString.ToEntero = 1 Then
        '        worksheet.Cells("L1").Value = Dr("NomC10").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC10").ToString.ToEntero = 2 Then
        '        worksheet.Cells("Z1").Value = Dr("NomC10").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC11").ToString.ToEntero = 1 Then
        '        worksheet.Cells("M1").Value = Dr("NomC11").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC11").ToString.ToEntero = 2 Then
        '        worksheet.Cells("AA1").Value = Dr("NomC11").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC12").ToString.ToEntero = 1 Then
        '        worksheet.Cells("N1").Value = Dr("NomC12").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC12").ToString.ToEntero = 2 Then
        '        worksheet.Cells("AB1").Value = Dr("NomC12").ToString
        '        Xvencer += 1
        '    End If
        '    If Dr("TC13").ToString.ToEntero = 1 Then
        '        worksheet.Cells("O1").Value = Dr("NomC13").ToString
        '        Vencido += 1
        '    ElseIf Dr("TC13").ToString.ToEntero = 2 Then
        '        worksheet.Cells("AC1").Value = Dr("NomC13").ToString
        '        Xvencer += 1
        '    End If


        '    If Dr("TC13").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(28)
        '    End If
        '    If Dr("TC12").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(27)
        '    End If

        '    If Dr("TC11").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(26)
        '    End If

        '    If Dr("TC10").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(25)
        '    End If
        '    If Dr("TC9").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(24)
        '    End If

        '    If Dr("TC8").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(23)
        '    End If
        '    If Dr("TC7").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(22)
        '    End If

        '    If Dr("TC6").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(21)
        '    End If
        '    If Dr("TC5").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(20)
        '    End If

        '    If Dr("TC4").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(19)
        '    End If
        '    If Dr("TC3").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(18)
        '    End If
        '    If Dr("TC2").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(17)
        '    End If
        '    If Dr("TC1").ToString.ToEntero <> 2 Then
        '        worksheet.Columns.Remove(16)
        '    End If


        '    If Dr("TC13").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(14)
        '    End If

        '    If Dr("TC12").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(13)
        '    End If

        '    If Dr("TC11").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(12)
        '    End If

        '    If Dr("TC10").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(11)
        '    End If
        '    If Dr("TC9").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(10)
        '    End If

        '    If Dr("TC8").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(9)
        '    End If
        '    If Dr("TC7").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(8)
        '    End If

        '    If Dr("TC6").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(7)
        '    End If
        '    If Dr("TC5").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(6)
        '    End If

        '    If Dr("TC4").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(5)
        '    End If
        '    If Dr("TC3").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(4)
        '    End If
        '    If Dr("TC2").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(3)
        '    End If
        '    If Dr("TC1").ToString.ToEntero <> 1 Then
        '        worksheet.Columns.Remove(2)
        '    End If
        'End If




    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")
        Dim ObjMovtos As New ClsMovimientos()
        Dim FechaI As String = txtFechaI.Text
        Dim FechaF As String = txtFechaF.Text
        Dim FechaVencimientoI As String = txtFechaVI.Text
        Dim FechaVencimientoF As String = txtFechaVF.Text
        If txtFechaI.Text = "" Then FechaI = "-1"
        If txtFechaF.Text = "" Then FechaF = "-1"
        If txtFechaVI.Text = "" Then FechaVencimientoI = "-1"
        If txtFechaVF.Text = "" Then FechaVencimientoF = "-1"

        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
            TCEspecifico = TxtEspecifico.Text
        Else
            TCEspecifico = -1
        End If

        Dim Proyecto = ""
        Dim Sucursal = ""

        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
            Case 1
                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Centro de costo:</b> {DdlSubProyecto.SelectedItem.Text}")
            Case 2
                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
            Case 3
                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
            Case 4
                Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sub Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
            Case 5
                Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
        End Select

        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}")
        Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
        Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
        Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"
        Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"
        If txtFechaI.Text = "" Then FechaIn = ""
        If txtFechaF.Text = "" Then FechaFn = ""
        Dim Registro = If(DdlUsuarioRegistro.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b> {DdlUsuarioRegistro.SelectedItem.Text}")
        Dim Responsable = If(DdlUsuarioResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b> {DdlUsuarioResponsable.SelectedItem.Text}")
        Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")

        Dim FVI As String = $"&emsp;<b>Fecha Venc. Inic.:</b>&nbsp;{txtFechaVI.Text}"
        Dim FVF As String = $"&emsp;<b>Fecha Venc. Final:</b>&nbsp;{txtFechaVF.Text}"
        If txtFechaVI.Text = "" Then FVI = ""
        If txtFechaVF.Text = "" Then FVF = ""


        If DtDatos.Rows.Count > 0 Then
            Dim CantidadColumnas As Integer = 0
            If DtDatos.Rows(0)("TC1").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC1").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC2").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC2").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC3").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC3").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC4").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC4").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC5").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC5").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC6").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC6").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC7").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC7").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC8").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC8").ToString.ToEntero = 2 Then CantidadColumnas += 1
            If DtDatos.Rows(0)("TC9").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC9").ToString.ToEntero = 2 Then CantidadColumnas += 1

            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("FechaInicio", FechaI))
            params.Add(New ReportParameter("FechaFin", FechaF))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
            params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
            params.Add(New ReportParameter("CantColumnas", CantidadColumnas))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepCxP.rdlc", DtDatos, params, "ReporteCxP", Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If

    End Sub

#End Region

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

        UPFiltros.Update()
    End Sub

    Private Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) Handles BtnTipoCambio.Click
        CargaDatos()
        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
        UPPDatos.Update()
    End Sub

#End Region

#Region "PERSONALIZAR RANGO COLUMNAS"

    Protected Sub GvPersonalizarRango_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            If Not e.Row.DBCampo("RangoFinal").ToDouble > 0 Then
                e.Row.Cells(2).Text = "+"
            End If
        End If
    End Sub

    Private Sub CargaGv()
        GvPersonalizarRango.DataSource = DtPersonalizarRango
        GvPersonalizarRango.DataBind()
        UpBodyPersonalizar.Update()
    End Sub

    Private Sub CargaGvPersonalizarRaqngoColumnas()
        Dim ObjComp As New ClsCompras
        If ObjComp.GetRepCxPColumnas(UsuarioActual.CveEmpresa) Then
            GvPersonalizarRango.DataSource = ObjComp.DtResultados
            DtPersonalizarRango = ObjComp.DtResultados
        End If
        ObjComp.Dispose()
        GvPersonalizarRango.DataBind()
        UpPersonalizarRango.Update()
    End Sub

    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        DtPersonalizarRango.Rows.RemoveAt(gvRow.RowIndex)
        DtPersonalizarRango.AcceptChanges()
        CargaGv()
    End Sub

    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        Index = gvRow.RowIndex
        Modalidad = "U"
        DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
        TxtRI.Text = gvRow.DataKey("RangoInicial")
        TxtRF.Text = gvRow.DataKey("RangoFinal")
        If Not TxtRF.Text.ToDouble > 0 Then
            ChkMayor.Checked = True
            TxtRF.Enabled = False
        Else
            ChkMayor.Checked = False
        End If
        RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
        UpPersonalizarRangoEditar.Update()
    End Sub

    Private Sub LimpiaPersonalizarColumna()
        DdlTipo.SelectedIndex = 0
        TxtRI.Text = ""
        TxtRF.Text = ""
        ChkMayor.Checked = False
        SoloNumeros2.Enabled = True
        TxtRF.Enabled = True
        RFVRF.Enabled = True
    End Sub

    Protected Sub ChkMayor_CheckedChanged(sender As Object, e As EventArgs)
        CambioChecked()
    End Sub

    Private Sub CambioChecked()
        If ChkMayor.Checked Then
            SoloNumeros2.Enabled = False
            TxtRF.Enabled = False
            TxtRF.Text = ""
            RFVRF.Enabled = False
        Else
            SoloNumeros2.Enabled = True
            TxtRF.Enabled = True
            TxtRF.Text = ""
            RFVRF.Enabled = True
        End If
        UpBodyEdit.Update()
    End Sub

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

        If Not ChkMayor.Checked And TxtRI.Text.ToDouble > TxtRF.Text.ToDouble Then
            Alert("El rango final tiene que ser mayor que el inicial.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If Modalidad = "A" Then
            If Not ValidarRangosAgregar() Then
                Exit Sub
            End If
            Dim Dt As DataRow = Nothing
            Dt = DtPersonalizarRango.NewRow
            Dt("RangoInicial") = TxtRI.Text.ToDouble
            Dt("RangoFinal") = TxtRF.Text.ToDouble
            Dt("Tipo") = DdlTipo.SelectedValue
            Dt("TipoEscrito") = DdlTipo.SelectedItem.Text
            DtPersonalizarRango.Rows.InsertAt(Dt, DtPersonalizarRango.Rows.Count)
        ElseIf Modalidad = "U" Then
            If Not ValidarRangosEditar() Then
                Exit Sub
            End If
            DtPersonalizarRango.Rows(Index)("RangoInicial") = TxtRI.Text.ToDouble
            DtPersonalizarRango.Rows(Index)("RangoFinal") = TxtRF.Text.ToDouble
            DtPersonalizarRango.Rows(Index)("Tipo") = DdlTipo.SelectedValue
            DtPersonalizarRango.Rows(Index)("TipoEscrito") = DdlTipo.SelectedItem.Text
            DtPersonalizarRango.AcceptChanges()
        End If
        DtPersonalizarRango = DtPersonalizarRango.FiltraParametros("", "Tipo,RangoInicial,RangoFinal")
        CargaGv()
        RegistraScript("$('#DivPersonalizarRangoEditar').modal('hide')")
        RegistraScript("$('#DivPersonalizarRango').modal()", "SDSD")
    End Sub

    Private Function ValidarRangosAgregar() As Boolean
        Dim UltimoRango As DataTable = DtPersonalizarRango.FiltraParametros(String.Format("Tipo = {0}", DdlTipo.SelectedValue), "RangoInicial")
        Dim TieneNullRow As DataRow = UltimoRango.Rows(UltimoRango.Rows.Count - 1)
        Dim aux As String = TieneNullRow.Item("RangoFinal").ToString
        'Dim TieneNull As DataTable = UltimoRango.FiltraParametros(String.Format("RangoFinal < 0"))
        If aux = "" Then
            Alert("Falta indicar el valor maximo del rango anterior", TipoMensaje.MsgAdvertencia)
            Return False
        End If
        Dim ValorMinimoPosible As Double = UltimoRango.MAX("RangoFinal").ToDouble
        If Not TxtRI.Text.ToDouble > ValorMinimoPosible Then
            Alert("El rango inicial no puede ser inferior al rango final anterior", TipoMensaje.MsgAdvertencia)
        End If
        Return TxtRI.Text.ToDouble > ValorMinimoPosible
    End Function

    Private Function ValidarRangosEditar() As Boolean
        Dim TablaDeDatosAux As DataTable = DtPersonalizarRango.FiltraParametros(String.Format("Tipo = {0}", DdlTipo.SelectedValue))

        'Valida que hay datos en el row anterior
        Dim valorMinimo As Double = 0.0
        If Index > 0 Then
            'Validar que el RowAnterior sea del mismo tipo
            Dim RowAnterior As GridViewRow = GvPersonalizarRango.Rows(Index - 1)
            If RowAnterior.DataKey("Tipo") = DdlTipo.SelectedValue Then
                'Validar que el valor final del row anterior no sea null
                valorMinimo = If(RowAnterior.DataKey("RangoFinal") IsNot Nothing, RowAnterior.DataKey("RangoFinal").ToDouble, -1.0)
            End If
        End If

        'Valida que datos en e row siguiente
        Dim valorMaximo As Double = 1000000.0
        If Index < (GvPersonalizarRango.Rows.Count - 1) Then
            'Validamos que el row siguiente sea del mismo tipo
            Dim RowSiguiente As GridViewRow = GvPersonalizarRango.Rows(Index + 1)
            If RowSiguiente.DataKey("Tipo") = DdlTipo.SelectedValue Then
                'Validamos que el valor inicial del row siguiente no sea NULL
                valorMaximo = If(RowSiguiente.DataKey("RangoInicial") IsNot Nothing, RowSiguiente.DataKey("RangoInicial").ToDouble, 1000000.0)
            End If
        End If

        If Not TxtRI.Text.ToDouble > valorMinimo Then
            Alert("El rango inicial no puede ser inferior al rango final anterior", TipoMensaje.MsgAdvertencia)
            Return False
        End If

        If Not TxtRF.Text.ToDouble < valorMaximo Then
            Alert("El rango final no puede ser superior al rango inicial siguiente", TipoMensaje.MsgAdvertencia)
            Return False
        End If

        Return (TxtRI.Text.ToDouble > valorMinimo And TxtRF.Text.ToDouble < valorMaximo)

    End Function

    Protected Sub BtnCancelarPersonalizarRangoEditar_Click(sender As Object, e As EventArgs)
        RegistraScript("$('#DivPersonalizarRangoEditar').modal('hide')")
        RegistraScript("$('#DivPersonalizarRango').modal()", "SDSD")
    End Sub

    Protected Sub BtnAgregarRango_Click(sender As Object, e As EventArgs)
        Modalidad = "A"
        LimpiaPersonalizarColumna()
        RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
        UpPersonalizarRangoEditar.Update()
    End Sub

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

        If Not DtPersonalizarRango.COUNT("Tipo", "Tipo=1") > 0 Then
            Alert("Tiene que haber por lo menos una columna de tipo vencido.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If Not DtPersonalizarRango.COUNT("Tipo", "Tipo=2") > 0 Then
            Alert("Tiene que haber por lo menos una columna de tipo por vencer.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If DtPersonalizarRango.Rows.Count > 13 Then
            Alert("Tiene que haber un maximo de 13 columnas.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim ObjComp As New ClsCompras
        ObjComp.IniciaTransacSQL()
        Dim ErrorTrans As Boolean = False
        If Not ObjComp.RemoveRepCxPColumnas(UsuarioActual.CveEmpresa) Then
            ErrorTrans = True
        End If
        For Each Dr As DataRow In DtPersonalizarRango.Rows
            If Not ObjComp.AddRepCxPColumnas(UsuarioActual.CveEmpresa, Dr("RangoInicial").ToString.ToDouble, Dr("RangoFinal").ToString.ToDouble, Dr("Tipo").ToString.ToEntero) Then
                ErrorTrans = True
            End If
        Next
        If Not ErrorTrans Then
            ObjComp.Commit()
            CargaDatos()
            RegistraScript("$('#DivPersonalizarRango').modal('hide')")
        Else
            ObjComp.RollBack()
        End If
        ObjComp.Dispose()
        UPPDatos.Update()
    End Sub

#End Region

#Region "GRAFICA"

    Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
        If Not DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
            Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        LblTituloGrafica.Text = $"Agrupado por: {Agrupador}"
        UPModalProd.Update()
        RegistraScript("$('#DivModalGrafica').modal('show')")
        CargaGraficaVencidoPorVencer(DdlVerGraficaVencidoPorVencer.SelectedValue.ToEntero)
        CambioGrafica(DdlVer.SelectedValue.ToEntero)
    End Sub
    Private Sub CreaDataTableColor()
        DtColor = New DataTable
        DtColor.Columns.Add("Color")
        Dim RowColor As DataRow = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FF0F00"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FF6600"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FF9E01"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FCD202"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#F8FF01"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#B0DE09"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#04D215"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#0D8ECF"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#0D52D1"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#2A0CD0"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#8A0CCF"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#CD0D74"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#754DEB"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#DDDDDD"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#999999"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#333333"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#000000"
        DtColor.Rows.Add(RowColor)
    End Sub

    Private Sub CambioGrafica(Tipo As Integer)
        Dim Dt As New DataTable()
        Dt.Columns.Add("Texto")
        Dt.Columns.Add("Valor")
        Dt.Columns.Add("Color")
        Dt.Columns.Add("Moneda")
        Dim RowColorIndex As Integer = 0
        Dim Top As Integer = 1
        For Each Dr As DataRow In DtDatos.FiltraParametros("", $"{If(Tipo = 1, "Saldo", If(Tipo = 1, "vencido", "por_vencer"))} DESC").Rows
            If Not Dr("Orden").ToString = "" Then
                Dim Row As DataRow = Nothing
                Row = Dt.NewRow()
                Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                Select Case Tipo
                    Case 1
                        Row("Valor") = Dr("Saldo").ToString.FormatoNumero
                    Case 2
                        Row("Valor") = Dr("vencido").ToString.FormatoNumero
                    Case 3
                        Row("Valor") = Dr("por_vencer").ToString.FormatoNumero
                End Select
                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
                Row("Moneda") = Dr("Moneda").ToString
                Dt.Rows.Add(Row)
                RowColorIndex += 1
                If RowColorIndex = 17 Then
                    RowColorIndex = 0
                End If
                Top += 1
            End If
            If DdlMostrarGraficaTotales.SelectedValue.ToEntero <> -1 And Top > DdlMostrarGraficaTotales.SelectedValue.ToEntero Then Exit For
        Next

        Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
        Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
        Select Case DdlGrafica.SelectedValue.ToEntero
            Case 1
                RegistraScript($"CargaGraficaBarras({json})", "22")
            Case 2
                RegistraScript($"CargaGraficaPastel({json})", "22")
        End Select
        UpGraficaTotales.Update()
    End Sub
    Protected Sub DdlGrafica_SelectedIndexChanged(sender As Object, e As EventArgs)
        CambioGrafica(DdlVer.SelectedValue.ToEntero)
    End Sub

    Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
        CambioGrafica(DdlVer.SelectedValue.ToEntero)
    End Sub

    Private Sub CargaGraficaVencidoPorVencer(Tipo As Integer)
        Dim Dt5 As New DataTable()
        Dt5.Columns.Add("categoria")

        Dim Dt6 As New DataTable()
        Dt6.Columns.Add("balloonText")
        Dt6.Columns.Add("bullet")
        Dt6.Columns.Add("title")
        Dt6.Columns.Add("valueField")
        Dt6.Columns.Add("fillAlphas")

        Dim Top As Integer = 1
        For Each Dr As DataRow In DtGrafica.FiltraParametros("", $"{If(Tipo = 1, "vencido", "por_vencer")} DESC").Rows
            If Not Dr("Orden").ToString = "" Then
                Dim NombreColumna As String = ""
                If Dt5.Columns.Contains($"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}") Then
                    NombreColumna = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}{"2"}"
                Else
                    NombreColumna = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                End If
                Dt5.Columns.Add(NombreColumna)
                Dim Row6 As DataRow = Nothing
                Row6 = Dt6.NewRow()
                Row6("balloonText") = "[[title]] [[category]]: [[value]]"
                Row6("bullet") = "round"
                Row6("title") = NombreColumna
                Row6("valueField") = NombreColumna
                Row6("fillAlphas") = 0
                Dt6.Rows.Add(Row6)
                Top += 1
            End If
            If DdlMostrarGraficaVencidoPorVencer.SelectedValue.ToEntero <> -1 And Top > DdlMostrarGraficaVencidoPorVencer.SelectedValue.ToEntero Then Exit For
        Next

        Dim Dr1 As DataRow = DtGrafica.Rows(0)
        For Cont = 1 To 8
            If Dr1($"TC{Cont}").ToString.ToEntero = Tipo And Not Dr1($"NomC{Cont}").ToString = "Total" Then
                Top = 1
                Dim Row As DataRow = Dt5.NewRow()
                For Each Dr2 As DataRow In DtGrafica.FiltraParametros("", $"{If(Tipo = 1, "vencido", "por_vencer")} DESC").Rows
                    If Not Dr2("Orden").ToString = "" Then
                        Row($"{Dr2("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr2("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}") = Dr2($"Columna{Cont}").ToString
                        Top += 1
                    End If
                    If DdlMostrarGraficaVencidoPorVencer.SelectedValue.ToEntero <> -1 And Top > DdlMostrarGraficaVencidoPorVencer.SelectedValue.ToEntero Then Exit For
                Next
                Row("categoria") = Dr1($"NomC{Cont}").ToString
                Dt5.Rows.Add(Row)
            End If
        Next

        RegistraScript($"CargaGraficaVencidoPorVencer({Dt5.ToJson},{Dt6.ToJson})", "33")

        UpGraficaVencidoPorVencer.Update()

    End Sub

    Protected Sub DdlVerGraficaVencidoPorVencer_SelectedIndexChanged(sender As Object, e As EventArgs)
        CargaGraficaVencidoPorVencer(DdlVerGraficaVencidoPorVencer.SelectedValue.ToEntero)
    End Sub

    Protected Sub DdlMostrarGraficaVencidoPorVencer_SelectedIndexChanged(sender As Object, e As EventArgs)
        CargaGraficaVencidoPorVencer(DdlVerGraficaVencidoPorVencer.SelectedValue.ToEntero)
    End Sub
    Protected Sub DdlMostrarGraficaTotales_SelectedIndexChanged(sender As Object, e As EventArgs)
        CambioGrafica(DdlVer.SelectedValue.ToEntero)
    End Sub


#End Region

End Class