Recargar global dt de clientes al agregar cliente

Ventas/Ventas.aspx.vb

@@ -16765,6 +16765,21 @@ Partial Class Ventas
         End If
 
         ObjCliente.Dispose()
+
+        RecargaGlobalCliente()
+
+    End Sub
+
+    Private Sub RecargaGlobalCliente()
+        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDTCliente)
+        Hilo.Start()
+    End Sub
+    Private Sub GeneraGlobalDTCliente()
+        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