Option Explicit On
Option Strict On

Imports Extensiones
Partial Class Compras_RepPromociones
    Inherits ClsPaginas

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

            InicializaValores()

        End If
    End Sub

    Private Sub InicializaValores()

        TxtFiltrosFechaInicio.Text = $"01/01/{Now.Year}"
        TxtFiltrosFechaFin.Text = $"{Now.Day}/{Now.Month}/{Now.Year}"

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

        'DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
        'DdlTipoGasto.DataBind()

        UpFiltros.Update()
    End Sub



    Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs) Handles BtnConsultarFiltros.Click
        CargaDatos()
    End Sub
    Private Sub CargaDatos()
        Dim CveProveedor = DdlProveedor.SelectedValue.ToEntero
        Dim CveTipoGasto = -1 'DdlTipoGasto.SelectedValue.ToEntero
        Dim Tipo = DdlTipo.SelectedValue.ToEntero
        Dim FechaI = TxtFiltrosFechaInicio.Text.ToDate
        Dim FechaF = TxtFiltrosFechaFin.Text.ToDate

        Dim ObjCompras As New ClsCompras
        If ObjCompras.GetRepPromociones(CveProveedor, CveTipoGasto, FechaI, FechaF, Tipo, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjCompras.DtResultados
        End If
        ObjCompras.Dispose()
        GvDatos.DataBind()
        UpDatos.Update()

    End Sub
End Class