topic Re: value not getting updated in database table in Application Development and Automation Discussions

value not getting updated in database table

Former Member — Tue, 05 Feb 2008 11:19:48 GMT

Hi,

I am working on a module pool program.In the o/p screen there are many records.If the user wants to change the field values of a particular record,he clicks on the checkbox besides that record and when he click on the change button,control goes to update screen.In this screen when the user changes the value of one particular field and click on the checkbox beside and then click on the execute button,the changed value of that field should get updated in that particular record in the database table.

I have used FM BAPI_MATERIAL_SAVEDATA to update the database table.

The changed value is not getting updated in the database table.What would be the reason for this?

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 11:21:47 GMT

Check the return message that the BAPI is generating

Jayant

Re: value not getting updated in database table

kanthimathikris — Tue, 05 Feb 2008 11:21:54 GMT

Use the BAPI, BAPI_TRANSACTION_COMMIT to save the changes.

Regards,

Kanthimathi

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 11:23:45 GMT

Hi,

After calling the bapi fm, you need to specify the COMMIT WORK or need to call the BAPI_TRANSACTION_COMMIT fm.

Rgds,

Bujji

Edited by: Bujji on Feb 5, 2008 12:24 PM

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 11:54:14 GMT

good

check this link on bapi.

http://searchsap.techtarget.com/news/article/0,289142,sid21_gci948835,00.html

thanks

mrutyun^

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 11:58:24 GMT

Hi,

Thanks for replying back.

Can you please give me a sample code for this function module?

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 12:01:28 GMT

Hi,

Below statement is enough.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

Ashok

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 12:05:16 GMT

Hi,

What values should we pass for parameters wait and return in this function module.

Please give me an example.

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 12:21:42 GMT

Hi,

DATA: GT_RETURN TYPE BAPIRET2.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'

IMPORTING

RETURN = GT_RETURN.

ENDIF.

sample program

REPORT ZBAPI_MATERIAL_SAVETEXT LINE-SIZE 132 MESSAGE-ID ZMMBAPI.

*<<<DATA DECLEA FOR HEADER>>>>>>>>>>>>>>>>>>>>>>>>>>>>

****<<<<<Header segment with control information>>>>>>

DATA: HEADER LIKE BAPIMATHEAD.

*<<CLIENT DATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

*<<<<<<<<Client-specific material data>>>>>>>>>>>>>>>>

DATA: GT_CLIENTDATA LIKE BAPI_MARA.

**<<<<<<<<CLIENT DATA INITIAL>>>>>>>>>>>>>

**<<<<<<<<Information on update for CLIENTDATA>>>>>>>>

DATA: GT_CLIENTDATAX LIKE BAPI_MARAX.

***<<<<<PLANTDATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

**<<<<<<<Plant-specific material data>>>>>>>>>>>>>>>>>

DATA: GT_PLANTDATA LIKE BAPI_MARC.

**<<<<<<<<PLANT DATA INITIAL>>>>>>>>>>>>>>>

**<<<<<<<<Information on update for PLANTDATA>>>>>>>>

DATA:GT_PLANTDATAX LIKE BAPI_MARCX.

*<<<<<<<<<<<<<<<FORECASTPARAMETERS>>>>>>>>>>>>>>>>>>>

DATA: GT_FORECASTPARAMETERS LIKE BAPI_MPOP.

*<<<<<<<<<<<<<Information on update for FORECASTDATA>

*<<<<<<<<<<<<<<<FORECASTPARAMETERS DATA INTIAL>>>>>>>

DATA:GT_FORECASTPARAMETERSX LIKE BAPI_MPOPX.

*<<<<<<<<<<<<<<<PLANNING DATA >>>>>>>>>>>>>>>>>>>>>>

*<<<<<<<<<<<Information on update for PLANNINGDATA>>>

DATA:GT_PLANNINGDATA LIKE BAPI_MPGD.

*<<<<<<<<<<<<<<<PLANNING INITIAL >>>>>>>>>>>>>>>>>>>

DATA:GT_PLANNINGDATAX LIKE BAPI_MPGDX.

*<<<<<<<<<<<<<<<STORAGELOCATIONDATA>>>>>>>>>>

*<<<<<<<<<<<<Storage-location-specific material data>>

DATA: GT_STORAGELOCATIONDATA LIKE BAPI_MARD.

*<<<<<<Information on update for STORAGELOCATIONDATA>>

*<<<<<<<<<<<<<<<STORAGELOCATIONDATA INITIAL>>>>>>>>>>>

DATA:GT_STORAGELOCATIONDATAX LIKE BAPI_MARDX.

*<<<<<<<<<<<<<<<SALESDATA DATA >>>>>>>>>>>>>>>>>>>>>

DATA: GT_SALESDATA LIKE BAPI_MVKE.

*<<<<<<<<<<<<<<<Information on update for SALESDATA>>>

*<<<<<<<<<<<<<<<SALESDATA DATA INITIAL >>>>>>>>>>>>>>

DATA: GT_SALESDATAX LIKE BAPI_MVKEX.

****<<<<<<<<<<<<Units of measure>>>>>>>>>>>>>>>>>>>>>>>

*****<<<<<<<<<<<<<<<GT_UNITSOFMEASURE>>>>>>>>>>>>>>>>>>

DATA: GT_UNITSOFMEASURE LIKE BAPI_MARM OCCURS 0 WITH HEADER LINE.

*****<<<<<<<<<<<<<<<GT_UNITSOFMEASUREX>>>>>>>>>>>>>>>>>

DATA: GT_UNITSOFMEASUREX LIKE BAPI_MARMX OCCURS 0 WITH HEADER LINE.

*****<<<<<<<<<<<<<<<SALES TEXT>>>>>>>>>>>>>>>>>>>>>>>>>>

DATA: GT_MATERIALLONGTEXT LIKE BAPI_MLTX OCCURS 0 WITH HEADER LINE.

