/**********************************************
*Autor: Heiko Hommes
*Datum: 02.05.2007
*Beschr: Beispiel für Oracle Forms
*				 Schleife über DS in einer Maske. 
*						In den Trigger when_new_record.. im Master-Satz
*				 Sanduhr setzen und Farbe eines Feldes abändern
************************************************/

declare
    vn_alert number(3);
begin
--Abfrage ja/nein
   set_alert_property('[alert_name]',alert_message_text,'Wollen Sie wirklich ?');
   vn_alert := show_alert('[alert_name]');
   if vn_alert = 88 then
     SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'BUSY');     --Sanduhr ein

--loop über ds
     first_record;
     while :system.last_record = 'FALSE'
     loop
--Farbe eines Feldes verändern
				Set_Item_Instance_Property( '[block].[feld]', CURRENT_RECORD,
 		                                      VISUAL_ATTRIBUTE,'[visual_attrib]'); 
        next_record;
     end loop;
     last_record;
--Farbe eines Feldes verändern
		Set_Item_Instance_Property( '[block].[feld]', CURRENT_RECORD,
                                 VISUAL_ATTRIBUTE,'[visual_attrib]'); 

     SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');         -- Sanduhr aus
     execute_query;
   end if;
end;