DATA headdata
LIKE bapimathead
.
DATA salesdata
LIKE bapi_mvke
. DATA salesdatax
LIKE bapi_mvkex
. DATA plantdata
LIKE bapi_marc
. DATA plantdatax
LIKE bapi_marcx
. DATA storagelocationdata
LIKE bapi_mard
. DATA storagelocationdatax
LIKE bapi_mardx
. DATA valuationdata
LIKE bapi_mbew
. DATA valuationdatax
LIKE bapi_mbewx
. DATA clientdata
TYPE bapi_mara
. DATA clientdatax
TYPE bapi_marax
. DATA forecastparameters
TYPE bapi_mpop
. DATA forecastparametersx
TYPE bapi_mpopx
.
DATA taxclassifications
TYPE TABLE OF bapi_mlan
WITH HEADER LINE. DATA materiallongtext
TYPE TABLE OF bapi_mltx
WITH HEADER LINE. DATA materialdescr
TYPE TABLE OF bapi_makt
WITH HEADER LINE.
DATA unitsofmeasure
LIKE bapi_marm
. DATA unitsofmeasurex
LIKE bapi_marmx
. DATA internationalartnos
LIKE bapi_mean
. DATA returnmessages
LIKE bapi_matreturn2
OCCURS 0. DATA prtdata
LIKE bapi_mfhm
. DATA prtdatax
LIKE bapi_mfhmx
. DATA extensionin
LIKE bapiparex
. DATA extensioninx
LIKE bapiparexx
.
DATA tname
TYPE tdobname
. DATA: e_rol_return
LIKE bapiret2
. DATA: e_com_return
LIKE bapiret2
.
PARAMETERS: material
TYPE mara
-matnr
DEFAULT '000000000000001002'.
*&--------------------------------------------------------------------*
*& Form Xtendmat
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* KOPF Daten (Sichten) ************************************************
headdata-material = material.
headdata-matl_type = 'HAWA'.
headdata-ind_sector ='M'.
headdata-sales_view = 'X'.
headdata-mrp_view = 'X'.
headdata-storage_view = 'X'.
headdata-account_view = 'X'.
headdata-purchase_view = 'X'.
headdata-quality_view = 'X'.
* Prognosedaten *****************************************************
forecastparameters-PLANT = '0050'.
forecastparametersx-PLANT = '0050'.
* MARA Basisdaten *****************************************************
clientdata-base_uom = 'ST'.
clientdata-base_uom_iso = 'ST'.
*CLIENTDATA-PO_UNIT
*CLIENTDATA-PO_UNIT_ISO
clientdata-matl_group = '01'.
clientdatax-base_uom = 'X'.
clientdatax-base_uom_iso = 'X'.
clientdatax-matl_group = 'X'.
* Verkaufsdaten *******************************************************
salesdata-sales_org = '0001'.
salesdata-distr_chan = '01'.
salesdata-delyg_plnt = '0050'.
salesdata-item_cat = 'NORM'.
salesdata-matl_grp_4 = 'E10'.
salesdata-matl_stats = '1'. " Statistikgruppe Material
salesdatax-sales_org = '0001'.
salesdatax-distr_chan = '01'.
salesdatax-delyg_plnt = 'X'.
salesdatax-item_cat = 'X'.
salesdatax-matl_grp_4 = 'X'.
salesdatax-matl_stats = 'X'. "Statistikgruppe Material
* Werksdaten *********************************************************
plantdata-plant = '0050'. " Werk
plantdata-iss_st_loc = '0050'. " Lagerort
plantdata-sloc_exprc = '0050'." Vorschlagslagerort f Fremdbeschaffung
plantdata-mrp_type = 'ND'. " Dispositionsmerkmal
plantdata-pur_group = '001'. " EK gruppe
plantdata-loadinggrp = '0001'. " Ladegruppe
plantdata-sourcelist = space. " Kennzeichen Orderbuchpflicht
plantdata-auto_p_ord = space. " Kz: Automatische Bestellung erlaubt
plantdata-plnd_delry = '10'. " Planlieferzeit
plantdata-profit_ctr = 'SAM'. "Profit Center
plantdatax-plant = '0050'. " Werk
plantdatax-iss_st_loc = 'X'. " Lagerort
plantdatax-sloc_exprc = 'X'. " Vorschlagslort für Fremdbeschaffung
plantdatax-mrp_type = 'X'. " Dispositionsmerkmal
plantdatax-pur_group = 'X'. " EK gruppe
plantdatax-loadinggrp = 'X'. " Ladegruppe
plantdatax-sourcelist = 'X'. " Kennzeichen Orderbuchpflicht
plantdatax-auto_p_ord = 'X'. " Kz: Automatische Bestellung erlaubt
plantdatax-plnd_delry = 'X'. " Planlieferzeit
plantdatax-profit_ctr = 'X'. "Profit Center
* Lagerort ***********************************************************
storagelocationdata-plant = '0050'.
storagelocationdata-stge_loc = '0050'.
storagelocationdatax-plant = '0050'.
storagelocationdatax-stge_loc = '0050'.
* Bewertungsdaten ****************************************************
valuationdata-val_area = '0050'. "Bewertungskreis
valuationdata-price_ctrl = 'V'. "Preissteuerungskennzeichen
*VALUATIONDATA-STD_PRICE
valuationdata-val_class = '3040'.
valuationdatax-val_area = '0050'. "Bewertungskreis
valuationdatax-price_ctrl = 'X'. "Preissteuerungskennzeichen
*VALUATIONDATA-STD_PRICE
valuationdatax-val_class = 'X'.
*** TABELLEN >
* Steuerklassifikation MLAN ******************************************
taxclassifications-depcountry = 'DE'.
taxclassifications-tax_type_1 = 'MWST'.
taxclassifications-taxclass_1 = '1'.
taxclassifications-tax_ind = space.
* Vertriebslangtext
*000000000271132151 0001 01
materiallongtext-text_name = tname.
materiallongtext-applobject = 'MVKE'.
materiallongtext-text_id = '0001'.
materiallongtext-langu = 'D'.
materiallongtext-format_col = '*'.
materiallongtext-text_line = 'Hier nun der Langtext'.
* Materialkurztext(MAKT)
materialdescr-langu = sy-langu.
*LANGU_ISO
materialdescr-matl_desc = 'Abstinence in a material world'.
*materialdescr-DEL_FLAG =
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = headdata
clientdata = clientdata
clientdatax = clientdatax
plantdata = plantdata
plantdatax = plantdatax
* FORECASTPARAMETERS =
* FORECASTPARAMETERSX =
* PLANNINGDATA =
* PLANNINGDATAX =
storagelocationdata = storagelocationdata
storagelocationdatax = storagelocationdatax
valuationdata = valuationdata
valuationdatax = valuationdatax
* WAREHOUSENUMBERDATA =
* WAREHOUSENUMBERDATAX =
salesdata = salesdata
salesdatax = salesdatax
* STORAGETYPEDATA =
* STORAGETYPEDATAX =
* FLAG_ONLINE = ' '
* FLAG_CAD_CALL = ' '
* NO_DEQUEUE = ' '
IMPORTING
materialdescription = materialdescr[]
* UNITSOFMEASURE =
* UNITSOFMEASUREX =
* INTERNATIONALARTNOS =
materiallongtext = materiallongtext[]
taxclassifications = taxclassifications[]
returnmessages = returnmessages[]
* PRTDATA =
* PRTDATAX =
* EXTENSIONIN =
* EXTENSIONINX =
.
IF return
-type = 'E' OR return
-type = 'A'. WRITE:/ 'Type ', return
-type. WRITE:/ 'ID ', return
-id. WRITE:/ 'NUMBER ', return
-number. WRITE:/ '-----------------------------------------'.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
IF e_com_return
-type NE space.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
IMPORTING
WRITE:/ 'Rollback', e_rol_return
-type.