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 ***********************************************************************************************

Comments

Post a Comment

Popular posts from this blog

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and  sy - uname  =  'FREDDIE' . BREAK freddie . *SELECT SINGLE KVGR1 KVGR2 *  FROM vbak *  INTO ls_vbak * WHERE vbeln = vbak-vbeln. * *IF vbak-KVGR1 <> ls_vbak-KVGR1 or vbak-KVGR2 <> ls_vbak-KVGR2. *  VBAK-FAKSK = '05'.
Read more

How to Give Dropdown in alv report in sap abap programming Language

-
   IF  p_fieldname  =  'REASONS' .     wa_fcat - f4availabl  =  'X' .    ENDIF .   PERFORM  dropdown_table  CHANGING  g_grid . FORM  dropdown_table  CHANGING  g_grid  TYPE  REF  TO  cl_gui_alv_grid .    DATA  : lt_dropdown  TYPE  lvc_t_drop  WITH  HEADER  LINE .    DATA :  gs_f4  TYPE  lvc_s_f4 ,         gt_f4  TYPE  lvc_t_f4 .    LOOP  AT  it_fcat  INTO  wa_fcat .      IF  wa_fcat - fieldname  =  'REASONS' .       wa_fcat - drdn_hndl  =  '1' .       wa_fcat - outputlen  =  20 .        MODIFY  it_fcat  FROM  wa_fcat .      ENDIF .    ENDLOOP . *CLEAR GT_F4. *  GS_F4-FIELDNAME  = 'REMARK'. *  GS_F4-REGISTER   = 'X'. *  GS_F4-GETBEFORE  = 'X'. *  GS_F4-CHNGEAFTER = 'X'. *  APPEND GS_F4 to GT_F4.    CALL  METHOD  g_grid -> register_f4_for_fields      EXPORTING       it_f4  =  gt_f4 .   lt_dropdown - handle  =  '1' .   lt_dropdown - value  =  'Loadability Issue' .    APPEND  lt
Read more

Long Text in input and output field in module pool

-
Image
display long text in input and output field then below code help you how to display long text your input and output fields in sap ************************************************************************ * Program Name      :  ZLONG_TEXT_EDITOR           Object ID:   p002    * * Description       :  Long text with function module                   * * Create Date       :  26.12.2018                                      * * FO Owner          :  Rohini kumar                                    * * Tech Owner        :  Rohini Kumar                                    * * Project Module    :  SD                                              * ************************************************************************ *                        Change Log                                    * ************************************************************************ *  REQ#         DATE         WHO            CHANGE_ID        DESCR     * *-------------------------------------------
Read more