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

[dr_gori]

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;