CO01生产订单屏幕增强

一、生产订单客户屏幕新增字段

二、生产订单抬头AUFK表的CI_AUFK中新增屏幕字段

三、CMOD 增强分配PPCO0012

修改0100屏幕，新增对应字段，其中生产订单类型设置为下拉框

EXIT_SAPLCOKO1_001——>ZXCO1U11

首先在ZXCO1TOP中引入增强结构COCI_AUFK（其中是上述增强到表中的字段）

将前台输入的数据放入增强结构中，本例还通过工厂限制增强字段是否启用，根据事务代码限制增强字段是否可编辑

EXIT_SAPLCOKO1_002——>ZXCO1U12

回到0100屏幕

status_0100代码如下

"-----------------------------------------@斌将军--------------------------------------------
IF gv_activity = 'X'.
    DATA:lt_list TYPE vrm_values,
         ls_list TYPE vrm_value.

    SELECT
      werks,"工厂
      zlxbs,"订单类型
      zlxbsms"订单类型文本 (30 个字符)
    FROM zXX
    INTO TABLE @DATA(lt_ddlx)
    WHERE werks = @gv_werks.

    REFRESH:lt_list.
    LOOP AT lt_ddlx INTO DATA(ls_ddlx).
      CLEAR:ls_list.
      ls_list-key = ls_ddlx-zlxbs.
      ls_list-text = ls_ddlx-zlxbsms.
      APPEND ls_list TO lt_list.
    ENDLOOP.

    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id              = 'COCI_AUFK-ZLXBS'
        values          = lt_list
      EXCEPTIONS
        id_illegal_name = 1
        OTHERS          = 2.

    "设置字段不可编辑
    IF gv_edit <> 'X'.
      LOOP AT SCREEN.
        IF screen-name+(9) = 'COCI_AUFK'.
          screen-input = '0'.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ELSE.
    LOOP AT SCREEN.
      IF screen-name+(9) = 'COCI_AUFK'.
        screen-active = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
"-----------------------------------------@斌将军--------------------------------------------

屏幕类型需要设置为子屏幕，否则会DUMP

激活以上所有组件即可

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back