*****<<<<<<<<<<<<<<<MATERIAL_DESC>>>>>>>>>>>>>>>>>>>>>>>>>>

DATA: MATERIAL_DESC LIKE BAPI_MAKT OCCURS 0 WITH HEADER LINE.

*******<<<<<<<RETURN PARAMETERS>>>>>>>>

DATA: ITAB_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE. "#EC NEEDED

******<<<<<<<WAREHOUSENUMBERDATA>>>>>>>>>>>>>>

DATA: GT_WAREHOUSENUMBERDATA LIKE BAPI_MLGN.

******<<<<<<<WAREHOUSENUMBERDATA>>>>>>>>>>>>>>

DATA: GT_WAREHOUSENUMBERDATX LIKE BAPI_MLGNX.

******<<<<<<<STORAGETYPEDATA>>>>>>>>>>>>>>>>>>

DATA: GT_STORAGETYPEDATA LIKE BAPI_MLGT.

******<<<<<<<STORAGETYPEDATAX>>>>>>>>

DATA: GT_STORAGETYPEDATAX LIKE BAPI_MLGTX.

***<<<BAPI_TRANSCATION COMMIT>>>>>>>>>>>>>>>>>

DATA: GT_RETURN TYPE BAPIRET2. "#EC NEEDED

***<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

DATA: GT_VALUATIONDATA like BAPI_MBEW. "Valuation data

***<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

DATA: GT_VALUATIONDATAX like BAPI_MBEWX. "Valuation data

data: gt_PRTDATA like BAPI_MFHM OCCURS 0 WITH HEADER LINE.

data: gt_PRTDATAX like BAPI_MFHM OCCURS 0 WITH HEADER LINE.

**<<<<International Article Numbers (EANs)>>>>

DATA: GT_INTERNATIONALARTNOS LIKE BAPI_MEAN OCCURS 0 WITH HEADER LINE,

**<<<<Tax classifications>>>>>>>>>>>>>>>>>>>>>>

GT_TAXCLASSIFICATIONS LIKE BAPI_MLAN OCCURS 0 WITH HEADER LINE,

GT_RETURNMESSAGES LIKE BAPI_MATRETURN2 OCCURS 0 WITH HEADER LINE.

**<<<<<<<<<<<<<<FLAT FILE INTERNAL TABLE USED FOR DOWNLOAD EXCEL FILE>>>>>>

DATA: BEGIN OF GT_FT_ITAB OCCURS 0,

MATERIAL TYPE BAPIMATHEAD-MATERIAL , "Material Number

IND_SECTOR TYPE BAPIMATHEAD-IND_SECTOR, "Industry Sector

MATL_TYPE TYPE BAPIMATHEAD-MATL_TYPE , "Material Type

BASIC_VIEW TYPE BAPIMATHEAD-BASIC_VIEW, "Basic Data View

SALES_VIEW TYPE BAPIMATHEAD-SALES_VIEW , "Sales View

PURCHASE_VIEW TYPE BAPIMATHEAD-PURCHASE_VIEW, "Purchasing View

MRP_VIEW TYPE BAPIMATHEAD-MRP_VIEW ,"Material Requirements Planning (MRP) View

FORECAST_VIEW TYPE BAPIMATHEAD-FORECAST_VIEW , "Forecasting View

WORK_SCHED_VIEW TYPE BAPIMATHEAD-WORK_SCHED_VIEW ,"Work Scheduling View

PRT_VIEW TYPE BAPIMATHEAD-PRT_VIEW , "Production Resources/Tools (PRT) View

STORAGE_VIEW TYPE BAPIMATHEAD-STORAGE_VIEW , "Storage View

WAREHOUSE_VIEW TYPE BAPIMATHEAD-WAREHOUSE_VIEW , "Warehouse Management View

QUALITY_VIEW TYPE BAPIMATHEAD-QUALITY_VIEW, "Quality Management View

ACCOUNT_VIEW TYPE BAPIMATHEAD-ACCOUNT_VIEW , "Accounting View

COST_VIEW TYPE BAPIMATHEAD-COST_VIEW , "Costing View

*****<<<<<<<<CLIENT DATA>>>>>>>>>>>>>>>>>>>>

MATL_GROUP TYPE BAPI_MARA-MATL_GROUP, "Materialgroup

OLD_MAT_NO TYPE BAPI_MARA-OLD_MAT_NO, "Old material number

BASE_UOM TYPE BAPI_MARA-BASE_UOM, "Base Unit of Measure

BASE_UOM_ISO TYPE BAPI_MARA-BASE_UOM_ISO ,"Base unit of measure in ISO code

DOCUMENT TYPE BAPI_MARA-DOCUMENT, "Document number

DOC_TYPE TYPE BAPI_MARA-DOC_TYPE, "Document type

DOC_VERS TYPE BAPI_MARA-DOC_VERS, "Document version

DOC_FORMAT TYPE BAPI_MARA-DOC_FORMAT,"Page format of document

DOC_CHG_NO TYPE BAPI_MARA-DOC_CHG_NO, "Document change number

PAGE_NO TYPE BAPI_MARA-PAGE_NO, "Page number of document

PROD_MEMO TYPE BAPI_MARA-PROD_MEMO , "Production/Inspection Memo

PAGEFORMAT TYPE BAPI_MARA-PAGEFORMAT, "Page Format of Production Memo

SIZE_DIM TYPE BAPI_MARA-SIZE_DIM, "Size/dimensions

BASIC_MATL TYPE BAPI_MARA-BASIC_MATL, "Basic Material

STD_DESCR TYPE BAPI_MARA-STD_DESCR, "Industry Standard Description

DSN_OFFICE TYPE BAPI_MARA-DSN_OFFICE, "Laboratory/design office

NET_WEIGHT TYPE BAPI_MARA-NET_WEIGHT, " "Net weight

