Updation not happening once after the material has been extened

Question

Dear Guru's,
                   I want to extend materials from one plant to another plant. I am using BAPI_MATERIAL_SAVEDATA.
every thing is doing good but the material was updated in the destination plant. I have used BAPI_TRANSACTION_COMMIT' also. ans not all getting any any error message. In the return table i am getting success message. please help me. I am sending my code also. please gothrough and give suggestion . it very urgent.
points will be given for solving the problem.
Thanks in advance.
REPORT  ZMMR_MATERIAL_EXTENSION.
TABLES: T001L, "Storage Locations
        MARA,  "General Material Data
        MAKT,  "Material Descriptions
        MBEW,  "Material Valuation
        MARC,  "Plant Data for Material
        MARD.  " Storage location
DATA : INDEX LIKE SY-TABIX.
DATA: BAPI_HEAD   LIKE BAPIMATHEAD,
      BAPI_MAKT   LIKE BAPI_MAKT,    "Material Description
      BAPI_MARA1  LIKE BAPI_MARA,    "Client Data
      BAPI_MARAX  LIKE BAPI_MARAX,
      BAPI_MARC1  LIKE BAPI_MARC,    "Plant View
      BAPI_MARCX  LIKE BAPI_MARCX,
      BAPI_MBEW1  LIKE BAPI_MBEW,    "Accounting View
      BAPI_MBEWX  LIKE BAPI_MBEWX,
      BAPI_MARD1  LIKE BAPI_MARD,   " STORAGE LOCATION
      BAPI_MARDX  LIKE BAPI_MARDX,
      BAPI_RETURN LIKE BAPIRET2.
DATA: BEGIN OF INT_MAKT OCCURS 100.
        INCLUDE STRUCTURE BAPI_MAKT.
DATA: END OF INT_MAKT.
for material updation*******
*data:mara_data type bapi_mara,
*mara_datax type bapi_marax,
*wa_bapi_te_mara type bapi_te_mara,
*wa_bapi_te_marax type bapi_te_marax,
*wa_valuepart(960),
*wa_valuepartx(960),
*t_extin type table of bapiparex,
*t_extinx type table of bapiparexx,
*d_extin type bapiparex,
*d_extinx type bapiparexx,
*ret type bapiret2.
DATA: BEGIN OF INT_MAT OCCURS 100,
         WERKS(4),     "Plant
         MTART(4),     "Material type
         MATNR(18),    "Material number
         MATKL(9) ,    "Material group
         MBRSH(1),     "Industry sector
         MEINS(3),     "Base unit of measure
         GEWEI(3),     "Weight Unit
         SPART(2),     "Division
         TRAGR(4),      "Transportation group
         EKWSL(4),      "Purchasing Value Key
marc
         EKGRP(3),     "Purchasing group
         MTVFP(2),     "Checking Group for Availability Check
         LADGR(4),     "Loading group
         PRCTR(10),    "Profit Center
         WEBAZ    like BAPI_MARC-GR_PR_TIME,     "Goods receipt processing time in days.
         PERKZ(1),      "Period indicator
         AWSLS(6),      "Variance Key
         DISGR(4),      "MRP Group
         DISMM(2),      "MRP Type
         DISPO(3),      "MRP controller
         DISLS(2),      "Lot size (materials planning)
         BESKZ(1),      "Procurement Type
         DZEIT like BAPI_MARC-INHSEPRODT,     "In-house production time.
         PLIFZ like BAPI_MARC-PLND_DELRY,     "Planned delivery time in days.
makt
         SPRAS(2),     "Language key
         MAKTX(40),    "Material description
***mbew
          BKLAS(4),                            "Valuation Class.
          VPRSV(1),                           "Price control indicator
          VERPR like BAPI_MBEW-MOVING_PR,      "Moving Average Price
          STPRS like BAPI_MBEW-STD_PRICE,      "Standard price
          PEINH like BAPI_MBEW-PRICE_UNIT,     "Price unit
****mard
          LGORT(4),                            "Storage location
       END OF INT_MAT.
SELECT-OPTIONS:
            PLANT    FOR  MARC-WERKS OBLIGATORY MEMORY ID PLT,
            MATERIAL FOR  MARA-MATNR MEMORY ID MAT,
            MATLTYPE FOR  MARA-MTART MEMORY ID MTY,
            DIVISION FOR  MARA-SPART MEMORY ID DIV.
