Filtros de código inicial y final.

AF/AF.aspx.vb

@@ -2760,7 +2760,7 @@ Partial Class AF_AF
         Dim ObjAFCaracteristicas As New ClsAF
         If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
 
-            Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}")
+            Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL) OR (CveTipoActivoFijo IS NULL AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}")
             'Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
             GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden")
 

AF/CatClasificacionesCaracteristicas.aspx.vb

@@ -200,10 +200,10 @@ Partial Class AF_CatClasificacionesCaracteristicas
 #Region "CARACTERISTICAS"
     Protected Sub LbAgregarCA_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCA.Click
 
-        If DdlTiposActivosFijosCA.SelectedValue.ToEntero < 0 And DdlSubTiposActivosFijosCA.SelectedValue.ToEntero < 0 Then
+        'If DdlTiposActivosFijosCA.SelectedValue.ToEntero < 0 And DdlSubTiposActivosFijosCA.SelectedValue.ToEntero < 0 Then
-            Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia)
+        '    Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
         Dim ObjCaracteristicas As New ClsAF
         If ObjCaracteristicas.AddCaracteristica(TxtCaracteristicaCA.Text.Trim, DdlClasificacionesCA.SelectedValue.ToEntero, DdlTiposActivosFijosCA.SelectedValue.ToEntero, DdlSubTiposActivosFijosCA.SelectedValue.ToEntero, DdlTipoCampoCA.SelectedValue.ToEntero, TxtLongitudCA.Text.Trim.ToEntero, DdlRequeridoCA.SelectedValue.ToEntero, TxtOrdenCA.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then

App_Code/ClsInventarios.vb

@@ -1514,7 +1514,8 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+             Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenGet")
@@ -1527,6 +1528,8 @@ Public Class ClsInventarios
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
@@ -1546,7 +1549,7 @@ Public Class ClsInventarios
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
                                                Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1",
-                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean
+                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1", Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1570,6 +1573,9 @@ Public Class ClsInventarios
             .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
             .Add("@GPO", SqlDbType.Int).Value = GPO
             .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
+
 
         End With
 
@@ -1588,7 +1594,8 @@ Public Class ClsInventarios
 
     End Function
 
-    Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean
+    Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                              Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexGet")
@@ -1625,7 +1632,8 @@ Public Class ClsInventarios
 
     End Function
 
-    Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True) As Boolean
+    Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                                          Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1642,9 +1650,10 @@ Public Class ClsInventarios
             .Add("@CveTiposAlmacen", SqlDbType.VarChar).Value = CveTiposAlmacen
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
             .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes
             .Add("@Siguiente", SqlDbType.Bit).Value = Siguiente
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
 
         End With
 
@@ -1830,7 +1839,7 @@ Public Class ClsInventarios
 
     Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
                                    CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
-                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
+                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ReporteMovimientos")
@@ -1853,6 +1862,8 @@ Public Class ClsInventarios
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
             .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try

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>

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
+            'If UsuarioActual.CveRol = 1 Then
-                DVNavegar.Visible = True
+            '    DVNavegar.Visible = True
-            End If
+            '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()

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>

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

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>

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

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>

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