How can I have both functions "Read Only" & "Write" mode on the same form?

Question

Dear all,
How can I have both functions "Read Only" & "Write" mode on the same form? Is it possibile for this?
Please advice,
Amy

Answer 1

This is what I use in some dialogs:
PROCEDURE SET_QUERY_ONLY IS
  -- Procedure Set_query_only
  -- Rend les blocks non modifiables   --
  -- Disable menus Insert/Delete/Clear --
  -- Entree               :
  -- Sortie               :
  -- Ent/Sortie     :
  -- Creation               : FD    10/2003
  -- Modification     : 
     LC$Block     Varchar2(30) ;
BEGIN
  Set_Menu_Item_Property('Edit.Insert', ENABLED, PROPERTY_FALSE ) ;
  Set_Menu_Item_Property('Edit.Remove', ENABLED, PROPERTY_FALSE ) ;
  Set_Menu_Item_Property('Edit.Clear', ENABLED, PROPERTY_FALSE ) ;
  Set_Menu_Item_Property('Action.Save', ENABLED, PROPERTY_FALSE ) ;
  LC$Block := get_form_property( NAME_IN('System.Current_Form'), FIRST_BLOCK ) ;
  -- Tous les blocs en Query only --
  While LC$Block is not null Loop
       Enable_Block( LC$Block, FALSE ) ;
       LC$Block := get_block_property( LC$Block, NEXTBLOCK ) ;
  End loop ;
END;
PROCEDURE ENABLE_BLOCK
          PC$Block in Varchar2,
          PB$Enable in Boolean Default TRUE
     ) IS
  -- Procedure Enable_block
  -- Rend le bloc Enable / Disable --
  -- Entree          : PC$Block (nom du bloc Forms)
  --               : PB$Enable (TRUE ou FALSE)
  -- Sortie          :
  -- Ent/Sortie             :
  -- Creation          : FD    10/2003
  -- Modification     : 
BEGIN
     If PB$Enable Then
          Set_Block_Property( PC$Block, INSERT_ALLOWED, PROPERTY_TRUE ) ;
          Set_Block_Property( PC$Block, UPDATE_ALLOWED, PROPERTY_TRUE ) ;
          Set_Block_Property( PC$Block, DELETE_ALLOWED, PROPERTY_TRUE ) ;
          Set_Menu_Item_Property('Edit.Insert', ENABLED, PROPERTY_TRUE ) ;
          Set_Menu_Item_Property('Edit.Remove', ENABLED, PROPERTY_TRUE ) ;
          Set_Menu_Item_Property('Edit.Clear', ENABLED, PROPERTY_TRUE ) ;
          Set_Menu_Item_Property('Action.Save', ENABLED, PROPERTY_TRUE ) ;
     Else
          Set_Block_Property( PC$Block, INSERT_ALLOWED, PROPERTY_FALSE ) ;
          Set_Block_Property( PC$Block, UPDATE_ALLOWED, PROPERTY_FALSE ) ;
          Set_Block_Property( PC$Block, DELETE_ALLOWED, PROPERTY_FALSE ) ;
          Set_Menu_Item_Property('Edit.Insert', ENABLED, PROPERTY_FALSE ) ;
          Set_Menu_Item_Property('Edit.Remove', ENABLED, PROPERTY_FALSE ) ;
          Set_Menu_Item_Property('Edit.Clear', ENABLED, PROPERTY_FALSE ) ;
          Set_Menu_Item_Property('Action.Save', ENABLED, PROPERTY_FALSE ) ;
     End if ;
END;Francois