效果:
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'.