




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、Form個性化-調(diào)用自定義程序庫(實現(xiàn): 提交請求,自動輸出請求結(jié)果)分類:Oracle需求:PO發(fā)放界面,原有的菜單【查看文檔】,標準輸出的報表及數(shù)據(jù)源XML無法明細到Distribution 。解決思路:客制明細報表,并掛請求,PO發(fā)放界面,利用個性化,新增一個菜 單項【查看文檔-客制】,該菜單項來執(zhí)行請求并將請求結(jié)果自動呈現(xiàn)給用戶。Form個性化中,內(nèi)置的Action提供一種名為:“調(diào)用自定義程序庫”,其 實就是CUSTOM.pl,這個文件。當項目中不允許需改標準Form,且利用個性化又無法達到需求目的的時候, CUSTOM.pl,就是個很好的幫手。靈活性很大,但是也有缺點。缺點后面再說
2、。1. 下載CUSTOM.pll文件用FTP工具,切換到路徑$AU_TOP/resource/目錄下,并下載CUSTOM.pll.1_ 7u2/VIS30/vi 130m. O/resour ee/巻稱4f日期所有者®.5ClKCUST.pll52KE2011/12/1311:26vis30mgrdbaJ55KB2011/12/1311 £6vi e和 mgrdba."TT! "- I- -H - "1 "H-flCUETON pllIB! * "Illi -茹-KE1 - Stl II Illi F - II III&qu
3、ot; Illi !l Illi !ll2011/12/13"n":i'6in miiiamBiiiniiBirH immv £30ngr*ibi-js LU&1UM- plK.2DKE2Q12/&/6 1154vi E30rftgrdba.L23KE2011/12/13112Bvis30mrdba.-DT. plK12Q2U11/12/15LI :益yi 詣 Qngribi-_ DTCSATI. rllL號KE2011/12/1311:26vi sSOmgrdbaDTCSATI. pImL63KB2011/12/1311:26vi sSO
4、ngrdba.-EJWAJCTCS jll20KE2011/12/131125vi s30ihirlb aEJJUCTCS.32KE2011/12/1311:26Vi s30m.grdba.-L1&KE2011/12/1511:驅(qū)vi s30m(grIba-EWETRD jIk141陽E011/12/1311:西vi30ngrdba._ EJMRNCF j 11L60KB£011/12/131125vi z30mgrdba.-EWmMDF.pL;228KB2011/12/1311: 2&visSOngribs.WEJJ/OPMEFL岀KE2011/12/13usevi
5、 s30ib4fdba.E則OF肛IF. pH172KF2011/12/1311:2Bvj sSOmgr-EWMDEF.51LL7&KB2011/12/1311 25viSOngrdba.-EJkNFMDEF plx;E5EKEE0U/1E/13il:E&vi sJOnirdba-EFNLSI. jll5ZKB2011/12/1311 £6vi s30mgrdba42. 編輯CUSTOM.pl,新增自己的CODE用 Form Builder 打開 CUSTOM.pll文件此處需要注意的是,CUSTOM.pl l其實就是一個package, Eve nt就是自定義程序
6、庫的入口程序,其Event_Name的參數(shù)就是,個性化的中設(shè)置的變元。建議呢!每個自定義代碼都加上加上作者的注釋,包括作者、用途、及時間護 Oz-&c 1 £ FfliTtas EtkIJ-dereiBLsVCVSTOa. pll羔I冋0變元BLAIfHl啊Mm它二 1 BLAMET RELEASE PDF' Then內(nèi)銖婪型調(diào)用Da*: 2012-10-27提交i青求并自動Fi ev OutputFil t Edit Vie*Fr flgraii SelugWindow MelpDoS園S|涎眉唱|叫|蠱|曾躍| l>圧礙埒即 | ®S»
7、| ?一 P errnsM enuE9-FL/SQL Li brsrieE CCU5T0MR TiragrJiffl Units ferirUSTOffl tPaeka Spc)| 1 |3CUST0m+ (Packa BodyA| CUSTOIfl* CFickase Body羽二|Pind:Ofcj*ct Ia.viHuna; CUSTOM*+Object Li brri es宙-Bult-jin P 合匚k®g.sDatabase OtjacisFracedure Event (Event_Majna Varchar2) Is/ *Add Ey: Young LiCre act
8、ionpurpose:*/If Event.RijivBI ank el _Rel 色 as e_P df:End If;End Event;Procedure Run_E 1 arik&t1 ease_Pdi Is v_Po_Headsr_Id v_Releas&_IdV0r§_Id l_Request_Id l_El_Result v_ Lay out K_Phase x_ Status 匚 De jPhasE xDev Statuslimber (30) := Majne_In<? P0_EEL: NuniberOQ) :- Hajne_In(F P0_E
9、EL: Uumtier (30) : = Hajne_In(,POHEL: Kirnber: lioolean;Boolean:Yarchar2(100):Yarchar2(lC0): 7archar2(100);Varchar2(100):WV44. f J 4 耳、Modified此次新增的代碼為:1.Procedure Run _Bla nket_Release_PdfIs2.v_Po_Header_ldNumber(30) := Namen( 'PO_RELEASES.PO_HEADER_ID');3.v_Release_IdNumber(30) := Name_I n
10、('PO_RELEASES.PO_RELEASE_ID');4.v_OrgdNumber(30) := Name_In('PO_RELEASES.ORG_ID');5.l_Request_ldNumber;6.l_Bl_ResultBoolea n;7.v_LayoutBoolea n;8.x_PhaseVarchar2(100);9.x_StatusVarchar2(100);0.
11、4.45.x_Dev_Phase x_Dev_Status x_Message v_Template v_Organization_CodeVarchar2(100);Varchar2(100);Varchar2(100);Varchar2(100);Varchar2(10);Begin If v_Org_Id Is Not Null ThenBegin Select Organization_CodeInto v_Organization_Code From Org_Organization_Definitions t Where t.Operating_Unit = v
12、_Org_Id; ExceptionWhen Others Then Fnd_Message.Set_String(' 異常錯誤,報表輸出失 ?。?#39;);Fnd_Message.Error; Return; End;End If;If v_Organization_Code = 'SZ' Then v_Template := 'CUXPOR046_BLK_REL_SZ'Else v_Template := 'CUXPOR046_BLK_REL_TS'End If;v_Layout := Fnd_Request.Add_Layout(
13、'PO',v_Template,Null,Null,'PDF');l_Request_Id := Fnd_Request.Submit_Request('PO','CUXPOR046_BLK',False,v_Po_Header_Id,v_Release_IdIIJ,Chr(0)IIJIIJIIJIIJIIJIIJIIJIIJIIJIIJIIJIIJIIJIIJII7.JIIII68.II69.70.71
14、.7.88.90.II91.II00009.110.111.II134.II31.132.II135.IIJ136.IIJ137.IIJ138.IIJ139.IIJ140.IIJ141.IIJ142.IIJ143.IIJ144.IIJ145
15、.IIJ146.,'');147.148. Commit;149. If l_Request_Id Is Null Or150. l_Request_Id = 0 Then151. Return;152. End If;153.154.fnd_message.set_string('請求提交成功 , 請稍等!請求ID:'|l_Request_Id);155.fnd_message.show;156.157. - 更改鼠標式樣:漏斗鼠標 ( 忙狀態(tài) )158. SET_APPLICATION_PROPERTY(CURSOR_ST'BYLE,USY'
16、);159. - 顯示進度條窗口,并設(shè)置進度為0APP_WINDOW.PROGRESS(0);161.l_Bl_Result := Fnd_Concurrent.Wait_For_Request(l163.,1164.,0165.,x_Phase166.,x_Status167.,x_Dev_Phase168.,x_Dev_Status169.,x_Message);170.If x_Dev_Phase ='COMPLETE' And171.x_Dev_Status= 'NORMAL' Then172.Editor_Pkg.Report(l_Request_Id
17、173.,'Y');162._Request_Id輸出的報表 pdf 文件在瀏覽器中顯示174. Else- 使,Rpad('x_pha,2IJ,Rpad('x_sta,2IJ,Rpad('x_dev175. Fnd_File.Put_Line(1176.se'177.0178.') | '=' | x_Phase);179. Fnd_File.Put_Line(1180.tus='181.0182.') | '=' | x_Status);183. Fnd_File.Put_Line(11
18、84._phase='185.0186.') | '=' | x_Dev_Phase);187.Fnd_File.Put_Line(1_status='189.,20190.1J') |'='| x_Dev_Status);191.Fnd_File.Put_Line(1192.,Rpad('x_message='193.,20194.1J') |'='| x_Message);195.Fnd_File.Put_Line(1196.,'Warning :Startingjournalp
19、rint reportfailure!lt did not running in120 seconds, its request_id is' |197.To_Char(l_Request_ld)|' please checkit.');198.End lf;188.,Rpad('x_dev199. SET_APPLICATION_PROPERTY(CURSOR_ST'DYLE,EFAULT');200. APP_WINDOW.PROGRESS(1-)-; 顯示進度條窗口,并設(shè)置進度為 1(100%)201. End Run_Blanket_Re
20、lease_Pdf;pll里面代碼可以自由發(fā)揮了,其實跟寫 Form一樣。如果需要帶入?yún)?shù),可以用 Name_ln來取Form上面的值,如:1. v_Po_Header_IdNumber(30) := Name_In('PO_RELEASES.PO_HEADER_lD');由于我的代碼中使用到 Editor_Pkg.Report 過程,這個過程是在 FNDCONC.pll 中,所以我們需要把FNDCO庫添加到CUSTOM面才可以使用。如果本地 resource 沒有,我們要從服務(wù)器上下載,也是在 $AU_TOP/resource/ 目錄下。下載后,附加動作如下:Ob<j
21、ect ff anri gat or-!xj1 1Find:kt IachLi btSBPVSQL白.準匚USTEfl已 F” 詳 am Vni ts總 HCVyrW (FackagiLhdtsk刪;g>*止虬Browse.日 At Lath顯 Li.bTarigw|Libra r;1: DAWy Docu m ent sF N D CO U C. pHHelp _.I ev_AlertAttached Library ome D: Vffly D-ocumentsFNDCOWC pll contains a noDjP or tails directory宮p eci fi cati
22、oil ” 電if qe 電 p ath?回園IIIl«se.;II3. 上傳并編譯 CUSTOM.pll將編輯好的CUSTOM.pll文件保存,并上傳至$AU_TOP/resource/目錄下,覆蓋。編譯pll.cd $AU TOP/resource/ frmcmp_batch module_type=LIBRARY module=CUSTOM userid=apps/appsvis30ingrvis30mgrerpsha vis30mgr®erpsha -bash: visOmgrr : vis30mgrerpsha vis30mgri?erpsha Forms 10.
23、1 (FormLast login: rrl 5ep 21 19:42!55 2012 fromvisSCmgrcofnmand not found$ cd Jau_top/rcsour cq/resourceJ fmcmp_baTch modbl e_type=LiBRARY madul e=cusT0M userid=3| compiler) version .0 (Praduction)Forms 丄01 (Form compiler):Releaseproduct ioncopyright (c) 1982, 2005, oracle. Al 1 rights rese
24、rved.oracle Database 11g 匚Edition with the parrltioning p olap p Dataversion .0 (product i on) procedure but Ider V10.1.2.S.0 - virtual Graphics system version Multimedia version .2 (production) Tools integrarion version .2 (production) Tools comcnon Area Ver si on .
25、2 COR匚10-Productionng library custom.»4In ng package spec custom1inq Packa口它 Body CUSTOM.,.PL/SQL or ac 1 e orac or ac or盆 oracle Oracle compilicompf _Comp-i 1 ing Package Body CUSTOM. Done.vis30mgrerpsha resource5Rel ease 11.1. Q. 7.0 - Produefi anMining and Ft電al Appl i cafion Testi ng optionsproducTlon10.1.2. 0.G (Production)以上所用版本為R12如果是11i,編譯命令如下:f60gen module_type=LIBRARY module=CUSTOM userid=apps/apps4. 設(shè)置個性化在PO發(fā)放界面的個性化上面新增2個規(guī)則1. 新增菜單項先設(shè)置規(guī)則,及條件,如圖:耒單名 POK
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 辦公大樓保潔承包合同
- 技術(shù)開發(fā)合同模板簡明
- 院企合作科研合同標準模板
- 工業(yè)品交易合同模板轉(zhuǎn)讓合作協(xié)議
- 銀行軟件服務(wù)合同
- 小學生冬季滑冰知識
- 藥理學第二十章 抗心絞痛藥課件
- 微特電機在無人機飛行控制系統(tǒng)的應(yīng)用考核試卷
- 搪瓷材料在實驗室環(huán)境的應(yīng)用考核試卷
- 地下綜合管廊工程光纜敷設(shè)技術(shù)考核試卷
- 2024年沙洲職業(yè)工學院高職單招(英語/數(shù)學/語文)筆試歷年參考題庫含答案解析
- 2023對口升學計算機組裝試卷答案
- 小學中小學校園足球人教三年級全一冊踢球技術(shù)小學體育三年級足球腳內(nèi)側(cè)踢球教案
- 學校危險化學品自查記錄表
- 三菱gx developer用戶操作手冊
- 家譜樹形圖模板
- 工程交付培訓記錄表
- 髖膝關(guān)節(jié)置換術(shù)后X線評價-PPT課件
- 蓋梁抱箍法施工計算書蓋梁抱箍法施工方案
- JIS G4305-2021 冷軋不銹鋼板材、薄板材和帶材
- (完整版)涼亭施工方案
評論
0/150
提交評論