Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

screen exit in ME51n

Former Member
0 Kudos
110

hi all,

my requirement is like this:-

while creating a purchase requisition user want to see the data of last 2 purchase order of the material (last 2 purchase order price and their date).

I have implemented enhancement MEREQ001, and written code in function module EXIT_SAPLMEREQ_001.

There I have been able to display the data of last 2 purchase orders, but I am not being able to save these data in EBAN, where I have created fields in .include structure CI_EBANDB.

My problem is I am not being able to save the data of last 2 purchase orders in these fields of EBAN.

I have searched for solutions in SDN but could'nt find a proper solution.

It will be very helpfull if you people give me a solution to save the data in EBAN.

Thanks in advance.

1 ACCEPTED SOLUTION

Former Member
0 Kudos
50

Hi,

Implement this exit as well EXIT_SAPLMEREQ_003 in order to import data from your newly created subscreen.

Regards

Ahsan

5 REPLIES 5

Former Member
0 Kudos
51

Hi,

Implement this exit as well EXIT_SAPLMEREQ_003 in order to import data from your newly created subscreen.

Regards

Ahsan

0 Kudos
50

I have implemented that also. but still it is not working

0 Kudos
50

Hi,

Implement this code in EXIT_SAPLMEREQ_003 exit.


DATA: lv_req_item TYPE mereq_item. 
DATA: re_aktvt TYPE aktvt. 

CALL METHOD im_req_item->get_data 
RECEIVING re_data = lv_req_item.
  
CALL METHOD im_req_item->get_activity 
RECEIVING re_aktvt = re_aktvt.

CASE re_aktvt. 
* Display mode 
WHEN 'A'. 
* Change mode 
WHEN 'V'. 
 lv_req_item-zz_budget = eban-zz_budget.           "<---- Your Feilds here
 lv_req_item-zz_budgetflag = eban-zz_budgetflag.   "<---- Your Feild here
 CALL METHOD im_req_item->set_data 
 EXPORTING im_data = lv_req_item. 
 ex_changed = 'X'. 
ENDCASE.

0 Kudos
50

Thanks a ton. It is working perfectly. I am closing this thread. Thank you very much.

0 Kudos
50

Hi Aboltabol,

Can you provide me the logic that you have written in EXIT_SAPLMEREQ_001 (PBO).

Thanks in advance