Commit inicial Ventas Productivo

Inventarios/RepTrasladoSolicitud.aspx.vb

@@ -0,0 +1,52 @@
+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().FiltraParametros($"CveEmpresa = {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