跳到主要內容

EBS 找指定responsibility包含哪些forms


--選單樹狀結構
Declare

   v_check   number :=0;
 
   v_space   varchar2(200) :='';
 
   i                number :=0;
 
   v_top_responsibility  varchar2(50) := <權限模組名稱> ;

  cursor cur1 is
      select a.menu_id,b.sub_menu_id,b.prompt
          from fnd_menus_vl a,FND_MENU_ENTRIES_VL b
          where a.menu_id=b.menu_id
              and a.menu_name='FM_NAVIGATE_10G'
              and B.sub_MENU_ID not in (select action_id from FND_RESP_FUNCTIONS a,
                                                                       fnd_application_vl b,
                                                                       fnd_responsibility_vl c
                                                                     where a.application_id=b.application_id
                                                                         and c.responsibility_id=a.responsibility_id
                                                                         and c.responsibility_key = v_top_responsibility
                                                                         and rule_type='M') ;

    r1 cur1%rowtype;

   Procedure Get_function (v_level number,v_sub_menu number ) is     --傳入層級,子選單ID
 
      Cursor Cur2  is
          select sub_menu_id,prompt
                 from FND_MENU_ENTRIES_VL  where  menu_id=v_sub_menu
                 and function_id not in (select action_id from FND_RESP_FUNCTIONS a,
                                                                  fnd_application_vl b,
                                                                  fnd_responsibility_vl c
                                                                  where a.application_id=b.application_id
                                                                  and c.responsibility_id=a.responsibility_id
                                                                  and c.responsibility_key =v_top_responsibility
                                                                  and rule_type='F') ;
               
       r2   cur2%rowtype;

   Begin
 
     --dbms_output.put_line('aaaa');
   
     v_space :='';
   
      for i  in  0..v_level
            loop
                    v_space :='  '||v_space ;
      end loop;

      For r2 in Cur2 Loop

             select count(1)  into  v_check
                 from FND_MENU_ENTRIES_VL  where sub_menu_id is not null and menu_id=v_sub_menu
                 and function_id not in (select action_id from FND_RESP_FUNCTIONS a,
                                                                  fnd_application_vl b,
                                                                  fnd_responsibility_vl c
                                                                  where a.application_id=b.application_id
                                                                  and c.responsibility_id=a.responsibility_id
                                                                  and c.responsibility_key = v_top_responsibility
                                                                  and rule_type='F');


            If v_check > 0 then

                insert into tmp_ddd(a,b) values (v_level,v_space|| r2.prompt);
                Get_function (v_level+1,r2.sub_menu_id);

            else
         
                 insert into tmp_ddd(a,b) values (v_level,v_space || r2.prompt);
                 --dbms_output.put_line('Top Item_Number:' ||r2.prompt);

             end if;

      End Loop;

   End;
 
Begin

    for r1 in cur1 loop
        insert into tmp_ddd(a,b) values (0,r1.prompt);
       Get_function (1,r1.sub_menu_id);
    end loop;
 
    commit;
 
End;


這個網誌中的熱門文章

Line如何換行

在電腦版的Line輸入文字時,遇到需要換行的情形時,我都是用記事本先寫好再複製上去,這樣就可以有換行的效果,可是這樣的做法好像失去Line的便利性。 於是查了一下,原來有一個設定可以指定Enter換行,而不是發訊息出去。 完成設定之後,要發送訊息就改用Alt+Enter,而Enter就可以換行了。

在Windows下,利用tasklist與taskkill來刪除Process

Windows7 / Windows8 kill process Linux下要刪除某個程序通常會使用 ps 配合 kill 來刪除程序。 例如:ps -ef |grep [PROCESS NAME]       kill -9 [PID] 在Windows下,通常是開啟工作管理員來強制結束應用程式,但是如果要寫成Script,就必須改為命令式。 TASKLIST [/S system [/U username [/P [password]]]]          [/M [module] | /SVC | /V] [/FI filter] [/FO format] [/NH]           TASKKILL [/S system [/U username [/P [password]]]]          { [/FI filter] [/PID processid | /IM imagename] } [/T] [/F]           (Tasklist:查詢Process ; Taskkill:刪除Process)           例如要刪除已開啟的記事本(notepad): 1、查詢記事本的Process訊息     C:\> tasklist |find /i "notepad.exe"     notepad.exe      6092 Console     1     5,832 K 2、由上得知記事本的PID為6092     C:\> taskkill /f /PID 6092     成功:處理程序 PID 6092 已經終止了。     taskkill使用的參數     /f:指定此參數可強制終止處理程序     /PID:指定要終止之處理程序的 PID      3、也可以直接以程式名稱刪除     C:\ taskkill /f /im notepad.exe     成功:處理程序 "notepad.exe" <PID 6092> 已經終止了      下面是我自己測試的Script,可以刪除多個相同的程式,例如同時開啟了三個記事本: @echo off for /f &quo

Win 10 工作排程無法執行bat批次檔

利用Win 10的工作排程器來設定每日自動執行的批次檔,單獨執行批次檔沒問題,但是放在排程上就是無法執行。 後來試了幾種網路上提供的方式,其注意的事項如下: 1、在「安全性選項」選擇「只有使用者登入時才執行」並取消「以最高權限執行」。 2、在「設定」中選擇「Windows 10」 3、批次檔內的執行檔需以完整的路徑執行,或設定PATH路徑。 3、批次檔中如果帶有中文的路徑,則文字編碼類型必需是ANSI碼,       我的批次檔一開始就是UTF-8碼,但是單獨執行沒有問題,排程上就是有問題,       最後在批次檔中加入暫停指令pause才發現的。 4、如果想選擇「不論使用者登入與否均執行」,則在「設定」必須選擇「Windows Server 2003、Windows XP或Windows 2000」,    但是上述的選項只有在新增工作程程時才會出現,原有的工作排程是不會有此選項