*&---------------------------------------------------------------------*
*& 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.
标签：FUNCTION,smartforms,HEADER,报表,WA,ITEM,订单,OUTPUT,NAME From： https://www.cnblogs.com/hua900822/p/17347812.html