◆◆0

[BAPI]固定资产报废-BAPI_ASSET_RETIREMENT_POST

石头 11月 16, 2020 BAPI 10,403 views 0

前台通过tcode ABAVN报废固定资产，这个tcode对应的bapi是BAPI_ASSET_RETIREMENT_POST。

参数的详细信息可以在SE37中查看到，这个BAPI使用起来不麻烦，字段也不是很多，基本上都能对出来。。

例子代码：

FORM frm_asset_retire  CHANGING c_alv TYPE gty_alv.

  DATA: ls_generalpostingdata TYPE bapifapo_gen_info,
        ls_retirementdata     TYPE bapifapo_ret,
        ls_doc                TYPE bapifapo_doc_ref,
        ls_return             TYPE bapiret2,
        ls_furtherpostingdata TYPE bapifapo_add_info.

  ls_generalpostingdata-username    = sy-uname.
  ls_generalpostingdata-doc_date    = c_alv-bldat."凭证中的凭证日期
  ls_generalpostingdata-pstng_date  = c_alv-budat."凭证中的过账日期
  ls_generalpostingdata-fis_period  = c_alv-budat+4(2)."会计期间
  ls_generalpostingdata-trans_date  = c_alv-budat. "换算日期
  ls_generalpostingdata-comp_code   = c_alv-bukrs. "公司代码
  ls_generalpostingdata-assetmaino  = c_alv-anln1. "主资产号
  ls_generalpostingdata-assetsubno  = '0000'.
  IF c_alv-zujhr = sy-datum+0(4)."当年的用250
    ls_generalpostingdata-assettrtyp  = '250'.
  ELSE.
    ls_generalpostingdata-assettrtyp  = '200'."往年的用200
  ENDIF.
  ls_retirementdata-quantity  = c_alv-menge. "数量
  ls_retirementdata-valuedate = c_alv-aktiv."参考日期
  ls_retirementdata-compl_ret = 'X'."标志: 记帐全部报废
  ls_retirementdata-base_uom  = c_alv-meins."单位

  ls_furtherpostingdata-header_txt = c_alv-sgtxt."将文本写入报废会计凭证的抬头文本
  CALL FUNCTION 'BAPI_ASSET_RETIREMENT_POST'
    EXPORTING
      generalpostingdata = ls_generalpostingdata
      retirementdata     = ls_retirementdata
      furtherpostingdata = ls_furtherpostingdata
    IMPORTING
      documentreference  = ls_doc
      return             = ls_return.
  IF ls_return-type = 'S'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
    IF ls_return-number = '374' AND
        ls_return-id     = 'AA'.
      c_alv-xblnr = ls_return-message_v2."报废会计凭证号
      c_alv-done = 'X'.
    ENDIF.
    c_alv-light = icon_green_light.
    c_alv-msg   = ls_return-message.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    c_alv-light = icon_red_light.
    c_alv-msg   = ls_return-message.
  ENDIF.

ENDFORM.