Filtros de código inicial y final.

2024-04-13 17:55:51 -07:00
parent ab8e584a16
commit 135afdba83
11 changed files with 348 additions and 43 deletions
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -164,7 +164,7 @@
                    </div>
                    <div class="titlefiltros caption ">
                        <div class="row" style="padding-top: 10px; position: relative;">
-                            <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label>
+                            <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" >Producto:</asp:Label>
                            <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
                                <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
                            </div>
@@ -253,23 +253,27 @@
                        <div class="col-md-1 ">
                            <asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="90px" />
                        </div>
+                    </div>                    
+
+                </div>
+
+                <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                    <div class="col-md-1">Código Inicio:</div>
+                    <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                    <div class="col-md-1">Código Fin:</div>
+                    <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
+                    <div class="col-md-1" runat="server" id="DVNavegar"  >
+                        <div class="row">
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                            </div>
+                            <div class="col-md-2">
+                            </div>
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                            </div>
+                        </div>
                    </div>
-
-
-                     <div class="col-md-1" runat="server" id="DVNavegar" visible="false">
-                         <div class="row">
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary" >Anterior</asp:LinkButton>
-                             </div>
-                             <div class="col-md-2">
-
-                             </div>
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary" >Siguiente</asp:LinkButton>
-                             </div>
-                         </div>
-                     </div>
-
                </div>
            </div>
            </div>
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -32,9 +32,9 @@ Partial Class Inventarios_Kardex
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then

-            If UsuarioActual.CveRol = 1 Then
-                DVNavegar.Visible = True
-            End If
+            'If UsuarioActual.CveRol = 1 Then
+            '    DVNavegar.Visible = True
+            'End If

            TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
            TxtFechaF.Text = NowADS().ToShortDateString
@@ -77,6 +77,11 @@ Partial Class Inventarios_Kardex
        GvM.Columns(14).Visible = TienePermisoImportes ' costo
        GvM.Columns(15).Visible = TienePermisoImportes ' importe
        GvM.Columns(17).Visible = TienePermisoImportes ' valor
+
+        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+            DVFiltroCodigo.Visible = True
+        End If
+
    End Sub

    Private Function isWithFamily() As Boolean
@@ -325,7 +330,8 @@ Partial Class Inventarios_Kardex
        Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")

        Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
+        If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                    ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
            dt = ObjInventarios.DtResultados.Copy
        End If
        ObjInventarios.Dispose()
@@ -592,8 +598,12 @@ Partial Class Inventarios_Kardex
            CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
        Next

+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
        Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacenes, Siguiente:=Siguiente) Then
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
            dt = ObjInventarios.DtResultados.Copy
        End If
        ObjInventarios.Dispose()
--- a/Inventarios/KardexAlmacen.aspx
+++ b/Inventarios/KardexAlmacen.aspx
@@ -150,6 +150,30 @@

                    </div>

+
+                      <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                          <div class="col-md-1">Código Inicio:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                          <div class="col-md-1">Código Fin:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
+
+                          <div class="col-md-1" runat="server" id="DVNavegar"  >
+                         <div class="row">
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                             </div>
+                             <div class="col-md-2">
+                             </div>
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                             </div>
+                         </div>
+
+
+                    </div>
+                    
+                 </div>
+
                </div>
            </div>
        </ContentTemplate>
--- a/Inventarios/KardexAlmacen.aspx.vb
+++ b/Inventarios/KardexAlmacen.aspx.vb
@@ -1,4 +1,5 @@
 Imports System.Data
+Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms

@@ -112,7 +113,10 @@ Partial Class Inventarios_KardexAlmacen
        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
        Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero

-        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
            dt = ObjMovimientos.DtResultados
            GvDatos.DataSource = ObjMovimientos.DtResultados
        End If
@@ -146,6 +150,11 @@ Partial Class Inventarios_KardexAlmacen
            GvDatos.Columns(8).Visible = False
            tdImportes.Visible = False
        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+            DVFiltroCodigo.Visible = True
+        End If
+
    End Sub


@@ -195,4 +204,65 @@ Partial Class Inventarios_KardexAlmacen

    End Sub

+
+    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=False)
+    End Sub
+
+    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=True)
+    End Sub
+    Private Sub NavegacionPS(Siguiente As Boolean)
+        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+
+        If Not CvePS > 0 Then
+            Exit Sub
+        End If
+        Dim dt As DataTable = New DataTable
+
+        Dim Entrada As Boolean = True
+        Dim Salida As Boolean = True
+
+        Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
+        Dim CveAlmacenes As String = "-1" 'ddlAlmacen.GetSelectedValues()""
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
+        If CvePS > 0 Then
+            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+            If dr IsNot Nothing Then
+                ddlProducto2.SelectedText = dr("PSCodigo").ToString
+                ddlProducto2.SelectedValue = CvePS.ToString
+            End If
+
+        End If
+
+        Dim CveTiposAlmacen As String = "-1"
+        'For Each item As ListItem In CBLTiposAlmacen.Items
+        '    CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
+        'Next
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "-1", DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+            dt = ObjInventarios.DtResultados.Copy
+        End If
+        ObjInventarios.Dispose()
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
+            UPFiltros.Update()
+            ' UpDatos.Update()
+        End If
+    End Sub
+
 End Class
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacenHorizontal" %>

 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -237,7 +237,33 @@
                            </asp:DropDownList>
                        </div>
                    </asp:Panel>
