SAP 采购申请 ME51N 屏幕增强

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 status_0111 OUTPUT.

* SET PF-STATUS 'xxxxxxxx'.

* SET TITLEBAR 'xxx'.

CHECK fl_input IS INITIAL.

LOOP AT SCREEN.

screen-input = 0.

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. " STATUS_0111 OUTPUT

OK ME51n 0111 eban