[Dica] Sair de um LOOP clicando num Botão

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
Avatar do usuário
dr_gori
Moderador
Moderador
Mensagens: 5024
Registrado em: Seg, 03 Mai 2004 3:08 pm
Localização: Portland, OR USA
Contato:
Thomas F. G

Você já respondeu a dúvida de alguém hoje?
https://glufke.net/oracle/search.php?search_id=unanswered

Esta rotina poderá ser utilizada para testar se o usuário deseja cancelar um loop. Ela testa dentro do LOOP se o botão "CANCELA" foi clicado.

Selecionar tudo

declare 
 hButton  PLS_INTEGER;
begin
 hButton := GET_ITEM_PROPERTY('STOP_BUTTON', WINDOW_HANDLE);
 
For counter in 1..5000 
LOOP
 -- aqui vai o progrma, SQL, etc

 -- Testa se foi clicado um BOTAO CANCELA
 if Win_API_Utility.InterruptCheck(hButton) then 
    -- Break out
    EXIT;
 end if;
 
end LOOP;
 
end;
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 9 visitantes