- you can enhance the code provided and change it according to your environment of development ( as the code contains some specified piece of codes that related to my own development standards and environment )
at first we will explain the bussiness functionality and desgin of this process,
-the first step is to define value sets and value set details table to store the data about value set you want to use
- after that you can define the key flex field and define its detail information ( number of segment , prompt of each segment , sequqnece of each segment , .....) and assign a value set to each segment in the key flex field detail
- next step is to define a table to store the data combination of the different flex fields
here are sample scripts for these tabl creation ( note that the naming convention and some columns related to current environment)
-----------------------------------------
CREATE TABLE GN_VALUE_SET
(
VALUE_SET_RECID NUMBER NOT NULL,
VALUE_SET_NAME VARCHAR2(50 BYTE) NOT NULL,
VALUE_SET_DESC VARCHAR2(50 BYTE) NOT NULL,
SYSTEM_DATA NUMBER(2) DEFAULT 0,
CODE_LEN NUMBER(2) DEFAULT 3
)
TABLESPACE SYSTEM
PCTUSED 40
PCTFREE 10
INITRANS 1
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
BUFFER_POOL DEFAULT
)
LOGGING
NOCOMPRESS
NOCACHE
NOPARALLEL
MONITORING;
CREATE TABLE GN_VALUE_SET_DTL
(
VALUE_SET_DTL_RECID NUMBER NOT NULL,
VALUE_SET_RECID NUMBER,
VALUE_SET_CODE VARCHAR2(10 BYTE) NOT NULL,
VALUE_STATUS NUMBER(2) DEFAULT 1,
VALUE_SET_DESC VARCHAR2(50 BYTE),
VALUE_SET_EDESC VARCHAR2(50 BYTE)
)
TABLESPACE SYSTEM
PCTUSED 40
PCTFREE 10
INITRANS 1
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
BUFFER_POOL DEFAULT
)
LOGGING
NOCOMPRESS
NOCACHE
NOPARALLEL
MONITORING;
CREATE TABLE GN_FLEXFIELD_DET
(
FLEXFIELD_DET_RECID NUMBER(16),
FLEXFIELD_RECID NUMBER(16) NOT NULL,
SEGMENT_SERIAL NUMBER(2),
VALUE_SET_RECID NUMBER(16),
SEGMENT_ARABIC_PROMPT VARCHAR2(50 BYTE),
SEGMENT_ENGLISH_PROMPT VARCHAR2(50 BYTE),
SEGMENT_LEN NUMBER(5)
)
TABLESPACE USERS
PCTUSED 0
PCTFREE 10
INITRANS 1
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
BUFFER_POOL DEFAULT
)
LOGGING
NOCOMPRESS
NOCACHE
NOPARALLEL
MONITORING;
CREATE TABLE GN_FLEXFIELD_COMB
(
FLEXFIELD_COMB_RECID NUMBER(16),
FLEXFIELD_RECID NUMBER(16),
SEGMENT_COMB_VALUE VARCHAR2(200 BYTE),
SEGMENT_COMB_DESC VARCHAR2(500 BYTE)
)
TABLESPACE USERS
PCTUSED 0
PCTFREE 10
INITRANS 1
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
BUFFER_POOL DEFAULT
)
LOGGING
NOCOMPRESS
NOCACHE
NOPARALLEL
MONITORING;
CREATE TABLE GN_FLEXFIELD
(
FLEXFIELD_RECID NUMBER(16),
FLEXFIELD_NAME VARCHAR2(50 BYTE),
SEPARATOR VARCHAR2(1 BYTE),
SEGMENT_NUMBER NUMBER(2),
ALLOW_DYNAMIC_INSERT NUMBER(1) DEFAULT 1 NOT NULL,
ARABIC_WINDOW_PROMPT VARCHAR2(50 BYTE),
ENGLISH_WINDOW_PROMPT VARCHAR2(50 BYTE)
)
TABLESPACE USERS
PCTUSED 0
PCTFREE 10
INITRANS 1
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
BUFFER_POOL DEFAULT
)
LOGGING
NOCOMPRESS
NOCACHE
NOPARALLEL
MONITORING;
CREATE UNIQUE INDEX GN_FLEXFIELD_PK ON GN_FLEXFIELD
(FLEXFIELD_RECID)
LOGGING
TABLESPACE USERS
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
BUFFER_POOL DEFAULT
)
NOPARALLEL;
CREATE UNIQUE INDEX GN_FLEXFIELD_COMB_PK ON GN_FLEXFIELD_COMB
(FLEXFIELD_COMB_RECID)
LOGGING
TABLESPACE USERS
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
BUFFER_POOL DEFAULT
)
NOPARALLEL;
CREATE UNIQUE INDEX GN_FLEXFIELD_DET_PK ON GN_FLEXFIELD_DET
(FLEXFIELD_DET_RECID)
LOGGING
TABLESPACE USERS
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
BUFFER_POOL DEFAULT
)
NOPARALLEL;
CREATE UNIQUE INDEX PK_GN_VALUE_SET ON GN_VALUE_SET
(VALUE_SET_RECID)
LOGGING
TABLESPACE SYSTEM
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
BUFFER_POOL DEFAULT
)
NOPARALLEL;
CREATE UNIQUE INDEX PK_GN_VALUE_SET_DTL ON GN_VALUE_SET_DTL
(VALUE_SET_DTL_RECID)
LOGGING
TABLESPACE SYSTEM
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
BUFFER_POOL DEFAULT
)
NOPARALLEL;
CREATE OR REPLACE TRIGGER TRG_GN_VALUE_SET BEFORE INSERT ON GN_VALUE_SET REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE V_RECID NUMBER ;
BEGIN
SELECT SEQ_GN_VALUE_SET.NEXTVAL INTO V_RECID FROM DUAL ;
:NEW.VALUE_SET_RECID := V_RECID ;
END TRG_GN_VALUE_SET;
/
SHOW ERRORS;
CREATE OR REPLACE TRIGGER TRG_GN_VALUE_SET_DTL BEFORE INSERT ON GN_VALUE_SET_DTL REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE V_RECID NUMBER ;
BEGIN
SELECT SEQ_GN_VALUE_SET_DTL.NEXTVAL INTO V_RECID FROM DUAL ;
:NEW.VALUE_SET_DTL_RECID := V_RECID ;
END TRG_GN_VALUE_SET_DTL;
/
SHOW ERRORS;
CREATE OR REPLACE TRIGGER TRG_GN_FLEXFIELD_DET BEFORE INSERT ON GN_FLEXFIELD_DET REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE V_RECID NUMBER ;
BEGIN
SELECT SEQ_GN_FLEXFIELD_DET.NEXTVAL INTO V_RECID FROM DUAL ;
:NEW.FLEXFIELD_DET_RECID := V_RECID ;
END TRG_GN_FLEXFIELD_DET;
/
SHOW ERRORS;
CREATE OR REPLACE TRIGGER TRG_GN_FLEXFIELD_COMB BEFORE INSERT ON GN_FLEXFIELD_COMB REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE V_RECID NUMBER ;
BEGIN
SELECT SEQ_GN_FLEXFIELD_COMB.NEXTVAL INTO V_RECID FROM DUAL ;
:NEW.FLEXFIELD_COMB_RECID := V_RECID ;
END TRG_GN_FLEXFIELD_COMB;
/
SHOW ERRORS;
CREATE OR REPLACE TRIGGER TRG_GN_FLEXFIELD BEFORE INSERT ON GN_FLEXFIELD REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE V_RECID NUMBER ;
BEGIN
SELECT SEQ_GN_FLEXFIELD.NEXTVAL INTO V_RECID FROM DUAL ;
:NEW.FLEXFIELD_RECID := V_RECID ;
END TRG_GN_FLEXFIELD;
/
SHOW ERRORS;
ALTER TABLE GN_VALUE_SET ADD (
CONSTRAINT PK_GN_VALUE_SET
PRIMARY KEY
(VALUE_SET_RECID)
USING INDEX
TABLESPACE SYSTEM
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
));
ALTER TABLE GN_VALUE_SET_DTL ADD (
CONSTRAINT PK_GN_VALUE_SET_DTL
PRIMARY KEY
(VALUE_SET_DTL_RECID)
USING INDEX
TABLESPACE SYSTEM
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
FREELISTS 1
FREELIST GROUPS 1
));
ALTER TABLE GN_FLEXFIELD_DET ADD (
CONSTRAINT GN_FLEXFIELD_DET_PK
PRIMARY KEY
(FLEXFIELD_DET_RECID)
USING INDEX
TABLESPACE USERS
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
));
ALTER TABLE GN_FLEXFIELD_COMB ADD (
CONSTRAINT GN_FLEXFIELD_COMB_PK
PRIMARY KEY
(FLEXFIELD_COMB_RECID)
USING INDEX
TABLESPACE USERS
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
));
ALTER TABLE GN_FLEXFIELD ADD (
CONSTRAINT GN_FLEXFIELD_PK
PRIMARY KEY
(FLEXFIELD_RECID)
USING INDEX
TABLESPACE USERS
PCTFREE 10
INITRANS 2
MAXTRANS 255
STORAGE (
INITIAL 64K
MINEXTENTS 1
MAXEXTENTS 2147483645
PCTINCREASE 0
));
ALTER TABLE GN_VALUE_SET_DTL ADD (
CONSTRAINT FK_GN_VALUE_REFERENCE_GN_VALUE
FOREIGN KEY (VALUE_SET_RECID)
REFERENCES GN_VALUE_SET (VALUE_SET_RECID));
-----------------------------------------------------
- Next step is to make your forms moudules that define value set and key flexfield and make the required functions and procedure to get information about value set or key flexfield it sefl
- after that you can make your object group that will contains the items , blocks, canvases,.... that will be used to implement this functionality
the object group should contain the following :
1- stack canvas 2- window 3- control block 4- two list of values one of them is dummy lov to be attached to the item in your form that will invoke the key flex field
5-one parameter with number data type to hold the value of the value set that will displayed for the current segment
6- pl/sql package that will contain all procedures and functions that will be implement that funcationality
7- the items in the block ( segment_1 , .... segment_6 ) this segments that will be displayed to the user according to the number of the segments defined in the choosed flexfield , i.e. if the flex field has 4 segments so the items ( segment_1,segment_2,....,segment_4) will be displayed to the user the same rule applied for the display items ( desc_1, ...,desc_6)
but the items value_set_1 ,..... value_set_6 will not displayed they are only for holding the value set record id that attach to corresponding segment , these items can be deleted and package variables used instead )
8- two display item to hold the selected value and describtion selected form the list of value from each segment
9- two display item to hold the combined value and combined desc , ( these two items can be replaced and package variables can be used )
here the code of the forms package included
-------------------------------------------------------------------
PACKAGE init_flexfield IS
flex_item_name_desc varchar2(200); -- to hold the item name that will hold the description of the combined value
flex_block_name varchar2(100);--- the block of the item that invoked the flex field
flex_recid number(16); -- the applied felx field --- hard coded ----
flex_window_prompt varchar2(50); --- hold the window prompt
flex_separator varchar2(1); ---flex_separator
flex_segment_number number(2); ---flex_segment_numbe
flex_dynamic_status boolean ; -- if the flex field allow to insert the non existed combination into the combination table
procedure invoke_flex_field(target_item varchar2, target_item_desc varchar2);
procedure invoke_lov ;
Procedure validate_segment_value;
procedure ensure_right_lov ;
Procedure combine_segments ;
procedure validate_combination ;
END;
----------------------------------------------------------------
----------------------------------------------------------------
:combined_value:='';
:combined_desc:='';
for i in 1..init_flexfield.flex_segment_number loop
:combined_value:=:combined_valueinit_flexfield.flex_separatorname_in('segment_'i);
:combined_desc:=:combined_descinit_flexfield.flex_separatorname_in('desc_'i);
end loop;
--- omit extra separator
:combined_value:=substr(:combined_value,2);
:combined_desc:=substr(:combined_desc,2);
---------------------------------------------------------------
procedure ensure_right_lov is
v_segment_number number(2);
begin
---- parameter init_valu_set that is used in calling the list of values accross all segments
v_cursor_segment:=:system.trigger_item;
v_segment_number:=to_number(substr(v_cursor_segment,-1));
:parameter.INIT_VALUE_SET:=name_in('value_set_'v_segment_number);
end ;
--------------------------------------------------------------------------
Procedure validate_segment_value is
v_cursor_segment varchar2(50);
v_segment_number number(2);
v_valid number(2);
v_segment_desc varchar2(50);
begin
INIT_FLEXFIELD.ensure_right_lov ;
v_cursor_segment:=:system.trigger_item;
v_segment_number:=to_number(substr(v_cursor_segment,-1));
v_valid:=flexfield_pkg.validate_sement_value(name_in(v_cursor_segment),name_in('value_set_'v_segment_number)) ;
if v_valid = 0 then
message('Invalid Value for the segment');
message('Invalid Value for the segment');
raise form_trigger_failure;
else
--- get the right desc for semgnet
v_segment_desc:=value_set_pkg.get_value_set_desc(:parameter.INIT_VALUE_SET,
value_set_pkg.get_detail_Recid(name_in('value_set_'v_segment_number),name_in('segment_'v_segment_number)
),translation_pkg.get_user_lang_id);
copy(v_segment_desc,'desc_'v_segment_number);
end if ;
end;
v_segment_number number(2);
begin
v_cursor_segment:=:system.trigger_item;
v_segment_number:=to_number(substr(v_cursor_segment,-1));
if show_lov('LOV_VALUE') then
--copy(:lov_desc,'desc_'v_segment_number);
else
message('you must choose value from list');message('');
raise form_trigger_failure ;
end if ;
end ;
---------------------------------------------------------------------------------------------------------------
order by segment_serial ;
v_counter number(16);
begin
---- initialize package variables
init_flexfield.flex_item_name:=target_item;
init_flexfield.flex_item_name_desc:=target_item_desc ;
init_flexfield.flex_recid:=flexfield_pkg.get_account_flexfield(1);
init_flexfield.flex_window_prompt:=flexfield_pkg.get_flexfield_window_prompt(init_flexfield.flex_recid,translation_pkg.get_user_lang_id);
init_flexfield.flex_separator:=flexfield_pkg.get_flexfield_separator(init_flexfield.flex_recid);
init_flexfield.flex_segment_number:=flexfield_pkg.get_flexfield_segment_number(init_flexfield.flex_recid);
init_flexfield.flex_dynamic_status:=flexfield_pkg.get_dynamic_insert_flag(init_flexfield.flex_recid) ;
init_flexfield.flex_block_name:=:system.trigger_block;
set_canvas_property('flex_can',width,(init_flexfield.flex_segment_number*100)+24);
set_window_property('flex_window',width,(init_flexfield.flex_segment_number*100)+24);
--- center the button
set_item_property('flex_block.flex_ok',x_pos,((((init_flexfield.flex_segment_number*100)+24)-100)/2));
set_item_property('flex_block.flex_cancel',x_pos,((((init_flexfield.flex_segment_number*100)+24)-100)/2)+60);
set_item_property('segment_'i,visible,property_true);
set_item_property('segment_'i,enabled,property_true);
set_item_property('segment_'i,navigable,property_true);
set_item_property('desc_'i,visible,property_true);
end loop;
:combined_desc:='';
---- set prompt of the segment -- and assign the value set of each segment to the corresponding item
for rec in c_cur loop
copy('','segment_'v_counter);
copy('','desc_'v_counter);
copy(rec.value_set_recid,'value_set_'v_counter);
v_segment_prompt:=flexfield_pkg.get_segment_prompt(rec.flexfield_det_recid,translation_pkg.get_user_lang_id);
set_item_property('segment_'v_counter,prompt_text,v_segment_prompt);
v_counter:=v_counter+1;
end loop;
-- show the flex field cnavas and window
go_block('FLEX_BLOCK');
SET_FORM_PROPERTY(GET_APPLICATION_PROPERTY (CURRENT_FORM_NAME),VALIDATION_UNIT,ITEM_SCOPE);
end ; --- invoke flex field
init_flexfield.combine_Segments;
if flexfield_pkg.check_combination_exist(init_flexfield.flex_recid,:combined_value)=0 then --- the combination not existed before
--- check if the current flexfiedl allow dynamic insertion of non existed combination
if init_flexfield.flex_dynamic_status =true then
--- insert the combination
flexfield_pkg.generate_combination(init_flexfield.flex_recid,:combined_value,:combined_desc);
else
message ('This combination not existed ');message ('This combination not existed ');
raise form_trigger_failure ;
end if ;
end if;
copy(:combined_value,init_flexfield.flex_item_name);
copy(:combined_DESC,init_flexfield.flex_item_name_desc);
go_block(init_flexfield.flex_block_name);
go_item(init_flexfield.flex_item_name);
end ;
--#########################################################################3
END;
---------------------------- Some Data base packages Used ---------------------
CREATE OR REPLACE PACKAGE BODY TMS.flexfield_pkg AS
/******************************************************************************
NAME: flexfield_pkg
PURPOSE:
REVISIONS:
Ver Date Author Description
--------- ---------- --------------- ------------------------------------
1.0 28/07/2009 1. Created this package body.
******************************************************************************/
Function get_dynamic_insert_flag(p_flexfield_recid number) return boolean is
v_result number(2);
cursor c_cur is (select gn_flexfield.ALLOW_DYNAMIC_INSERT from gn_flexfield where gn_flexfield.FLEXFIELD_RECID = p_flexfield_recid) ;
begin
open c_cur ;
fetch c_cur into v_result;
if c_cur%notfound then
close c_cur ;
return false ;
end if ;
close c_cur ;
if v_result =1 then
return true;
elsif v_result =0 then
return false ;
else
return false ;
end if ;
end;
--**********************************************************************************************
Function check_combination_exist(p_flexfield_recid number , p_combination varchar2) return number is
cursor c_cur is (select gn_flexfield_comb.FLEXFIELD_COMB_RECID from gn_flexfield_comb where gn_flexfield_comb.FLEXFIELD_RECID=p_flexfield_Recid
and gn_flexfield_comb.SEGMENT_COMB_VALUE= p_combination);
v_return number(16);
begin
if p_flexfield_Recid is null or p_combination is null then
return null;
end if ;
open c_cur ;
fetch c_cur into v_Return;
if c_cur%notfound then
v_return:=0;
end if ;
close c_cur ;
if v_return>0 then
v_return:=1;
end if ;
return v_return ;
end ;
--****************************************************************************************
Procedure generate_combination(p_flexfield_recid number , p_combination varchar2,p_combination_desc varchar2) is
PRAGMA AUTONOMOUS_TRANSACTION;
begin
insert into gn_flexfield_comb (gn_flexfield_comb.FLEXFIELD_RECID,gn_flexfield_comb.SEGMENT_COMB_VALUE,gn_flexfield_comb.SEGMENT_COMB_DESC)
values (p_flexfield_recid,p_combination,p_combination_desc);
commit;
end ;
----*********************************************************************************************
function validate_sement_value(p_seg_value varchar2, p_value_set_Recid number) return number is
cursor c_cur is (select count(*) from gn_value_set_dtL where (gn_value_set_dtl.VALUE_SET_CODE =p_seg_value and
gn_value_set_dtl.VALUE_SET_RECID=p_value_set_Recid) AND gn_value_set_dtL.VALUE_STATUS=1 );
v_return number(16);
begin
open c_cur ;
fetch c_cur into v_return ;
close c_cur ;
return v_return;
end ;
--*******************************************************************************************
Function get_account_flexfield(p_sob_recid number) return number is
begin
return 1;
end ;
--******************************************************************************/
function get_segment_value_set_Recid ( p_segment_recid number) return number is
cursor c_cur is (select gn_flexfield_det.VALUE_SET_RECID from gn_flexfield_det where gn_flexfield_det.flexfield_det_Recid= p_segment_recid );
v_return number(16);
begin
if p_segment_recid is null then
return null;
end if ;
open c_cur ;
fetch c_cur into v_Return ;
if c_cur%notfound then
close c_Cur ;
return null;
end if ;
close c_cur ;
return v_return;
end ;
---******************************************************************************************
function get_segment_prompt(p_segment_recid number,v_lang_recid number) return varchar2 is
cursor c_cur is (select gn_flexfield_det.SEGMENT_ARABIC_PROMPT from gn_flexfield_det where gn_flexfield_det.flexfield_det_Recid= p_segment_recid);
cursor c_cur_e is (select gn_flexfield_det.segment_english_prompt from gn_flexfield_det where gn_flexfield_det.flexfield_det_Recid= p_segment_recid );
v_return varchar2(50);
begin
if p_segment_recid is null or v_lang_recid is null then
return null;
end if ;
if v_lang_recid =1 then
open c_cur ;
fetch c_cur into v_Return ;
if c_cur%notfound then
close c_Cur ;
return null;
end if ;
close c_cur ;
else
open c_cur_e ;
fetch c_cur_e into v_Return ;
if c_cur_e%notfound then
close c_Cur_e ;
return null;
end if ;
close c_cur_e;
end if ;
return v_return;
end ;
---**************************************************************************************************
Function get_flexfield_segment_number(p_flexfield_Recid number) return number is
cursor c_cur is (select gn_flexfield.SEGMENT_NUMBER from gn_flexfield where gn_flexfield.flexfield_Recid= p_flexfield_recid);
v_return number(2);
begin
if p_flexfield_recid is null then
return null;
end if ;
open c_cur ;
fetch c_cur into v_Return ;
if c_cur%notfound then
close c_Cur ;
return null;
end if ;
close c_cur ;
return v_return;
end ;
---*********************************************************************************
Function get_flexfield_separator(p_flexfield_recid number)return varchar2 is
cursor c_cur is (select gn_flexfield.SEPARATOR from gn_flexfield where gn_flexfield.flexfield_Recid= p_flexfield_recid);
v_return varchar2(1);
begin
if p_flexfield_recid is null then
return null;
end if ;
open c_cur ;
fetch c_cur into v_Return ;
if c_cur%notfound then
close c_Cur ;
return null;
end if ;
close c_cur ;
return v_return;
end ;
---************************************************************************************************
Function get_flexfield_window_prompt(p_flexfield_recid number,v_lang_id number ) return varchar2 is
cursor c_cur is (select gn_flexfield.arabic_window_prompt from gn_flexfield where gn_flexfield.flexfield_Recid= p_flexfield_recid);
cursor c_cur_e is (select gn_flexfield.english_window_prompt from gn_flexfield where gn_flexfield.flexfield_Recid= p_flexfield_recid );
v_return varchar2(50);
begin
if p_flexfield_recid is null then
return null;
end if ;
if v_lang_id =1 then
open c_cur ;
fetch c_cur into v_Return ;
if c_cur%notfound then
close c_Cur ;
return null;
end if ;
close c_cur ;
else
open c_cur_e ;
fetch c_cur_e into v_Return ;
if c_cur_e%notfound then
close c_Cur_e ;
return null;
end if ;
close c_cur_e;
end if ;
return v_return;
end ;
--################################################################################3
END flexfield_pkg;
/
---------------------------------------------------------------------------------
the code in the segments item triggers
1- key list value init_flexfield.invoke_lov;
2- pre-text init_flexfield.ensure_right_lov ;
3-When - validate item init_flexfield.validate_segment_value ;
the code that you will write it to invoke the flexfield from your form
init_flexfield.invoke_flex_field('TARGET_ITEM','target_item_desc');
No comments:
Post a Comment