MIGO 字段输出控制增强

最新推荐文章于 2024-01-11 08:54:29 发布

陈送平er

最新推荐文章于 2024-01-11 08:54:29 发布

阅读量228

点赞数

分类专栏： SAP系统增强文章标签：数据库

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

版权

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

14 篇文章 1 订阅

订阅专栏

一、增强点

二、源代码

一、增强点

程序：LMIGOSMC

ENHANCEMENT-POINT adsub_lmigosmc_05 SPOTS es_saplmigo .

二、源代码

ENHANCEMENT 1  ZBADI_MIGO_SETSCREEN.    "active version
***************ADD BY CHENSP 2022-8-16
*   MIGO界面字段输出控制增强
  DATA: IT_GOITEM TYPE TABLE OF GOITEM,
        WA_GOITEM LIKE LINE OF IT_GOITEM.
  IF SY-DYNNR = '0110'.
    IF SCREEN-NAME = 'GOHEAD-VENDORNAME'.
*      OR SCREEN-NAME = 'GOHEAD-LIFNR'.
      SELECT SINGLE KTOKK
        FROM LFA1
        INTO @DATA(L_KTOKK)
       WHERE LIFNR EQ @GOHEAD-LIFNR.
      IF L_KTOKK <> 'ZK00' AND L_KTOKK IS NOT INITIAL.
        CLEAR: IT_GOITEM.
        CALL METHOD LCL_MIGO_GLOBALS=>KERNEL->GET_PT_GOITEM
          IMPORTING E_PT_GOITEM = IT_GOITEM.
        LOOP AT IT_GOITEM INTO WA_GOITEM WHERE EBELN IS NOT INITIAL
                                           AND MATNR IS NOT INITIAL.
          SELECT SINGLE MTART
            FROM MARA
            INTO @DATA(L_MTART)
           WHERE MATNR EQ @WA_GOITEM-MATNR
             AND MTART EQ 'Z001'.
          IF SY-SUBRC = 0.
            SCREEN-ACTIVE = 0.
            EXIT.
          ENDIF.
        ENDLOOP.
      ENDIF.
    ENDIF.
  ENDIF.

ENDENHANCEMENT.