-usados

Acumuladores/RepEntradasUsadosClientes.aspx.vb

@@ -0,0 +1,48 @@
+Imports Extensiones
+Imports System
+
+Partial Class Acumuladores_RepEntradasUsadosClientes
+    Inherits ClsPaginas
+
+    Private Sub Acumuladores_EntradasUsados_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            CargaCombos()
+        End If
+
+    End Sub
+
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+
+    End Sub
+
+    Public Sub CargaCombos()
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        DdlAlmacen.DataBind()
+        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        TxtFechaI.text = now.Firstdayofmonth
+        txtfechaf.text = now.toshortdatestring
+
+    End Sub
+
+    Private Sub CargaDatos()
+
+        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)
+
+        Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue = "", "-1", DdlAlmacen.SelectedValue).ToString.toentero
+
+        Dim Acum As New ClsAcumuladores
+
+        If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            GvDatos.datasource = Acum.DtResultados
+        End If
+
+        Acum.Dispose()
+        GvDatos.databind
+
+    End Sub
+End Class