Imports System.Data
Imports Extensiones


Partial Class Ventas_RepAnticiposEspeciales
    Inherits ClsPaginas




#Region "Propiedades"
    Private Property CveAnticiposEspeciales As Integer
        Get
            If Not ViewState("CveAnticiposEspeciales") Is Nothing Then
                Return ViewState("CveAnticiposEspeciales").ToString.ToEntero
            Else
                Return -1
            End If

        End Get
        Set(value As Integer)
            ViewState("CveAnticiposEspeciales") = value
        End Set

    End Property
#End Region

    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            Cargadatos()
            CargadatosGvAnticiposEspeciales()
        End If

    End Sub

    Private Sub Cargadatos()
        TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
        TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString

        DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
        DdlSucursal.DataBind()
        DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Private Sub CargadatosGvAnticiposEspeciales()

        Dim ObjVentas As New ClsVentas

        If ObjVentas.GetAnticiposEspeciales(TxtFechaI.Text.ToDateTime, TxtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero, DdlEspeciales.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GvAnticiposEspeciales.DataSource = ObjVentas.DtResultados
        Else
            GvAnticiposEspeciales.DataSource = Nothing
        End If

        ObjVentas.Dispose()

        UPGvAnticiposEspeciales.DataBind()
        UpGral.Update()

    End Sub

    Protected Sub btConsultar_Click(sender As Object, e As EventArgs)
        CargadatosGvAnticiposEspeciales()
    End Sub
End Class