资产报废例子程序

*&---------------------------------------------------------------------*
*& Report  ZTEST_ZCBF
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_ZCBF.

 DATA: l_gdata TYPE bapifapo_gen_info,
        l_retire TYPE bapifapo_ret,
        l_info TYPE bapifapo_add_info,
        l_ref TYPE bapifapo_doc_ref,
        l_return TYPE bapiret2.
  l_gdata-doc_type = 'AA'.
  l_gdata-doc_date = sy-datum.
  l_gdata-pstng_date = sy-datum.
*  l_gdata-trans_date = g_doc_date.
  l_gdata-comp_code = 3201.
  l_gdata-assetmaino = '000010000017'.
  l_gdata-assetsubno = '0000'.
  l_gdata-assettrtyp = '200'.            "报废业务类型
  l_retire-compl_ret = 'X'.
  l_retire-valuedate = sy-datum.
  l_info-header_txt = '技改资产报废'.
  l_info-item_text = '技改资产报废'.
  CALL FUNCTION 'BAPI_ASSET_RETIREMENT_POST'
    EXPORTING
      generalpostingdata = l_gdata
      retirementdata     = l_retire
      DOCUMENTREFERENCE  = l_ref
      furtherpostingdata = l_info
    IMPORTING
      return             = l_return.
  IF l_return-type = 'S'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
*    p_ud_ret = c_ret_ok.
*    p_ud_msg = '已报废资产'.
*    p_belnr = l_return-message_v2.
  ELSE.
*    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
*    p_ud_ret = c_ret_fail.
*    p_ud_msg = l_return-message.
  ENDIF.