sapabap采购订单报表

《sapabap采购订单报表》由会员分享，可在线阅读，更多相关《sapabap采购订单报表（7页珍藏版）》请在装配图网上搜索。

1、*&-*& Report ZMM_TEST01*& Author: 杨路*&-*&*&*&-*REPORT ZMM_TEST01.TABLES:EKKO,EKPO,EKET,MAKT.TYPE-POOLS: SLIS.类似 .net引入命名空间*-*Define types*-*TYPES: BEGIN OF TYP_LIST,BUKRS TYPE EKKO-BUKRS,EKORG TYPE EKKO-EKORG,EKGRP TYPE EKKO-EKGRP,EBELN TYPE EKKO-EBELN,EBELP TYPE EKPO-EBELP,MATNR TYPE MAKT-MATNR,MAK

2、TX TYPE MAKT-MAKTX,MENGE TYPE EKPO-MENGE,MEINS TYPE EKPO-MEINS,NETPR TYPE EKPO-NETPR,WAERS TYPE EKKO-WAERS,EINDT TYPE EKET-EINDT,END OF TYP_LIST.*-*Define data*-*DATA: GTD_DATA TYPE STANDARD TABLE OF TYP_LIST, GTH_DATA TYPE TYP_LIST.DATA: GTD_TITLE TYPE SLIS_T_LISTHEADER,GTH_TITLE TYPE SLIS_LISTHEAD

3、ER.DATA: GTD_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, GTH_FIELDCAT TYPE SLIS_FIELDCAT_ALV.DATA: GTH_LAYOUT TYPE SLIS_LAYOUT_ALV.DATA: GD_SPRAS TYPE SPRAS.data P_DATUM type d.*-*selection-screen*-*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.SELECT-OPTIONS:S_LLIEF FOR EKKO-LLIEF,S_EBELN FOR

4、 EKKO-EBELN,S_MATNR FOR EKPO-MATNR ,S_AEDAT for EKKO-AEDAT OBLIGATORY.SELECTION-SCREEN END OF BLOCK B1.INITIALIZATION.P_DATUM = sy-datum.P_DATUM+6(2) = 01.P_DATUM = P_DATUM .S_AEDAT-low = P_DATUM.S_AEDAT-high = sy-datum .APPEND S_AEDAT.*-*START-OF-SELECTION*-*&-*&Form SUB_GET_DATA*&-* text*-*FORM SU

5、B_GET_DATA .*-SELECT HEADER DATASELECTEKKOBUKRSEKKOEKORGEKKOEKGRPEKKOEBELNEKPOEBELPMAKTMATNRMAKTMAKTXEKPOMENGEEKPOMEINSEKPONETPREKKOWAERSEKETEINDTINTO CORRESPONDING FIELDS OF TABLE GTD_DATA FROM EKKOINNER JOIN EKPO ON EKKOEBELN = EKPOEBELN LEFT JOIN EKET ON EKPOEBELN = EKETEBELN AND EKPOEBELP = EKET

6、EBELPLEFT JOIN MAKT ON EKPOMATNR = MAKTMATNR WHERE EKKOAEDAT in S_AEDATAND EKKOLLIEF IN S_LLIEFAND EKKOEBELN IN S_EBELNAND EKPOMATNR IN S_MATNR.ENDFORM.*&-*&Form SUB_TITLE*&-* text*-*FORM SUB_TITLE.REFRESH GTD_TITLE.CLEAR GTH_TITLE.PERFORM SUB_SET_TITLE USING H 采购订单报表 .PERFORM SUB_SET_TITLE USING S

7、日期 : SY-DATUM.PERFORM SUB_SET_TITLE USING S 作者 : SY-UNAME.ENDFORM.SET_TITLE*&-*&Form sub_field*&-* text*-*-p1text*-p2text*-*FORM SUB_FIELD .* PERFORM SUB_SET_FIELD USING 1 CHECK_BOX GTD_DATA 1*选取 X X .PERFORM SUB_SET_FIELD USING 1BUKRS GTD_DATA 10公司代码 X .PERFORM SUB_SET_FIELD USING 2EKORG GTD_DATA 4

8、采购组织 X .PERFORM SUB_SET_FIELD USING 3EKGRP GTD_DATA 3采购组.PERFORM SUB_SET_FIELD USING 4EBELN GTD_DATA 4采购凭证号 .PERFORM SUB_SET_FIELD USING 5EBELP GTD_DATA 3项目编号 .PERFORM SUB_SET_FIELD USING 6MATNRGTD_DATA 10物料号.PERFORM SUB_SET_FIELD USING 7MAKTXGTD_DATA 5物料描述 X .PERFORM SUB_SET_FIELD USING 8MENGE GTD_