UNIT_OF_WT TYPE BAPI_MARA-UNIT_OF_WT, "Weight Unit

DIVISION TYPE BAPI_MARA-DIVISION, "Division

CAD_ID TYPE BAPI_MARA-CAD_ID, "Competitor

PROD_ALLOC TYPE BAPI_MARA-PROD_ALLOC, "Procurement rule

HAZMATPROF TYPE BAPI_MARA-HAZMATPROF, "Source of Supply

HIGH_VISC TYPE BAPI_MARA-HIGH_VISC, "Allowed packaging weight

LOOSEORLIQ TYPE BAPI_MARA-LOOSEORLIQ, "Long material number

PERIOD_IND_EXPIRATION_DATE TYPE BAPI_MARA-PERIOD_IND_EXPIRATION_DATE,"Expiration Dat

ITEM_CAT TYPE BAPI_MARA-ITEM_CAT, "General item category group

EXTMATLGRP TYPE BAPI_MARA-EXTMATLGRP, "External Material Group

*****CLIENT DATA INITIAL>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

MATL_GROUPX TYPE BAPI_MARAX-MATL_GROUP, "Materialgroup

OLD_MAT_NOX TYPE BAPI_MARAX-OLD_MAT_NO, "Old material number

BASE_UOMX TYPE BAPI_MARAX-BASE_UOM, "Base Unit of Measure

BASE_UOM_ISOX TYPE BAPI_MARAX-BASE_UOM_ISO, "Base unit of measure in ISO code

DOCUMENTX TYPE BAPI_MARAX-DOCUMENT, "Document number

DOC_TYPEX TYPE BAPI_MARAX-DOC_TYPE, "Document type

DOC_VERSX TYPE BAPI_MARAX-DOC_VERS, "Document version

DOC_FORMATX TYPE BAPI_MARAX-DOC_FORMAT,"Page format of document

DOC_CHG_NOX TYPE BAPI_MARAX-DOC_CHG_NO, "Document change number

PAGE_NOX TYPE BAPI_MARAX-PAGE_NO, "Production/Inspection Memo

PROD_MEMOX TYPE BAPI_MARAX-PROD_MEMO, "Page Format of Production Memo

SIZE_DIMX TYPE BAPI_MARAX-SIZE_DIM, "Size/dimensions

BASIC_MATLX TYPE BAPI_MARAX-BASIC_MATL, "Basic Material

STD_DESCRX TYPE BAPI_MARAX-STD_DESCR, "Industry Standard Description

DSN_OFFICEX TYPE BAPI_MARAX-DSN_OFFICE, "Laboratory/design office

NET_WEIGHTX TYPE BAPI_MARAX-NET_WEIGHT, " "Net weight

UNIT_OF_WTX TYPE BAPI_MARAX-UNIT_OF_WT, "Weight Unit

DIVISIONX TYPE BAPI_MARAX-DIVISION, "Division

PROD_HIERX TYPE BAPI_MARA, "Competitor

CAD_IDX TYPE BAPI_MARAX-PROD_HIER, "Procurement rule

ALLWD_VOLX TYPE BAPI_MARAX-ALLWD_VOL, "Allowed packaging

PVALIDFROMX TYPE BAPI_MARAX-PVALIDFROM, "Date from which the cross-plant material status

SVALIDFROMX TYPE BAPI_MARAX-SVALIDFROM, "Date from which the X-distr.-chain material stat

PROD_ALLOCX TYPE BAPI_MARAX-PROD_ALLOC,

HIGH_VISCX TYPE BAPI_MARAX-HIGH_VISC,"Indicator: Highly Viscous

LOOSEORLIQX TYPE BAPI_MARAX-LOOSEORLIQ, "Indicator: In Bulk/Liquid

INV_MAT_NO_EXTERNALX TYPE BAPI_MARAX-INV_MAT_NO_EXTERNAL,

EXTMATLGRPX TYPE BAPI_MARAX-EXTMATLGRP, " External Material Group

****<<<<<<<<<<<<<<PLANTDATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

PLANT TYPE BAPI_MARC-PLANT, " Plant

MRP_TYPE TYPE BAPI_MARC-MRP_TYPE, "MRP Type

REORDER_PT TYPE BAPI_MARC-REORDER_PT, "Reorder Point

SAFETY_STK TYPE BAPI_MARC-SAFETY_STK, "Safety stock

MINLOTSIZE TYPE BAPI_MARC-MINLOTSIZE, "Minimum lot size

****<<<<<<<<<<<<<<PLANTDATA INITIAL>>>>>>>>>>>>>>>>>>>>>>

PLANTX TYPE BAPI_MARCX-PLANT, " Plant

MRP_TYPEX TYPE BAPI_MARCX-MRP_TYPE, "MRP Type

REORDER_PTX TYPE BAPI_MARCX-REORDER_PT, "Reorder Point

SAFETY_STKX TYPE BAPI_MARCX-SAFETY_STK, "Safety stock

MINLOTSIZEX TYPE BAPI_MARCX-MINLOTSIZE, "Minimum lot size

*<<<<<<<<<<<<<<<FORECASTPARAMETERS>>>>>>>>>>

F_PLANT TYPE BAPI_MPOPX-PLANT, " Plant

*<<<<<<<<<<<<<<<FORECASTPARAMETERS DATA INTIAL>>>>>>>>>>

F_PLANTX TYPE BAPI_MPOPX-PLANT, " Plant

*<<<<<<<<<<<<<<<PLANNING DATA >>>>>>>>>>>>>>>>>>>>>>>>>

P_PLANT TYPE BAPI_MPGD-PLANT, " Plant

*<<<<<<<<<<<<<<<PLANNING DATA INITAIAL >>>>>>>>>>>>>>>

P_PLANTX TYPE BAPI_MPGDX-PLANT, " Plant

*<<<<<<<<<<<<<<<STORAGELOCATIONDATA>>>>>>>>>>>>>>>>>>>>

