91sapabap模块培训2012年3月班abap简单屏幕编程

1、ABAP 简单屏幕编程1. 创建一个程序输入 TitleType：一般创建的时候选择 Module Pool。但是为了测试方便，我这里就选择Executable program。点Save选择 Package : $TMP选择 Local Object（此时不产生请求号）2. 创建如下的代码：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. 接下来创建状态栏在程序的名称上右键-Create-GUI Sus输入 Sus and Short Text。Sus type 选择“Normal Screen”5. 输入 Pick，并双击出现如下框，选择第一个 Radiobutton Sic text，回车（确定）6. 输入 Func

6、tion Text，选择 Icon Name 的图标，回车（确定）。7. 在 Function Key 中分别输入如下内容：8. 在 Application Toolbar 中输入对应的文字，然后一直按确定。9. 激活，这样 GUI S us 就创建完成。10. 在左边的 GUI S us 上按右键，再创建一个 GUI S us，其余步骤和上一个步骤相同。创建完成后的效果如下：11. 激活，保存12. 创建GUI Title在程序的名称上右键-Create-GUI Title输入 Title Code and Title，回车（确定）。13. 激活14. 再创建一个 GUI Title在 GU

7、I Title 上右键 Create接下来步骤和上面一样，创建一个 test2 Title 为:Updata Dao Table。15. 激活16. 接下来开始说明如何画屏幕程序名-右键-创建-屏幕17. 输入屏幕号（四位数）18. 输入描述如果这个屏幕是最后的屏幕，则屏幕号选择为 0。若这个屏幕号的后面还有跟其他屏幕号，则输入其他屏幕号。（这个有点难懂，以后有机会再说，其中会有关于 PBO 和PAI。）19. 在Element List 的页签下面输入 OK_Code20. 选择Layout（若不能进去，则建议重新安装客户端）21. 选择如下的按钮22. 选择如下按钮23. 选择你需要的栏位

8、，回车（确定）24. 移动至合适的位置25. 双击对应的框，或者选择如下的按钮，可以进行属性修改。添加两个 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