91sapabap模塊培訓(xùn)2012年3月班abap簡(jiǎn)單屏幕編程

1、ABAP 簡(jiǎn)單屏幕編程1. 創(chuàng)建一個(gè)程序輸入 TitleType：一般創(chuàng)建的時(shí)候選擇 Module Pool。但是為了測(cè)試方便，我這里就選擇Executable program。點(diǎn)Save選擇 Package : $TMP選擇 Local Object（此時(shí)不產(chǎn)生請(qǐng)求號(hào)）2. 創(chuàng)建如下的代碼：REPORT ZSCREEN.parameters: pa_anum type sbook-agencynum.data wa_booking type sbc400_booking.*workarea for singooking to be changeddata:wa_sbook type sboo

2、k.data: w_sbook type sbook.*workarea for dynprotables sdyn_book.*variable for function code of user actiondata: ok_cikem.start-of-selection.set pf-s us LIST.set tit ar LIST.*selecting data using a dictionary view to get the data from sbook* and the customer name from scustomselect carrid connid flda

3、te bookid customid namefrom sbc400_bookingo corresponding fields of wa_bookingwhere agencynum = pa_anum.if sy-subrc = 0.write: / wa_booking-carrid color col_key,wa_booking-connid color col_key,wa_booking-fldate color col_key,wa_booking-bookid color col_key,wa_booking-name.hide: wa_booking-carrid,wa_

4、booking-connid,wa_booking-fldate,wa_booking-bookid,wa_booking-name.endif.endselect.clear wa_booking.ilection.select single *from sbooko wa_sbookwhere carrid = wa_booking-carridand connid = wa_booking-connidand fldate = wa_booking-fldateand bookid = wa_booking-bookid.if sy-subrc = 0.move-correspondin

5、g wa_sbook to w_sbook.* move wa_booking-name to sdyn_book-name.call screen 100.else.message id BC400 type S number 047 with wa_booking-carrid.endif.3. 如圖：4. 接下來(lái)創(chuàng)建狀態(tài)欄在程序的名稱(chēng)上右鍵-Create-GUI Sus輸入 Sus and Short Text。Sus type 選擇“Normal Screen”5. 輸入 Pick，并雙擊出現(xiàn)如下框，選擇第一個(gè) Radiobutton Sic text，回車(chē)（確定）6. 輸入 Func

6、tion Text，選擇 Icon Name 的圖標(biāo)，回車(chē)（確定）。7. 在 Function Key 中分別輸入如下內(nèi)容：8. 在 Application Toolbar 中輸入對(duì)應(yīng)的文字，然后一直按確定。9. 激活，這樣 GUI S us 就創(chuàng)建完成。10. 在左邊的 GUI S us 上按右鍵，再創(chuàng)建一個(gè) GUI S us，其余步驟和上一個(gè)步驟相同。創(chuàng)建完成后的效果如下：11. 激活，保存12. 創(chuàng)建GUI Title在程序的名稱(chēng)上右鍵-Create-GUI Title輸入 Title Code and Title，回車(chē)（確定）。13. 激活14. 再創(chuàng)建一個(gè) GUI Title在 GU

7、I Title 上右鍵 Create接下來(lái)步驟和上面一樣，創(chuàng)建一個(gè) test2 Title 為:Updata Dao Table。15. 激活16. 接下來(lái)開(kāi)始說(shuō)明如何畫(huà)屏幕程序名-右鍵-創(chuàng)建-屏幕17. 輸入屏幕號(hào)（四位數(shù)）18. 輸入描述如果這個(gè)屏幕是最后的屏幕，則屏幕號(hào)選擇為 0。若這個(gè)屏幕號(hào)的后面還有跟其他屏幕號(hào)，則輸入其他屏幕號(hào)。（這個(gè)有點(diǎn)難懂，以后有機(jī)會(huì)再說(shuō)，其中會(huì)有關(guān)于 PBO 和PAI。）19. 在Element List 的頁(yè)簽下面輸入 OK_Code20. 選擇Layout（若不能進(jìn)去，則建議重新安裝客戶端）21. 選擇如下的按鈕22. 選擇如下按鈕23. 選擇你需要的欄位

8、，回車(chē)（確定）24. 移動(dòng)至合適的位置25. 雙擊對(duì)應(yīng)的框，或者選擇如下的按鈕，可以進(jìn)行屬性修改。添加兩個(gè) Button26. 激活27. 在Flow Logic 中輸入如下代碼28. 在主程序中輸入如下的代碼*&-*& Module S US_0100 OUTPUT*&-* text*-*MODULE SUS_0100 OUTPUT.SET PF-SUS DYNPRO.SET TITAR DYNPRO.ENDMODULE. S US_0100 OUTPUT*&-*& Module CLEAR_OK_CODE OUTPUT*&-* text*-*MODULE CLEAR_OK_CODE OUTPUT.CLEAR OK_CODE.ENDMODULE. CLEAR_OK_CODE OUTPUT*&-*& ModuleMAND_0100 INPUT*&-* text*-*MODULEMAND_0100 INPUT.CASE OK_CODE.WHEN BACK.LEAVE to SCREEN 0.WHEN SAVE.MOVE-CORRESPONDING W_Sbook TO wa_sbook.MESSAGE ID BC400 TYPE I NUMBER 060.LEAVE