sap abap采購(gòu)訂單報(bào)表

1、.：.；*&*& Report ZMM_TEST01*& Author: 楊路*&*&*&*&*REPORT ZMM_TEST01.TABLES:EKKO,EKPO,EKET,MAKT.TYPE-POOLS: SLIS. 類(lèi)似.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 采購(gòu)訂單報(bào)表. 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 采購(gòu)組織 X . PERFORM SUB_SET_FIELD USING 3 EKGRP GTD_DATA 3 采購(gòu)組 . PERFORM SUB_SET_FIELD USING 4 EBELN GTD_DATA 4 采購(gòu)憑證號(hào) . PERFORM SUB_SET_FIELD USING 5 EBELP GTD_DATA 3 工程編號(hào) . PERFORM SU

9、B_SET_FIELD USING 6 MATNR GTD_DATA 10 物料號(hào) . PERFORM SUB_SET_FIELD USING 7 MAKTX GTD_DATA 5 物料描畫(huà) X . PERFORM SUB_SET_FIELD USING 8 MENGE GTD_DATA 18 數(shù)量 X . PERFORM SUB_SET_FIELD USING 9 MEINS GTD_DATA 40 單位 . PERFORM SUB_SET_FIELD USING 10 NETPR GTD_DATA 9 價(jià)錢(qián) . 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*&* 設(shè)置ALV列表顯示的規(guī)劃*&*FORM SUB_SET_LAYOUT. CLEAR GTH_LAYOUT. GTH_LAYOUT-COLWIDTH_OPTIMIZE = X. 設(shè)置為最適宜的規(guī)劃 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. 設(shè)置報(bào)表標(biāo)題 SET PF-STATUS ZSTATUS2 . 設(shè)置工具欄等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 內(nèi)表 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列表抬頭的設(shè)定*&*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、戶(hù)事件*&*&*& Form sub_clear*&* text*FORM SUB_CLEAR . FREE: GTD_DATA, GTH_DATA.ENDFORM. sub_clear*&*& Form sub_set_title*&* ALV列表抬頭信息的屬性設(shè)置*&* - i_typ 輸出的類(lèi)型* - i_key 文本* - i_info 數(shù)值*&*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. 輸出的類(lèi)型 GTH

15、_TITLE-KEY = I_KEY. 文本 GTH_TITLE-INFO = I_INFO. 數(shù)值 APPEND GTH_TITLE TO GTD_TITLE.ENDFORM. sub_set_title*&*& Form sub_set_field*&* 設(shè)置ALV字段的屬性*&* -i_pos 顯示列的位置* -i_fieldname 內(nèi)表的字段名* -i_tabname 內(nèi)表名* -i_box 顯示復(fù)選框* -i_edit 能否為可輸入* -i_key 設(shè)置主鍵* -i_hotspot 單擊控制* -i_outputlen 控制輸出列的寬度* -i_seltext 設(shè)置列的稱(chēng)號(hào)* -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. 內(nèi)表的字段名 GTH_FIELDCAT-TABNAME = I_TABNAME. 內(nèi)表名 GTH_FIELDCAT-KEY = I_KEY. 設(shè)置主鍵 GTH_FI