|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Função Processa() - Cancelar |
|
Versão: |
11.8 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
ZERO
em 23/11/2017, 14:25 h
Local: RJ Registro: 09/02/2015 Postagens: 235 |
Prezados, estou utilizando a Função Processa() para apresentar uma régua de progresso, porém o botão de "cancelar" que tem na mensagem, mesmo habilitado não está funcionando...
Exemplo de como estou usando:
Processa({ || tfuncion()}, "Gerando Dados","Processando...", .T.) // Regua de progresso
Alguém sabe como cancelar o processo?
Obrigado |
|
|
Mensagem do
VRTN
em 23/11/2017, 18:23 h
Local: MG Registro: 09/11/2009 Postagens: 191 |
Normalmente uso assim:
USER FUNCTION teste()
PRIVATE lEnd
Processa({ || tfuncion()}, "Gerando Dados","Processando...", .T.) // Regua de progresso
RETURN NIL
STATIC FUNCTION tfuncion()
LOCAL nQuant := 10
LOCAL nI := 0
ProcRegua(nQuant)
FOR nI := 1 TO nQuant
IncProc()
IF lEnd
MsgStop("Cancelado pelo usuário", "Atenção")
ENDIF
NEXT nI
RETURN NIL
Se o usuário clicar no botão cancelar, a variável lEnd será atualizada após a chamada da função IncProc().
Everton Alves |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|