QE01/QA11/QA02屏幕增强

1、业务需求

需要对来料检验增加“合格数量”和“不合格数量”字段，涉及三个增强开发

2、QE01\QE02\QE03\QE51N屏幕增强

增强表

增强点BADI：QEEM_SUBSCREEN_5000

创建程序，包含子屏幕，在增强点中调用

在程序屏幕中绘制字段

在输出流中可以通过事务代码控制字段编辑和必输效果

"--------------------@斌将军--------------------
MODULE status_9001 OUTPUT.DATA:lv_input TYPE char1,lv_req   TYPE char1."可编辑设置IF sy-tcode = 'QE01' OR sy-tcode = 'QE02'.lv_input = '1'.lv_req = '1'.ELSEIF sy-tcode = 'QA11' OR sy-tcode = 'QA12'.lv_input = '1'.lv_req = '0'.ELSE.lv_input = '0'.ENDIF.LOOP AT SCREEN.IF screen-name = 'QALS-ZHGSL' OR screen-name = 'QALS-ZBHGSL'.screen-input = lv_input.screen-required = lv_req.MODIFY SCREEN.ENDIF.ENDLOOP.ENDMODULE.
"--------------------@斌将军--------------------

在保存数据时，需要实现增强BADI：QE_SAVE

代码如下：

IS_ACTIVE

"--------------------@斌将军--------------------  
METHOD if_ex_qe_save~is_active.IF sy-ucomm = 'BU'.rv_active = abap_true.ENDIF.ENDMETHOD.
"--------------------@斌将军--------------------

TABLES_IN_OPERATION

"--------------------@斌将军--------------------METHOD if_ex_qe_save~tables_in_operation.IF sy-tcode = 'QE01' OR sy-tcode = 'QE02'.MODIFY qals FROM is_qals.ev_saving_allowed = abap_true.ENDIF.ENDMETHOD.
"--------------------@斌将军--------------------

效果如下

3、QA11\QA12\QA13\QA14屏幕增强

BADI：QEVA_SUBSCREEN_1101

创建程序，包含子屏幕，在增强点中调用。此处共用了ZQM003程序

4、QA0\QA02\QA03屏幕增强

增强点CMOD：QPL10004

在TOP中定义变量

在屏幕100中绘制字段

输出流控制字段编辑

"--------------------@斌将军--------------------
MODULE status_0100 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.LOOP AT SCREEN.IF screen-name = 'QALS_CUST-ZHGSL' OR screen-name = 'QALS_CUST-ZBHGSL'.IF gv_display = 'X'.screen-input = '0'.MODIFY SCREEN.ENDIF.ENDIF.ENDLOOP.
ENDMODULE.
"--------------------@斌将军--------------------

在EXIT_SAPLQPL1_004中展示数据

"--------------------@斌将军--------------------
*&---------------------------------------------------------------------*
*& 包含               ZXQPLU04
*&---------------------------------------------------------------------*
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'.gv_display = 'X'.WHEN OTHERS.gv_display = ''.ENDCASE.
ENDIF.MOVE-CORRESPONDING i_qals TO qals_cust.
"--------------------@斌将军--------------------

在EXIT_SAPLQPL1_006中存储数据

"--------------------@斌将军--------------------
*&---------------------------------------------------------------------*
*& 包含               ZXQPLU06
*&---------------------------------------------------------------------*MOVE-CORRESPONDING qals_cust TO e_qals_cust.e_active = 'X'.
"--------------------@斌将军--------------------

欢迎关注，定期更文