MIRO 增强_SAP刘梦_

MIRO 增强_SAP刘梦_

Badi增强 MIRO

BADI_FDCB_SUBBAS01

BADI_FDCB_SUBBAS02

BADI_FDCB_SUBBAS03

BADI_FDCB_SUBBAS04

BADI_FDCB_SUBBAS05

BADI_FDCB_SUBBAS06

此6个badi可以增强MIRO的界面

查询发现 BADI_FDCB_SUBBAS04 没有实例

实现方法： 可以参考 示例实施类的代码。

已调用程序是 function 的主程序SAPLZBADI_FDCB_SUBBAS01_BADI， 屏幕是增强的屏幕

3.

以击函数名， 点主程序

SAPLZBADI_FDCB_SUBBAS01_BADI 主程序名

创建screen(由于只是显示RBKP 里的字段 xref3,因此不用增强结构，其他需要增强结构)

代码实现

然后激活程序后运行MIR4,效果图如下

合同(手工) 就是新增上去的

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.

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.

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. " RECEIVE_ACTUAL_DATA INPUT

MODULE user_command_9000 INPUT.

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. " USER_COMMAND_9000 INPUT

​

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。