Ventas/PV.aspx.vb

@@ -4641,6 +4641,8 @@ Partial Class PV
         End If
 
         ObjCliente.Dispose()
+
+        RecargaGlobalCliente()
     End Sub
 #End Region
 
@@ -4823,6 +4825,18 @@ Partial Class PV
 
         ObjPS.Dispose()
     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, TipoCliente:=-1) Then
+            Application("GlobalDTCliente") = Objclientes.DtResultados
+        End If
+        Objclientes.Dispose()
+    End Sub
 #End Region
 
 #Region "CLASIFICACIONES DETALLES"

Ventas/Ventas.aspx.vb

@@ -16776,7 +16776,7 @@ Partial Class Ventas
     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
+        If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1,TipoCliente:=-1) Then
             Application("GlobalDTCliente") = Objclientes.DtResultados
         End If
         Objclientes.Dispose()