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

Partial Class Bancos_RepProveedoresCreditos
    Inherits ClsPaginas


    Private Property DtDatos As DataTable
        Get
            Return CType(ViewState("DtDatos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property

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

            CargaCombos()

            'proceso para que solo pague lo que este programada
            If UsuarioActual.TienePermisoProceso(98) Then
                ChkProgramadas.Enabled = False
                ChkProgramadas.Checked = True
                'DdlTipoPago.Items.RemoveAt(0)
                ChkProgramadas_CheckedChanged(sender, e)
            End If


            CargaDatos()


        End If
    End Sub

    Private Sub CargaCombos()

        DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedores.DataBind()


        DdlMoneda.DataSource = GlobalDTMonedas()
        DdlMoneda.DataBind()


    End Sub


    Private Sub CargaDatos()

        Dim Mov As New ClsBancos

        If Mov.GetCreditosVencimientoProveedor(UsuarioActual.CveEmpresa, DdlProveedores.SelectedValue.ToEntero, If(ChkProgramadas.Checked, 1, 0), DdlMoneda.SelectedValue.ToEntero) Then
            DtDatos = Mov.DtResultados
            CargaGrid("")
        End If

        Mov.Dispose()

    End Sub

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


        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.DataKey("CveProveedor") = "" And e.Row.DataKey("NombreComercial") = "" Then

                e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#ddd")
                e.Row.Cells(0).Text = "Total " & e.Row.DataKey("Moneda")
                e.Row.Cells(0).Attributes.Add("style", "text-align:right")
                e.Row.Font.Bold = True
                e.Row.FCHyperLink("ImgAbonar").Visible = False

            Else
                e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/ProveedoresCreditos.aspx?CveProveedor={0}&CveMoneda={1}&Programado={2}", e.Row.DBCampo("CveProveedor").ToString, e.Row.DataKey("CveMoneda").ToEntero, If(ChkProgramadas.Checked, "1", "0"))
            End If

        End If
    End Sub

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

    Protected Sub ChkProgramadas_CheckedChanged(sender As Object, e As EventArgs) Handles ChkProgramadas.CheckedChanged

    End Sub

#Region "O R D E N A M I E N T O"
    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Orden As String = ""
        Dim Campo As String = ""
        Dim Literal As Literal = Nothing
        Const OrdenInicial As String = ""
        Dim Arg(2) As String

        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
        Campo = Arg(0)
        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)

        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
        Else
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
        End If
        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
        ViewState("Orden") = Orden
        CargaGrid(Orden)
    End Sub

    Private Sub CargaGrid(Orden As String)
        If Orden <> String.Empty Then
            Dim DV As New DataView(DtDatos, "", Orden, DataViewRowState.CurrentRows)
            GvDatos.DataSource = DV.ToTable()
            DV.Dispose()
        Else
            GvDatos.DataSource = DtDatos
        End If
        GvDatos.DataBind()
        UPDatos.Update()
    End Sub
#End Region








End Class