批导BOM BAPI测试

DATA: lv_aennr LIKE csap_mbom-aennr. "Change Number
DATA: lv_matnr LIKE csap_mbom-matnr VALUE 'ML-TG13', "Bom material
      lv_plant LIKE csap_mbom-werks VALUE '1710',
      lv_usage LIKE csap_mbom-stlan VALUE '1',       "BOM usage
      lv_stlal LIKE csap_mbom-stlal VALUE '1'.       "Alternative BOM
DATA: gs_stko LIKE stko_api01,                       "header data
      lv_fl   LIKE capiflag-flwarning,
      lv_bom  LIKE stko_api02,
      bom_no  LIKE stko_api02-bom_no,
      lv_date LIKE csap_mbom-datuv.

lv_date = sy-datum. "System dates cannot be used directly

DATA: gs_item LIKE TABLE OF stpo_api01 WITH HEADER LINE.
DATA: lt_dep_data	  LIKE TABLE OF	csdep_dat,
      lt_dep_descr  LIKE TABLE OF csdep_desc,
      lt_dep_order  LIKE TABLE OF csdep_ord,
      lt_dep_source LIKE  TABLE OF csdep_sorc,
      lt_dep_doc    LIKE TABLE OF csdep_doc,
      lt_ltx_line	  LIKE TABLE OF	csltx_line,
      lt_stpu	      LIKE TABLE OF	stpu_api01,
      lt_fsh_bomd	  TYPE TABLE OF	fsh_tt_bomvd_api,
      lt_sgt_bomc	  TYPE TABLE OF	sgt_comp_segment_t,
      gt_item       LIKE TABLE OF   stpo_api03 WITH HEADER LINE.
*head data
gs_stko-base_quan = '1'.
gs_stko-base_unit = 'PC'.
gs_stko-bom_status = '01'.
*create bom item data
*gs_item-item_categ = 'L'.
*gs_item-item_no = '0010'.
*gs_item-component = 'TKW_1015'.
*gs_item-comp_qty  = '1'.
*gs_item-comp_unit = 'EA'.
*APPEND gs_item.
*
*CALL FUNCTION 'CSAP_MAT_BOM_CREATE'
*  EXPORTING
*    material   = lv_matnr
*    plant      = lv_plant
*    bom_usage  = lv_usage
*    valid_from = lv_date
*    i_stko     = gs_stko
*  IMPORTING
*    bom_no     = bom_no
*  TABLES
*    t_stpo     = gs_item
*  EXCEPTIONS
*    error      = 1
*    OTHERS     = 2.

cl_demo_output=>display_data( bom_no ).
*maintain bom data
gt_item-item_categ = 'L'.
*gt_item-item_no = '0030'.  "Maintenance may not be added
gt_item-component = 'MZ-PROC-MC-AD-3102'.
gt_item-comp_qty  = '1'.
gt_item-comp_unit = 'EA'.
APPEND gt_item.
CALL FUNCTION 'CSAP_MAT_BOM_MAINTAIN'
  EXPORTING
    material           = lv_matnr
    plant              = lv_plant
    bom_usage          = lv_usage
    alternative        = lv_stlal
    valid_from         = lv_date
    change_no          = lv_aennr
    i_stko             = gs_stko
    fl_commit_and_wait = 'X'
    fl_bom_create      = 'X'
    fl_new_item        = 'X'
    fl_complete        = 'X'
  IMPORTING
    fl_warning         = lv_fl
    o_stko             = lv_bom
  TABLES
    t_stpo             = gt_item
  EXCEPTIONS
    error              = 1
    OTHERS             = 2.