-cambios en globalsDT2

Ventas/Clientes.aspx.vb

@@ -2597,19 +2597,21 @@ Partial Class Clientes
 
 #Region "G L O B L A L"
     Private Sub RecargaGlobal()
-        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
-        Hilo.Start()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
+        'Hilo.Start()
+        GeneraGlobalDT()
     End Sub
     Private Sub GeneraGlobalDT()
-        Dim Objclientes As New ClsClientes
-        If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1) Then
-            Application("GlobalDTCliente") = Objclientes.DtResultados
-        End If
-        Objclientes.Dispose()
-    End Sub
+        GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
+        'Dim Objclientes As New ClsClientes
+        'If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1) Then
+        '    Application("GlobalDTCliente") = Objclientes.DtResultados
+        'End If
+        'Objclientes.Dispose()
+    End Sub
 #End Region
-
-
+
+
 #Region "G R I D V I E W S"
     Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then