CO06N物料移动中的字段设成不可以输入状态

程序：LCOWBFM1

ENHANCEMENT-POINT lcowbfm1_00 SPOTS es_saplcowb.
*$*$-Start: LCOWBFM1_00-------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZBADI_COR6N001.    "active version

*************************************************************
* COR6N物料移动数据中字段【库存地点】按工厂设置非输入状态
*************************************************************
  DATA: WA_ZTPP010 TYPE ZTPP010.
  SELECT SINGLE *
    FROM ZTPP010
    INTO CORRESPONDING FIELDS OF WA_ZTPP010
   WHERE WERKS EQ COWB_COMP-WERKS.
  IF SY-SUBRC = 0.
    IF SCREEN-NAME = 'COWB_COMP-LGORT'.
      SCREEN-INPUT = 0.
      LV_SCR_MOD = YX.
    ENDIF.
  ENDIF.

ENDENHANCEMENT.