SAP 事务码FAGLB03 下钻凭证明细增强字段

duangww

已于 2025-08-01 16:09:14 修改

阅读量214

点赞数 2

CC 4.0 BY-SA版权

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

于 2025-03-17 11:34:00 首次发布

本文链接：https://blog.csdn.net/duangww/article/details/146310939

ABAP 专栏收录该内容

44 篇文章

订阅专栏

增强点:BADI:FAGL_ITEMS_CH_DATA

增强结构FAGLPOSX

代码

  METHOD if_ex_fagl_items_ch_data~change_items.
    IF ct_items[] IS NOT INITIAL.
      SELECT bukrs,gjahr,belnr,usnam
        INTO TABLE @DATA(lt_bkpf)
        FROM bkpf
        FOR ALL ENTRIES IN @ct_items
      WHERE bukrs = @ct_items-bukrs
        AND gjahr = @ct_items-gjahr
        AND belnr = @ct_items-belnr.
      SORT lt_bkpf BY bukrs gjahr belnr.
    ENDIF.
    LOOP AT ct_items ASSIGNING FIELD-SYMBOL(<fs_items>).
      READ TABLE lt_bkpf INTO DATA(ls_bkpf) WITH KEY bukrs = <fs_items>-bukrs
                                                     gjahr = <fs_items>-gjahr
                                                     belnr = <fs_items>-belnr
                                              BINARY SEARCH.
      IF sy-subrc = 0.
        <fs_items>-zzusnam = ls_bkpf-usnam.
      ENDIF.
    ENDLOOP.
  ENDMETHOD.