PARAMETERS:  F_FILE LIKE RLGRAP-FILENAME
             DEFAULT 'C:\DATA\ZMATERIAL.XLS' MEMORY ID F_FILE,
             GETDATA AS CHECKBOX, "Tick to download materials data to local harddisk
             UPDDATA AS CHECKBOX. "Tick to update date to Materials Master
IF GETDATA = 'X'.
  PERFORM DOWNLOAD_DATA.
  PERFORM DOWNLOAD_FILE.
ENDIF.
IF UPDDATA = 'X'.
  PERFORM UPLOAD_FILE.
  PERFORM UPDATE_MM.
ENDIF.
*&      Form  DOWNLOAD_DATA
      text
FORM DOWNLOAD_DATA.
*IF MATLTYPE-LOW NE 'SFGD' OR MATLTYPE-LOW NE 'SPRS'.
  SELECT * FROM MARC  WHERE LVORM EQ ' '
                        AND WERKS IN PLANT
                        AND MATNR IN MATERIAL.
    CLEAR MARA.
    SELECT SINGLE * FROM MARA WHERE MATNR =  MARC-MATNR .
   CHECK MATLTYPE.
    IF MARA-MTART  = 'SFGD' or MARA-MTART  = '' or MARA-MTART = 'SPRS'.
      clear : MARA,INT_MAT.
      continue.
    ENDIF.
    CHECK DIVISION.
    CLEAR MBEW.
    SELECT SINGLE * FROM MBEW WHERE MATNR =  MARC-MATNR
                                AND BWKEY =  MARC-WERKS.
    CLEAR MAKT.
    SELECT SINGLE * FROM MAKT WHERE SPRAS =  'EN'
                                AND MATNR =  MARC-MATNR.
    CLEAR MARD.
    SELECT SINGLE * FROM MARD WHERE MATNR =  MARC-MATNR
                                AND WERKS =  MARC-WERKS.
    WRITE:/ MARC-WERKS,    "Plant
            MARA-MTART,    "Material type
            MARA-MATNR,    "Material number
            MARA-MATKL,    "Material group
            MARA-MBRSH,    "Industry sector
            MARA-MEINS,    "Base unit of measure
            MARA-GEWEI,    "Weight Unit
            MARA-SPART,    "Division
            MARA-TRAGR,    "Trasaction Group
            MARA-EKWSL,    "Purchase Value key
           MARA-IPRKZ,    "Period indi.for. SLED.
            MARC-EKGRP,    "Purchasing group
            MARC-MTVFP,    "Availability check
            MARC-LADGR,    "Loading grp.
            MARC-PRCTR,    "Profit Center
            MARC-WEBAZ,    "GR processing time
            MARC-PERKZ,    "Period Indicator
            MARC-AWSLS,    "Variance key
            MARC-DISGR,    "MRP GROUP
            MARC-DISMM,    "MRP TYPE
            MARC-DISPO,    "MRP CONTOLLER
            MARC-DISLS,    "LOT SIZE
            MARC-BESKZ,    "PROCUREMENT TYPE
            MARC-DZEIT,    "IN-HOUSE PRD TIME
            MARC-PLIFZ,    "PLANT DELIVERY TIME
            MBEW-BKLAS,    "VALUATION CLASS
            MBEW-VPRSV,    "Price control indicator
            MBEW-VERPR,    "MOVING PRICE
            MBEW-STPRS,    "Standard price
            MBEW-PEINH,    "Price unit
            MAKT-SPRAS,    "Language key
            MAKT-MAKTX,    "Material description
            MARD-LGORT.    "Storage location.
    INT_MAT-WERKS = MARC-WERKS.    "Plant
    INT_MAT-MTART = MARA-MTART.    "Material type
    INT_MAT-MATNR = MARA-MATNR.    "Material number
    INT_MAT-MATKL = MARA-MATKL.    "Material group
    INT_MAT-MBRSH = MARA-MBRSH.    "Industry sector
    INT_MAT-MEINS = MARA-MEINS.    "Base unit of measure
    INT_MAT-GEWEI = MARA-GEWEI.    "Weight Unit
    INT_MAT-SPART = MARA-SPART.    "Division
    INT_MAT-TRAGR = MARA-TRAGR.    "Trasaction Group
    INT_MAT-EKWSL = MARA-EKWSL.    "Purchase Value key
   INT_MAT-IPRKZ = MARA-IPRKZ.    "Period indi.for. SLED.
    INT_MAT-EKGRP = MARC-EKGRP.    "Purchasing group
    INT_MAT-MTVFP = MARC-MTVFP.    "Availability check
    INT_MAT-LADGR = MARC-LADGR.    "Loading grp.
    INT_MAT-PRCTR = MARC-PRCTR.    "Profit Center
    INT_MAT-WEBAZ = MARC-WEBAZ.    "GR processing time
    INT_MAT-PERKZ = MARC-PERKZ.    "Period Indicator
    INT_MAT-AWSLS = MARC-AWSLS.    "Variance key
    INT_MAT-DISGR = MARC-DISGR.    "MRP GROUP
    INT_MAT-DISMM = MARC-DISMM.    "MRP TYPE
    INT_MAT-DISPO = MARC-DISPO.    "MRP CONTOLLER
    INT_MAT-DISLS = MARC-DISLS.    "LOT SIZE
    INT_MAT-BESKZ = MARC-BESKZ.    "PROCUREMENT TYPE
    INT_MAT-DZEIT = MARC-DZEIT.    "IN-HOUSE PRD TIME
    INT_MAT-PLIFZ = MARC-PLIFZ.    "PLANT DELIVERY TIME
    INT_MAT-BKLAS = MBEW-BKLAS.    "Valution class
    INT_MAT-VPRSV = MBEW-VPRSV.    "Price control indicator
    INT_MAT-VERPR = MBEW-VERPR.    "Moving price
    INT_MAT-STPRS = MBEW-STPRS.    "Standard price
    INT_MAT-PEINH = MBEW-PEINH.    "Price unit
    INT_MAT-SPRAS = MAKT-SPRAS.    "Language key
    INT_MAT-MAKTX = MAKT-MAKTX.    "Material description
    INT_MAT-LGORT = MARD-LGORT.    " Storage location
    APPEND INT_MAT.
    CLEAR  INT_MAT.
  ENDSELECT.
