SAP生產訂單屏幕增強(CO01/CO02/CO03抬頭AUFK,AFKO)

一、aufk增強

　　CI_AUFK中加字段

　　AUFK中已包含CI_AUFK   不做操作

　　CAUFVTAB中已包含CI_AUFK 不做操作

　　COCI_AUFK中加入包含CI_AUFK

二、afko增強

　　創建結構zsafko

　　在afko中包含zsafko

　　在caufvtab中包含zsafko

　　在coci_aufk中包含zsafko

三、cmod注冊增強

　　PPCO0012：屏幕增強

　　PPCO0007：保存退出

1、cmod新建項目：ZPP0001

 2、分配增強

 3、實施並激活（函數組XCO1）

 　　1）全局數據定義LXCO1TOP

*&---------------------------------------------------------------------*
*&  包含                ZXCO1TOP
*&---------------------------------------------------------------------*
TABLES:coci_aufk.

DATA g_display TYPE c.
DATA lv_flag TYPE c.

　　2）顯示前的函數 EXIT_SAPLCOKO1_001

*&---------------------------------------------------------------------*
*&  包含                ZXCO1U11
*&---------------------------------------------------------------------*
* created by ybin 2021.01.05 屏幕增強的字段賦值
DATA lfs_c(30) TYPE c VALUE '(SAPLCOKO1)RC27S-AKTYP_PIC'.
DATA lv_aktyp  TYPE rc27s-aktyp_pic.

FIELD-SYMBOLS <lfs_1>.

ASSIGN (lfs_c) TO <lfs_1>.
IF sy-subrc = 0.
  lv_aktyp = <lfs_1>.
  IF lv_aktyp = 'A'.
    g_display = 'X'.
  ELSE.
    g_display = ''.
  ENDIF.
ENDIF.

MOVE-CORRESPONDING i_caufvd TO coci_aufk.

　　3）保存時路過函數 EXIT_SAPLCOKO1_002

*&---------------------------------------------------------------------*
*&  包含                ZXCO1U12
*&---------------------------------------------------------------------*
*  離開客戶屏幕的時候
  MOVE-CORRESPONDING coci_aufk TO e_coci_aufk.

　　4）設置菜單標題

　　5）繪制屏幕 0100

PROCESS BEFORE OUTPUT.
 MODULE status_0100.
*
PROCESS AFTER INPUT.
* MODULE USER_COMMAND_0100.

*----------------------------------------------------------------------*
***INCLUDE ZXCO1O01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.

*  add by ybin 2020.01.05 生產訂單屏幕增強
  LOOP AT SCREEN.
    IF g_display = 'X'.
      screen-input = '0'.
    ELSE.
      screen-input = '1'.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

ENDMODULE.                 " STATUS_0100  OUTPUT

 結束，經測試可以正常保存及顯示數據。