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'.