53 lines
1.9 KiB
VB.net
53 lines
1.9 KiB
VB.net
Imports Extensiones
|
|
|
|
Partial Class Inventarios_RepTrasladoSolicitud
|
|
Inherits ClsPaginas
|
|
|
|
Private Sub Inventarios_RepTrasladoSolicitud_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
CargaCombos()
|
|
|
|
TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
|
|
TxtFechaF.Text = Now.ToShortDateString
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaCombos()
|
|
DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
|
|
DdlAlmacenOrigen.DataBind()
|
|
DdlAlmacenOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
|
|
DdlAlmacenDestino.DataBind()
|
|
DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
|
|
DdlContrato.DataBind()
|
|
DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
DdlSolicitante.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
|
|
DdlSolicitante.DataBind()
|
|
DdlSolicitante.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End Sub
|
|
|
|
|
|
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
Private Sub CargaDatos()
|
|
Dim ObjInv As New ClsInventarios
|
|
|
|
If ObjInv.RepTrasladoSolicitud(DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, DdlTraspasoEstatus.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlSolicitante.SelectedValue.ToEntero, -1,
|
|
DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
|
|
|
GvT.DataSource = ObjInv.DtResultados
|
|
End If
|
|
|
|
ObjInv.Dispose()
|
|
GvT.DataBind()
|
|
End Sub
|
|
|
|
|
|
End Class
|