Imports Extensiones

Partial Class Contabilidad2_RepAlmacenConta
    Inherits ClsPaginas

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

        End If
    End Sub

    Private Sub CargaDatos()
        Dim objInv As New ClsContabilidad

        Dim FechaI, FechaF As Date
        FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim().ToDate, MinFecha)
        FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim().ToDate, MaxFecha)


        If objInv.GetAlmacenContable(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
            GVAlmacen.DataSource = objInv.DtResultados

        End If
        objInv.Dispose()
        GVAlmacen.DataBind()
    End Sub

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


End Class