33 lines
1015 B
VB.net
33 lines
1015 B
VB.net
Imports System.Data
|
|
Imports System.Linq
|
|
Imports Extensiones
|
|
|
|
Partial Class OI_Circular
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
IniciarFiltros()
|
|
CargaDatos()
|
|
End If
|
|
End Sub
|
|
Private Sub IniciarFiltros()
|
|
Dim FechaI As DateTime = New DateTime(Today.Year, Today.Month, 1)
|
|
Dim FechaF As DateTime = New DateTime(Today.Year, Today.Month, 1).AddMonths(1).AddDays(-1)
|
|
TxtFechaI.Text = FechaI.ToString()
|
|
TxtFechaF.Text = FechaF.ToString
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
Dim ObjOI As New ClsOIEventos
|
|
If ObjOI.GetCircular(UsuarioActual.CveEmpresa, -1, TxtFechaI.Text, TxtFechaF.Text) Then
|
|
GvDatos.DataSource = ObjOI.DtResultados
|
|
End If
|
|
ObjOI.Dispose()
|
|
GvDatos.DataBind()
|
|
End Sub
|
|
|
|
Protected Sub btConsultar_Click() Handles btConsultar.Click
|
|
CargaDatos()
|
|
End Sub
|
|
End Class
|