程序创建更改主记录并添加WBS元素BOM

调用CCAP_ECN_CREATE实现该功能。

REPORT  ZTEST.

"if sy-datum = '20160110'.
  " update tadir set srcsystem = 'DEV' where srcsystem = 'DV1'.
   "commit work.
"endif.

  DATA: LS_CHANGE_HEADER  TYPE AENR_API01.
   DATA: LS_RETURN_MSG     TYPE BAPIRET2.
   DATA: LS_OBJECT_BOM_MAT TYPE AENV_API01..
   DATA: LS_OBJECT_BOM_psp TYPE AENV_API01..
   DATA: LS_OBJECT_DOC     TYPE AENV_API01.
   DATA: LV_MATERIAL       TYPE MATNR.
   DATA: LV_CHANGE_NO      TYPE AENNR.
   DATA: LT_OBJMGREC       TYPE STANDARD TABLE OF AEOI_API01.
   DATA: LS_OBJMGREC       TYPE AEOI_API01.

   DATA: LT_EFFECTIVITY    TYPE STANDARD TABLE OF AEEF_API01.
   DATA: LS_EFFECTIVITY    TYPE AEEF_API01.
*


     LS_CHANGE_HEADER-CHANGE_NO = 'A-4008057012'.   "eco编号
     LS_CHANGE_HEADER-STATUS    = '01'."激活的
*  ls_change_header-function  = '1'."有释放码
     LS_CHANGE_HEADER-REASON_CHG = 'ljcTest' . "更改原因
     LS_CHANGE_HEADER-DESCRIPT  =  '刘金才测试'. "更改号描述
     LS_CHANGE_HEADER-VALID_FROM = sy-datum.  "有并行起始日期

     LS_OBJECT_BOM_MAT-ACTIVE      = 'X'.
     LS_OBJECT_BOM_MAT-OBJ_REQU    = 'X'.
     LS_OBJECT_BOM_MAT-MGTREC_GEN  = 'X'.
     LS_OBJECT_BOM_MAT-GEN_NEW     = 'X'.


     CLEAR LS_OBJMGREC.
     LS_OBJMGREC-BOM_USAGE   = '1'.   "BOM 用途
     LS_OBJMGREC-MATERIAL = '000000000000001223'.
     LS_OBJMGREC-PLANT = '2000'.
     LS_OBJMGREC-PSP_ELEMENT = 'A-1005-D-001'.
    LS_OBJMGREC-BOM_CAT     = 'P'.
     LS_OBJMGREC-CHG_OBJTYP  = '1'.  "工程更改管理对象\
     LS_OBJMGREC-DESCR_OBJ = 'LIUJINCAI '.
     INSERT LS_OBJMGREC INTO TABLE LT_OBJMGREC.

     CALL FUNCTION 'CCAP_ECN_CREATE'
        EXPORTING
          CHANGE_HEADER                  = LS_CHANGE_HEADER
          OBJECT_BOM                     = LS_OBJECT_BOM_MAT
          OBJECT_BOM_MAT                 = LS_OBJECT_BOM_MAT
          OBJECT_BOM_PSP                 = LS_OBJECT_BOM_MAT
          FL_COMMIT_AND_WAIT             = 'X'
        IMPORTING
          CHANGE_NO                      = LV_CHANGE_NO
        TABLES
          OBJMGREC                       = LT_OBJMGREC
          EFFECTIVITY                    = LT_EFFECTIVITY
        EXCEPTIONS
          CHANGE_NO_ALREADY_EXISTS       = 1
          ERROR                          = 2
          OTHERS                         = 3

      .
      IF SY-SUBRC = 0.
         WRITE 'ok'.
      ELSE.
         WRITE SY-SUBRC.
      ENDIF.