Imports Extensiones

Partial Class Inventarios_RepTrasladoSolicitud
    Inherits ClsPaginas

    Private Sub Inventarios_RepTrasladoSolicitud_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaCombos()

            TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
            TxtFechaF.Text = Now.ToShortDateString
        End If
    End Sub

    Private Sub CargaCombos()
        DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
        DdlAlmacenOrigen.DataBind()
        DdlAlmacenOrigen.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
        DdlAlmacenDestino.DataBind()
        DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
        DdlContrato.DataBind()
        DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlSolicitante.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
        DdlSolicitante.DataBind()
        DdlSolicitante.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub


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

    Private Sub CargaDatos()
        Dim ObjInv As New ClsInventarios

        If ObjInv.RepTrasladoSolicitud(DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, DdlTraspasoEstatus.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlSolicitante.SelectedValue.ToEntero, -1,
                                       DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then

            GvT.DataSource = ObjInv.DtResultados
        End If

        ObjInv.Dispose()
        GvT.DataBind()
    End Sub


End Class