COOIS报表增加显示字段 - BADI: WORKORDER_INFOSYSTEM

最新推荐文章于 2024-02-26 10:58:02 发布

陈送平er

最新推荐文章于 2024-02-26 10:58:02 发布

阅读量416

点赞数

分类专栏： SAP系统增强文章标签：数学建模

本文链接：https://blog.csdn.net/weixin_42135249/article/details/131339812

版权

SAP系统增强专栏收录该内容

14 篇文章 1 订阅

订阅专栏

一、显示结构APPEND新字段

二、新增字段取逻辑增强

三、显示类型对应的结构

一、显示结构APPEND新字段

二、新增字段取逻辑增强

BADI: WORKORDER_INFOSYSTEM METHOD: TABLES_MODIFY_LAY

    TYPES: BEGIN OF TYP_SERNR,
             AUFNR TYPE SER05-PPAUFNR,
             OBKNR TYPE SER05-OBKNR,
             OBZAE TYPE OBJK-OBZAE,
             SERNR TYPE OBJK-SERNR,
           END OF TYP_SERNR.
    DATA: WA_SERNR TYPE TYP_SERNR,
          IT_SERNR LIKE STANDARD TABLE OF WA_SERNR.
    DATA: WA_IOHEADER TYPE IOHEADER.

    CASE 'X'.
      WHEN IS_TCOA-HEADER_SEL."
        IF CT_IOHEADER IS NOT INITIAL.
          SORT CT_IOHEADER BY AUFNR.
          SELECT PPAUFNR AS AUFNR
                 A~OBKNR
                 OBZAE
                 SERNR
            FROM SER05 AS A INNER JOIN OBJK AS B ON B~OBKNR = A~OBKNR
            INTO CORRESPONDING FIELDS OF TABLE IT_SERNR
             FOR ALL ENTRIES IN CT_IOHEADER
           WHERE A~PPAUFNR EQ CT_IOHEADER-AUFNR.

          IF SY-SUBRC = 0.

            SORT IT_SERNR by AUFNR.
            LOOP AT CT_IOHEADER INTO WA_IOHEADER.
              READ TABLE IT_SERNR WITH KEY AUFNR = WA_IOHEADER-AUFNR
                                  INTO WA_SERNR BINARY SEARCH.
              IF SY-SUBRC = 0.
*****************************
                WA_IOHEADER-ZZSERNR = WA_SERNR-SERNR.
                MODIFY CT_IOHEADER FROM WA_IOHEADER TRANSPORTING ZZSERNR.
              ENDIF.
            ENDLOOP.
          ENDIF.
        ENDIF.

      WHEN OTHERS.
    ENDCASE.

三、显示类型对应的结构

* Strukturnamen
con_ioheader TYPE tcois-otable VALUE 'IOHEADER',
con_ioitem TYPE tcois-otable VALUE 'IOITEM',
con_iomamo TYPE tcois-otable VALUE 'IOMAMO',
con_ioconf TYPE tcois-otable VALUE 'IOCONF',
con_iogomo TYPE tcois-otable VALUE 'IOGOMO',
con_iogmer TYPE tcois-otable VALUE 'IOGMER',
con_iosequen TYPE tcois-otable VALUE 'IOSEQUEN',
con_iooper TYPE tcois-otable VALUE 'IOOPER',
con_ioopcap TYPE tcois-otable VALUE 'IOOPCAP',
con_ioopscap TYPE tcois-otable VALUE 'IOOPSCAP',
con_ioopsccf TYPE tcois-otable VALUE 'IOOPSCCF',
con_iosoper TYPE tcois-otable VALUE 'IOSOPER',
con_iosocap TYPE tcois-otable VALUE 'IOSOCAP',
con_iososcap TYPE tcois-otable VALUE 'IOSOSCAP',
con_iososccf TYPE tcois-otable VALUE 'IOSOSCCF',
con_iosoconf TYPE tcois-otable VALUE 'IOSOCONF',
con_iosogmer TYPE tcois-otable VALUE 'IOSOGMER',
con_iosogomo TYPE tcois-otable VALUE 'IOSOGOMO',
con_ioopmst TYPE tcois-otable VALUE 'IOOPMST',
con_ioopcomp TYPE tcois-otable VALUE 'IOOPCOMP',
con_ioopprt TYPE tcois-otable VALUE 'IOOPPRT',
con_ioopconf TYPE tcois-otable VALUE 'IOOPCONF',
con_ioopgmer TYPE tcois-otable VALUE 'IOOPGMER',
con_ioopgomo TYPE tcois-otable VALUE 'IOOPGOMO',
con_iooppreq TYPE tcois-otable VALUE 'IOOPPREQ',
con_iosopreq TYPE tcois-otable VALUE 'IOSOPREQ',
con_iooppord TYPE tcois-otable VALUE 'IOOPPORD',
con_iosopord TYPE tcois-otable VALUE 'IOSOPORD',
con_caufv TYPE tcois-otable VALUE 'CAUFV',
con_tcoadt TYPE tcois-otable VALUE 'TCOADT',
con_iodocl TYPE tcois-otable VALUE 'IODOCL',
con_ioopdocl TYPE tcois-otable VALUE 'IOOPDOCL',