S_PLANT TYPE BAPI_MARD-PLANT, " Plant

S_STGE_LOC TYPE BAPI_MARD-STGE_LOC,

*<<<<<<<<<<<<<<<STORAGELOCATIONDATA INITIAL>>>>>>>>>>

S_PLANTX TYPE BAPI_MARDX-PLANT, " Plant

S_STGE_LOCX TYPE BAPI_MARDX-STGE_LOC, "Storage Location

*<<<<<<<<<<<<<<<SALESDATA DATA >>>>>>>>>>

SALES_ORG TYPE BAPI_MVKE-SALES_ORG, "Sales Organization

DISTR_CHAN TYPE BAPI_MVKE-DISTR_CHAN, "Distribution Channel

*<<<<<<<<<<<<<<<SALESDATA DATA INITIAL >>>>>>>>>>

SALES_ORGX TYPE BAPI_MVKEX-SALES_ORG, "Sales Organization

DISTR_CHANX TYPE BAPI_MVKEX-DISTR_CHAN, "Distribution Channel

*****<<<<<<<<<<<<<<<MATERIAL_DESC>>>>>>>>>>>>>>>>>>>>>>>>>>

LANGU TYPE BAPI_MAKT-LANGU , "Language Key

LANGU_ISO TYPE BAPI_MAKT-LANGU_ISO , "Language according to ISO 639

MATL_DESC TYPE BAPI_MAKT-MATL_DESC , "Material Description

*****<<<<<<<<<<<<<<<GT_UNITSOFMEASURE>>>>>>>>>>>>>>>>>>>>>>>>>>

ALT_UNIT TYPE BAPI_MARM-ALT_UNIT,

"Alternative Unit of Measure for Stockkeeping Unit

ALT_UNIT_ISO TYPE BAPI_MARM-ALT_UNIT,

"Alternative Unit of Measure for Stockkeeping Unit

******<<<<<<<<<<<<<<<GT_UNITSOFMEASUREX>>>>>>>>>>>>>>>>>>>>>>>>>>

UNIT TYPE BAPI_MARMX-ALT_UNIT,

"Alternative Unit of Measure for Stockkeeping Unit

UNIT_ISO TYPE BAPI_MARMX-ALT_UNIT_ISO,

"Alternative unit of measure to stockkeeping unit in ISO code

*****<<<<<<<<<<<<<<<SALES TEXT>>>>>>>>>>>>>>>>>>>>>>>>>>

APPLOBJECT TYPE BAPI_MLTX-APPLOBJECT, "Texts: application object

TEXT_NAME TYPE BAPI_MLTX-TEXT_NAME, "Name

TEXT_ID TYPE BAPI_MLTX-TEXT_ID, "Text ID

S_LANGU TYPE BAPI_MLTX-LANGU, "Language key

TEXT_LINE TYPE BAPI_MLTX-TEXT_LINE, "Text line

END OF GT_FT_ITAB,

TEXT(243), " Return Message

WA_HEAD LIKE THEAD, " SalesText Header Info

ITAB_TLINE LIKE STANDARD TABLE OF TLINE WITH HEADER LINE, " SalesText

ERROR_REC TYPE I, " Error Records Counter

SUCCESS_REC TYPE I, " Successful Records Counter

TOT_REC TYPE I. " Total Records Counter

selection block for EXCEL UPLOAD FILE>>>>>>>>>>>>>>>>>>>>>>>>

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.

PARAMETERS FILE TYPE IBIPPARMS-PATH OBLIGATORY .

SELECTION-SCREEN END OF BLOCK B1.

*<<<<AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE .>>>>>>>>>>>>

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE .

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

IMPORTING

FILE_NAME = FILE.

**<<<<<<<<<<<<<<<<<START-OF-SELECTION.>>>>>>>>>>>>>>>>>>>>>>>>>>>

START-OF-SELECTION.

CALL FUNCTION 'WS_UPLOAD' "#EC *

EXPORTING

FILENAME = FILE

FILETYPE = 'DAT'

TABLES

DATA_TAB = GT_FT_ITAB

EXCEPTIONS

CONVERSION_ERROR = 1

FILE_OPEN_ERROR = 2

FILE_READ_ERROR = 3

INVALID_TYPE = 4

NO_BATCH = 5

UNKNOWN_ERROR = 6

INVALID_TABLE_WIDTH = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

NO_AUTHORITY = 10

OTHERS = 11.

IF SY-SUBRC <> 0 .

MESSAGE E000.

ENDIF.

SKIP 3.

FORMAT COLOR COL_HEADING INVERSE ON.

WRITE 40 TEXT-001.

FORMAT COLOR COL_HEADING INVERSE OFF.

SKIP 1.

FORMAT COLOR COL_NEGATIVE INVERSE ON.

WRITE :/3 TEXT-002, 13 SY-MANDT , 104 TEXT-003, 111 SY-UNAME,

/3 TEXT-004, 13 SY-DATUM , 104 TEXT-005, 111 SY-UZEIT.

FORMAT COLOR COL_NEGATIVE INVERSE OFF.

SKIP 3.

LOOP AT GT_FT_ITAB.

HEADER-MATERIAL = GT_FT_ITAB-MATERIAL . " 'M-32'.

HEADER-IND_SECTOR = GT_FT_ITAB-IND_SECTOR . " 'C'.

HEADER-MATL_TYPE = GT_FT_ITAB-MATL_TYPE . " 'FERT'.

HEADER-BASIC_VIEW = GT_FT_ITAB-BASIC_VIEW . " 'X'.

HEADER-SALES_VIEW = GT_FT_ITAB-SALES_VIEW. " 'X'.

HEADER-PURCHASE_VIEW = GT_FT_ITAB-PURCHASE_VIEW . " 'X'.

HEADER-MRP_VIEW = GT_FT_ITAB-MRP_VIEW . " 'X'.

