sap_abap采购订单报表.docVIP

** * 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, 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_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_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. ** * START-OF-SELECTION ** START-OF-SELECTION. PERFORM SUB_GET_DATA. PERFORM SUB_DISPLAY. PERFORM SUB_CLEAR. ** * Form SUB_GET_DATA ** * text ** FORM SUB_GET_DATA . *SELECT HEADER DATA SELECT EKKO~BUKRS EKKO~EKORG EKKO~EKGRP EKKO~EBELN EKPO~EBELP MAKT~MATNR MAKT~MAKTX EKPO~MENGE EKPO~MEINS EKPO~NETPR EKKO~WAERS EKET~EINDT INTO CORRESPONDING FIELDS OF TABLE GTD_DATA FROM EKKO INNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELN LEFT JOIN EKET ON EKPO~EBELN = EKET~EBELN AND EKPO~EBELP = EKET~EBELP