*ENDIF.
ENDFORM.                    "DOWNLOAD_DATA
*&      Form  DOWNLOAD_FILE
      text
FORM DOWNLOAD_FILE.
  call function 'WS_DOWNLOAD'
    EXPORTING
      FILENAME                      = F_FILE
      FILETYPE                      = 'DAT'
  FILETYPE                      = 'WK1'
    tables
      data_tab                      = INT_MAT
    EXCEPTIONS
      FILE_OPEN_ERROR               = 1
      FILE_WRITE_ERROR              = 2
      INVALID_FILESIZE              = 3
      INVALID_TYPE                  = 4
      NO_BATCH                      = 5
      UNKNOWN_ERROR                 = 6
      INVALID_TABLE_WIDTH           = 7
      GUI_REFUSE_FILETRANSFER       = 8
      CUSTOMER_ERROR                = 9
      OTHERS                        = 10.
  IF SY-SUBRC = 0.
    FORMAT COLOR COL_GROUP.
    WRITE:/ 'Data Download Successfully to your local harddisk'.
    SKIP.
  ENDIF.
ENDFORM.                    "DOWNLOAD_FILE
*&      Form  UPLOAD_FILE
      text
FORM UPLOAD_FILE.
  call function 'WS_UPLOAD'
    EXPORTING
      FILENAME                      = F_FILE
      FILETYPE                      = 'DAT'
  FILETYPE                      = 'WK1'
    tables
      data_tab                      = INT_MAT
    EXCEPTIONS
      FILE_OPEN_ERROR               = 1
      FILE_WRITE_ERROR              = 2
      INVALID_FILESIZE              = 3
      INVALID_TYPE                  = 4
      NO_BATCH                      = 5
      UNKNOWN_ERROR                 = 6
      INVALID_TABLE_WIDTH           = 7
      GUI_REFUSE_FILETRANSFER       = 8
      CUSTOMER_ERROR                = 9
      OTHERS                        = 10.
  IF SY-SUBRC = 0.
    FORMAT COLOR COL_GROUP.
    WRITE:/ 'Data Upload Successfully from your local harddisk'.
    SKIP.
  ENDIF.
ENDFORM.                    "UPLOAD_FILE
*&      Form  UPDATE_MM
      text
FORM UPDATE_MM.
  LOOP AT INT_MAT.
