-- parametro de cveusuario para consultar, solo sus subproyectos

This commit is contained in:
2022-02-18 10:43:11 -07:00
parent 161f848af4
commit 186965b7aa
7 changed files with 9 additions and 13 deletions

View File

@@ -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))