From 17c955467027cd617c55012dfc86852f141407db Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 30 Jul 2020 12:06:44 -0700
Subject: [PATCH] nuevo filtro que considera el producto servicio para traer
 los movimientos detalle

---
 App_Code/ClsInventarios.vb                |  3 ++-
 Inventarios/AjustesSeccionAlmacen.aspx    | 17 +++++++++++------
 Inventarios/AjustesSeccionAlmacen.aspx.vb |  7 ++++---
 3 files changed, 17 insertions(+), 10 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 1ccb1b4c9..8e7b1dd34 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4810,7 +4810,7 @@ Public Class ClsInventarios
 #Region "MOVIMIENTOS DETALLE SECCION ALMACEN"
 
 
-    Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Folio As String) As Boolean
+    Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Folio As String, CvePS As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleAjusteSeccionesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -4818,6 +4818,7 @@ Public Class ClsInventarios
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Folio", SqlDbType.NVarChar).Value = Folio
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx
index 7ec3297eb..d8d9a41ab 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx
+++ b/Inventarios/AjustesSeccionAlmacen.aspx
@@ -37,18 +37,23 @@
                     <div class="titlefiltros caption ">
 
                         <label class="col-md-1 truncate" style="text-align: right;">Almacen:</label>
-                        <div class="col-md-3">
-                            <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="300px"></asp:DropDownList>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="170px"></asp:DropDownList>
                         </div>
 
                         <label class="col-md-1 truncate" style="text-align: right;">Clasificacion:</label>
-                        <div class="col-md-3">
-                            <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="300px"></asp:DropDownList>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="170px"></asp:DropDownList>
                         </div>
 
                         <label class="col-md-1 truncate" style="text-align:right;">Folio:</label>
-                        <div class="col-md-3">
-                            <asp:TextBox runat="server" ID="TxtFolioFiltro" Width="100px"/>
+                        <div class="col-md-1">
+                            <asp:TextBox runat="server" ID="TxtFolioFiltro" Width="170px"/>
+                        </div>
+
+                        <label class="col-md-1 truncate" style="text-align:right;">Producto:</label>
+                        <div class="col-md-1">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 170px;" CssClass="DdlPS " CssClassDdl="select2me" data-metodo="getps" UsaWebService="true" IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS"  />
                         </div>
                     </div>
                 </div>
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 0b4540a78..05c620b22 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -24,6 +24,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificaciones.DataBind()
         DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -32,9 +33,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
     Private Sub CargaDatos()
         Dim ObjInv As New ClsInventarios
-
+        Dim CvePS As String = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue)
         Dim FolioAux As String = If(TxtFolioFiltro.Text.Length > 0, TxtFolioFiltro.Text, "-1")
-        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FolioAux) Then
+        If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FolioAux, CvePS.ToEntero) Then
             GvD.DataSource = ObjInv.DtResultados
         End If
 
@@ -298,7 +299,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                 Try
                     Dim DtExistenciasSecciones As DataTable = Nothing
-                    If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacenExcel.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, "-1") Then
+                    If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacenExcel.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, "-1", -1) Then
                         DtExistenciasSecciones = ObjInventario.DtResultados.Copy()
                     End If