Header
    BAPI_HEAD-MATERIAL        = INT_MAT-MATNR.
    BAPI_HEAD-IND_SECTOR      = INT_MAT-MBRSH.
    BAPI_HEAD-MATL_TYPE       = INT_MAT-MTART.
    BAPI_HEAD-BASIC_VIEW      = 'X'.
    BAPI_HEAD-PURCHASE_VIEW   = 'X'.
    BAPI_HEAD-ACCOUNT_VIEW    = 'X'.
    BAPI_HEAD-MRP_VIEW        = 'X'.
    BAPI_HEAD-STORAGE_VIEW    = 'X'.
   BAPI_HEAD-QUALITY_VIEW    = 'X'.
   BAPI_HEAD-COST_VIEW       = 'X'.
   wa_bapi_te_mara-material = INT_MAT-MATNR.
   wa_bapi_te_marax-material = INT_MAT-MATNR.
Material Description
    REFRESH INT_MAKT.
    INT_MAKT-LANGU           = INT_MAT-SPRAS.
    INT_MAKT-MATL_DESC       = INT_MAT-MAKTX.
    APPEND INT_MAKT.
   sorage location.
   BAPI_MARD1-PLANT         = INT_MAT-WERKS.
   BAPI_MARD1-STGE_LOC      = INT_MAT-LGORT.
   BAPI_MARDX-PLANT         = INT_MAT-WERKS.
   BAPI_MARDX-STGE_LOC      = INT_MAT-LGORT.
Client Data - Basic
    BAPI_MARA1-MATL_GROUP     = INT_MAT-MATKL.
    BAPI_MARA1-BASE_UOM       = INT_MAT-MEINS.
    BAPI_MARA1-UNIT_OF_WT     = INT_MAT-GEWEI.
    BAPI_MARA1-DIVISION       = INT_MAT-SPART.
    BAPI_MARA1-TRANS_GRP      = INT_MAT-TRAGR.
    BAPI_MARA1-PUR_VALKEY     = INT_MAT-EKWSL.
    BAPI_MARAX-MATL_GROUP = 'X'.
    BAPI_MARAX-BASE_UOM   = 'X'.
    BAPI_MARAX-UNIT_OF_WT = 'X'.
    BAPI_MARAX-DIVISION   = 'X'.
    BAPI_MARAX-TRANS_GRP  = 'X'.
    BAPI_MARAX-PUR_VALKEY = 'X'.
Plant - Purchasing
    BAPI_MARC1-PLANT      = INT_MAT-WERKS .     "PLANT-LOW.
    BAPI_MARC1-PUR_GROUP  = INT_MAT-EKGRP.
    BAPI_MARC1-AVAILCHECK = INT_MAT-MTVFP.
    BAPI_MARC1-LOADINGGRP = INT_MAT-LADGR.
    BAPI_MARC1-PROFIT_CTR = INT_MAT-PRCTR.   " profit center and plant are same
    BAPI_MARC1-GR_PR_TIME = INT_MAT-WEBAZ.
    BAPI_MARC1-PERIOD_IND = INT_MAT-PERKZ.
    BAPI_MARC1-VARIANCE_KEY = INT_MAT-AWSLS.
    BAPI_MARC1-MRP_GROUP =  INT_MAT-DISGR.
    BAPI_MARC1-MRP_TYPE  =  INT_MAT-DISMM.
    BAPI_MARC1-MRP_CTRLER = INT_MAT-DISPO.
    BAPI_MARC1-LOTSIZEKEY = INT_MAT-DISLS.
    BAPI_MARC1-PROC_TYPE =  INT_MAT-BESKZ.
    BAPI_MARC1-INHSEPRODT = INT_MAT-DZEIT.
    BAPI_MARC1-PLND_DELRY = INT_MAT-PLIFZ.
    BAPI_MARCX-PLANT      = INT_MAT-WERKS .         " PLANT-LOW.
    BAPI_MARCX-PUR_GROUP  = 'X'.
    BAPI_MARCX-AVAILCHECK = 'X'.
    BAPI_MARCX-LOADINGGRP = 'X'.
    BAPI_MARCX-PROFIT_CTR = 'X'.
    BAPI_MARCX-GR_PR_TIME = 'X'.
    BAPI_MARCX-PERIOD_IND = 'X'.
    BAPI_MARCX-VARIANCE_KEY = 'X'.
    BAPI_MARCX-MRP_GROUP   = 'X'.
    BAPI_MARCX-MRP_TYPE    = 'X'.
    BAPI_MARCX-MRP_CTRLER  = 'X'.
    BAPI_MARCX-LOTSIZEKEY  = 'X'.
    BAPI_MARCX-PROC_TYPE   = 'X'.
    BAPI_MARCX-INHSEPRODT  = 'X'.
    BAPI_MARCX-PLND_DELRY  = 'X'.
