Customer exit MEREQ001(EQ001 Customers' Own Data in Purchase Requisi) include(ZXM02U01)

*&---------------------------------------------------------------------*
*&  Include           ZXM02U01
*&---------------------------------------------------------------------*

*break anju_d.
*
*TABLES ci_ebandb.
*
*DATA : lv_name TYPE name1_gp,
*       lv_mob TYPE num10,
*       l_item TYPE mereq_item,
*       l_obj_item TYPE REF TO if_purchase_requisition_item,
*       eban TYPE eban.
*
*IF im_req_item IS NOT INITIAL.
*  l_item = im_req_item->get_data( ).
*
*  IMPORT lv_name TO l_item-zzname1 FROM MEMORY ID 'NAME'.
*  IMPORT lv_mob TO l_item-zzcontact FROM MEMORY ID 'MOB'.
*
*    CALL METHOD im_req_item->set_data
*      EXPORTING
*        im_data = l_item.
*
*    MOVE-CORRESPONDING l_item TO ci_ebandb.

*IF sy-tcode = 'ME52N' AND
*   sy-tcode = 'ME53N'.
*
*  eban-zzname1 = l_item-zzname1.
*  eban-zzcontact = l_item-zzcontact.
*
*ENDIF.
*BREAK mihirp.
*BREAK NAVEENC.
*BREAK payald.
*BREAK krushal .
*break chetans.
*break krutis.
*TABLES:eban, ci_ebandb.
*break bijalc.
*DATA : l_mereq_item TYPE mereq_item,
*       l_aktvt TYPE aktvt,
*       lv_item TYPE bnfpo,
*       gt_eban TYPE STANDARD TABLE OF eban,
*       gs_eban TYPE eban.
*
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
*  IF NOT im_req_item IS INITIAL.
*    l_mereq_item = im_req_item->get_data( ).
**    l_mereq_item = im_req_item->get_persistent_data( ).
*    lv_item = l_mereq_item-bnfpo.
*    EXPORT lv_item TO MEMORY ID 'ITEM'.
*  ENDIF.
*ENDIF.
*
*IMPORT gt_eban FROM MEMORY ID 'EBAN'. " TO gt_eban
*
*LOOP AT gt_eban INTO gs_eban.
*  IF lv_item NE gs_eban-bnfpo OR lv_item = '00000' AND gs_eban-bnfpo = '00000'.
*    CLEAR gs_eban.
*    MODIFY gt_eban FROM gs_eban.
*  ENDIF.
*ENDLOOP.

*DATA: ls_mereq_item TYPE mereq_item,
*      l_aktvt TYPE aktvt.
*IF im_req_item IS INITIAL.
**  CLEAR eban.
*ELSE.
*  ls_mereq_item = im_req_item->get_data( ).
**  eban-zemail_id_pr = ls_mereq_item-zemail_id_pr.
**  eban-zcon_det_pr = ls_mereq_item-zcon_det_pr.
**  eban-zcontact_no = ls_mereq_item-zcontact_no.
**  ** Check Mode (Display/Edit)
*    CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF..

*ENDIF
*ENDIF.



*BREAK bijalc.
*BREAK aditya.
*BREAK anju_d.
*******************************Anjali***********
*break anjaliv.
*TABLES : ci_ebandb,
*         eban.
*
*DATA : l_mereq_item TYPE mereq_item,
*       l_header     TYPE REF TO if_purchase_requisition,
*       l_edit       TYPE char1,
*       t_enq        TYPE TABLE OF seqg3,
*       l_garg       TYPE eqegraarg,
*       l_head       TYPE mereq_header,
*       l_aktvt      TYPE aktvt.
*
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
*  IF im_req_item IS INITIAL.
*    CLEAR: ci_ebandb.
*  ELSE.
*    l_mereq_item = im_req_item->get_data( ).
*    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
*
*    eban-zemail_id_pr = l_mereq_item-zemail_id_pr.
*    eban-zcon_det_pr = l_mereq_item-zcon_det_pr.
** Check Mode (Display/Edit)
*    CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF.
*ENDIF.
*****************************************

*TABLES : ci_ebandb,
*         eban.
*
*DATA : l_mereq_item TYPE mereq_item,
*       l_header     TYPE REF TO if_purchase_requisition,
*       l_edit       TYPE char1,
*       t_enq        TYPE TABLE OF seqg3,
*       l_garg       TYPE eqegraarg,
*       l_head       TYPE mereq_header,
*       l_aktvt      TYPE aktvt.
*
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
*  IF im_req_item IS INITIAL.
*    CLEAR: ci_ebandb.
*  ELSE.
*    l_mereq_item = im_req_item->get_data( ).
*    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
*
*    eban-ZCONTACT_NO = l_mereq_item-ZCONTACT_NO.
**    eban-zcon_det_pr = l_mereq_item-zcon_det_pr.
** Check Mode (Display/Edit)
*    CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF.
*ENDIF.


*break payald.
*TABLES : ci_ebandb,
*         eban.
*DATA : l_mereq_item TYPE mereq_item,
*       l_header     TYPE REF TO if_purchase_requisition,
*       l_edit       TYPE char1,
*       t_enq        TYPE TABLE OF seqg3,
*       l_garg       TYPE eqegraarg,
*       l_head       TYPE mereq_header,
*       l_aktvt      TYPE aktvt.
*
*IF sy-tcode = 'ME51N' OR
*   sy-tcode = 'ME52N' OR
*   sy-tcode = 'ME53N'.
*  IF im_req_item IS INITIAL.
*    CLEAR: ci_ebandb.
*  ELSE.
*    l_mereq_item = im_req_item->get_data( ).
*    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
*
*    eban-zvendr_dob = l_mereq_item-zvendr_dob.
** Check Mode (Display/Edit)
*    CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF.
*ENDIF.


*break krushal.
***
*TABLES : ci_ebandb,
*         eban.
*DATA : l_mereq_item TYPE mereq_item,
*       l_header     TYPE REF TO if_purchase_requisition,
*       l_edit       TYPE char1,
*       t_enq        TYPE TABLE OF seqg3,
*       l_garg       TYPE eqegraarg,
*       l_head       TYPE mereq_header,
*       l_aktvt      TYPE aktvt.
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
*  IF im_req_item IS INITIAL.
*    CLEAR: ci_ebandb.
*  ELSE.
*    l_mereq_item = im_req_item->get_data( ).
*    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
*
*      EBAN-ZOFFICE_NO = l_mereq_item-ZOFFICE_NO.
*       CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF.
*ENDIF.
***************************************************************
*BREAK NAVEENC.
*TABLES : ci_ebandb,eban.
*DATA : l_mereq_item TYPE mereq_item,
*       l_header     TYPE REF TO if_purchase_requisition,
*       l_edit       TYPE char1,
*       t_enq        TYPE TABLE OF seqg3,
*       l_garg       TYPE eqegraarg,
*       l_head       TYPE mereq_header,
*       l_aktvt      TYPE aktvt.
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
*  IF im_req_item IS INITIAL.
*    CLEAR: ci_ebandb.
*  ELSE.
*    l_mereq_item = im_req_item->get_data( ).
*    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
*
*      EBAN-zemail_add = l_mereq_item-zemail_add.
*       CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF.
*ENDIF.

***********************
*TABLES : ci_ebandb,
*         eban.
***********************DATA : l_mereq_item TYPE mereq_item,
***********************       l_header     TYPE REF TO if_purchase_requisition,
***********************       l_edit       TYPE char1,
***********************       t_enq        TYPE TABLE OF seqg3,
***********************       l_garg       TYPE eqegraarg,
***********************       l_head       TYPE mereq_header,
***********************       l_aktvt      TYPE aktvt.
***********************IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
***********************  IF im_req_item IS INITIAL.
***********************    CLEAR: ci_ebandb.
***********************  ELSE.
***********************    l_mereq_item = im_req_item->get_data( ).
***********************    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
***********************
***********************      EBAN-ZEMP_DOB = l_mereq_item-ZEMP_DOB.
***********************EBAN-ZEMP_MOB  = l_mereq_item-ZEMP_MOB.
***********************EBAN-ZEMP_MAILID = l_mereq_item-zemp_mailid.
***********************EBAN-ZEMP_ADDRESS  = l_mereq_item-ZEMP_ADDRESS.
***********************EBAN-ZEMP_STREET  = l_mereq_item-ZEMP_STREET.
***********************EBAN-ZEMP_STATE  = l_mereq_item-ZEMP_STATE.
***********************EBAN-ZEMP_PIN  = l_mereq_item-ZEMP_PIN.
***********************       CALL METHOD im_req_item->get_activity
***********************      RECEIVING
***********************        re_aktvt = l_aktvt.
***********************       ENDIF.
***********************       endif.


*********Custom Field for Email by Freddie************

*break freddie.
*
*TABLES : ci_ebandb,eban.
*DATA : l_mereq_item TYPE mereq_item,
*       l_header     TYPE REF TO if_purchase_requisition,
*       l_edit       TYPE char1,
*       t_enq        TYPE TABLE OF seqg3,
*       l_garg       TYPE eqegraarg,
*       l_head       TYPE mereq_header,
*       l_aktvt      TYPE aktvt.
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
*  IF im_req_item IS INITIAL.
*    CLEAR: ci_ebandb.
*  ELSE.
*    l_mereq_item = im_req_item->get_data( ).
*    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
*
*      EBAN-ze_mail = l_mereq_item-ze_mail.
*       CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF.
*ENDIF.
********  chetan sharma ********
*break chetans.
*TABLES : ci_ebandb,eban.
*DATA : l_mereq_item TYPE mereq_item,
*       l_header     TYPE REF TO if_purchase_requisition,
*       l_edit       TYPE char1,
*       t_enq        TYPE TABLE OF seqg3,
*       l_garg       TYPE eqegraarg,
*       l_head       TYPE mereq_header,
*       l_aktvt      TYPE aktvt.
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N' OR sy-tcode EQ 'ME53N'.
*  IF im_req_item IS INITIAL.
*    CLEAR: ci_ebandb.
*  ELSE.
*    l_mereq_item = im_req_item->get_data( ).
*    MOVE-CORRESPONDING l_mereq_item TO ci_ebandb.
*
*    eban-zcontact_number = l_mereq_item-zcontact_number.
*    CALL METHOD im_req_item->get_activity
*      RECEIVING
*        re_aktvt = l_aktvt.
** Export Mode to Memory
*    EXPORT l_aktvt TO MEMORY ID 'EDIT_MODE'.
*  ENDIF.
*ENDIF.
*break mihirp.
*TABLES : ci_ebandb,
*         eban.
*TABLES ci_ebandb.
*
*DATA : lv_name TYPE name1_gp,
*       lv_mob TYPE num10,
*       l_item TYPE mereq_item,
*       l_obj_item TYPE REF TO if_purchase_requisition_item,
*       eban TYPE eban.
*IF im_req_item IS NOT INITIAL.
*  l_item = im_req_item->get_data( ).
*
*  IMPORT lv_name TO l_item-zzrol_no FROM MEMORY ID 'ROL'.
*
*    CALL METHOD im_req_item->set_data
*      EXPORTING
*        im_data = l_item.
*
*    MOVE-CORRESPONDING l_item TO ci_ebandb.
*
*    ENDIF.

*************************************************************************************************************************************************
******************** start change by rohini kumar ***********************************************************************************************
* BREAK rohinik.









*************************************************************************************************************************************************
******************** start change by rohini kumar ***********************************************************************************************