From f2343020986f07d36f48f5c7007073250aa5a535 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 21 Oct 2020 18:35:46 -0700
Subject: [PATCH] se incluyo en proyeccion al filtro

---
 Inventarios/KardexAlmacenHorizontal.aspx    | 20 ++++++++++++++------
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 14 ++++++++++----
 2 files changed, 24 insertions(+), 10 deletions(-)

diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index d0a684ef8..daf1c0abe 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -178,7 +178,7 @@
                         </div>
                     </div>
                     <asp:Panel ID="pnlOrden" runat="server" CssClass="row">
-                        <label class="col-md-1 truncate">Orden:</label>
+                        <asp:Label runat="server" ID="LblOrden" class="col-md-1 truncate">Orden:</asp:Label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
                                 <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
@@ -189,7 +189,7 @@
                         </div>
                         <div class="col-md-3">
                             <div class="row">
-                                <label class="col-md-3 truncate">Marca:</label>
+                                <asp:Label runat="server" ID="LblMarca" class="col-md-3 truncate">Marca:</asp:Label>
                                 <div class="col-md-9">
                                     <asp:ListBox ID="DdlMarca" runat="server" DataTextField="Marca" DataValueField="CveMarca" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%; height: 50px !important;">
                                         <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
@@ -197,6 +197,14 @@
                                 </div>
                             </div>
                         </div>
+                        <asp:Label runat="server" ID="LblProyectado" Text="Incluir Proyectado" class="col-md-1 truncate" />
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlProyeccionFiltro" runat="server" CssClass="select2me" Width="100%" >
+                                <asp:ListItem Text="Todos" Value="0" />
+                                <asp:ListItem Text="Entrada" Value="1" Selected="True" />
+                                <asp:ListItem Text="Salida" Value="2" />
+                            </asp:DropDownList>
+                        </div>
                     </asp:Panel>
                 </div>
             </div>
@@ -264,12 +272,12 @@
                     </div>
                     <div class="modal-body">
                         <div class="row" style="width: 100%; text-align: center">
-                            <asp:Label runat="server" ID="LblProyeccionOpcion"/>
-                            <asp:RadioButtonList ID="RblProyeccionOpcion" runat="server" RepeatDirection="Horizontal" Width="50%" style="margin:0 25% 0 25%">
+                            <asp:Label runat="server" ID="LblProyeccionOpcion" />
+                            <asp:RadioButtonList ID="RblProyeccionOpcion" runat="server" RepeatDirection="Horizontal" Width="50%" Style="margin: 0 25% 0 25%">
                                 <asp:ListItem Text="Entrada" Value="1" Selected="True" />
-                                <asp:ListItem Text="Salida" Value="0" />
+                                <asp:ListItem Text="Salida" Value="2" />
                             </asp:RadioButtonList>
-                            <asp:Button runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" Text="Descargar formato" CssClass="btn btn-warning"/>
+                            <asp:Button runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" Text="Descargar formato" CssClass="btn btn-warning" />
                         </div>
                         <asp:Label runat="server" ID="Label1" Text="Subir Proyección:" Style="font-size: 15px" />
                         <br />
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 4f4421917..105d2bca4 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -12,10 +12,16 @@ Partial Class Inventarios_KardexAlmacen
             'TxtFechaI.Text =  Now.AddMonths(-1).ToShortDateString
             TxtFechaF.Text = Now.ToShortDateString
             CargaCombos()
-            ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
-            pnlOrden.Visible = False
+            ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+            LblOrden.Visible = False
+            DdlOrden.Visible = False
+            LblMarca.Visible = False
+            DdlMarca.Visible = False
             If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                pnlOrden.Visible = True
+                LblOrden.Visible = True
+                DdlOrden.Visible = True
+                LblMarca.Visible = True
+                DdlMarca.Visible = True
                 DdlOrden.SelectedValue = 2
             End If
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
@@ -134,7 +140,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
 
-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=0) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)