Oracle Forms Developer – Form Builder Reference, Volume 1

GET_BLOCK_PROPERTY examples
162
and QUERY if the block contains only valid records that have been
retrieved from the database.
TOP_RECORD Returns the record number of the topmost visible record
in the given block.
UPDATE_ALLOWED Returns the VARCHAR2 value TRUE if the
Update Allowed block property is Yes, FALSE if it is No. This property
determines whether the operator or the application is allowed to update
records in the block.
UPDATE_CHANGED_COLUMNS Specifies that only those columns
updated by an operator will be sent to the database. When Update Changed
Columns Only is set to No, all columns are sent, regardless of whether they
have been updated. This can result in considerable network traffic,
particularly if the block contains a LONG data type.
/*
** Built-in: GET_BLOCK_PROPERTY
** Example: Return the screen line of the current record in
** a multi-record block. Could be used to
** dynamically position LOV to a place on the
** screen above or below the current line so as to
** not obscure the current record in question.
*/
FUNCTION Current_Screen_Line
RETURN NUMBER IS
cur_blk VARCHAR2(40) := :System.Cursor_Block;
cur_rec NUMBER;
top_rec NUMBER;
itm_lin NUMBER;
cur_lin NUMBER;
bk_id Block;
BEGIN
/*
** Get the block id since we’ll be doing multiple
** Get_Block_Property operations for the same block
*/
bk_id := Find_Block( cur_blk );
/*
** Determine the (1) Current Record the cursor is in,
** (2) Current Record which is visible at the
** first (top) line of the multirecord
** block.
*/
cur_rec := Get_Block_Property( bk_id, CURRENT_RECORD);
top_rec := Get_Block_Property( bk_id, TOP_RECORD);
/*
** Determine the position on the screen the first field in
** the multirecord block
*/
itm_lin := Get_Item_Property( Get_Block_Property
(bk_id,FIRST_ITEM),Y_POS);
/*
** Add the difference between the current record and the
** top record visible in the block to the screen position
** of the first item in the block to get the screen
** position of the current record:
*/