Correcion en UsurioDetalle , getAlamcen() se agrego parametro CveCompra

This commit is contained in:
Rakcsle Supertramp
2020-07-11 10:59:28 -07:00
parent 6b591361d6
commit 2f80f2603c

View File

@@ -1323,7 +1323,7 @@ Partial Class Sistemas_UsuarioDetalle
'RECARGA GLOBAL ALMACEN
If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
'RECARGA GLOBAL EMPRESAS USUARIOS
@@ -2068,7 +2068,7 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub CargaDtAlmacen()
Dim ClsUsuarios As New ClsSisUsuarios
If ClsUsuarios.GetAlmacen(CveUsuario) Then
If ClsUsuarios.GetAlmacen(CveUsuario, UsuarioActual.CveEmpresa) Then
DtAlmacenes = ClsUsuarios.DtResultados.FiltraParametros(String.Format("CveUsuario = {0}", CveUsuario))
Else
DtAlmacenes = Nothing