Option Explicit On
Option Strict On

Imports Extensiones

Partial Class Contratos_CatPresupuestos
    Inherits ClsPaginas


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


#Region "I N I C I A L I Z A  -  V A L O R E S"
    Private Sub InicializaValores()
        CargaProyecto()
        Dim CveProyecto = DdlSubProyecto.SelectedValue.ToEntero
        CargaSubProyecto(CveProyecto)
        txtFechaI.Text = $"01/01/{Now.Year}"
        txtFechaF.Text = Now.ToString("dd/MM/yyyy")

        UPFiltros.Update()
    End Sub
    Private Sub CargaProyecto()
        DdlProyecto.Items.Clear()
        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
        DdlProyecto.DataBind()
        DdlProyecto.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
    End Sub
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
        CargaSubProyecto(DdlProyecto.SelectedValue.ToEntero)
        UPFiltros.Update()
    End Sub
    Protected Sub CargaSubProyecto(CveProyecto As Integer)
        DdlSubProyecto.Items.Clear()
        If CveProyecto > 0 Then
            DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
            DdlSubProyecto.DataBind()
            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
        Else
            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
        End If
    End Sub
#End Region


    Private Sub CargaDatos()
        Dim ObjPres As New ClsContratos
        Dim FechaI = TxtFechaI.Text.ToDate
        Dim FechaF = TxtFechaF.Text.ToDate
        Dim CveSubProyecto = DdlProyecto.SelectedValue.ToEntero
        Dim Estatus = DdlEstatus.SelectedValue.ToEntero
        Dim CvePresupuesto = -1
        Dim Nombre = "-1"
        Dim CveUsuario = -1
        If ObjPres.GetPresupuestosCat(CvePresupuesto, Nombre, CveSubProyecto, Estatus, CveUsuario, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjPres.DtResultados
        End If
        ObjPres.Dispose()
        GvDatos.DataBind()
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        Dim Estatus = DdlEstatus.SelectedValue.ToEntero
        Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
        Dim FechaI = txtFechaI.Text.ToDate
        Dim FechaF = TxtFechaF.Text.ToDate
        Dim CvePresupuesto = -1
        Dim Nombre = "-1"
        Dim CveUsuario = -1
        Dim ObjPres As New ClsContratos
        If ObjPres.GetPresupuestosCat(CvePresupuesto, Nombre, CveSubProyecto, Estatus, CveUsuario, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjPres.DtResultados
        End If
        ObjPres.Dispose()
        GvDatos.DataBind()

        UPFiltros.Update()
        UpTitulos.Update()
    End Sub
End Class