HEADER-FORECAST_VIEW = GT_FT_ITAB-FORECAST_VIEW . " 'X'.

HEADER-WORK_SCHED_VIEW = GT_FT_ITAB-WORK_SCHED_VIEW ." 'X'.

HEADER-PRT_VIEW = GT_FT_ITAB-PRT_VIEW . " 'X'.

HEADER-STORAGE_VIEW = GT_FT_ITAB-STORAGE_VIEW . " 'X'.

HEADER-WAREHOUSE_VIEW = GT_FT_ITAB-WAREHOUSE_VIEW . " 'X'.

HEADER-QUALITY_VIEW = GT_FT_ITAB-QUALITY_VIEW . " 'X'.

HEADER-ACCOUNT_VIEW = GT_FT_ITAB-ACCOUNT_VIEW . " 'X'.

HEADER-COST_VIEW = GT_FT_ITAB-COST_VIEW . " 'X'.

*<<CLIENT DATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>

GT_CLIENTDATA-MATL_GROUP = GT_FT_ITAB-MATL_GROUP . " '01'.

GT_CLIENTDATA-OLD_MAT_NO = GT_FT_ITAB-OLD_MAT_NO . " '1000'.

GT_CLIENTDATA-BASE_UOM = GT_FT_ITAB-BASE_UOM . " 'EA'.

GT_CLIENTDATA-BASE_UOM_ISO = GT_FT_ITAB-BASE_UOM_ISO ." 'EA'.

GT_CLIENTDATA-DOCUMENT = GT_FT_ITAB-DOCUMENT . "'MATERIAL'.

GT_CLIENTDATA-DOC_TYPE = GT_FT_ITAB-DOC_TYPE . " 'A'.

GT_CLIENTDATA-DOC_VERS = GT_FT_ITAB-DOC_VERS . " '5'.

GT_CLIENTDATA-DOC_FORMAT = GT_FT_ITAB-DOC_FORMAT . " '5'.

GT_CLIENTDATA-DOC_CHG_NO = GT_FT_ITAB-DOC_CHG_NO . " 'A4'.

GT_CLIENTDATA-PAGE_NO = GT_FT_ITAB-PAGE_NO . " '1'.

GT_CLIENTDATA-PROD_MEMO = GT_FT_ITAB-PROD_MEMO . " 'MEMO'.

GT_CLIENTDATA-PAGEFORMAT = GT_FT_ITAB-PAGEFORMAT . " '1'.

GT_CLIENTDATA-SIZE_DIM = GT_FT_ITAB-SIZE_DIM . " '50/50'.

GT_CLIENTDATA-BASIC_MATL = GT_FT_ITAB-BASIC_MATL . " 'BASIS MATERIAL1'.

GT_CLIENTDATA-STD_DESCR = GT_FT_ITAB-STD_DESCR . " 'MATERIAL DESC'.

GT_CLIENTDATA-DSN_OFFICE = GT_FT_ITAB-DSN_OFFICE . " '001'.

GT_CLIENTDATA-NET_WEIGHT = GT_FT_ITAB-NET_WEIGHT . " 1000.

GT_CLIENTDATA-UNIT_OF_WT = GT_FT_ITAB-UNIT_OF_WT . " 'KG'.

GT_CLIENTDATA-TRANS_GRP = '0001'.

GT_CLIENTDATA-DIVISION = GT_FT_ITAB-DIVISION . " '01'.

GT_CLIENTDATA-QTY_GR_GI = '9000'.

GT_CLIENTDATA-CAD_ID = GT_FT_ITAB-CAD_ID . " 'X'.

GT_CLIENTDATA-ALLWD_VOL = '9000'.

GT_CLIENTDATA-PROD_ALLOC = GT_FT_ITAB-PROD_ALLOC . " 'PA01'.

GT_CLIENTDATA-HAZMATPROF = GT_FT_ITAB-HAZMATPROF . " '001'.

GT_CLIENTDATA-HIGH_VISC = GT_FT_ITAB-HIGH_VISC . " 'X'.

GT_CLIENTDATA-LOOSEORLIQ = GT_FT_ITAB-LOOSEORLIQ . " 'X'.

GT_CLIENTDATA-PERIOD_IND_EXPIRATION_DATE = GT_FT_ITAB-PERIOD_IND_EXPIRATION_DATE . " 'D'.

GT_CLIENTDATA-ITEM_CAT = 'NORM' . "GT_FT_ITAB-ITEM_CAT . " 'NORM'.

GT_CLIENTDATA-EXTMATLGRP = GT_FT_ITAB-EXTMATLGRP . " '01'.

**<<<<<<<<CLIENT DATA INITIAL>>>>>>>>>>>>>

GT_CLIENTDATAX-MATL_GROUP = 'X'.

GT_CLIENTDATAX-OLD_MAT_NO = GT_FT_ITAB-OLD_MAT_NO . " 'X'.

GT_CLIENTDATAX-BASE_UOM = GT_FT_ITAB-BASE_UOM . " 'X'.

GT_CLIENTDATAX-BASE_UOM_ISO = GT_FT_ITAB-BASE_UOM_ISO . "'X'.

GT_CLIENTDATAX-DOCUMENT = GT_FT_ITAB-DOCUMENT . "'X'.

GT_CLIENTDATAX-DOC_TYPE = GT_FT_ITAB-DOC_TYPE . "'X'.

GT_CLIENTDATAX-DOC_VERS = GT_FT_ITAB-DOC_VERS . "'X'.

GT_CLIENTDATAX-DOC_FORMAT = GT_FT_ITAB-DOC_FORMAT . "'X'.

GT_CLIENTDATAX-DOC_CHG_NO = GT_FT_ITAB-DOC_CHG_NO . "'X'.

GT_CLIENTDATAX-PAGE_NO = GT_FT_ITAB-PAGE_NO . "'X'.

GT_CLIENTDATAX-PROD_MEMO = GT_FT_ITAB-PROD_MEMO . "'X'.

