35 lines
910 B
VB.net
35 lines
910 B
VB.net
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
|