sap abap采购订单报表

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

2、, MAKTX 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

3、_LISTHEADER.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_E

4、BELN FOR 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*START-OF-SELECTION. PERFORM

5、 SUB_GET_DATA. PERFORM SUB_DISPLAY. PERFORM SUB_CLEAR.*&*& Form SUB_GET_DATA*&* text*FORM SUB_GET_DATA .*SELECT HEADER DATASELECT EKKOBUKRS EKKOEKORG EKKOEKGRP EKKOEBELN EKPOEBELP MAKTMATNR MAKTMAKTX EKPOMENGE EKPOMEINS EKPONETPR EKKOWAERS EKETEINDT INTO CORRESPONDING FIELDS OF TABLE GTD_DATA FROM E

6、KKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN LEFT JOIN EKET ON EKPOEBELN = EKETEBELN AND EKPOEBELP = EKETEBELP LEFT JOIN MAKT ON EKPOMATNR = MAKTMATNR WHERE EKKOAEDAT in S_AEDAT AND EKKOLLIEF IN S_LLIEF AND EKKOEBELN IN S_EBELN AND EKPOMATNR IN S_MATNR.ENDFORM.*&*& Form SUB_TITLE*&* text*FORM SUB_TI

7、TLE. REFRESH GTD_TITLE. CLEAR GTH_TITLE. PERFORM SUB_SET_TITLE USING H 采购订单报表. PERFORM SUB_SET_TITLE USING S 日期 : SY-DATUM. PERFORM SUB_SET_TITLE USING S 作者 : SY-UNAME.ENDFORM. SET_TITLE*&*& Form sub_field*&* text* - p1 text* - p2 text*FORM SUB_FIELD .* PERFORM SUB_SET_FIELD USING 1 CHECK_BOX GTD_DA

8、TA 1* 选取 X X . PERFORM SUB_SET_FIELD USING 1 BUKRS GTD_DATA 10 公司代码 X . PERFORM SUB_SET_FIELD USING 2 EKORG GTD_DATA 4 采购组织 X . PERFORM SUB_SET_FIELD USING 3 EKGRP GTD_DATA 3 采购组 . PERFORM SUB_SET_FIELD USING 4 EBELN GTD_DATA 4 采购凭证号 . PERFORM SUB_SET_FIELD USING 5 EBELP GTD_DATA 3 工程编号 . PERFORM SU

9、B_SET_FIELD USING 6 MATNR GTD_DATA 10 物料号 . PERFORM SUB_SET_FIELD USING 7 MAKTX GTD_DATA 5 物料描画 X . PERFORM SUB_SET_FIELD USING 8 MENGE GTD_DATA 18 数量 X . PERFORM SUB_SET_FIELD USING 9 MEINS GTD_DATA 40 单位 . PERFORM SUB_SET_FIELD USING 10 NETPR GTD_DATA 9 价钱 . PERFORM SUB_SET_FIELD USING 11 WAERS GT

10、D_DATA 4 货币 . PERFORM SUB_SET_FIELD USING 12 EINDT GTD_DATA 17 交货日期 .ENDFORM. sub_field*&*& Form sub_set_layout*&* 设置ALV列表显示的规划*&*FORM SUB_SET_LAYOUT. CLEAR GTH_LAYOUT. GTH_LAYOUT-COLWIDTH_OPTIMIZE = X. 设置为最适宜的规划 GTH_LAYOUT-ZEBRA = X.ENDFORM. sub_set_layout*&*& Form set_pf_status*&* AVL STATUS*&*FOR

11、M SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB. SET TITLEBAR PO2. 设置报表标题 SET PF-STATUS ZSTATUS2 . 设置工具栏等ENDFORM. set_pf_status*&*& Form sub_display*&* text*FORM SUB_DISPLAY . PERFORM SUB_TITLE. PERFORM SUB_FIELD. PERFORM SUB_SET_LAYOUT. CALL FUNCTION REUSE_ALV_GRID_DISPLAY EXPORTING I_CALLBACK_PRO

12、GRAM = SY-CPROG I_CALLBACK_TOP_OF_PAGE = ALV_TOP_OF_PAGE I_CALLBACK_PF_STATUS_SET = SET_PF_STATUS I_CALLBACK_USER_COMMAND = USER_COMMAND_ALV IT_FIELDCAT = GTD_FIELDCAT IS_LAYOUT = GTH_LAYOUT TABLES T_OUTTAB = GTD_DATA 内表 EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. IF SY-SUBRC 0. MESSAGE ID SY-MSGID TYP

13、E 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_ALV_COMMENTARY_WRITE EXPORTING IT_LIST_COMMENTARY = GTD_TITLE.ENDFORM. alv_top_of_page*&*& Form user_command_alv*&* ALV 用

14、户事件*&*&*& 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 SUB_SET_TITLE USING I_TYP TYPE ANY I_KEY TYPE ANY I_INFO TYPE ANY. CLEAR GTH_TITLE. GTH_TITLE-TYP = I_TYP. 输出的类型 GTH

15、_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 内表名* -i_box 显示复选框* -i_edit 能否为可输入* -i_key 设置主键* -i_hotspot 单击控制* -i_outputlen 控制输出列的宽度* -i_seltext 设置列的称号* -i

16、_edit 可编辑*&*FORM SUB_SET_FIELD USING I_POS TYPE ANY I_FIELDNAME TYPE ANY I_TABNAME TYPE ANY I_KEY TYPE ANY I_OUTPUTLEN TYPE ANY I_SELTEXT TYPE ANY I_EDIT TYPE ANY I_BOX TYPE ANY I_NO_ZERO TYPE ANY. GTH_FIELDCAT-COL_POS = I_POS. 显示列的位置 GTH_FIELDCAT-FIELDNAME = I_FIELDNAME. 内表的字段名 GTH_FIELDCAT-TABNAME = I_TABNAME. 内表名 GTH_FIELDCAT-KEY = I_KEY. 设置主键 GTH_FI