From 135afdba83cd4f3b68efc5d9059d7b1b868c729c Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 13 Apr 2024 17:55:51 -0700 Subject: [PATCH] =?UTF-8?q?Filtros=20de=20c=C3=B3digo=20inicial=20y=20fina?= =?UTF-8?q?l.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/AF.aspx.vb | 2 +- AF/CatClasificacionesCaracteristicas.aspx.vb | 8 +- App_Code/ClsInventarios.vb | 23 ++++-- Inventarios/Kardex.aspx | 38 +++++---- Inventarios/Kardex.aspx.vb | 20 +++-- Inventarios/KardexAlmacen.aspx | 24 ++++++ Inventarios/KardexAlmacen.aspx.vb | 72 ++++++++++++++++- Inventarios/KardexAlmacenHorizontal.aspx | 28 ++++++- Inventarios/KardexAlmacenHorizontal.aspx.vb | 82 +++++++++++++++++++- Inventarios/RepEntradasSalidas.aspx | 20 ++++- Inventarios/RepEntradasSalidas.aspx.vb | 74 +++++++++++++++++- 11 files changed, 348 insertions(+), 43 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 685d41d72..7bb4c2f9b 100644 --- a/AF/AF.aspx.vb +++ b/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") diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index 03f6902ea..e88d642e9 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/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 - Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + 'If DdlTiposActivosFijosCA.SelectedValue.ToEntero < 0 And DdlSubTiposActivosFijosCA.SelectedValue.ToEntero < 0 Then + ' Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia) + ' Exit Sub + '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 diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 6e398afc5..78d02e430 100644 --- a/App_Code/ClsInventarios.vb +++ b/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 diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 4dc8de0ff..76328842c 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -164,7 +164,7 @@
- Producto: + Producto:
@@ -253,23 +253,27 @@
+
+ +
+ +
+
Código Inicio:
+
+
Código Fin:
+
+
+
+
+ Anterior +
+
+
+
+ Siguiente +
+
- - -
-
-
- Anterior -
-
- -
-
- Siguiente -
-
-
-
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index e51e12ce8..29b52f758 100644 --- 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() diff --git a/Inventarios/KardexAlmacen.aspx b/Inventarios/KardexAlmacen.aspx index d9e85d9df..2970592c7 100644 --- a/Inventarios/KardexAlmacen.aspx +++ b/Inventarios/KardexAlmacen.aspx @@ -150,6 +150,30 @@ + +
+
Código Inicio:
+
+
Código Fin:
+
+ +
+
+
+ Anterior +
+
+
+
+ Siguiente +
+
+ + +
+ +
+ diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb index 6819bd41d..db9026bd0 100644 --- 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 diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 5c1e26509..08e57cd0d 100644 --- 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" %> @@ -237,7 +237,33 @@ + +
+
Código Inicio:
+
+
Código Fin:
+
+ +
+
+
+ Anterior +
+
+
+
+ Siguiente +
+
+ + +
+ +
+ + + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index cc49574e7..14b886368 100644 --- 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 diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx index 4e6ef9959..170435582 100644 --- a/Inventarios/RepEntradasSalidas.aspx +++ b/Inventarios/RepEntradasSalidas.aspx @@ -194,7 +194,25 @@ -
+
+
Código Inicio:
+
+
Código Fin:
+
+ +
+
+
+ Anterior +
+
+
+
+ Siguiente +
+
+
+
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index 91441f19c..2d6816414 100644 --- 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