SAP QM——QA01、QA02、QA03屏幕增強

效果：

 

1、在表QALS中INCLUDE的結構CI_QALS添加自定義字段

 

2、實施客戶增強QPL10004

 

3、①雙擊進入EXIT_SAPLQPL1_004，②顯示對象列表，③雙擊LXQPLTOP，④雙擊ZXQPLTOP，⑤維護代碼

 

 

 

TABLES: qals_cust.

DATA: g_display TYPE c.

 

4、雙擊 SAPLXQPL新增畫屏、並維護代碼

 

 

 

MODULE STATUS_0100 OUTPUT.
  LOOP AT SCREEN.
    IF g_display = 'X'.
      screen-input = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
ENDMODULE.

 

5、維護出口函數EXIT_SAPLQPL1_004代碼

 

 

 

DATA: l_trtyp    LIKE t160-trtyp,
      l_fs_c(30) TYPE c VALUE '(SAPLQPL1)G_T185F_AKTI'.

FIELD-SYMBOLS: <l_fs>.

ASSIGN (l_fs_c) TO <l_fs>.
IF sy-subrc = 0.
  l_trtyp = <l_fs>.
  CASE l_trtyp.
    WHEN  'A'.
      g_display = 'X'.
    WHEN OTHERS.
      g_display = ''.
  ENDCASE.
ENDIF.

MOVE-CORRESPONDING i_qals TO qals_cust.

 

6、維護出口函數EXIT_SAPLQPL1_006代碼

 

 

MOVE-CORRESPONDING qals_cust TO e_qals_cust.

e_active = 'X'.