固定資產創建BAPI_FIXEDASSET_CREATE--含擴展結構字段EXTENSIONIN

REPORT ZTIMEZONES .
"輸出
DATA:LS_RETURN TYPE BAPIRET2.
DATA:LS_COMPANY TYPE BAPI1022_1."公司代碼填制
DATA:LS_GENERALDATA TYPE BAPI1022_FEGLG001."資產基本信息填制
DATA:LS_GENERALDATAX TYPE BAPI1022_FEGLG001X."資產基本信息更新
DATA:LS_TIMEDEPENDENTDATA TYPE BAPI1022_FEGLG003."資產與時間相關信息更新
DATA:LS_TIMEDEPENDENTDATAX TYPE BAPI1022_FEGLG003X."資產與時間相關信息更新
DATA:LT_DEPRECIATIONAREAS TYPE STANDARD TABLE OF BAPI1022_DEP_AREAS."折舊信息填制
DATA:LS_DEPRECIATIONAREAS LIKE LINE OF LT_DEPRECIATIONAREAS."折舊信息填制
DATA:LT_DEPRECIATIONAREASX TYPE STANDARD TABLE OF BAPI1022_DEP_AREASX."折舊信息信息更新
DATA:LS_DEPRECIATIONAREASX LIKE LINE OF LT_DEPRECIATIONAREASX."折舊信息信息更新
DATA:LS_ASSETCREATED TYPE BAPI1022_REFERENCE.
DATA:LS_MESSAGE TYPE STRING.
DATA:LS_EXTENSIONIN TYPE BAPIPAREX.
DATA:LT_EXTENSIONIN  TYPE STANDARD TABLE OF BAPIPAREX.
DATA: LS_ANLU  TYPE BAPI_TE_ANLU.
DATA:LS_ORIGIN TYPE BAPI1022_FEGLG009."資產源相關信息
DATA:LS_ORIGINX TYPE BAPI1022_FEGLG009X."資產源相關更新


LS_COMPANY-COMP_CODE = '8000'.
LS_GENERALDATA-ASSETCLASS = 'HC104'.
LS_GENERALDATAX-ASSETCLASS = 'X'.
LS_GENERALDATA-DESCRIPT = '測試OA生成固定資產'.
LS_GENERALDATAX-DESCRIPT = 'X'.
LS_GENERALDATA-MAIN_DESCRIPT = '測試OA生成固定資產111'.
LS_GENERALDATAX-MAIN_DESCRIPT = 'X'.
LS_TIMEDEPENDENTDATA-COSTCENTER = '809001'.
*LS_TIMEDEPENDENTDATA-COSTCENTER = '809022201'.
LS_TIMEDEPENDENTDATAX-COSTCENTER = 'X'.
LS_GENERALDATA-QUANTITY = 1.
LS_GENERALDATAX-QUANTITY = 'X'.
LS_GENERALDATA-BASE_UOM = 'TAI'.
LS_GENERALDATAX-BASE_UOM = 'X'.
LS_ORIGIN-VENDOR_NO = '100078'.
LS_ORIGINX-VENDOR_NO = 'X'.
***折舊范圍
LS_DEPRECIATIONAREAS-AREA = '01'.
LS_DEPRECIATIONAREAS-DEP_KEY = 'Z100'.
APPEND LS_DEPRECIATIONAREAS TO LT_DEPRECIATIONAREAS.
LS_DEPRECIATIONAREASX-AREA = '01'.
LS_DEPRECIATIONAREASX-DEP_KEY = 'X'.
APPEND LS_DEPRECIATIONAREASX TO LT_DEPRECIATIONAREASX.
CLEAR:LS_DEPRECIATIONAREAS,LS_DEPRECIATIONAREASX.
LS_DEPRECIATIONAREAS-AREA = '02'.
LS_DEPRECIATIONAREAS-DEP_KEY = 'Z100'.
APPEND LS_DEPRECIATIONAREAS TO LT_DEPRECIATIONAREAS.
LS_DEPRECIATIONAREASX-AREA = '02'.
LS_DEPRECIATIONAREASX-DEP_KEY = 'X'.
APPEND LS_DEPRECIATIONAREASX TO LT_DEPRECIATIONAREASX.
CLEAR:LS_DEPRECIATIONAREAS,LS_DEPRECIATIONAREASX.
LS_DEPRECIATIONAREAS-AREA = '03'.
LS_DEPRECIATIONAREAS-DEP_KEY = 'Z100'.
APPEND LS_DEPRECIATIONAREAS TO LT_DEPRECIATIONAREAS.
LS_DEPRECIATIONAREASX-AREA = '03'.
LS_DEPRECIATIONAREASX-DEP_KEY = 'X'.
APPEND LS_DEPRECIATIONAREASX TO LT_DEPRECIATIONAREASX.
CLEAR:LS_DEPRECIATIONAREAS,LS_DEPRECIATIONAREASX.

"增強字段傳值
CLEAR LS_ANLU.
LS_ANLU-COMP_CODE       = '8000'. "公司
LS_ANLU-ZCONTRACT_NO = '4500003944'.
LS_ANLU-ZASSET_STATUS         = '在用'. "資產狀態
LS_EXTENSIONIN-STRUCTURE = 'BAPI_TE_ANLU'.
LS_EXTENSIONIN-VALUEPART1 = LS_ANLU.
APPEND LS_EXTENSIONIN TO LT_EXTENSIONIN.

CALL FUNCTION 'BAPI_FIXEDASSET_CREATE'
  EXPORTING
    COMPANYCODE        = LS_COMPANY-COMP_CODE
    GENERALDATA        = LS_GENERALDATA
    GENERALDATAX       = LS_GENERALDATAX
    TIMEDEPENDENTDATA  = LS_TIMEDEPENDENTDATA
    TIMEDEPENDENTDATAX = LS_TIMEDEPENDENTDATAX
    ORIGIN             = LS_ORIGIN
    ORIGINX            = LS_ORIGINX
  IMPORTING
    ASSETCREATED       = LS_ASSETCREATED
    RETURN             = LS_RETURN
  TABLES
    DEPRECIATIONAREAS  = LT_DEPRECIATIONAREAS
    DEPRECIATIONAREASX = LT_DEPRECIATIONAREASX
    EXTENSIONIN        = LT_EXTENSIONIN.

IF LS_ASSETCREATED IS NOT INITIAL.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
  IF LS_RETURN IS NOT INITIAL.
    MESSAGE ID LS_RETURN-ID TYPE LS_RETURN-TYPE NUMBER LS_RETURN-NUMBER
    WITH LS_RETURN-MESSAGE_V1         LS_RETURN-MESSAGE_V2         LS_RETURN-MESSAGE_V3          LS_RETURN-MESSAGE_V4 INTO LS_MESSAGE.
  ENDIF.
  WRITE:/ LS_RETURN-MESSAGE_V1.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  IF LS_RETURN IS NOT INITIAL.
    MESSAGE ID LS_RETURN-ID TYPE LS_RETURN-TYPE NUMBER LS_RETURN-NUMBER
    WITH LS_RETURN-MESSAGE_V1         LS_RETURN-MESSAGE_V2         LS_RETURN-MESSAGE_V3          LS_RETURN-MESSAGE_V4 INTO LS_MESSAGE.
  ENDIF.
ENDIF.

 擴展字段應用參見：http://www.baidusap.com/abap/6286