FB08 :BAPI_ACC_DOCUMENT_REV_POST

Lisson 3

已于 2023-07-14 18:14:42 修改

阅读量220

点赞数 1

分类专栏： BAPI 文章标签： ABAP

于 2023-07-14 18:14:20 首次发布

本文链接：https://blog.csdn.net/qq_40223617/article/details/131729479

版权

 DATA : ls_reversal TYPE bapiacrev,
         lv_key      TYPE bapiacrev-obj_key,
         lt_return   TYPE TABLE OF bapiret2 WITH HEADER LINE.
  DATA: lv_field(50),
        lv_posid     TYPE prps-posid,
        lv_zzcqd     TYPE zfi_eczggc-zzcqd.

  DATA : ls_bkpf  TYPE bkpf.

  LOOP AT gt_fb08 INTO gs_fb08.

    CLEAR ls_bkpf.
    SELECT  SINGLE * FROM bkpf INTO ls_bkpf WHERE bukrs = gs_fb08-bukrs
                                        AND   belnr = gs_fb08-belnr
                                        AND   gjahr = gs_fb08-gjahr
                                        AND   xreversal = ''.
    IF sy-subrc <> 0.
      c_flg = 'X'.
      c_msg = '凭证' &&  gs_fb08-belnr && '不存在或已被冲销'.
      RETURN.
    ENDIF.

    CLEAR ls_reversal.
    ls_reversal-obj_type     = ls_bkpf-awtyp.
*  l_reversal-obj_key      = l_bkpf-awkey.
    ls_reversal-obj_key_r    = ls_bkpf-awkey.
*    ls_reversal-pstng