SAP采购申请屏幕增强.pdf

SAP 采购申请 ME51n,ME52n,ME53n 屏幕增强 使用增强：MEREQ001 购买申请中的客户自有数据 1、如果需要向 PR 中加入自定义字段，事务码 se11，打开透明表 EBAN，双击 include：CI_EBANDB， 创建结构 CI_EBANDB，维护自定义的字段。 2、事务码CMOD create project：ZMMpr001，在Enhancement assignment中添加增强MEREQ001， 保存。 3、事务码 smod：MEREQ001，打开如下图， 有三个 function module，还有 screen area，可知 screen ：0111 便是预留的屏幕，可以在其函数组 中创建 screen 0111，然后在其上画一些需要的字段栏位就 ok 了。 双击其中一个 function module，然后点击 display object list 按钮 ，显示如下图 在函数组 XM02 中 create screen 0111，然后在其上画一些需要的字段栏位，注意 0111 设置为 subscreen。 激活，CMOD 中激活 ZMMpr001，此时在事务码 ME51n 中就能看到多了一个客户数据 tab 页,相应 me52n，me53n 等也有。 到此为止，屏幕做好了，但是要在屏幕栏位上输入数据并能保存到透明表，及显示的时候能从透明表读出 到屏幕栏位，就需要在上述三个 function module 中写代码。 4、在函数组 XM02 中，有 include：ZXM02TOP，目前是空的，create it，添加代码： data : gv_trtyp type aktvt. DATA: FL_INPUT TYPE FLAG. 激活 EXIT_SAPLMEREQ_001 中的 include 添加如下代码： TABLES : ci_ebandb. DATA : i_mereq_item TYPE mereq_item. CALL METHOD im_req_item-get_activity RECEIVING re_aktvt = gv_trtyp. CASE gv_trtyp. WHEN A. fl_input = space. Output only WHEN V. fl_input = X. Input/Output ENDCASE. IF im_req_item IS INITIAL. CLEAR: ci_ebandb. ELSE. i_mereq_item = im_req_item-get_data( ). MOVE-CORRESPONDING i_mereq_item TO ci_ebandb. ENDIF. 激活 EXIT_SAPLMEREQ_003 中的 include，添加下面代码： DATA : i_mereq_item TYPE mereq_item. IF NOT im_req_item IS INITIAL. i_mereq_item = im_req_item-get_data( ). MOVE-CORRESPONDING ci_ebandb TO i_mereq_item . CALL METHOD im_req_item-set_data( i_mereq_item ). ex_changed = X. ENDIF. 最后对上述建立的 subscreen 0111 添加 PBO，如下代码： *----------------------------------------------------------------------* ***INCLUDE ZXM02O01 . *----------------------------------------------------------------------* *---------------------------------------------------------------------* * Module STATUS_0111 OUTPUT *---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE st