*&---------------------------------------------------------------------* *& Report Z013 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT Z013. DATA I_HEADER TYPE ZSPURPCHERS_HEADER. DATA I_ITEM TYPE TABLE OF ZSPURPCHERS_ITEM. DATA WA TYPE ZSPURPCHERS_ITEM. I_HEADER-EBELN = '4500000020'. I_HEADER-BUKRS = '8000'. I_HEADER-BSART = 'NB'. I_HEADER-LIFNR = 'JD'. I_HEADER-BATXT = '标准'. I_HEADER-NAME_FIRST = '京东商城'. WA-EBELP = '10'. WA-MATNR = 'A01'. WA-MAKTX = '金士顿 (Kingston) FURY 64GB'. WA-MENGE = '100'. WA-WERKS = '8010'. WA-LGORT = 'R11'. WA-LGOBE = '原材料仓'. WA-MEINS = 'EA'. APPEND WA TO I_ITEM. WA-EBELP = '20'. WA-MATNR = 'A01'. WA-MAKTX = '金士顿 (Kingston) FURY 64GB'. WA-MENGE = '100'. WA-WERKS = '8010'. WA-LGORT = 'R11'. WA-LGOBE = '原材料仓'. WA-MEINS = 'EA'. APPEND WA TO I_ITEM. WA-EBELP = '30'. WA-MATNR = 'A01'. WA-MAKTX = '金士顿 (Kingston) FURY 64GB'. WA-MENGE = '100'. WA-WERKS = '8010'. WA-LGORT = 'R11'. WA-LGOBE = '原材料仓'. WA-MEINS = 'EA'. APPEND WA TO I_ITEM. DATA FM_NAME TYPE RS38L_FNAM. CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING FORMNAME = 'Z003' * VARIANT = ' ' * DIRECT_CALL = ' ' IMPORTING FM_NAME = FM_NAME * EXCEPTIONS * NO_FORM = 1 * NO_FUNCTION_MODULE = 2 * OTHERS = 3 . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. CALL FUNCTION FM_NAME EXPORTING * ARCHIVE_INDEX = * ARCHIVE_INDEX_TAB = * ARCHIVE_PARAMETERS = * CONTROL_PARAMETERS = * MAIL_APPL_OBJ = * MAIL_RECIPIENT = * MAIL_SENDER = * OUTPUT_OPTIONS = * USER_SETTINGS = 'X' I_HEADER = I_HEADER * IMPORTING * DOCUMENT_OUTPUT_INFO = * JOB_OUTPUT_INFO = * JOB_OUTPUT_OPTIONS = TABLES IT_ITEM = I_ITEM * EXCEPTIONS * FORMATTING_ERROR = 1 * INTERNAL_ERROR = 2 * SEND_ERROR = 3 * USER_CANCELED = 4 * OTHERS = 5 . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF.