工程變更號的修改生效日期--實例

FUNCTION ZEPE00_CHANGE_ECN .
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(LEAD_CHANGE_NO) TYPE  /PLMB/AENNR OPTIONAL
*"     VALUE(LV_EFFECTIVE_DT) TYPE  CC_DATUV_BI OPTIONAL
*"  EXPORTING
*"     VALUE(EP_SUBRC) TYPE  SY-SUBRC
*"----------------------------------------------------------------------


  DATA:LS_CHANGE_HEADER     TYPE AENR_API01,
       LS_OBJECT_MAT        TYPE AENV_API01,
       LS_OBJECT_BOM_MAT    TYPE AENV_API01,
       LS_OBJECT_DOC        TYPE AENV_API01,
       LS_CHANGE_HEADER_CUS TYPE CCCI_AENR.
  DATA:LT_OBJMGREC LIKE AEOI_API01 OCCURS 0 WITH HEADER LINE.
  DATA:CHANGE_HEADER02 TYPE AENR_API02.

*  DATA: LEAD_CHANGE_NO  TYPE  /PLMB/AENNR.


  "get EC header
  CALL FUNCTION 'CCAP_ECN_HEADER_READ'
    EXPORTING
      CHANGE_NO       = LEAD_CHANGE_NO
    IMPORTING
      CHANGE_HEADER   = CHANGE_HEADER02
    EXCEPTIONS
      NO_RECORD_FOUND = 1
      ERROR           = 2
      OTHERS          = 3.

  MOVE SY-SUBRC TO EP_SUBRC.
  CHECK  EP_SUBRC = 0 .





  DATA: BEGIN OF LS_UOBJ,
          MATERIAL  TYPE MATNR,
          PLANT     TYPE WERKS_D,
          BOM_USAGE TYPE CC_STLAN,
        END OF LS_UOBJ.

  DATA: IT_AEOI LIKE AEOI OCCURS 0 WITH   HEADER LINE.

  SELECT AENNR
        AETYP
        OBJKT
        USOBJ
  INTO CORRESPONDING FIELDS OF TABLE IT_AEOI
    FROM AEOI
    WHERE AENNR = LEAD_CHANGE_NO
    AND AETYP = '02'.

  LOOP AT IT_AEOI.

    MOVE IT_AEOI-USOBJ TO LS_UOBJ.
    MOVE-CORRESPONDING LS_UOBJ TO  LT_OBJMGREC.
    LT_OBJMGREC-BOM_CAT = IT_AEOI-OBJKT+0(1).

    APPEND LT_OBJMGREC.

  ENDLOOP.



  MOVE-CORRESPONDING CHANGE_HEADER02 TO LS_CHANGE_HEADER.
*  LS_CHANGE_HEADER-STATUS       = '01'."#### ###
*  LS_CHANGE_HEADER-FUNCTION    = '1'."####
  LS_CHANGE_HEADER_CUS-XFLAG    = 'X'.
  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'.


  LS_OBJECT_MAT-ACTIVE          = 'X'.
  LS_OBJECT_MAT-OBJ_REQU        = 'X'.
  LS_OBJECT_MAT-MGTREC_GEN      = 'X'.

  LS_OBJECT_DOC-ACTIVE          = 'X'.
  LS_OBJECT_DOC-OBJ_REQU        = 'X'.
  LS_OBJECT_DOC-MGTREC_GEN      = 'X'.

  LS_CHANGE_HEADER-VALID_FROM    = LV_EFFECTIVE_DT.

*  CALL FUNCTION 'FORMAT_DATE_4_OUTPUT'
*    EXPORTING
*      DATIN  = LV_EFFECTIVE_DT
*      FORMAT = 'DDMMYYYY'
*    IMPORTING
*      DATEX  = LS_CHANGE_HEADER-VALID_FROM.

  CLEAR: LS_CHANGE_HEADER-INDATE_RULE,
         LS_CHANGE_HEADER-OUTDATE_RULE.

  "change date first and then change status to 2.
  CALL FUNCTION 'CCAP_ECN_MAINTAIN'
    EXPORTING
      CHANGE_HEADER      = LS_CHANGE_HEADER
      OBJECT_BOM_MAT     = LS_OBJECT_BOM_MAT
      OBJECT_MAT         = LS_OBJECT_MAT
      OBJECT_DOC         = LS_OBJECT_DOC
      FL_SYNCH           = ' '
      FL_COMMIT_AND_WAIT = 'X'
      FL_NO_COMMIT_WORK  = ''
    TABLES
      OBJMGREC           = LT_OBJMGREC
    EXCEPTIONS
      ERROR              = 1
      OTHERS             = 2.

  MOVE SY-SUBRC TO EP_SUBRC.
  CHECK  EP_SUBRC = 0 .

ENDFUNCTION.