κωδικας για exit_menu_item oracle form builder

Συζητήσεις για την Oracle, Oracle Forms και Oracle Reports

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
tassos
Δημοσιεύσεις: 7
Εγγραφή: 01 Ιούλ 2003 13:55

κωδικας για exit_menu_item oracle form builder

Δημοσίευση από tassos » 26 Δεκ 2003 14:18

γεια σας και χρονια πολλα!
Στο exit item του menu μου στο form builder της oracle εχω βαλει εναν απλο κωδικα προκειμενου να βγαινει μηνυμα στο χρηστη και να τον ρωταει εαν θελει να σωθουν οι αλλαγες που εκανε. μετα απο αυτο το δικο μου μηνυμα ξαναβγαινει το κανονικο μηνυμα του exit της oracle.
τελοσπαντων θα ηθελα ενα κωδικα που να ελεγχει
1ο αν εκανε αλλαγη ο χρηστης οποτε αν δεν εκανε να μη ρωταει καθολου και να βγαινει αμεσως,αντιθετως να ρωταει αν εκανε.

2ο αν εκανε αλλαγη αλλα εχει κανει save οποτε παλι να μη ρωταει καθολου.

ενα κανονικο exit....

ευχαριστω!

ekoum
Δημοσιεύσεις: 1
Εγγραφή: 04 Ιουν 2004 12:16

κωδικας για exit_menu_item oracle form builder

Δημοσίευση από ekoum » 04 Ιουν 2004 12:37

Άργησα λίγο αλλά η απάντηση είναι.....
1) Ελέγχεις το Statuw Form
2) Φτιάχνεις ένα Alert με 2 ή 3 Buttons πχ. Yes or no, Cancel κλπ..
3) Ορίζεις το :System.message_Level για να μην σου εμφανίζεται το Default message της Oracle σε 25 και 0

IF :System.Record_Status IN ('CHANGED', 'INSERT') OR :SYSTEM.FORM_STATUS = 'CHANGED' THEN
vvalert_button := show_alert('alert_ver_exit');
IF VVALERT_BUTTON = ALERT_BUTTON1 THEN
:SYSTEM.MESSAGE_LEVEL := 25;
COMMIT;
EXIT_FORM(NO_VALIDATE);
:SYSTEM.MESSAGE_LEVEL := 0;
ELSIF VVALERT_BUTTON = ALERT_BUTTON3 THEN
NULL;
ELSE
EXIT_FORM (NO_VALIDATE);
END IF;
ELSE
Exit_Form;
END IF;

Απάντηση

Επιστροφή στο “Oracle”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες