Trebao bi mi pandan sledecem kodu:
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;
:block2.ti6:=counter;
synchronize;
end LOOP;
end;
Ovo je kod za Forms6i, vrti se u pretlji i ispisuje nesto u :block2.ti6, dok se ne pritisne dugme 'STOP_BUTTON' koje prekida izvrsavanje pretlje.
Ne mogu da nadjem slicnu funkciju za Forms10g - WebUtil 1.0.6. Da li je neko mozda resavao slican problem?
Pozdrav,