topic Re: BAPI_MATERIAL_SAVEDATA in Application Development and Automation Discussions

BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 04:48:41 GMT

what are all the scenarios that we can use the bapi BAPI_MATERIAL_SAVEDATA.

what are the transaction codes affected using this bapi?

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 04:50:04 GMT

HI,

MM01.

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 04:51:10 GMT

so, can i take it for granted that each tcode has a different bapi or is it that a single bapi can serve multiple Tcodes?

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 04:54:47 GMT

Hi,

It is in MM01.

For example of using BAPI_MATERIAL_SAVEDATA refer the following link.

http://www.sap-img.com/abap/bapi-to-copy-materials-from-one-plant-to-another.htm

Regards,

Jagadish.

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 04:56:16 GMT

MM01 tcode.....

This function module updates the following tables.

mara, makt, marc, mard, mpop, marm mpgd, mean , mlan,

mbew, mlgn, mlgt, mvke, mltx, mfhm

You can check the function module for further information

reward points if useful.

regards

padma

Edited by: Padmavathi Palli on Jul 1, 2008 6:56 AM

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:02:44 GMT

this BAPI will effect MM01 ( create material)

if u wamt to upload a material from a flat file or from already existing material use this BAPI.

I am sending u one code for creating a new material from existing material( already created material).

just copy on yuor system and run.

 
*&---------------------------------------------------------------------*
*& Report  ZBAPI
*& prog to copy n create the existing material using bapi .
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBAPI.

tables : mara, makt , marc.

parameters : new_mat like mara-matnr,
             desc like makt-maktx,
             ref_mat like mara-matnr.
data : begin of it occurs 0,
       matnr like mara-matnr ,
       mbrsh like mara-mbrsh,
       mtart like mara-mtart,
       maktx like makt-maktx,
       meins like mara-meins,
       end of it.

data : ihead_data type BAPIMaTHEAD,
       iclient_data type bapi_mara,
       iclient_datax type bapi_marax,
       imakt like bapi_makt occurs 0 with header line ,
       bapiret like bapiret2.

select matnr mbrsh mtart meins from mara into corresponding fields of it where matnr = ref_mat.

append it.
endselect.

 it-matnr = new_mat.
 it-maktx = desc.
 ihead_data-material = it-matnr.
 ihead_data-ind_sector = it-mbrsh.
 ihead_data-matl_type = it-mtart.
 iclient_data-base_uom = it-meins.
 ihead_data-basic_view = 'X'.
 iclient_datax-base_uom = 'X'.
 imakt-matl_desc = it-maktx.
 imakt-langu = 'E'.
 append imakt.

 CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
   EXPORTING
     HEADDATA                   = ihead_data
    CLIENTDATA                 = iclient_data
    CLIENTDATAX                = iclient_datax
*    PLANTDATA                  =
*    PLANTDATAX                 =
*    FORECASTPARAMETERS         =
*    FORECASTPARAMETERSX        =
*    PLANNINGDATA               =
*    PLANNINGDATAX              =
*    STORAGELOCATIONDATA        =
*    STORAGELOCATIONDATAX       =
*    VALUATIONDATA              =
*    VALUATIONDATAX             =
*    WAREHOUSENUMBERDATA        =
*    WAREHOUSENUMBERDATAX       =
*    SALESDATA                  =
*    SALESDATAX                 =
*    STORAGETYPEDATA            =
*    STORAGETYPEDATAX           =
*    FLAG_ONLINE                = ' '
*    FLAG_CAD_CALL              = ' '
*    NO_DEQUEUE                 = ' '
*    NO_ROLLBACK_WORK           = ' '
  IMPORTING
    RETURN                     = bapiret
  TABLES
    MATERIALDESCRIPTION        = imakt
*    UNITSOFMEASURE             =
*    UNITSOFMEASUREX            =
*    INTERNATIONALARTNOS        =
*    MATERIALLONGTEXT           =
*    TAXCLASSIFICATIONS         =
*    RETURNMESSAGES             =
*    PRTDATA                    =
*    PRTDATAX                   =
*    EXTENSIONIN                =
*    EXTENSIONINX               =
           .
