From 2f80f2603c845312a1f0c66f9b97e9c501e51a76 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Sat, 11 Jul 2020 10:59:28 -0700
Subject: [PATCH] Correcion en UsurioDetalle ,  getAlamcen() se agrego
 parametro CveCompra

---
 Sistemas/UsuarioDetalle.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 3c769756c..1465720ec 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -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