9、DATA 18数量 X .PERFORM SUB_SET_FIELD USING 9MEINS GTD_DATA 40单位 .PERFORM SUB_SET_FIELD USING 10 NETPR GTD_DATA 9价格 .PERFORM SUB_SET_FIELD USING 11WAERS GTD_DATA 4货币 .PERFORM SUB_SET_FIELD USING 12EINDT GTD_DATA 17交货日期 .ENDFORM. sub_field*&-*&Form sub_set_layout*&-* 设置 ALV列表显示的布局*&-*FORM SUB_SET_LAYOUT

10、.CLEAR GTH_LAYOUT.GTH_LAYOUT-COLWIDTH_OPTIMIZE = X. 设置为最适合的布局 GTH_LAYOUT-ZEBRA = X.ENDFORM. sub_set_layout*&-*&Form set_pf_status*&-* AVL STATUS*&-*FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.SET TITLEBAR PO2.设置报表标题SET PF-STATUS ZSTATUS2 .设置工具栏等ENDFORM.set_pf_status*&-*&Form sub_display*&-*t

11、ext*-*FORM SUB_DISPLAY .PERFORM SUB_TITLE.PERFORM SUB_FIELD.PERFORM SUB_SET_LAYOUT.CALL FUNCTION REUSE_ALV_GRID_DISPLAYEXPORTINGI_CALLBACK_PROGRAM= SY-CPROGI_CALLBACK_TOP_OF_PAGE= ALV_TOP_OF_PAGEI_CALLBACK_PF_STATUS_SET = SET_PF_STATUSI_CALLBACK_USER_COMMAND = USER_COMMAND_ALVIT_FIELDCAT= GTD_FIELDC

12、ATIS_LAYOUT= GTH_LAYOUTTABLEST_OUTTAB= GTD_DATAEXCEPTIONSPROGRAM_ERROR= 1OTHERS= 2.内表IF SY-SUBRC 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.ENDFORM.SUB_DISPLAY*&-*&Form alv_top_of_page*&-*ALV列表抬头的设定*&-*FORM ALV_TOP_OF_PAGE.CALL FUNCTION REUSE_A

13、LV_COMMENTARY_WRITEEXPORTINGIT_LIST_COMMENTARY = GTD_TITLE.ENDFORM.alv_top_of_page*&-*&Form user_command_alv*&-*ALV用户事件*&-*&-*&Form sub_clear*&-* text*-*FORM SUB_CLEAR .FREE: GTD_DATA,GTH_DATA.ENDFORM. sub_clear*&-*&Form sub_set_title*&-*ALV列表抬头信息的属性设置*&-* - i_typ输出的类型* - i_key文本* - i_info数值*&-*FORM

14、 SUB_SET_TITLE USING I_TYP TYPE ANYI_KEY TYPE ANYI_INFO TYPE ANY.CLEAR GTH_TITLE.GTH_TITLE-TYP = I_TYP.GTH_TITLE-KEY = I_KEY.GTH_TITLE-INFO = I_INFO.APPEND GTH_TITLE TO GTD_TITLE.输出的类型文本数值ENDFORM.sub_set_title*&-*&Form sub_set_field*&-*设置 ALV字段的属性*&-* -i_pos显示列的位置* -i_fieldname内表的字段名* -i_tabname内表名*

15、 -i_box显示复选框* -i_edit是否为可输入* -i_key设置主键* -i_hotspot单击控制* -i_outputlen控制输出列的宽度* -i_seltext设置列的名称* -i_edit可编辑*&-*FORM SUB_SET_FIELD USING I_POS TYPE ANYI_FIELDNAME TYPE ANYI_TABNAME TYPE ANYI_KEY TYPE ANYI_OUTPUTLEN TYPE ANYI_SELTEXT TYPE ANYI_EDIT TYPE ANYI_BOX TYPE ANYI_NO_ZERO TYPE ANY.GTH_FIELDCAT

16、-COL_POS = I_POS.显示列的位置GTH_FIELDCAT-FIELDNAME = I_FIELDNAME.内表的字段名GTH_FIELDCAT-TABNAME = I_TABNAME.内表名GTH_FIELDCAT-KEY = I_KEY.设置主键GTH_FIELDCAT-OUTPUTLEN = I_OUTPUTLEN.控制输出列的宽度GTH_FIELDCAT-SELTEXT_M = I_SELTEXT.设置列的名称GTH_FIELDCAT-EDIT = I_EDIT.GTH_FIELDCAT-CHECKBOX = I_BOX.GTH_FIELDCAT-NO_ZERO = I_NO_ZERO.APPEND GTH_FIELDCAT TO GTD_FIELDCAT.CLEAR GTH_FIELDCAT.ENDFORM.sub_set_field