message bapiret-message type 'S'.

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:05:06 GMT

is this bapi used only to upload the material or any other scenario that it is useful for?

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:05:07 GMT

Hi,

It will effect the Material Create(MM01) transaction through this BAPI.

Reward points if it is helpful.

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:08:17 GMT

if u want to copy a material from existing material then it can be usefull also if you want to change only the few things in that case this ll also usefull

rewards if useful.

Regards

prakash varun

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:11:44 GMT

Prakash

can u tell me that for every tcode there is a bapi or is it that a single bapi serves more tcodes?

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:17:31 GMT

Hi,

A tcode may have several bapis,

but one bapi serves for one tcode only.

Regards,

Jagadish

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:19:07 GMT

SAP provides BAPI for almost every thing so when there is a need u just have to find those BAPI in t-code BAPI.

and one more thinf BAPI is nothing but FUNCTION MODULE, so you display BAPI in SE37 and you ll be able to know where

that BAPI can be used

Re: BAPI_MATERIAL_SAVEDATA

Former Member — Tue, 01 Jul 2008 05:23:59 GMT

by using this bapi tcode mm01 gets affected as well as which view to update like in the below example im updating basic ,sales ,purchase, storage views

*&---------------------------------------------------------------------*
*& Report  ZBAPI_MATERIAL_SAVEDATA
*&
*&---------------------------------------------------------------------*
*&
*&----------------------------------------------------------------------
*& PURPOSE : THIS REPORT USES BAPI MATERIAL SAVE DATA TO UPDATE AND CREATE
*&           THE MATERIAL
*&
*&
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBAPI_MATERIAL_SAVEDATA NO STANDARD PAGE HEADING MESSAGE-ID (ZHNC).

TYPES:BEGIN OF TY_MAT,
       MATERIAL(4),
       IND_SECTOR(1),
       MATL_TYPE(4),

       MATL_GROUP(9),
       BASE_UOM(3),
       BASE_UOM_ISO(3),
       PLANT(4),
       DEL_FLAG(1),
       PUR_GROUP(3),
       BASE_QTY(13),
       STGE_LOC(4),
       MRP_IND(1),
       SALES_ORG(4),
       DISTR_CHAN(2),
       DEL_FLAG1(1),
       MIN_ORDER(13),
       LANGU(2),
      MATL_DESC(40),

   END OF TY_MAT.


DATA: IT_DATA TYPE TABLE OF TY_MAT,
      WA_DATA LIKE LINE  OF IT_DATA.

*decalraing flag

data: v_flag value ''.


*DECLARING WORK AREAs  TO BE PASSED TO THE FUNCTION MODULE.

DATA: BAPI_HEAD LIKE BAPIMATHEAD,
      BAPI_CLIENTDATA LIKE BAPI_MARA,
      BAPI_CLIENTDATAX LIKE BAPI_MARAX,
      BAPI_PLANTDATA LIKE BAPI_MARC,
      BAPI_PLANTDATAX LIKE  BAPI_MARCX,
      BAPI_STORAGELOCATIONDATA LIKE BAPI_MARD,
      BAPI_STORAGELOCATIONDATAX LIKE BAPI_MARDX,
      BAPI_SALESDATA LIKE BAPI_MVKE,
      BAPI_SALESDATAX LIKE BAPI_MVKEX,
      BAPI_MAKT LIKE BAPI_MAKT,
      BAPI_RETURN LIKE BAPIRET2.

*INTERNAL TABLE TO HOLD THE MATERIAL DESCRIPTION

DATA: BEGIN OF IT_MAKT OCCURS 0.
INCLUDE STRUCTURE BAPI_MAKT.
DATA END OF IT_MAKT.

DATA:BEGIN OF IT_RET OCCURS 0.
INCLUDE STRUCTURE BAPIRET2.
DATA END OF IT_RET.

*INTERNAL TABLE TO HOLD HEADER DATA

DATA: IT_EXCEL TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.

