From 783596d79df201a1d533339fac2530cfb2085e11 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 17 Oct 2019 11:46:40 -0700
Subject: [PATCH] Recargar global dt de clientes al agregar cliente

---
 Ventas/Ventas.aspx.vb | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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