-- aufruf aus when-new-form-instance
PROCEDURE farben_setzen IS
BEGIN
	    first_record;
      while :system.last_record = 'FALSE'
      loop
      	 farben_auswahl;
         next_record;
      end loop;
      last_record;
      farben_auswahl;
      first_record;
END;

-- aufruf aus farben_setzen oder post-query auf datenblockebene
-- Die Attribute gelb und grau müssen als visuelle Attribute angelegt sein.
PROCEDURE farben_auswahl IS
BEGIN
         if  :FUS_STUNDENLEISTUNG.gueltig_von <= sysdate
         and :FUS_STUNDENLEISTUNG.gueltig_bis >= sysdate
         then
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.gueltig_von', CURRENT_RECORD, VISUAL_ATTRIBUTE,'gelb');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.gueltig_bis', CURRENT_RECORD, VISUAL_ATTRIBUTE,'gelb');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.stundenleistung', CURRENT_RECORD, VISUAL_ATTRIBUTE,'gelb');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.filiale', CURRENT_RECORD, VISUAL_ATTRIBUTE,'gelb');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.abteilung', CURRENT_RECORD, VISUAL_ATTRIBUTE,'gelb');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.filial_bez', CURRENT_RECORD, VISUAL_ATTRIBUTE,'gelb');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.abteilungs_bez', CURRENT_RECORD, VISUAL_ATTRIBUTE,'gelb');
         else
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.gueltig_von', CURRENT_RECORD, VISUAL_ATTRIBUTE,'grau');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.gueltig_bis', CURRENT_RECORD, VISUAL_ATTRIBUTE,'grau');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.stundenleistung', CURRENT_RECORD, VISUAL_ATTRIBUTE,'grau');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.filiale', CURRENT_RECORD, VISUAL_ATTRIBUTE,'grau');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.abteilung', CURRENT_RECORD, VISUAL_ATTRIBUTE,'grau');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.filial_bez', CURRENT_RECORD, VISUAL_ATTRIBUTE,'grau');
     		     Set_Item_Instance_Property( 'FUS_STUNDENLEISTUNG.abteilungs_bez', CURRENT_RECORD, VISUAL_ATTRIBUTE,'grau');
         end if;
END;