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'.
"--------------------@斌将军--------------------

 

欢迎关注，定期更文

 

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back