*SELECTION-SCREEN ELEMENTS

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER: FNAME TYPE RLGRAP-FILENAME OBLIGATORY DEFAULT 'C:\Documents and Settings\Administrator\Desktop\MATMAS.XLS' .
PARAMETERS: P_BEGCOL TYPE I DEFAULT 1 NO-DISPLAY,
            P_BEGROW TYPE I DEFAULT 1 NO-DISPLAY,
            P_ENDCOL TYPE I DEFAULT 100 NO-DISPLAY,
            P_ENDROW TYPE I DEFAULT 32000 NO-DISPLAY.


SELECTION-SCREEN END OF BLOCK B1.

*DECLARATION OF EXCELAL TABLE

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.

PERFORM F_GET_FILE USING FNAME.


START-OF-SELECTION.

PERFORM F_XLS_ITAB USING FNAME
                   CHANGING IT_EXCEL.

PERFORM F_MOVE_DATA.

perform F_GET_DATA.






*&---------------------------------------------------------------------*
*&      Form  F_GET_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_FNAME  text
*      <--P_SY_SUBRC  text
*----------------------------------------------------------------------*
FORM F_GET_FILE  USING    P_FNAME LIKE FNAME.


CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
   PROGRAM_NAME        = SYST-REPID
   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ' '
*   STATIC              = ' '
*   MASK                = ' '
  CHANGING
    FILE_NAME           = P_FNAME
* EXCEPTIONS
*   MASK_TOO_LONG       = 1
*   OTHERS              = 2
          .
IF SY-SUBRC <> 0.
MESSAGE E006(ZHNC).
ENDIF.

ENDFORM.                    " F_GET_FILE
*&---------------------------------------------------------------------*
*&      Form  F_XLS_ITAB
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_FNAME  text
*      <--P_IT_EXCEL  text
*----------------------------------------------------------------------*
FORM F_XLS_ITAB  USING    P_FNAME
                 CHANGING P_IT_EXCEL.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    FILENAME                      = FNAME
    I_BEGIN_COL                   = P_BEGCOL
    I_BEGIN_ROW                   = P_BEGROW
    I_END_COL                     = P_ENDCOL
    I_END_ROW                     = P_ENDROW
  TABLES
    INTERN                        = IT_EXCEL
 EXCEPTIONS
   INCONSISTENT_PARAMETERS       = 1
   UPLOAD_OLE                    = 2
   OTHERS                        = 3
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM.                    " F_XLS_ITAB
*&---------------------------------------------------------------------*
*&      Form  F_MOVE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM F_MOVE_DATA .

DATA : LV_INDEX TYPE I.

FIELD-SYMBOLS <FS>.

*--- Sorting the internal table

SORT IT_EXCEL BY ROW COL.

CLEAR IT_EXCEL.

LOOP AT IT_EXCEL.

MOVE IT_EXCEL-COL TO LV_INDEX.

*--- Assigning the each record to an internal table row

ASSIGN COMPONENT LV_INDEX OF STRUCTURE WA_DATA TO <FS>.

*--- Asigning the field value to a field symbol

MOVE IT_EXCEL-VALUE TO <FS>.

AT END OF ROW.

APPEND WA_DATA TO IT_DATA.

CLEAR WA_DATA.

ENDAT.

ENDLOOP.

*
ENDFORM.                    " F_MOVE_DATA
*&---------------------------------------------------------------------*
*&      Form  F_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM F_GET_DATA .
LOOP AT IT_DATA INTO WA_DATA.

MOVE-CORRESPONDING WA_DATA  TO  BAPI_HEAD.

BAPI_HEAD-BASIC_VIEW ='X'.

BAPI_HEAD-SALES_VIEW ='X'.

BAPI_HEAD-PURCHASE_VIEW ='X'.

BAPI_HEAD-STORAGE_VIEW ='X'.

MOVE-CORRESPONDING WA_DATA TO BAPI_CLIENTDATA.

BAPI_CLIENTDATAX-MATL_GROUP = 'X'.

BAPI_CLIENTDATAX-BASE_UOM = 'X'.

BAPI_CLIENTDATAX-BASE_UOM_ISO = 'X'.

