2019-10-22 11:14:17 -07:00
parent 783596d79d
commit 7c16087ef3
11 changed files with 6334 additions and 5786 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/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()