[ABAP]MIRO屏幕增强

SAP 小宇

已于 2024-05-07 16:32:52 修改

阅读量756

点赞数

分类专栏： SAP ABAP 文章标签：后端数据库

于 2023-09-13 17:33:36 首次发布

本文链接：https://blog.csdn.net/LXY9999999/article/details/132859343

版权

SAP 同时被 2 个专栏收录

20 篇文章 0 订阅

订阅专栏

ABAP

20 篇文章 0 订阅

订阅专栏

相关需求：金税发票长度由16变20

相关增强：

增强点：BADI_FDCB_SUBBAS04

SE19：ZBADI_FDCB_SUBBAS04

增强函数组：ZFG_MIRO

增强屏幕：9000

增强字段： INVFO-REBZG

原字段：INVFO-XBLNR

1.实施增强点方法

PUT_DATA_TO_SCREEN_OBJECT

  METHOD if_ex_badi_fdcb_subbas04~put_data_to_screen_object.
    me->if_ex_badi_fdcb_subbas04~invfo  = im_invfo.
  ENDMETHOD.

GET_DATA_FROM_SCREEN_OBJECT

  METHOD if_ex_badi_fdcb_subbas04~get_data_from_screen_object.
    ex_invfo  = me->if_ex_badi_fdcb_subbas04~invfo.
  ENDMETHOD.

2.实施增强点子屏幕

*屏幕9000
PROCESS BEFORE OUTPUT.
  MODULE get_instance.
  MODULE screen_modify.


PROCESS AFTER INPUT.
  MODULE receive_actual_data.
  FIELD:invfo-rebzg.
  MODULE user_command_9000.

*PBO
*----------------------------------------------------------------------*
***INCLUDE LZFG_MIROO01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  GET_INSTANCE  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE get_instance OUTPUT.

  IF o_badi_fdcb_subbas04 IS INITIAL.

    CALL METHOD cl_exithandler=>get_instance_for_subscreens
      CHANGING
        instance                      = o_badi_fdcb_subbas04
      EXCEPTIONS
        no_reference                  = 1
        no_interface_reference        = 2
        no_exit_interface             = 3
        data_incons_in_exit_managem   = 4
        class_not_implement_interface = 5
        OTHERS                        = 6.

    IF sy-subrc <> 0.
*     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*     WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

  ENDIF.


* object created
  CHECK NOT o_badi_fdcb_subbas04 IS INITIAL.


* get data from main screen
  CALL METHOD o_badi_fdcb_subbas04->get_data_from_screen_object
    IMPORTING
      ex_invfo = invfo.


ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  SCREEN_MODIFY  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE screen_modify OUTPUT.

  LOOP AT SCREEN.
    CASE sy-tcode.
      WHEN 'FB60' OR 'FB65' OR 'FB70' OR 'FB75'
         OR 'MIRO' OR 'MIRA' OR 'MIR7'.

        screen-input = 1.
      WHEN OTHERS.
        screen-input = 0.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.

ENDMODULE.

*PAI
*----------------------------------------------------------------------*
***INCLUDE LZFG_MIROI01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  RECEIVE_ACTUAL_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE receive_actual_data INPUT.
* object created
  CHECK NOT o_badi_fdcb_subbas04 IS INITIAL.

* get data from main screen
  CALL METHOD o_badi_fdcb_subbas04->get_data_from_screen_object
    IMPORTING
      ex_invfo = invfo.


ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
* object created
  CHECK NOT o_badi_fdcb_subbas04 IS INITIAL.

* put data to main screen
  CALL METHOD o_badi_fdcb_subbas04->put_data_to_screen_object
    EXPORTING
      im_invfo = invfo.


ENDMODULE.

3.测试效果