创建获利段

最新推荐文章于 2024-08-15 13:48:42 发布

阴天也不错

最新推荐文章于 2024-08-15 13:48:42 发布

阅读量225

点赞数 3

分类专栏： BAPI&&BDC 文章标签： SAP

本文链接：https://blog.csdn.net/weixin_49691117/article/details/138307089

版权

BAPI&&BDC 专栏收录该内容

15 篇文章 1 订阅

订阅专栏

事务代码：KE21N
BAPI：BAPI_COPAACTUALS_POSTCOSTDATA
前台操作：
在这里插入图片描述

表是业务配置的

配置路径：

代码：BAPI不返回生成的凭证号和获利段，需要通过增强或者读表获取

    ls_copa_data-record_id = '000001'.
    ls_copa_data-fieldname  = 'BUDAT'.
    ls_copa_data-value  = sy-datum.
    APPEND ls_copa_data TO lt_copa_data.
    ls_copa_field-fieldname = 'BUDAT'.
    APPEND ls_copa_field TO lt_copa_field.
    CLEAR:ls_copa_data.

    ls_copa_data-record_id = '000001'.
    ls_copa_data-fieldname  = 'BUKRS'.
    ls_copa_data-value  = lv_bukrs.
    APPEND ls_copa_data TO lt_copa_data.
    ls_copa_field-fieldname = 'BUKRS'.
    APPEND ls_copa_field TO lt_copa_field.
    CLEAR:ls_copa_data.

    ls_copa_data-record_id = '000001'.
    ls_copa_data-fieldname  = 'VRGAR'.
    ls_copa_data-value  = 'B'.
    APPEND ls_copa_data TO lt_copa_data.
    ls_copa_field-fieldname = 'VRGAR'.
    APPEND ls_copa_field TO lt_copa_field.
    CLEAR:ls_copa_data.

    ls_copa_data-record_id = '000001'.
    ls_copa_data-fieldname  = 'WERKS'.
    ls_copa_data-value  = is_header-plant.
    APPEND ls_copa_data TO lt_copa_data.
    ls_copa_field-fieldname = 'WERKS'.
    APPEND ls_copa_field TO lt_copa_field.
    CLEAR:ls_copa_data.

    ls_copa_data-record_id = '000001'.
    ls_copa_data-fieldname  = 'ARTNR'.
    ls_copa_data-value  = is_header-material.
    APPEND ls_copa_data TO lt_copa_data.
    ls_copa_field-fieldname = 'ARTNR'.
    APPEND ls_copa_field TO lt_copa_field.
    CLEAR:ls_copa_data.

    ls_copa_data-record_id = '000001'.
    ls_copa_data-fieldname  = 'KNDNR'.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = is_header-supp_id
      IMPORTING
        output = is_header-supp_id.
    ls_copa_data-value  = is_header-supp_id.
    APPEND ls_copa_data TO lt_copa_data.
    ls_copa_field-fieldname = 'KNDNR'.
    APPEND ls_copa_field TO lt_copa_field.
    CLEAR:ls_copa_data.

    CALL FUNCTION 'BAPI_COPAACTUALS_POSTCOSTDATA'
      EXPORTING
        operatingconcern = 'XXXX'
        testrun          = ''
      TABLES
        inputdata        = lt_copa_data
        fieldlist        = lt_copa_field
        return           = lt_return.
    CLEAR:lv_message.
    LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
      IF  lv_message IS INITIAL.
        lv_message = lv_message && ls_return-message.
      ELSE.
        lv_message =  lv_message &&  ';' && ls_return-message.
      ENDIF.
    ENDLOOP.
    IF sy-subrc <> 0.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
      WAIT UP TO '0.5' SECONDS.
      SELECT SINGLE MAX( paobjnr ) AS paobjnr FROM ce1mith
        WHERE vrgar = 'B'
          AND bukrs = @lv_bukrs
          AND werks = @is_header-plant
          AND artnr = @is_header-material
          AND kndnr = @is_header-supp_id
         INTO @DATA(lv_paobjunr).
      IF lv_paobjunr IS  INITIAL.
        ev_message = TEXT-004.
        ev_type = 'E'.
        RETURN.
      ENDIF.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      ev_message = lv_message.
      ev_type = 'E'.
      RETURN.
    ENDIF.