diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 226fdaf5a..24955a9d5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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