GT_CLIENTDATAX-PAGEFORMAT = 'X'.

GT_CLIENTDATAX-SIZE_DIM = GT_FT_ITAB-SIZE_DIM . "'X'

GT_CLIENTDATAX-BASIC_MATL = GT_FT_ITAB-BASIC_MATL. "'X'.

GT_CLIENTDATAX-STD_DESCR = GT_FT_ITAB-STD_DESCR . "'X'.

GT_CLIENTDATAX-DSN_OFFICE = GT_FT_ITAB-DSN_OFFICE . "'X'.

GT_CLIENTDATAX-NET_WEIGHT = GT_FT_ITAB-NET_WEIGHT . "'X'.

GT_CLIENTDATAX-UNIT_OF_WT = GT_FT_ITAB-UNIT_OF_WT . "'X'.

GT_CLIENTDATAX-DIVISION = GT_FT_ITAB-DIVISION . "'X'.

GT_CLIENTDATAX-PROD_HIER = GT_FT_ITAB-PROD_HIERX . "'X'.

GT_CLIENTDATAX-CAD_ID = GT_FT_ITAB-CAD_ID . "'X'.

GT_CLIENTDATAX-ALLWD_VOL = GT_FT_ITAB-ALLWD_VOLX . "'X'.

GT_CLIENTDATAX-PROD_ALLOC = GT_FT_ITAB-PROD_ALLOCX . "'X'.

GT_CLIENTDATAX-HAZMATPROF = 'X'.

GT_CLIENTDATAX-HIGH_VISC = GT_FT_ITAB-HIGH_VISCX . "'X'.

GT_CLIENTDATAX-LOOSEORLIQ = GT_FT_ITAB-LOOSEORLIQX . "'X'.

GT_CLIENTDATAX-ITEM_CAT = 'X'.

GT_CLIENTDATAX-INV_MAT_NO_EXTERNAL = GT_FT_ITAB-INV_MAT_NO_EXTERNALX . "'X'.

GT_CLIENTDATAX-EXTMATLGRP = GT_FT_ITAB-EXTMATLGRPX . " 'X'.

GT_CLIENTDATAX-TRANS_GRP = 'X'.

GT_CLIENTDATAX-QTY_GR_GI = 'X'.

GT_CLIENTDATAX-ALLWD_VOL = 'X'.

***<<<<<PLANTDATA>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

GT_PLANTDATA-PLANT = GT_FT_ITAB-PLANT . " '0001'.

GT_PLANTDATA-MRP_TYPE = GT_FT_ITAB-MRP_TYPE . "'ND'.

GT_PLANTDATA-PUR_GROUP = '001'. "Purchasing Group

GT_PLANTDATA-PROC_TYPE = 'F'. "Procurement Type

GT_PLANTDATA-SPPROCTYPE = '10'. "Special procurement type

GT_PLANTDATA-REORDER_PT = GT_FT_ITAB-REORDER_PT . "8000.

GT_PLANTDATA-SAFETY_STK = 2.

GT_PLANTDATA-LOADINGGRP = '0001'. "Loading group

GT_PLANTDATA-MINLOTSIZE = GT_FT_ITAB-MINLOTSIZE . "6000.

**<<<<<<<<PLANT DATA INITIAL>>>>>>>>>>>>>

GT_PLANTDATAX-PLANT = GT_FT_ITAB-PLANTX. " '0001'.

GT_PLANTDATAX-MRP_TYPE = GT_FT_ITAB-MRP_TYPEX. " 'X'.

GT_PLANTDATAX-PUR_GROUP = 'X'. "Purchasing Group

GT_PLANTDATAX-PROC_TYPE = 'X'. "Procurement Type

GT_PLANTDATAX-SPPROCTYPE = 'X'. "Special procurement type

GT_PLANTDATAX-LOADINGGRP = 'X'. "Loading group

GT_PLANTDATAX-REORDER_PT = GT_FT_ITAB-REORDER_PTX. " 'X'.

GT_PLANTDATAX-SAFETY_STK = GT_FT_ITAB-SAFETY_STKX. "'X'.

GT_PLANTDATAX-MINLOTSIZE = GT_FT_ITAB-MINLOTSIZEX. "'X'.

*<<<<<<<<<<<<<<<FORECASTPARAMETERS>>>>>>>>>>

GT_FORECASTPARAMETERS-PLANT = GT_FT_ITAB-F_PLANT. " '0001'.

*<<<<<<<<<<<<<<<FORECASTPARAMETERS DATA INTIAL>>>>>>>>>>

GT_FORECASTPARAMETERSX = '0001'.

GT_FORECASTPARAMETERSX-PLANT = GT_FT_ITAB-F_PLANTX. " '0001'.

*<<<<<<<<<<<<<<<PLANNING DATA >>>>>>>>>>

*GT_PLANNINGDATA-PLANT = GT_FT_ITAB-P_PLANT. " '0001'.

GT_PLANNINGDATA-PLANT = '0001'.

*<<<<<<<<<<<<<<<PLANNING INITIAL >>>>>>>>>>

GT_PLANNINGDATAX-PLANT = '0001'.

*GT_PLANNINGDATA-PLANT = GT_FT_ITAB-P_PLANTX. " '0001'.

*<<<<<<<<<<<<<<<STORAGELOCATIONDATA>>>>>>>>>>

GT_STORAGELOCATIONDATA-PLANT = GT_FT_ITAB-S_PLANT. "'0001'.

GT_STORAGELOCATIONDATA-STGE_LOC = GT_FT_ITAB-S_STGE_LOC."'0001'.

*<<<<<<<<<<<<<<<STORAGELOCATIONDATA INITIAL>>>>>>>>>>

*GT_STORAGELOCATIONDATAX-PLANT = '0001'.

*GT_STORAGELOCATIONDATAX-STGE_LOC = '0001'.

