SAP_ABAP学习实例讲解part3VIP免费

第八章ALV控件的使用ALV（SAPListViewer）控件是SAP业务中最常用的控件之一，本章先用一个简单的例子介绍用ALV控件显示数据，再以实例方式介绍ALV的强大功能，示例程序可以直接使用。本章主要内容有：（）简单的ALV控件实例；（）自定义输出字段的ALV控件实例；（）在屏幕上建立ALV控件；（）自定义ALV控件的工具条按钮；（）处理ALV控件双击事件；（）通过ALV控件编辑内表和数据库更新；（）ALVTree的使用。8.1简单的ALV控件实例以航班表（SPFLI）为例，使用数据字典定义结构，通过ALV控件显示数据。【例8.1】REPORTYTEST26.*定义内表DATAWA_SPFLILIKETABLEOFSPFLIWITHHEADERLINE.*内表赋值SELECT*INTOTABLEWA_SPFLIFROMSPFLI.*通过数据字典结构显示ALVCALLFUNCTION'REUSE_ALV_LIST_DISPLAY'EXPORTINGI_STRUCTURE_NAME='SPFLI'TABLEST_OUTTAB=WA_SPFLIEXCEPTIONSPROGRAM_ERROR=1OTHERS=2.IFSY-SUBRC<>0.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.输出结果如图8-1所示。图8-18.2自定义输出字段的ALV控件实例【例8.2】REPORTYTEST27.*ALV使用到的类库TYPE-POOLS:SLIS.*一列描述DATAWA_ALV_FIELDTYPESLIS_FIELDCAT_ALV.*列描述内表，列清单DATAWA_ALV_FIELDCATTYPESLIS_T_FIELDCAT_ALV.*定义内表DATAWA_SPFLILIKETABLEOFSPFLIWITHHEADERLINE.*内表赋值SELECT*INTOTABLEWA_SPFLIFROMSPFLI.*定义第一到第四个字段WA_ALV_FIELD-COL_POS=1.WA_ALV_FIELD-FIELDNAME='CARRID'.WA_ALV_FIELD-SELTEXT_M='航线承运人'.APPENDWA_ALV_FIELDTOWA_ALV_FIELDCAT.WA_ALV_FIELD-COL_POS=2.WA_ALV_FIELD-FIELDNAME='CONNID'.WA_ALV_FIELD-SELTEXT_M='航班连接'.APPENDWA_ALV_FIELDTOWA_ALV_FIELDCAT.WA_ALV_FIELD-COL_POS=3.WA_ALV_FIELD-FIELDNAME='CITYFROM'.WA_ALV_FIELD-SELTEXT_M='起飞城市'.APPENDWA_ALV_FIELDTOWA_ALV_FIELDCAT.WA_ALV_FIELD-COL_POS=4.WA_ALV_FIELD-FIELDNAME='CITYTO'.WA_ALV_FIELD-SELTEXT_M='目标城市'.APPENDWA_ALV_FIELDTOWA_ALV_FIELDCAT.*调用ALV显示表单数据CALLFUNCTION'REUSE_ALV_LIST_DISPLAY'EXPORTING*I_INTERFACE_CHECK=''*I_BYPASSING_BUFFER=*I_BUFFER_ACTIVE=''*I_CALLBACK_PROGRAM=''*I_CALLBACK_PF_STATUS_SET=''*I_CALLBACK_USER_COMMAND=''*I_STRUCTURE_NAME=*IS_LAYOUT=IT_FIELDCAT=WA_ALV_FIELDCAT*IT_EXCLUDING=*IT_SPECIAL_GROUPS=*IT_SORT=*IT_FILTER=*IS_SEL_HIDE=*I_DEFAULT='X'*I_SAVE=''*IS_VARIANT=*IT_EVENTS=*IT_EVENT_EXIT=*IS_PRINT=*IS_REPREP_ID=*I_SCREEN_START_COLUMN=0*I_SCREEN_START_LINE=0*I_SCREEN_END_COLUMN=0*I_SCREEN_END_LINE=0*IMPORTING*E_EXIT_CAUSED_BY_CALLER=*ES_EXIT_CAUSED_BY_USER=TABLEST_OUTTAB=WA_SPFLI*EXCEPTIONS*PROGRAM_ERROR=1*OTHERS=2.IFSY-SUBRC<>0.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.输出结果如图8-2所示。图8-28.3在屏幕上建立ALV控件8.3.1定义SCREEN窗口如图8-3所示，在屏幕上创建两个文本元素控件、一个退出按钮控件、一个定制控制控件图8-38.3.2定义逻辑流逻辑流程序：*逻辑流*PBO显示屏幕前的处理PROCESSBEFOREOUTPUT.MODULESTATUS_0100.*PAI用户输入后的处理PROCESSAFTERINPUT.MODULEUSER_COMMAND_0100.主程序：REPORTYTEST28.*功能码返回值DATA:OK_CODETYPESY-UCOMM,SAVE_OKTYPESY-UCOMM.*定义内表，变量需要传递，不加HEADERLINEDATAWA_SPFLITYPETABLEOFSPFLI.*内表赋值SELECT*INTOTABLEWA_SPFLIFROMSPFLI.*ALVDATA是屏幕100中定义控制控件的名称DATA:WA_CONTAINERTYPESCRFNAMEVALUE'ALVDATA',ALV_GRIDTYPEREFTOCL_GUI_ALV_GRID,WA_CUSTOM_CONTAINERTYPEREFTOCL_GUI_CUSTOM_CONTAINER.*直接调用窗口CALLSCREEN100.*&---------------------------------------------------------------------**&ModuleSTATUS_0100OUTPUT*&---------------------------------------------------------------------**text*----------------------------------------------------------------------*MOD...