+
+                         <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                          <div class="col-md-1">Código Inicio:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                          <div class="col-md-1">Código Fin:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
+
+                          <div class="col-md-1" runat="server" id="DVNavegar"  >
+                         <div class="row">
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                             </div>
+                             <div class="col-md-2">
+                             </div>
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                             </div>
+                         </div>
+
+
+    </div>
+    
+ </div>
                </div>
+
+               
+
            </div>
        </ContentTemplate>
    </asp:UpdatePanel>
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -1,10 +1,11 @@
 Imports System.Data
 Imports System.IO
+Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms

-Partial Class Inventarios_KardexAlmacen
+Partial Class Inventarios_KardexAlmacenHorizontal
    Inherits ClsPaginas

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -35,7 +36,12 @@ Partial Class Inventarios_KardexAlmacen
            End If

            If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
-            ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
+            ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
+
+            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+                DVFiltroCodigo.Visible = True
+            End If
+
        End If
    End Sub
    Private Sub CargaCombos()
@@ -151,11 +157,16 @@ 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)
        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
-        Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
+        Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
+
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)

        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
                                                     DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
-                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
+                                                     CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                dt = ObjMovimientos.DtResultados
                Dim ListaBorrar As New List(Of DataColumn)
@@ -525,4 +536,67 @@ Partial Class Inventarios_KardexAlmacen
        End Using

    End Sub
+
+
+
+
+    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=False)
+    End Sub
+
+    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=True)
+    End Sub
+    Private Sub NavegacionPS(Siguiente As Boolean)
+        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+
+        If Not CvePS > 0 Then
+            Exit Sub
+        End If
+        Dim dt As DataTable = New DataTable
+
+        Dim Entrada As Boolean = True
+        Dim Salida As Boolean = True
+
+        Dim FechaI As String = "-1"
+        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
+        If CvePS > 0 Then
+            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+            If dr IsNot Nothing Then
+                ddlProducto2.SelectedText = dr("PSCodigo").ToString
+                ddlProducto2.SelectedValue = CvePS.ToString
+            End If
+
+        End If
+
+        Dim CveTiposAlmacen As String = "-1"
+
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+            dt = ObjInventarios.DtResultados.Copy
+        End If
+        ObjInventarios.Dispose()
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
+            UPFiltros.Update()
+
+        End If
+
+    End Sub
+
 End Class
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -194,7 +194,25 @@
                            <asp:DropDownList ID="DdlSubFamilia" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion"></asp:DropDownList>
                        </div>
                    </div>
-                    <div class="row">
+                    <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                       <div class="col-md-1">Código Inicio:</div>
+                       <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                       <div class="col-md-1">Código Fin:</div>
+                       <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
+
+                         <div class="col-md-1" runat="server" id="DVNavegar"  >
+                        <div class="row">
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                            </div>
+                            <div class="col-md-2">
+                            </div>
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                            </div>
+                        </div>
+                             </div>
+
                    </div>
                </div>
            </div>
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -125,12 +125,14 @@ Partial Class Inventarios_ReporteEntradasSalidas
        GvM.Columns(14).Visible = TienePermisoImportes
        GvM.Columns(15).Visible = TienePermisoImportes

-
-
        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
            GvM.Columns(9).Visible = True
        End If

+        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+            DVFiltroCodigo.Visible = True
+        End If
+
    End Sub
    Private Sub CargaCombos()

@@ -254,10 +256,13 @@ Partial Class Inventarios_ReporteEntradasSalidas
            CveMarca = DdlMarca.SelectedValue.ToEntero
        End If

+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
        If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
                                  Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
                                  DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
-                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
+                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
            dt = Reporte.DtResultados


@@ -571,6 +576,69 @@ Partial Class Inventarios_ReporteEntradasSalidas
        UpBitacora.Update()
    End Sub
 #End Region
+
+
+    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=False)
+    End Sub
+
+    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=True)
+    End Sub
+    Private Sub NavegacionPS(Siguiente As Boolean)
+        Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero
+
+        If Not CvePS > 0 Then
+            Exit Sub
+        End If
+
+        Dim dt As DataTable = New DataTable
+
+        Dim Entrada As Boolean = True
+        Dim Salida As Boolean = True
+
+        Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue.ToEntero = 0, -1, DdlAlmacen.SelectedValue.ToEntero)
+        Dim CveAlmacenes As String = DdlAlmacen.GetSelectedValues()
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
+        If CvePS > 0 Then
+            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+            If dr IsNot Nothing Then
+                DdlPS.SelectedText = dr("PSCodigo").ToString
+                DdlPS.SelectedValue = CvePS.ToString
+            End If
+
+        End If
+
+        'Dim CveTiposAlmacen As String = "-1"
+        'For Each item As ListItem In CBLTiposAlmacen.Items
+        '    CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
+        'Next
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "-1", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+            dt = ObjInventarios.DtResultados.Copy
+        End If
+        ObjInventarios.Dispose()
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString
+            DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargaDatos()
+            'UPFiltros.Update()
+            UPPMov.Update()
+        End If
+    End Sub
+
    'Protected Sub Lnkcompuxlsinventarios_Click(sender As Object, e As EventArgs)
    '    Dim continuar = True
    '    Try