GT_STORAGELOCATIONDATAX-PLANT = GT_FT_ITAB-S_PLANTX. "'0001'.

GT_STORAGELOCATIONDATAX-STGE_LOC = GT_FT_ITAB-S_STGE_LOCX."'0001'.

**<<<<<<<<<<<<<<<SALESDATA DATA >>>>>>>>>>

GT_SALESDATA-SALES_ORG = '0001'.

GT_SALESDATA-DISTR_CHAN = '01'.

GT_SALESDATA-SALES_UNIT = 'DZ'.

GT_SALESDATA-ITEM_CAT = 'NORM'.

*<<<<<<<<<<<<<<<SALESDATA DATA INITIAL >>>>>>>>>>

GT_SALESDATAX-SALES_ORG = '0001'.

GT_SALESDATAX-DISTR_CHAN = '01'.

GT_SALESDATAX-SALES_UNIT = 'X'.

GT_SALESDATAX-ITEM_CAT = 'X'.

******<<<<<<<WAREHOUSENUMBERDATA>>>>>>>>

GT_WAREHOUSENUMBERDATA-WHSE_NO = '001'.

GT_WAREHOUSENUMBERDATA-STGE_TYPE = '001'.

******<<<<<<<WAREHOUSENUMBERDATAX>>>>>>>>

GT_WAREHOUSENUMBERDATX-WHSE_NO = '001'.

GT_WAREHOUSENUMBERDATX-STGE_TYPE = '001'.

******<<<<<<<STORAGETYPEDATA>>>>>>>>

GT_STORAGETYPEDATA-WHSE_NO = '001'.

GT_STORAGETYPEDATA-STGE_TYPE = '001'.

******<<<<<<<STORAGETYPEDATAX>>>>>>>>

GT_STORAGETYPEDATAX-WHSE_NO = '001'.

GT_STORAGETYPEDATAX-STGE_TYPE = '001'.

*****<<<<<<<<<<<<<<<MATERIAL_DESC>>>>>>>>>>>>>>>>>>>>>>>>>>

MATERIAL_DESC-LANGU = SY-LANGU.

MATERIAL_DESC-LANGU_ISO = 'IN'.

MATERIAL_DESC-MATL_DESC = GT_FT_ITAB-MATL_DESC . "'TEST_BAPI'.

APPEND MATERIAL_DESC.

*****<<<<<<<<<<<<<<<GT_UNITSOFMEASURE>>>>>>>>>>>>>>>>>>>>>>>>>>

GT_UNITSOFMEASURE-ALT_UNIT = GT_FT_ITAB-ALT_UNIT. " 'EA' .

GT_UNITSOFMEASURE-ALT_UNIT_ISO = GT_FT_ITAB-ALT_UNIT_ISO. " 'EA'.

GT_UNITSOFMEASURE-GROSS_WT = '9000'. "Gross weight

GT_UNITSOFMEASURE-UNIT_OF_WT = 'KG'. "Weight Unit

APPEND GT_UNITSOFMEASURE.

*****<<<<<<<<<<<<<<<GT_UNITSOFMEASUREX>>>>>>>>>>>>>>>>>>>>>>>>>>

GT_UNITSOFMEASUREX-ALT_UNIT = 'EA' .

GT_UNITSOFMEASUREX-ALT_UNIT_ISO = 'EA'.

GT_UNITSOFMEASUREX-GROSS_WT = 'X'. "Gross weight

GT_UNITSOFMEASURE-UNIT_OF_WT = 'X'. "Weight Unit

APPEND GT_UNITSOFMEASUREX.

*****<<<<<<<<<<<<<<<SALES TEXT>>>>>>>>>>>>>>>>>>>>>>>>>>

GT_MATERIALLONGTEXT-APPLOBJECT = GT_FT_ITAB-APPLOBJECT." 'MVKE'.

GT_MATERIALLONGTEXT-TEXT_NAME = 'M-44 000101' .

GT_FT_ITAB-MATERIAL . "'M-32 000101'

GT_MATERIALLONGTEXT-TEXT_ID = '0001'.

GT_MATERIALLONGTEXT-LANGU = SY-LANGU.

GT_MATERIALLONGTEXT-TEXT_LINE = ' TEST DATA'.

<GT_FT_ITAB-TEXT_LINE. " 'TEST M-32'.

APPEND GT_MATERIALLONGTEXT.

***<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

GT_VALUATIONDATA-VAL_AREA = '0001'.

GT_VALUATIONDATA-PRICE_CTRL = 'V'.

GT_VALUATIONDATA-MOVING_PR = '750.00'.

GT_VALUATIONDATA-STD_PRICE = '800.00' .

GT_VALUATIONDATA-PRICE_UNIT = 1.

GT_VALUATIONDATA-VAL_CLASS = 7920.

GT_VALUATIONDATA-TAXPRICE_1 = 1.

*****<<<<<<<<Valuation data>>>>>>>>>>>>>>>>>>>>>

GT_VALUATIONDATAX-VAL_AREA = '0001'.

GT_VALUATIONDATAX-PRICE_CTRL = 'X'.

GT_VALUATIONDATAX-MOVING_PR = 'X'.

GT_VALUATIONDATAX-STD_PRICE = 'X'.

GT_VALUATIONDATAX-PRICE_UNIT = 'X'.

GT_VALUATIONDATAX-VAL_CLASS = 'X'.

GT_VALUATIONDATAX-TAXPRICE_1 = 'X'.

GT_CLIENTDATA-ALLOWED_WT = 9000.

GT_CLIENTDATA-ALLWD_VOL = 9000.

GT_CLIENTDATAX-ALLOWED_WT = 'X' .

GT_CLIENTDATAX-ALLWD_VOL = 'X'.

GT_INTERNATIONALARTNOS-UNIT = 'KG'.

APPEND GT_INTERNATIONALARTNOS.

GT_TAXCLASSIFICATIONS-DEPCOUNTRY = 'DE'.

