我的第一支程式Find/Browse

http://docs.google.com/Doc?docid=0AbWJq86jzRW-ZGMyMnoydzdfMjRmazI3Y2txNw&hl=en


我的第一支程式Find/Browse


Get Phone Number 可以一次抓到TEL和FAX(BSFN)
參考自：P04012
其中，Check Box資料很重要，決定是否要顯示全部的資料。但如果只是用Check Box，是無法達到效果的，必須將資料Associate→Data Dictionary Item
如果只是Check Box，則資料無法設定初始值。必須將資料賦予某個DD Item後才可以賦予初始值。

在右下角有綠色小點，代表有賦予DD Item。
另外，
Media Object Structures(ABGT, , , VA frm_PrintYN, BC Address Number (F0101))
If VA frm_PrintYN is equal to "1"
Set Grid Text Indicator(FC Grid, , )
End If
設定Exit Tool Bar
設定CALL UBE Interconnect
u Include In Transation
u Asynchronously
※這是因為Category的結構不符合。一定要先Begging然後最後是End。像這樣：
設定R5543130SI的Data Structure
然後，修正P550401報表產出設定，此時的UBE Interconnect會有參數可以設定，直接帶入值。
其中，可以帶入的值有：
u BC：
u GC：
u BG：
u QC：
u FI：
在畫面上是：
列印：會直接跑JDEAPP1 Server來執行。所以必須要Build Package才行。這裡我們無法測試產生出來的結果。不過，我們可以利用另外一項Form Interconnections的功能來繼續開發。
設定CALL Form Interconnections→P98305→W98305A→版本
結果如下：直接帶出報表代號，讓使用者選擇版本。
奇怪，怎麼還是丟主機？檢查一下OCM吧！
哇~~~！在測試環境裡都是丟主機ㄝ！改設定！
測試看看：呵呵，跑Local了！
在測試剛剛UBE Interconnect的部分：可以直接產生了！
報表執行過程：
--UBE--[4]-- SELECT * FROM DV7334.F983051 WHERE ( VRPID = 'R5543130SI' AND VRVERS = 'TK001' )
--UBE--[6]-- Call jdeActiveRptFlag to get report Updateable flag in thread ID 548
--UBE--[4]-- UPDATE DV7334.F983051 SET VRPID='R5543130SI',VRVERS='TK001 ',VRREPORTID=0l,VRVERSIONID=0l,VRJD='合格供應商名冊 ',VREXCL='0',VRUSER='SIMON ',VRVCD=109261,VRVED=109261,VRPROPTMID=0l,VRPOID=0l,VROPCR=' ',VRVLISTMODE=2,VRVERTXTID=0l,VRCHKOUTSTS='Y',VRCHKOUTDAT=0,VRUSR0='SIMON ',VRVRSAVAIL='N',VRENHV='DV7334 ',VRMKEY='SIMONLIN1F ',VRPODATA=LONGVARBINARY_DATA,VRDSTNM=' ',VRVCC1=' ',VRVCC2=' ',VRVCC3=' ',VRVCC4=' ',VRVCC5=' ',VRFRMTSTR=' ' WHERE ( VRPID = 'R5543130SI' AND VRVERS = 'TK001' )
--UBE--[6]-- UBEReport_LoadSpecifications Start
--UBE--[1]-- Currency Flag is Z
--UBE--[4]-- SELECT SISY FROM OBJ7334.F9860 WHERE ( SIOBNM = 'R5543130SI' )
--UBE--[4]-- SELECT LMLL, LMRLS FROM SYS7334.F00941 WHERE ( LMLL = 'DV7334' )
--UBE--[6]-- Processing Init Report at Report Level
--UBE--[6]-- UBEReport_StartProcessing Start
--UBE--[4]-- SELECT * FROM OBJ7334.F9860 WHERE ( SIOBNM = 'R5543130SI' )
--UBE--[1]-- No ER detected for INIT_REPORT event. Clearing values for report level RV and ER Variables.
--UBE--[6]-- Processing Do Init Printer at Report Level
→資料沒有帶到報表內！
所以，報表的Initial中要設定：
然後，Form中的UBE Interconnect要設定GC。
當，Form中顯示的結果為：
報表顯示為：