Accounting
    BAPI_MBEW1-VAL_AREA       = INT_MAT-WERKS.
    BAPI_MBEW1-VAL_CLASS      = INT_MAT-BKLAS.
    BAPI_MBEW1-PRICE_CTRL     = INT_MAT-VPRSV.
    BAPI_MBEW1-MOVING_PR      = INT_MAT-VERPR.
    BAPI_MBEW1-STD_PRICE      = INT_MAT-STPRS.
    BAPI_MBEW1-PRICE_UNIT     = INT_MAT-PEINH.
    BAPI_MBEWX-VAL_AREA   = INT_MAT-WERKS.
    BAPI_MBEWX-VAL_CLASS  = 'X'.
    BAPI_MBEWX-PRICE_CTRL = 'X'.
    BAPI_MBEWX-MOVING_PR  = 'X'.
    BAPI_MBEWX-STD_PRICE  = 'X'.
    BAPI_MBEWX-PRICE_UNIT = 'X'.
************for testing purpose
*wa_valuepart = wa_bapi_te_mara.
*d_extin-structure = 'BAPI_TE_MARA'.
*d_extin-valuepart1 = wa_valuepart(240).
*d_extin-valuepart2 = wa_valuepart+240(240).
*d_extin-valuepart3 = wa_valuepart+480(240).
*d_extin-valuepart4 = wa_valuepart+720(240).
*wa_valuepartx = wa_bapi_te_marax.
*d_extinx-structure = 'BAPI_TE_MARAX'.
*d_extinx-valuepart1 = wa_valuepartx(240).
*d_extinx-valuepart2 = wa_valuepartx+240(240).
*d_extinx-valuepart3 = wa_valuepartx+480(240).
*d_extinx-valuepart4 = wa_valuepartx+720(240).
*append d_extin to t_extin.
*append d_extinx to t_extinx.
remove up to here only.
*WRITE:/ BAPI_HEAD, BAPI_MARC1.
    call function 'BAPI_MATERIAL_SAVEDATA'
      EXPORTING
        HEADDATA            = BAPI_HEAD
        CLIENTDATA          = BAPI_MARA1
        CLIENTDATAX         = BAPI_MARAX
        PLANTDATA           = BAPI_MARC1
        PLANTDATAX          = BAPI_MARCX
        STORAGELOCATIONDATA = BAPI_MARD1
        STORAGELOCATIONDATAX = BAPI_MARDX
        VALUATIONDATA       = BAPI_MBEW1
        VALUATIONDATAX      = BAPI_MBEWX
      IMPORTING
        RETURN              = BAPI_RETURN
      TABLES
        MATERIALDESCRIPTION = INT_MAKT.
              extensionin = t_extin
             extensioninx = t_extinx.
    IF BAPI_RETURN-TYPE = 'S'  .
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = ''.
   ENDIF.
    IF BAPI_RETURN-TYPE = 'E'.
      WRITE:/ 'Error Message ', BAPI_RETURN-NUMBER,
                                BAPI_RETURN-MESSAGE.
     ENDIF.
  ENDLOOP.
ENDFORM.                    "UPDATE_MM
please give me reply
Prashanth

Answer 1

We have encountered the same problem at our company, and the following thread help us to resolve our problem:
Thanks to KevinCur.
Error while saving a .PDF File to a mapped drive
"It has to do with Protected Mode being turned on.  I don't know if it was off by default & now it is on with the update but turning it off changes Adobe Reader's behavior back to what the users expect - a prompt warning you if you want to overwrite the existing file & then selecting Yes to overwrite.
To disable Protected Mode:
Start Adobe Reader
Edit - Preferences - Security (Enhanced)
Uncheck Enable Protected Mode at Startup
Close Preferences & Close Reader"
We unchecked the "Enable Protected Mode at startup" box --> Yes --> OK.  Our users are happy now.  ^_^