Re: mm01

Former Member · ‎2007 Jul 20

how can create MM01? what r mandatory fields?mentoin plz steps wise?

Former Member · ‎2007 Jul 20

when you start entering the values in mm01 screen, and quit any fields and want to move from one view to another it will show for the mandatory fields. so you can continue entering from one to another view just by clicking on each tab.

regards,

srinivas

<b>*reward for useful answers*</b>

Former Member · ‎2007 Jul 20

Hi,

Can you explain me what i syour requirement?CREATE MM01 ?

why?

debjani

Former Member · ‎2007 Jul 20

Hi,

You cannot create MM01 as it is already there in standard SAP. Now do you want to re-create MM01?? Then probably you should be working for SAP itself( Is SAP coming up with a new version in the near future? )

Regards

Aneesh.

Former Member · ‎2007 Jul 20

hi,

http://web.mit.edu/sapr3/windocs/bpmdb01m.htm

<b>Reward Useful points</b>

siva

Former Member · ‎2007 Jul 20

hi

good

go through this link

http://www.sapbrainsonline.com/TOOLS/SHDB/SAP_SHDB_recording.html

thanks

mrutyun^

Former Member · ‎2007 Jul 21

Hi,

Verify this link:

<a href="http://synactive.com/docu_e/doc_multi_mm01.html">http://synactive.com/docu_e/doc_multi_mm01.html</a>

Pls reward helpful points.

Regards,

Ameet

jaheer_hussain · ‎2007 Jul 21

Hai,

You can not create mm01. It is already there in sap for material creation. It is available in package MG. program SAPMMG01.

Please check...

Regards,Jaheer

Former Member · ‎2007 Jul 23

Hi man,

checkout this link, its very useful answer. fallow the steps as given in this link.

http://www.copacustomhelp.state.pa.us/infopak/standard/fastpaths/mm01_content.htm

Regards,

Prasad

Reward for useful answers

Former Member · ‎2007 Jul 26

Source Code

*************************************************************************

**　プログラムＩＤ　　　　　　 ： ZBAPI_MATERIAL_SAVETEXT *

**　プログラム名称　　 　　 ： Upload MATERIAL MASTER *

**　処理概要　　　　　　　 　： *

**　作成者　　　　　　　　　　 ： Karthik.P *

**　作成日　　　　　　　　　　 ： 2006/08/10 *

************************************************************************

REPORT ZBAPI_MATERIAL_SAVETEXT 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.

******<<<<<<<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.

***<<<<<<<<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.

DATA TEXT(243). "

DATA: WA_HEAD LIKE THEAD.

DATA ITAB_TLINE LIKE STANDARD TABLE OF TLINE WITH HEADER LINE .

data: price(10) .

price = '800'.

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

PARAMETERS FILE TYPE IBIPPARMS-PATH OBLIGATORY .

*<<<<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'

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.

BREAK-POINT.

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 MATERIAL'.

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 = GT_FT_ITAB-ITEM_CAT . " '0001'.

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-REORDER_PT = GT_FT_ITAB-REORDER_PT . "8000.

GT_PLANTDATA-SAFETY_STK = GT_FT_ITAB-SAFETY_STK . "7000.

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-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'.

APPEND GT_UNITSOFMEASURE.

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

GT_UNITSOFMEASUREX-ALT_UNIT = 'EA' .

GT_UNITSOFMEASUREX-ALT_UNIT_ISO = 'EA'.

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 = 'IN'.

GT_TAXCLASSIFICATIONS-TAX_TYPE_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 SY-SUBRC <> 0 .

MESSAGE E001.

ENDIF.

IF ITAB_RETURN-TYPE EQ 'E'.

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

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

FORMAT COLOR COL_POSITIVE INVERSE ON.

WRITE:/

iTAB_RETURN-MESSAGE .

FORMAT COLOR COL_POSITIVE INVERSE OFF.

ENDIF.

IF ITAB_RETURN-TYPE EQ 'S'.

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.

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

mm01