smartforms-采购订单报表

*&---------------------------------------------------------------------*
*& 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.