diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index af923181d..92bcf5399 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1627,7 +1627,7 @@ Public Class ClsPaginas
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjVendedores As New ClsVtaVendedores
-                If ObjVendedores.GetVendedores(-1) Then Application(AppNombre) = ObjVendedores.DtResultados
+                If ObjVendedores.GetVendedores(CveEmpresa) Then Application(AppNombre) = ObjVendedores.DtResultados
                 ObjVendedores.Dispose()
             End If
             If CveEmpresa <> -1 Then