MIGO 物料凭证行项目文本增强

原创已于 2025-09-29 09:44:53 修改 · 227 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

GEO检测

收录于

ABAP

于 2025-09-29 09:40:12 首次发布

BADI:MB_MIGO_ITEM_BADI

实现IF_EX_MB_MIGO_ITEM_BADI的ITEM_MODIFY方法

  METHOD if_ex_mb_migo_item_badi~item_modify.

    DATA: lv_name  TYPE thead-tdname,
          lt_lines TYPE  TABLE OF tline,
          lv_str   TYPE string.

    IF is_goitem-ebeln IS NOT INITIAL AND is_goitem-ebelp IS NOT INITIAL
      AND is_goitem-sgtxt IS INITIAL.   "用户如果手动输入了，与用户手动录入的为主，不再覆盖
      BREAK bakkf.
      lv_name =  is_goitem-ebeln &&  is_goitem-ebelp.
      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          id                      = 'F01'
          language                = sy-langu
          name                    = lv_name
          object                  = 'EKPO'
        TABLES
          lines                   = lt_lines
        EXCEPTIONS
          id                      = 1
          language                = 2
          name                    = 3
          not_found               = 4
          object                  = 5
          reference_check         = 6
          wrong_access_to_archive = 7
          OTHERS                  = 8.
      IF sy-subrc = 0.
        LOOP AT lt_lines INTO DATA(ls_lines).       "采购订单行项目文本带到物料凭证行文本
          lv_str = lv_str && ls_lines-tdline.
        ENDLOOP.
        e_item_text = lv_str.
      ENDIF.
    ENDIF.
  ENDMETHOD.

标签

#ABAP