11.01.2013 Views

Oracle Forms Developer – Form Builder Reference, Volume 1

Oracle Forms Developer – Form Builder Reference, Volume 1

Oracle Forms Developer – Form Builder Reference, Volume 1

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

presentation’;<br />

msg_2 VARCHAR2(80) := ’Move into your close.’;<br />

msg_3 VARCHAR2(80) := ’Ask for the order or<br />

repeat the close.’<br />

two_minutes NUMBER(6) := (120 * 1000);<br />

one_and_half NUMBER(5) := (90 * 1000);<br />

BEGIN<br />

:GLOBAL.timer_count := 1<br />

BEGIN<br />

timer_id := FIND_TIMER(’tele_timer’);<br />

alert_id := FIND_ALERT(’tele_alert’);<br />

IF :GLOBAL.timer_count = 1 THEN<br />

Set_Alert_Property(alert_id, ALERT_MESSAGE_TEXT, msg_1);<br />

call_status := Show_Alert(alert_id);<br />

IF call_status = ALERT_BUTTON1 THEN<br />

Delete_Timer(timer_id);<br />

Next_Record;<br />

ELSIF<br />

call_status = ALERT_BUTTON2 THEN<br />

:GLOBAL.timer_count := 0;<br />

ELSE<br />

Set_Timer(timer_id, two_minutes, NO_CHANGE);<br />

END IF;<br />

ELSIF :GLOBAL.timer_count = 2 THEN<br />

Change_Alert_Message(alert_id, msg_2);<br />

call_status := Show_Alert(alert_id);<br />

IF call_status = ALERT_BUTTON1 THEN<br />

Delete_Timer(timer_id);<br />

Next_Record;<br />

ELSIF<br />

call_status = ALERT_BUTTON2 THEN<br />

:GLOBAL.timer_count := 0;<br />

ELSE<br />

Set_Timer(timer_id, one_and_half, NO_CHANGE);<br />

END IF;<br />

ELSE<br />

Change_Alert_Message(alert_id, msg_3);<br />

call_status := Show_Alert(alert_id);<br />

IF call_status = ALERT_BUTTON1 THEN<br />

Delete_Timer(timer_id);<br />

Next_Record;<br />

ELSIF<br />

call_status = ALERT_BUTTON2 THEN<br />

:GLOBAL.timer_count := 0;<br />

ELSE<br />

Set_Timer(timer_id, NO_CHANGE, NO_REPEAT);<br />

END IF;<br />

END IF;<br />

:GLOBAL.timer_count = 2;<br />

END;<br />

END;<br />

527

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!