This commit is contained in:
2021-02-15 20:42:41 -07:00
12 changed files with 47 additions and 25 deletions

View File

@@ -119,9 +119,7 @@ Partial Class Ventas_ClientesClasificaciones
Private Sub CargaGlobal()
Dim ObjClientes As New ClsClientes
If ObjClientes.GetClienteClasificacion(-1) Then Application("GlobalDTClienteClasificaciones") = ObjClientes.DtResultados Else Application("GlobalDTClienteClasificaciones") = Nothing
ObjClientes.Dispose()
GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa) = Nothing
End Sub