diff --git a/Inventarios/EntregaAlmacenRuta.aspx b/Inventarios/EntregaAlmacenRuta.aspx
index a86fa953e..58152aa09 100644
--- a/Inventarios/EntregaAlmacenRuta.aspx
+++ b/Inventarios/EntregaAlmacenRuta.aspx
@@ -147,8 +147,8 @@
diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb
index 4fe1da3d9..3ba06162c 100644
--- a/Inventarios/InventarioFisico.aspx.vb
+++ b/Inventarios/InventarioFisico.aspx.vb
@@ -823,7 +823,7 @@ Partial Class Inventarios_InventarioFisico
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
Dim ObjInventario As New ClsInventarios
- If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue) Then
+ If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue, UsuarioActual.CveUsuario) Then
gvIF.DataSource = ObjInventario.DtResultados
gvIF.DataBind()
gvIF.Columns(1).HeaderText = LblSubProyecto.Text
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 3f3695a07..7cb69b8cb 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -99,7 +99,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
Dim ObjInventario As New ClsInventarios
- If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+ If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
Select Case CveEstatus
Case "0" 'NUEVO
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 95c381d4a..6f779193e 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -115,7 +115,7 @@ Partial Class Inventarios_RepAnomalias
GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201) 'costo
End If
- If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
+ If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
lbTitulo.Text = Inventario.InventarioFisico
lbObservaciones.Text = Inventario.Observaciones
lbSubProyecto.Text = Inventario.SubProyectoInventario
@@ -450,7 +450,7 @@ Partial Class Inventarios_RepAnomalias
Dim dtS As DataTable = Nothing
Dim dtF As DataTable = Nothing
- If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
+ If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Titulo", Inventario.InventarioFisico))
params.Add(New ReportParameter("Observaciones", Inventario.Observaciones))
diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb
index 9fd7a4901..ad66997c0 100644
--- a/Inventarios/RepApartados.aspx.vb
+++ b/Inventarios/RepApartados.aspx.vb
@@ -47,10 +47,7 @@ Partial Class Inventarios_RepApartados
DdlClienteTraspasar.setEsWebService(True)
- Dim DTVendedores As New DataTable
- DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
- DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
- DdlVendedor.DataSource = DTVendedores
+ DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, Estatus:=-1)
DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))
diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx b/Inventarios/RepEntregaAlmacenRuta.aspx
index 99c34b4b8..4cc2270df 100644
--- a/Inventarios/RepEntregaAlmacenRuta.aspx
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx
@@ -118,8 +118,7 @@
-
-
+
diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
index 8a8337a05..40fc1a130 100644
--- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
@@ -333,7 +333,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{
ClsGenerales ObjGeneral = new ClsGenerales();
- if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero()))
+ if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(),UsuarioActual.CveUsuario))
{
DTDatos = ObjGeneral.DtResultados;
GVDatos.DataSource = DTDatos;