Hi Expert,
Recently, we are create the new form and call form but the call form is not to get the parameter. May I know how to fix the issue?
Then, my form structure as follows:
Parameter List (Par1, Par2, Par3, Par4, Par5, Par6, Par7)
------------------------------------------------------------------------------------------------------
Create the button (Event: WHEN-BUTTON-PRESSED) (New form)
DECLARE
L_pl_id paramlist;
L_PARM_LIST_NAME constant varchar2 (5) := 'plist';
BEGIN
P_destroy_parameter_list (L_PARM_LIST_NAME);
L_pl_id := create_parameter_list (L_PARM_LIST_NAME);
Add_Parameter (L_pl_id,
'Par1',
TEXT_PARAMETER,
to_char(:BLOCK4.COMPANY_CODE));
Add_Parameter (L_pl_id,
'Par2',
TEXT_PARAMETER,
to_char(:BLOCK4.NEO_LOC));
Add_Parameter (L_pl_id,
'Par3',
TEXT_PARAMETER,
to_char(:BLOCK4.OFIN_LOC));
Add_Parameter (L_pl_id,
'Par4',
TEXT_PARAMETER,
to_char(:BLOCK4.OFIN_COMP));
Add_Parameter (L_pl_id,
'Par5',
TEXT_PARAMETER,
to_char(:BLOCK4.OCC1));
Add_Parameter (L_pl_id,
'Par6',
TEXT_PARAMETER,
to_char(:BLOCK4.SEGMENT12_MAP));
Add_Parameter (L_pl_id,
'Par7',
TEXT_PARAMETER,
to_char(:BLOCK4.BRAND_CODE));
IF :BLOCK4.LIST_ITEM_NAME = 'VIEW' THEN
Open_Form ('FM_CMX_LOC.fmx',
ACTIVATE,
SESSION,
L_pl_id);
END IF ;
EXCEPTION
when FORM_TRIGGER_FAILURE then
raise;
when OTHERS then
emessage(SQLERRM);
raise FORM_TRIGGER_FAILURE;
END;
-------------------------------------------------------------------------------------------------------
Call form (trigger event: WHEN-NEW-FORM-INSTANCE)
BEGIN
IF :CMX_OFIN_LOC_MAPPING.COMPANY IS NOT NULL THEN
set_block_property('BLOCK4',default_where, '(COMPANY = :parameter.Par1
AND NEO_LOC = :parameter.Par2
AND OFIN_LOC = :parameter.Par3
AND OFIN_COMP = :parameter.Par4
AND OCC = :parameter.Par5
AND SEGMENT12 = :parameter.Par6
AND BRAND_CODE_IN = :parameter.Par6');
EXECUTE\_QUERY(NO\_VALIDATE, NO\_COMMIT);
END IF;
END;
---------------------------------------------------------------------------------------------------
Thanks,
Andy