如何在SAP的Screen中编写List报表
1、相关命令LEAVE TO LIST-PROCESSING [AND RETURN TO SCREEN <nnnn>].LEAVE LIST-PROCESSING.2、使用说明3、推荐设计思路设计一个空屏幕,在需要调用list的屏幕的逻辑流中使用CALL SCREEN调用空屏幕。空屏幕的next screen设置为0,不需要PAI,只需要在PBO中设计一个Module,这个module的具体步骤如下:- 首先调用LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
- 为list设置GUI status ;如:设置SPACE 或者为自己定义的.
- 使用下列语句使空屏幕不输出:SUPPRESS DIALOG.orLEAVE SCREEN.
- 进行List输出和处理.
4、示例
REPORT demo_leave_to_list_processing .TABLES sdyn_conn.DATA: wa_spfli TYPE spfli, flightdate TYPE sflight-fldate.CALL SCREEN 100.MODULE status_0100 OUTPUT. SET PF-STATUS 'SCREEN_100'.ENDMODULE.MODULE cancel INPUT. LEAVE PROGRAM.ENDMODULE.MODULE user_command_0100. CALL SCREEN 500. SET SCREEN 100.ENDMODULE.MODULE call_list_500 OUTPUT. LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0. SET PF-STATUS space. SUPPRESS DIALOG. SELECT carrid connid cityfrom cityto FROM spfli INTO CORRESPONDING FIELDS OF wa_spfli WHERE carrid = sdyn_conn-carrid. WRITE: / wa_spfli-carrid, wa_spfli-connid, wa_spfli-cityfrom, wa_spfli-cityto. HIDE: wa_spfli-carrid, wa_spfli-connid. ENDSELECT. CLEAR: wa_spfli-carrid.ENDMODULE.TOP-OF-PAGE. WRITE text-001 COLOR COL_HEADING. ULINE.TOP-OF-PAGE DURING LINE-SELECTION. WRITE sy-lisel COLOR COL_HEADING. ULINE.AT LINE-SELECTION. CHECK not wa_spfli-carrid is initial. SELECT fldate FROM sflight INTO flightdate WHERE carrid = wa_spfli-carrid AND connid = wa_spfli-connid. WRITE / flightdate. ENDSELECT. CLEAR: wa_spfli-carrid.该示例屏幕100只包含一个输入字段(SDYN_CONN-CARRID ),在屏幕100的逻辑流中会调用list处理.屏幕100的逻辑流如下:PROCESS BEFORE OUTPUT. MODULE STATUS_0100. PROCESS AFTER INPUT. MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0100.在屏幕100的PAI的module USER_COMMAND_100 将使用CALL SCREEN调用屏幕500。屏幕500的逻辑流中封装了所有List处理,屏幕500的逻辑流如下:PROCESS BEFORE OUTPUT. MODULE CALL_LIST_500. PROCESS AFTER INPUT.屏幕500的PBO的module CALL_LIST_500定义了list处理代码。另外由于屏幕500的屏幕流设置为0,该程序从List处理返回时到屏幕100的USER_COMMAND_100的调用CALL SCREEN 500的语句之后. 该程序会在list处理时显示一个明细List,具体代码参见AT LINE-SELECTION、TOP-OF-PAGE 和 TOP-OF-PAGE DURING LINE-SELECTION事件代码.LIST-PROCESSING命令的使用List-Processing用于在程序中任意地方开始List输出,可以放在代码的任何地方。LEAVE TO LIST-PROCESSING 这段命令做两件事:- 切换到List输出模式
在这种模式下,标准的List输出所用到的命令:WRITE, ULINE, SKIP等全部可以使用,还包括AT LINE-SELECTION事件、功能码(Function keys)、20 个list level等。
- 将显示List 输出的屏幕设置为当前调用处的下个屏幕(Following Screen)
程序将离开当前屏幕进入List输出的屏幕,进行接下来的操作,但是Leave screen之后,仍将返回前一个调用Leave to list-processing这条命令屏幕的代码的下一行继续执行。示例代码写在最后了,下面说明一下重要的地方:
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.PERFORM EDIT_LIST.LEAVE SCREEN. 注意这一段代码,第一行的作用前面已经说过了,逻辑将转入下一屏幕(不是普通屏幕,是特殊屏幕)。第二行是一个子程序,在这里面要特别注意的是- 设置STATUS, "SET PF-STATUS 'XXXX'",如果不设置的话,会把调用该语句的屏幕的STATUS继承过去。
- 在设置STATUS之后,用WRITE等命令输出。
- LIST屏幕上的按钮响应目前还没研究明白,明白人请留言,谢谢!
LIST-PROCESSING的工作过程
运行时,MODULE-POOL放弃屏幕的控制权,可以执行LIST 输出代码,如WRITE等。我们可以选择让LIST输出屏幕替代当前屏幕,或者是作为下一个屏幕,但是不管是哪一种方式,LIST输出的屏幕将在当前屏幕逻辑执行完(LEAVE SCREEN或PAI执行完之时)之后显示,也就是说,WRITE等命令仍然是将输出的东西暂存在缓存中。- LIST输出作为下一个屏幕
将LEAVE TO LIST-PROCESSING放在PAI中,当LIST屏幕执行完之后,系统将重新进入当前屏幕PBO逻辑,显示屏幕。
- LIST输出替换当前屏幕
将LEAVE TO LIST-PROCESSING放在PBO中,并以LEAVE SCREEN命令结束当前屏幕逻辑。这种情况下,当前屏幕将被替换,不再显示。
R/3系统中有一个DEMO:可以通过TCODE: TZ70运行。参考: **** ABAP module and form: **** MODULE PREPARE_LIST OUTPUT.LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.PERFORM EDIT_LIST.LEAVE SCREEN.ENDMODULE. FORM EDIT_LIST.SET PF-STATUS 'LIST'.SET TITLEBAR 'LST' WITH SFLIGHT-CONNID SFLIGHT-CARRID.NEW-PAGE LINE-SIZE 72.SELECT * FROM SFLIGHT WHERE CARRID = SFLIGHT-CARRIDAND CONNID = SFLIGHT-CONNID.WRITE: / SY-VLINE NO-GAP,SFLIGHT-FLDATE COLOR 4 INTENSIFIED OFF NO-GAP,SY-VLINE NO-GAP,SFLIGHT-PRICE COLOR 2 INTENSIFIED OFF NO-GAP, .......ENDFORM. LEAVE TO LIST-PROCESSING 是退出其他屏幕后,到List输入的屏幕,例如:WRITE 语句输入的屏幕。LEAVE LIST-PROCESSING是在其他屏幕退出,到List输入屏幕间的动作。