1、1 / 26*&- *& Report ZMM_TEST01*& Author:楊路*&-*&*&*&-*REPORT ZMM_TEST01.TABLES:EKKO,EKPO,EKET,MAKT.TYPE-POOLSS: LIS.命名空間類似.net引入2 / 26*_* Define types*-TYPES: BEGIN OF TYP_LIST,BUKRS TYPE EKKO-BUKRS,EKORG TYPE EKKO-EKORG,EKGRP TYPE EKKO-EKGRP,EBELN TYPE EKKO-EBELN,EBELP TY

2、PE EKPO-EBELP,MATNR TYPE MAKT-MATNR,MAKTX TYPE MAKT-MAKTX,MENGE TYPE EKPO-MENGE,3 / 26MEINS 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 SL

3、IS_T_LISTHEADER,4 / 26GTH_TITLE TYPE SLIS_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 TITLETEXT-00

4、1.5 / 26SELECT-OPTIONS:S_LLIEF FOR EKKO-LLIEF,S_EBELN 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.*_6 / 2

5、6_ * START-OF-SELECTION*_ *START-OF-SELECTION.PERFORM SUB_GET_DATA.PERFORM SUB_DISPLAY.PERFORM SUB_CLEAR.*&- *& Form SUB_GET_DATA*&-* text7 / 26FORM SUB_GET_DATA .*-SELECT HEADER DATASELECTEKKOBUKRSEKKOEKORGEKKOEKGRPEKKOEBELNEKPOEBELPMAKTMATNRMAKTMAKTXEKPOMENGEEKPOMEINSEKPONETPREKKOWAERS

6、EKETEINDT8 / 26INTO CORRESPONDING FIELDS OF TABLE GTD_DATAFROM EKKOINNER JOIN EKPO ON EKKOEBELN = EKPOEBELNLEFT JOIN EKET ON EKPOEBELN = EKETEBELNAND EKPOEBELP = EKETEBELPLEFT JOIN MAKT ON EKPOMATNR = MAKTMATNRWHERE EKKOAEDAT in S_AEDATAND EKKOLLIEF IN S_LLIEFAND EKKOEBELN IN S_EBELNAND EKPOMATNR IN

7、 S_MATNR.ENDFORM.*&-*& Form SUB_TITLE9 / 26*&-* text*-*FORM SUB_TITLE.REFRESH GTD_TITLE.CLEAR GTH_TITLE.10 / 26PERFORM 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-

8、p1text采購訂單報11 / 26- p2textFORM SUB_FIELD .* PERFORM SUB_SET_FIELD USING 1 CHECK_BOXGTD_DATA 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 .12 / 26PERFORM SUB_SET_FIELD USING 3 EKGRP GTD_DATAPERFORM SUB_SET_FIELD USING采購憑證號 PERFORM SUB_SET_FIELD USINGPERFORM