1. 程式人生 > >EBS Form內打開請求界面

EBS Form內打開請求界面

情況下 情況 func false ber mode activate pen call

某情況下,會用到在EBS Form界面內打開請求提交界面,實現方式如下:


fnd_function.execute(

function_name => 'FND_FNDRSRUN',

other_params => 'PROGRAM_APPL_SHORT_NAME="CUX" CONCURRENT_PROGRAM_NAME="XXXXX" CHAR1="' || XXXX || '" SUBMIT_ONCE="Y"'

);

上述操作可以直接帶參數打開某個並發請求的提交界面。


如果當前職責的菜單沒有掛載“FND_FNDRSRUN”這個功能,那就只能通過 open_form 或者 call_form 的方式來打開了。

這兩個都是form內置函數,可以查詢幫助手冊查看詳細介紹。


如下代碼適用於根據請求ID打開請求查詢界面:

PROCEDURE View_Request_Id(Vn_Request_Id IN NUMBER) IS

    Param             Paramlist;
    Vv_Conc_Prog_Name VARCHAR2(30) := 'CUXXXXXX';
BEGIN

    IF Vn_Request_Id IS NULL THEN
        RETURN;
    END IF;

    Param := Get_Parameter_List(Vv_Conc_Prog_Name);

    IF NOT Id_Null(Param) THEN
        Destroy_Parameter_List(Param);
    END IF;

    Param := Create_Parameter_List(Vv_Conc_Prog_Name);
    Add_Parameter(Param, 'mode', Text_Parameter, 'VIEW');
    Add_Parameter(Param, 'use_org', Text_Parameter, 'N');
    Add_Parameter(Param,
                  'DODT_REQ_ID',
                  Text_Parameter,
                  To_Char(Vn_Request_Id));

    Open_Form(Fnd_Navigate.Formpath('FND', 'FNDRSRUN'),
              Activate,
              Session,
              Param);

END View_Request;


EBS Form內打開請求界面