Imports Extensiones

Partial Class AIMMGM_Saldos
    Inherits ClsPaginas
    
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            CargaDatos()
        End If

    End Sub

    Private Sub CargaDatos()
        Dim AIM As New ClsAIMMGM

        If AIM.RepSaldos(DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            Gv.DataSource = AIM.DtResultados
        End If
        AIM.Dispose()
        Gv.DataBind()
    End Sub

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

End Class