Tareas varias

Inventarios/RepAlmacen.aspx.vb

@@ -6,9 +6,9 @@ Imports System.Data
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_RepAlmacen
-    Inherits ClsPaginas
-
-
+    Inherits ClsPaginas
+
+
 #Region "PROPIEDADES"
     Private Property TmpDT As DataTable
         Get
@@ -25,7 +25,7 @@ Partial Class Inventarios_RepAlmacen
         Set(value As DataTable)
             ViewState("DtColor") = value
         End Set
-    End Property
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -39,6 +39,15 @@ Partial Class Inventarios_RepAlmacen
         DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1)
         DdlTipoAlmacen.DataBind()
         DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        DdlAlmacen.DataBind()
+        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1)
+        DdlSucursal.DataBind()
+        DdlSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
+
     End Sub
 
     Private Sub CargaDatos()
@@ -48,8 +57,11 @@ Partial Class Inventarios_RepAlmacen
         FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
         FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
         Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM)
+        Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
+        Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero()
 
-        If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked) Then
+        If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked,
+                                  Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto) Then
             GVAlmacen.DataSource = objInv.DtResultados
             TmpDT = objInv.DtResultados
         End If
@@ -60,8 +72,8 @@ Partial Class Inventarios_RepAlmacen
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
         CargaDatos()
         UpDatos.Update()
-    End Sub
-
+    End Sub
+
 #Region "I M P R I M I R  <i class='fa fa-print'></i>"
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
 
@@ -98,11 +110,11 @@ Partial Class Inventarios_RepAlmacen
                 e.Row.CssClass = "Totales"
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "GRAFICA"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If Not TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
             Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
@@ -227,8 +239,8 @@ Partial Class Inventarios_RepAlmacen
 
     Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
         CambioGrafica()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 End Class