-global

2020-01-08 13:42:32 -07:00
parent e0a6484773
commit ff3194d620
2 changed files with 7 additions and 6 deletions
--- a/Ventas/CatVendedores.aspx.vb
+++ b/Ventas/CatVendedores.aspx.vb
@@ -137,11 +137,12 @@ Partial Class Ventas_CatVendedores

 #Region "CARGA GLOBAL"
    Private Sub CargaGlobal()
-        Dim ObjVendedores As New ClsVtaVendedores
-        If ObjVendedores.GetVendedores(-1) Then
-            GlobalDTVendedores(-1) = ObjVendedores.DtResultados
-        End If
-        ObjVendedores.Dispose()
+        GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjVendedores As New ClsVtaVendedores
+        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
+        '    GlobalDTVendedores(-1) = ObjVendedores.DtResultados
+        'End If
+        'ObjVendedores.Dispose()
    End Sub
 #End Region