GT_TAXCLASSIFICATIONS-TAX_TYPE_1 = 'MWST'.

GT_TAXCLASSIFICATIONS-TAXCLASS_1 = '1'.

APPEND GT_TAXCLASSIFICATIONS.

GT_PRTDATA-PLANT = '0001'.

GT_PRTDATAX-PLANT = '0001'.

APPEND: GT_PRTDATAX, GT_PRTDATA.

*****

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

HEADDATA = HEADER

CLIENTDATA = GT_CLIENTDATA

CLIENTDATAX = GT_CLIENTDATAX

PLANTDATA = GT_PLANTDATA

PLANTDATAX = GT_PLANTDATAX

FORECASTPARAMETERS = GT_FORECASTPARAMETERS

FORECASTPARAMETERSX = GT_FORECASTPARAMETERSX

PLANNINGDATA = GT_PLANNINGDATA

PLANNINGDATAX = GT_PLANNINGDATAX

STORAGELOCATIONDATA = GT_STORAGELOCATIONDATA

STORAGELOCATIONDATAX = GT_STORAGELOCATIONDATAX

VALUATIONDATA = GT_VALUATIONDATA

VALUATIONDATAX = GT_VALUATIONDATAX

WAREHOUSENUMBERDATA = GT_WAREHOUSENUMBERDATA

WAREHOUSENUMBERDATAX = GT_WAREHOUSENUMBERDATX

SALESDATA = GT_SALESDATA

SALESDATAX = GT_SALESDATAX

STORAGETYPEDATA = GT_STORAGETYPEDATA

STORAGETYPEDATAX = GT_STORAGETYPEDATAX

FLAG_ONLINE = ' '
FLAG_CAD_CALL = ' '
NO_DEQUEUE = ' '

IMPORTING

RETURN = ITAB_RETURN

TABLES

MATERIALDESCRIPTION = MATERIAL_DESC

UNITSOFMEASURE = GT_UNITSOFMEASURE

UNITSOFMEASUREX = GT_UNITSOFMEASUREX

INTERNATIONALARTNOS = GT_INTERNATIONALARTNOS

MATERIALLONGTEXT = GT_MATERIALLONGTEXT

TAXCLASSIFICATIONS = GT_TAXCLASSIFICATIONS

RETURNMESSAGES = GT_RETURNMESSAGES

PRTDATA = GT_PRTDATA

PRTDATAX = GT_PRTDATAX

EXTENSIONIN =
EXTENSIONINX =

IF ITAB_RETURN-TYPE EQ 'E'.

ERROR_REC = ERROR_REC + 1.

FORMAT COLOR COL_NEGATIVE INVERSE ON.

CONCATENATE 'Message ID: ' iTAB_RETURN-ID 'Message No: ' ITAB_RETURN-NUMBER

'Error: ' iTAB_RETURN-MESSAGE INTO

TEXT SEPARATED BY SPACE .

WRITE:/ TEXT.

FORMAT COLOR COL_NEGATIVE INVERSE OFF.

ELSEIF iTAB_RETURN-TYPE EQ 'S'.

WA_HEAD-TDOBJECT = 'MVKE' .

CONCATENATE ITAB_RETURN-MESSAGE_V1 ' 000101'

INTO iTAB_RETURN-MESSAGE_V1 .

WA_HEAD-TDNAME = ITAB_RETURN-MESSAGE_V1. "'M-40 000101'. "

WA_HEAD-TDID = '0001' .

WA_HEAD-TDSPRAS = SY-LANGU.

ITAB_TLINE-TDFORMAT = '00'.

ITAB_TLINE-TDLINE = 'TEST 12221' .

APPEND ITAB_TLINE .

CALL FUNCTION 'SAVE_TEXT'

EXPORTING

CLIENT = SY-MANDT

HEADER = WA_HEAD

INSERT = 'X'

SAVEMODE_DIRECT = 'X'

OWNER_SPECIFIED = ' '

LOCAL_CAT = ' '
IMPORTING
FUNCTION =
NEWHEADER =

TABLES

LINES = ITAB_TLINE

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

OBJECT = 4

OTHERS = 5

FORMAT COLOR COL_POSITIVE INVERSE ON.

WRITE:/ ITAB_RETURN-MESSAGE .

FORMAT COLOR COL_POSITIVE INVERSE OFF.

ENDIF.

IF ITAB_RETURN-TYPE EQ 'S'.

SUCCESS_REC = SUCCESS_REC + 1.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'

IMPORTING

RETURN = GT_RETURN.

ENDIF.

APPEND ITAB_RETURN.

CLEAR: WA_HEAD, ITAB_TLINE[].

CLEAR: ITAB_RETURN[],TEXT.

ENDLOOP.

TOT_REC = ERROR_REC + SUCCESS_REC.

SKIP 3.

FORMAT COLOR COL_TOTAL INVERSE ON.

WRITE: /38 TEXT-008 , TOT_REC.

FORMAT COLOR COL_TOTAL INVERSE OFF.

FORMAT COLOR COL_NEGATIVE INVERSE ON.

WRITE: /38 TEXT-007 , ERROR_REC.

FORMAT COLOR COL_NEGATIVE INVERSE OFF.

FORMAT COLOR COL_TOTAL INVERSE ON.

WRITE: /38 TEXT-009 , SUCCESS_REC.

FORMAT COLOR COL_TOTAL INVERSE OFF.

Regards

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 12:25:02 GMT

Hi,

I have used this code.But still the values are not getting updated.

Re: value not getting updated in database table

Former Member — Tue, 05 Feb 2008 13:41:03 GMT

Hi,

Make your FM as update FM... for this you need to do the following changes...

1. In the Attributes tab, select the radio button UPDATE MODULE with START IMMD option.

2. If you have any COMMIT in the FM, please remove them.

Then call this FM in your code to update the data base. this will work...

Reward points if found helpful

Seema