PROGRESS BAR , URGENT ....

Question

I have a backend process which takes 15 minuites to complete. Now when the user starts the process, I want to show in the front end form a progress bar . So as soon as the user hits the button to start the process, the progress bar will start and when the process will complete it ll complete. Any one knows how to achieve this ?
A sample code is appreciated.
Thanx
Feroz

Answer 1

I found a way to display a progress bar.
I draw a red filled rectangle (named for example PROGRESS_BAR on the canevas). For example set the width of this rectangle to 200. And I draw also an empty rectangle to show the border of the first one
Now calculate the number of iterations you make during your process : for example if you loop on the records of a table, count the number of records.
Let's say you have n = 1000 iterations
and the size of the rectangle is length = 200
DECLARE
n_cpt NUMBER := 0; -- loop counter
n_step NUMBER;
BEGIN
-- At the beginning of the process, make the rectangle visible :
set_item_property('PROGRESS_BAR', DISPLAYED, PROPERTY_TRUE);
-- set the size to zero
set_item_property('PROGRESS_BAR', WIDTH,0);
-- for example if you want to refresh
-- the progress bar by 5%
n_step := n * 0.05;
-- you will refresh after 1000 * 0.05 = 50 -- loops
LOOP
-- test if the occurrence can by divided
-- by n_step
IF (n / n_step ) = ROUND( n /n_step) THEN
set_item_property('PROGRESS_BAR', WIDTH,
n / n_step * 200 * 0.05);
-- for example if n = 500 you will have
-- a width of 500 / 50 *200 * 0.05 = 100
-- it's the half of the initial width
-- of 200 and shows the user that you
-- have processed half of the records
END IF;
-- increment loop counter
n := n +1;
..... rest of your code
END LOOP;
message('end of process');
-- hide the progress bar
set_item_property('PROGRESS_BAR', DISPLAYED, PROPERTY_FALSE);
END;
null