Skip to main content

Oracle Forms -- Important Syntaxes

1. To get the enabled property of the item
APP_ITEM_PROPERTY.GET_PROPERTY('CONTROL.FILTER_HOLD_RECORDS',ENABLED)

2. Disable Attachment for this Block in WHEN-NEW-BLOCK-INSTANCE
 APP_SPECIAL.ENABLE('ATTACHMENTS', PROPERTY_OFF);

3. Default Where / Default Order By
Set_block_property('XWII_MATL_DISP_HOLDS_V', Default_where, Lc_query);
Set_block_property('XWII_MATL_DISP_HOLDS_V', order_by, Lc_query);

4. Visual Attribute
   a. Define Visual Attribute for eg 'XWII' where you can set Colour
 b. SET_ITEM_INSTANCE_PROPERTY('block.item_name',CURRENT_RECORD,VISUAL_ATTRIBUTE ,'XWII');

4. Visual Attribute for Record
APP_RECORD.HIGHLIGHT('XWII');
Where 'XWII' is the visual attribute where you can set Colour.

5. Initiliaze SPECIAL Menu
app_special.instantiate ('SPECIAL1', GET_GROUP_CHAR_CELL ('SPECIAL_MENU.SPECIAL_MENU_ITEM', 1), '', TRUE, '');

6. execute_trigger('SPECIAL25');

7. Enable/ Disable Standard Menus
      app_special.ENABLE ('FILE.NEW', property_off);
      app_special.ENABLE ('EDIT.CLEAR', property_off);
      app_special.ENABLE ('EDIT.DUPLICATE', property_off);
      app_special.ENABLE ('EDIT.DELETE', property_off);
8.  Enable/ Disable Custom  Menus
app_special.ENABLE ('SPECIAL1', property_on);

Comments

  1. APP_SPECIAL.ENABLE('EDIT.DELETE', PROPERTY_OFF); is not working

    ReplyDelete

Post a Comment

Popular posts from this blog

Oracle Forms - Window Resize ( Changing window size upon minimizing and maximising)

-- Added by Qutub M for View SU Redesign Proj. (Notes) DECLARE ln_width_diff NUMBER; ln_item_width NUMBER; ln_canvas_width NUMBER; ln_view_width NUMBER; BEGIN IF :system.EVENT_WINDOW = 'FULL_NOTE_DISPLAY' THEN ln_width_diff := TO_NUMBER(GET_WINDOW_PROPERTY('FULL_NOTE_DISPLAY',width)) - :PARAMETER.FULL_NOTES_WIDTH; ln_item_width := TO_NUMBER(GET_ITEM_PROPERTY('FULL_NOTE_DISPLAY.FULL_NOTE',width)); ln_canvas_width := TO_NUMBER(GET_CANVAS_PROPERTY('FULL_NOTE_DISPLAY',width)); ln_view_width := TO_NUMBER(GET_VIEW_PROPERTY('FULL_NOTE_DISPLAY',width)); -- SET_VIEW_PROPERTY('FULL_NOTE_DISPLAY', X_POS, 0); SET_VIEW_PROPERTY('FULL_NOTE_DISPLAY', WIDTH, :parameter.view_width+ln_width_diff); SET_CANVAS_PROPERTY('FULL_NOTE_DISPLAY', WIDTH, :parameter.canvas_width+ln_width_diff);     SET_ITEM_PROPERTY('FULL_NOTE_DISPLAY.FULL_NOTE', width, :parameter.item_width+ln_width_diff);     --M...