MOVE-CORRESPONDING WA_DATA TO BAPI_PLANTDATA.

BAPI_PLANTDATAX-PLANT = BAPI_PLANTDATA-PLANT.

BAPI_PLANTDATAX-DEL_FLAG = 'X'.

BAPI_PLANTDATAX-PUR_GROUP = 'X'.

BAPI_PLANTDATAX-BASE_QTY = 'X'.

MOVE-CORRESPONDING WA_DATA TO BAPI_STORAGELOCATIONDATA.

BAPI_STORAGELOCATIONDATA-PLANT = BAPI_PLANTDATA-PLANT.

BAPI_STORAGELOCATIONDATAX-PLANT = BAPI_STORAGELOCATIONDATA-PLANT.

BAPI_STORAGELOCATIONDATAX-STGE_LOC = BAPI_STORAGELOCATIONDATA-STGE_LOC.

BAPI_STORAGELOCATIONDATAX-MRP_IND = 'X'.

MOVE-CORRESPONDING WA_DATA TO BAPI_SALESDATA.

BAPI_SALESDATAX-SALES_ORG = BAPI_SALESDATA-SALES_ORG.

BAPI_SALESDATAX-DISTR_CHAN = BAPI_SALESDATA-DISTR_CHAN.

BAPI_SALESDATAX-DEL_FLAG = BAPI_SALESDATA-DEL_FLAG.

BAPI_SALESDATAX-MIN_ORDER = 'X'.

REFRESH IT_MAKT.

IT_MAKT-LANGU = WA_DATA-LANGU.

IT_MAKT-MATL_DESC = WA_DATA-MATL_DESC.

APPEND IT_MAKT.

CLEAR IT_RET.

REFRESH IT_RET.

PERFORM F_CALL_BAPI.


READ TABLE IT_RET WITH KEY TYPE = 'S'.



IF SY-SUBRC EQ 0.

PERFORM F_BAPI_COMMIT.

WRITE:/ 'MATERIAL CREATED OR UPDATED SUCESSFULLY WITH MATERIAL NO',WA_DATA-MATERIAL.

ELSE.


MESSAGE E000(ZHNC) WITH 'ERROR IN CREATING THE MATERIAL'.

*WRITE: / 'ERROR IN CREATIN MATERIAL',IT_RET-MESSAGE.

*PERFORM F_DOWNLOAD.

ENDIF.

*ENDIF.

ENDLOOP.

ENDFORM.                    " F_GET_DATA
*&---------------------------------------------------------------------*
*&      Form  F_CALL_BAPI
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM F_CALL_BAPI .
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
  EXPORTING
    HEADDATA                   = BAPI_HEAD
   CLIENTDATA                 =  BAPI_CLIENTDATA
   CLIENTDATAX                =  BAPI_CLIENTDATAX
   PLANTDATA                  =  BAPI_PLANTDATA
   PLANTDATAX                 =  BAPI_PLANTDATAX
   STORAGELOCATIONDATA        =  BAPI_STORAGELOCATIONDATA
   STORAGELOCATIONDATAX       =  BAPI_STORAGELOCATIONDATAX
   SALESDATA                  =  BAPI_SALESDATA
   SALESDATAX                 =  BAPI_SALESDATAX
 IMPORTING
   RETURN                     =  IT_RET
 TABLES
   MATERIALDESCRIPTION        = IT_MAKT
*   UNITSOFMEASURE             =
*   UNITSOFMEASUREX            =
*   INTERNATIONALARTNOS        =
*   MATERIALLONGTEXT           =
*   TAXCLASSIFICATIONS         =
*   RETURNMESSAGES             =
*   PRTDATA                    =
*   PRTDATAX                   =
*   EXTENSIONIN                =
*   EXTENSIONINX               =
          .

APPEND IT_RET.

ENDFORM.                    " F_CALL_BAPI
*&---------------------------------------------------------------------*
*&      Form  F_BAPI_COMMIT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM F_BAPI_COMMIT .

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
*   WAIT         =
* IMPORTING
*   RETURN        =
          .







ENDFORM.                    " F_BAPI_COMMIT