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

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Add custom tab to me51n at item level in ABAP

Image
                                        * Customer exit for ME51N is -  MEREQ001                                         * To implement the customer exit in CMOD. Step 1: Goto T-code: CMOD. Step 2: Give project name and click on create. Step 3: Give short text and click on Enhancement assignments . Press enter and click on save. Step 4: Click on components . Double click on CI_EBANDB include and create the include. Step5: Give your field names (If your enhancement category can't be enhanced) as per our requirement. Otherwise click on append structure and create. Field names must started with ZZ. Step 6: Save and activate the structure. Step 7: Double click on C_EBANDBX and create structure like this. Step 7: Double click on screen ...
Read more