From a3c9df42436fb7026f2776c63f7719bfefd3939d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 18 Aug 2021 21:53:05 -0700
Subject: [PATCH] -- filtro de tipoalmacen de traspasoalmacen

---
 App_Code/ClsInventarios.vb             | 3 ++-
 Inventarios/RepTraspasoAlmacen.aspx    | 5 +++++
 Inventarios/RepTraspasoAlmacen.aspx.vb | 8 +++++++-
 3 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 3ac1bbd5b..a15ada6c8 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1905,7 +1905,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function RepTraspasoAlmacen(FechaI As Date, FechaF As Date, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean
+    Public Function RepTraspasoAlmacen(FechaI As Date, FechaF As Date, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveTipoAlmacen As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_RepTraspasoAlmacen")
 
@@ -1915,6 +1915,7 @@ Public Class ClsInventarios
             .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen
             .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino
             .Add("@Recibido", SqlDbType.Bit).Value = Recibido
+            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
diff --git a/Inventarios/RepTraspasoAlmacen.aspx b/Inventarios/RepTraspasoAlmacen.aspx
index b211ab7f2..e8c40b88c 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx
+++ b/Inventarios/RepTraspasoAlmacen.aspx
@@ -187,6 +187,11 @@
                         <div class="col-md-2">
                             <asp:CheckBox ID="ChkRecibido" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
                         </div>
+                        <div class="col-md-1 truncate v-center" style="text-align: right!important">Tipo Almacen:</div>
+                        <div class="col-md-2 v-center">
+                            <asp:DropDownList ID="DdlTipoAlmacen"  CssClass="form-control  ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:DropDownList>
+                        </div>
+                         
                     </div>
                 </div>
             </div>
diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb
index 221fb1c6e..d6294bd23 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx.vb
+++ b/Inventarios/RepTraspasoAlmacen.aspx.vb
@@ -74,7 +74,7 @@ Partial Class RepTraspasoAlmacen
 
         'Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
 
-        If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa, DdlTipoAlmacen.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjInventarios.DtResultados
             DtInventarios = ObjInventarios.DtResultados
             GvDatos.Columns(5).Visible = DtInventarios.MAX("Serie") <> ""
@@ -119,6 +119,12 @@ Partial Class RepTraspasoAlmacen
         DdlAlmacenOrigen.SelectedValue = "-1"
         DdlAlmacenOrigen.DataBind()
         DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
+
+        DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
+        DdlTipoAlmacen.DataBind()
+        DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
     End Sub
     Private Sub CargaAlmacenDestino()
         DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")