Add custom fields in MM01 under basic data1 tab.

Step 1: Add custom fields in table MARA by using append structure.

                * Goto SE11.

                * Give table name as MARA, click on display.

                * Click on append structure and click on create.

                * Save and activate.


Step 2: Goto SPRO -> click on IMG -> logistics general -> material master - Configuring the material master ->Execute: Create Program for Customized Sub screens.

            * Provide custom Function group name (ZFG_AB_MM01) and click on SAVE.

           * Check the Function group in SE80(ZFG_AB_MM01).

Step 3: Goto SPRO -> click on IMG -> logistics general -> material master - Configuring the material master -> Execute: Define Structure of Data Screens for Each Screen Sequence.

            * Select screen sequence number 21 and double click data screens.


            * Select basic data1 and double click on sub screens.


Step 4: Change the 8th record to SAPLZFG_AB_MM01(SAPL+FG) and save.



Step 5:  Design screen layout.

                * Goto SE80.

                * Double clicks on screen 0001 and click on layout.

                * Select box and double click on box. Give name and text.

                * Select Dictionary/program fields. Give table name as MARA and select custom fields drag into box.


            * Give group1 as Z1 for input fields.

Step 6: Add logic for custom fields.

            * Give modules and create modules.

            * Double clicks on each module, create and write logic.

MODULE modify_screen OUTPUT.
  IF sy-tcode EQ 'MM03'.
    LOOP AT SCREEN.
      IF screen-group1 = 'Z1'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDMODULE.

MODULE get_data OUTPUT.
  CALL FUNCTION 'MARA_GET_SUB'
    IMPORTING
      wmara = mara
      xmara = *mara
      ymara = lmara.
ENDMODULE.

MODULE modify_data INPUT.
  DATA: lv_veh_type TYPE mara-zz_veh_type,
        lv_sale_ord TYPE mara-zz_sale_ord,
        lv_body_num TYPE mara-zz_body_num.
  lv_veh_type  = mara-zz_veh_type.
  lv_sale_ord = mara-zz_sale_ord.
  lv_body_num = mara-zz_body_num.
  CALL FUNCTION 'MARA_GET_SUB'
    IMPORTING
      wmara = mara
      xmara = *mara
      ymara = lmara.
  mara-zz_veh_type = lv_veh_type.
  mara-zz_sale_ord = lv_sale_ord.
  mara-zz_body_num = lv_body_num.
  CALL FUNCTION 'MARA_SET_SUB'
    EXPORTING
      wmara = mara.
ENDMODULE.

Step 7: Check and activate all the objects.

Testing: 

        * Goto MM01.

          * Give required fields and create.


             * Click on save. Material is created.

             * Check in table level data is saved.

        



             * Check in MM03 T-code whether the fields are editable or not.



******************************Thank you*******************************

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

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more