field is non editable while creating PR using code in ABAP.

 Task: Agreement can be non-editable field.

            Agreement tech name - KONNR


1. Find out the meta field value.

      * Goto T-code - SE37.

     * Give FM name - MEMFS_BUILD_MAPPING_PO_DOC.

        * Click on display.

       * Put breakpoint on first perform (12 line).

       * Execute the FM.

       * Give IM_APPLICATION name - MMPUR_PR_DOC.

       * Click on execute.

       * Goto Desktop3(preferable) and give CH_MAPPING in right side click on F6 button and check the data in CH_MAPPING.

        * Finally  meta field value for KONNR - '022'.

2. Goto Se37 and give FM name 'MEREQBADI_FS_ITEM' click on display.

3. Goto edit --> enhancement operations --> Show implicit enhancement.

 4. Place the cursor on Enhancement and click on enhance button.


5. Right click on enhancement (139 line) --> Enhancement operations--> Create Implementation.

6. Choose type of enhancement - Code.

7. Give enhancement implementation name and short text.

8. After write code like this.

ENHANCEMENT 1  ZIMPL_ASC.    "active version
         IF sy-uname = 'TRNGAB63'.
           DATA: wa_header TYPE mereq_header,

                wa_item   TYPE mereq_item,
                lv_konnr TYPE mmpur_metafield VALUE '022'.
          FIELD-SYMBOLS: <fs_konnr> like line of ch_fieldselection.
          CLEAR:wa_item.
          call METHOD im_header->get_data
            RECEIVING
              re_data =    wa_header              " Header Data
            .
          call METHOD im_item->get_data
            RECEIVING
              re_data =   wa_item    .           " Item Data
*            if wa_item-afnam = 'ajay'.
          if wa_item-bnfpo = '10'.
*          if wa_item-bsart = 'NB'.
            READ TABLE ch_fieldselection ASSIGNING <fs_konnr> WITH TABLE KEY metafield = lv_konnr.
            IF  sy-subrc = 0.
                <fs_konnr>-fieldstatus = '*'.
            ENDIF.
          ENDIF.
          ENDIF.

ENDENHANCEMENT.

9. Goto T-code - ME51N.

        * GIVE ITEM - 10 AND PRESS ENTER.



Comments

Post a Comment

Popular posts from this blog

Pf status and user command in factory method - OOPS ALV in ABAP

Image
  1. Goto  SE38 . 2. Give  program name  and click on  create . 3. Give  title  and  click on save . 4. Write  code. REPORT  zab_rp_oops_pfstatus_ucomm . TABLES :   ekko , ekpo . TYPES :   BEGIN  OF  ty_ekko ,          ebeln  TYPE  ekko - ebeln ,          bukrs  TYPE  ekko - bukrs ,          bstyp  TYPE  ekko - bstyp ,          bsart  TYPE  ekko - bsart ,         END  OF  ty_ekko . TYPES :   BEGIN  OF  ty_ekpo ,          ebeln  TYPE  ekpo - ebeln ,          ebelp  TYPE  ekpo - ebelp ,          matnr  TYPE  ekpo - matnr ,          werks  TYPE  ekpo - werks ,         END  OF  ty_ekpo . DATA :   lt_ekko  TYPE  TABLE  OF  ty_ekko ,       lr_ekko  TYPE  ty_ekko ,       lt_ekpo  TYPE  TABLE  OF  ty_ekpo ,       lr_ekpo  TYPE  ty_ekpo . DATA :   lo_salv1 TYPE   REF  TO  cl_salv_table ,       lo_salv2  TYPE  REF  TO  cl_salv_table ,       lo_events  TYPE  REF  TO  cl_salv_events_table ,       lo_grid    TYPE  REF  TO  cl_gui_alv_grid ,       lt_rows    TYPE  lvc_t_row ,       lr_rows    TYPE 
Read more

fetch the data from table and send an email in ABAP

Image
  Send an email in abap. REPORT  ZAJAY_EF_ZSTU . tables : zstu . data :  maildata  LIKE  sodocchgi1 ,       mailtxt   LIKE  solisti1  OCCURS  10  WITH  HEADER  LINE ,       mailrec   LIKE  somlrec90  OCCURS  0  WITH  HEADER  LINE ,       it_zstu  type  table  of  zstu  WITH  HEADER  LINE ,       wa_zstu  type  zstu . START-OF-SELECTION .      clear : maildata , mailtxt , mailrec .      REFRESH : mailtxt , mailrec . select-OPTIONS  :  s_id  for  zstu - zstu_id . SELECT  *  from  zstu  into  TABLE  it_zstu  where  zstu_id  in  s_id .    sort  it_zstu  by  zstu_id . maildata - obj_descr  =  | Employee details | . mailtxt  =  '<!DOCTYPE html>' . append  mailtxt . mailtxt  =  '<html lang="en">' . append  mailtxt . mailtxt  =  '<head>' . append  mailtxt .   mailtxt  =  '<title>Email Functionality</title>' .   append  mailtxt . * mailtxt = ' <style>'. * append mailtxt. * *  mailtxt = 'table, th, td { bor
Read more

Enhancements in abap

 Enhancements     *  Will enhance the sap functionality in customer name space.     *  Customer  name space-> (z or y) Modifications      *  Will enhance the sap functionality in sap name space.     *  Name  should not start with z or y. Types      1. Implicit and Explicit enhancements { enhancements }      2. Customer exit. { enhancements }      3. Badi { enhancements }      4. User exit { modification } Implicit      *  Implicit point is available at the starting or at the last of program.     *  Subroutines, function  modules  etc. Explicit        *  Explicit point & section are available at any line.     *  Point  - It will not give default implementation .                     -  You can only add additional codes, you can't replace the existing code.     *  Section - It will give default implementation .      -  You can change or replace the existing code. BADI             - Badi is an enhancement. we enhance the sap functionalities in customer name space. -
Read more