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