From 764c8094ab527bd48fa775e03534a5dd2b56a650 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 9 Nov 2019 01:08:31 -0700 Subject: [PATCH] Filtros en reportes de almacen --- App_Code/ClsInventarios.vb | 12 +- Inventarios/RepAlmacen.aspx.vb | 2 +- Inventarios/RepAlmacenPeriodo.aspx | 441 +++++++++++++------------- Inventarios/RepAlmacenPeriodo.aspx.vb | 16 +- 4 files changed, 253 insertions(+), 218 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index aac53b30f..318db8883 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -301,7 +301,8 @@ Public Class ClsInventarios Return Retorno End Function Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, - Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean + Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, + Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesRepGet") @@ -314,7 +315,8 @@ Public Class ClsInventarios .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta End With Try SqlAdapter.Fill(Data) @@ -325,7 +327,8 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetRepAlmacenesPeriodo(FechaCorte As Date, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, VerEn As Integer) As Boolean + Public Function GetRepAlmacenesPeriodo(FechaCorte As Date, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, VerEn As Integer, + Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesPeriodoRepGet") @@ -336,6 +339,9 @@ Public Class ClsInventarios .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@VerEn", SqlDbType.Int).Value = VerEn + .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta End With Try SqlAdapter.Fill(Data) diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index 6fd8c20ba..ecb2ad585 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -61,7 +61,7 @@ Partial Class Inventarios_RepAlmacen Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero() If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, - Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto) Then + Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then GVAlmacen.DataSource = objInv.DtResultados TmpDT = objInv.DtResultados End If diff --git a/Inventarios/RepAlmacenPeriodo.aspx b/Inventarios/RepAlmacenPeriodo.aspx index e0982d3c4..641741538 100644 --- a/Inventarios/RepAlmacenPeriodo.aspx +++ b/Inventarios/RepAlmacenPeriodo.aspx @@ -1,233 +1,250 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacenPeriodo.aspx.vb" Inherits="Inventarios_RepAlmacenPeriodo" %> - - - - - - - - Reporte de Almacen Periodo - - -
  • - Ver En -
    • - - -
  • - Ver Grafica -
    • -     -     -
  • - Genera PDF -
    • -
  • - Genera Excel -
    • -     - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Fecha Corte:
    -
    -
    - - - - -
    - - -
    -
    Tipo Almacen:
    -
    - -
    -
    Modalidad:
    -
    - - - - - -
    - -
    -
    -
    -
    -     -     - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - - - - - - - - - - -     -     - - - - - - -     - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacenPeriodo.aspx.vb" Inherits="Inventarios_RepAlmacenPeriodo" %> + + + + + + + + Reporte de Almacen Periodo + + +
  • + Ver En +
    • + + +
  • + Ver Grafica +
    • +     +     +
  • + Genera PDF +
    • +
  • + Genera Excel +
    • +     + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Fecha Corte:
    +
    +
    + + + + +
    + + +
    +
    Tipo Almacen:
    +
    + +
    +
    Modalidad:
    +
    + + + + + +
    +
    + +
    +
    Almacen:
    +
    + +
    +
    +
    +
    + +
    +     +     + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + +     +     + + + + + + +     + + + + + + - - - + + +     + diff --git a/Inventarios/RepAlmacenPeriodo.aspx.vb b/Inventarios/RepAlmacenPeriodo.aspx.vb index c8ae610f4..f4c8efd47 100644 --- a/Inventarios/RepAlmacenPeriodo.aspx.vb +++ b/Inventarios/RepAlmacenPeriodo.aspx.vb @@ -39,18 +39,30 @@ Partial Class Inventarios_RepAlmacenPeriodo DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1) DdlTipoAlmacen.DataBind() DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + DdlAlmacen.DataBind() + DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1) + DdlSucursal.DataBind() + DdlSucursal.Items.Insert(0, New ListItem("Todas", "-1")) + End Sub Private Sub CargaDatos() Dim objInv As New ClsInventarios Dim FechaCorte As Date - FechaCorte = If(IsDate(TxtFechaCorte.Text.Trim()), TxtFechaCorte.Text.ToDate, MaxFecha) + FechaCorte = If(IsDate(TxtFechaCorte.Text.Trim()), TxtFechaCorte.Text.ToDate, MaxFecha) Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM) + Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) + Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero() If RblTotal.Checked Then Ver = 1 If RblExistencia.Checked Then Ver = 2 - If objInv.GetRepAlmacenesPeriodo(FechaCorte, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, Ver) Then + If objInv.GetRepAlmacenesPeriodo(FechaCorte, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, Ver, + Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then GVAlmacen.DataSource = objInv.DtResultados TmpDT = objInv.DtResultados End If