[50479] in SAPr3-news
Re: 'BAPI_MATERIAL_MAINTAINDATA_RT - löschen EAN ???
daemon@ATHENA.MIT.EDU (bjoern.kettner@freenet.de)
Sat Jul 3 12:33:18 2004
To: sapr3-news@mit.edu
Date: Sat, 3 Jul 2004 18:34:50 +0200
From: <bjoern.kettner@freenet.de>
Message-ID: <2ko5e9F4le61U1@uni-berlin.de>
Reply-To: <bjoern.kettner@freenet.de>
Hallo Herr Spranz,
dazu muss man im MARM Segment die EAN löschen
Im MARMX Segment in das entsprechende Feld ein X eintragen
Dadurch wird im Normalfall die HauptEAN zur Mengeneinheit gelöscht.
Wenn die EAN ganz verschwinden soll, dann noch ein MEAN Segment mit Lösch
parameter (003 Funktion) senden.
Außerdem ist das Programm falsch, in die X Semgmente kommen X rein, da es
eine Ankreuzleiste ist.
*unitsofmeasurex-ean_upc = pean11.
unitsofmeasurex-ean_upc = 'X'.
Mit freundlichen Grüßen
B Kettner
SAP Retail Stammdatenentwicklung
PS. per OSS geht sowas auch
"J?rgen Spranz" <jspranz@gmx.de> schrieb im Newsbeitrag
news:c558c9b.0407020527.5c80cd0c@posting.google.com...
> Habe folgenden Funktionsbaustein in meine Anwendung eingebaut.
>
> Sieht auch so aus, daß eine - EAN-Nummernänderung -
> EAN-Nummereintragung funktioniert.
>
> Allerdings bekomme ich die EAN-Nummer nicht gelöscht.
>
> D.h. wenn ich den Funktionsbaustein mit
>
> PEAN11 = space und
>
> PNUMTP = space
>
> aufrufe funktioniert es nicht.
>
> Wahrscheinlich muß man was bei der Konstellation beachten.
>
> Falls noch andere schlechte Code-Stellen zu finden sind wäre ich auch
> für Rückmeldung dankbar....
>
> Vielen Dank im vorraus
>
>
>
> FUNCTION z_update_mara_ean.
> *"----------------------------------------------------------------------
> *"*"Lokale Schnittstelle:
> *" IMPORTING
> *" REFERENCE(PMATNR) TYPE MATNR
> *" REFERENCE(PEAN11) TYPE EAN11
> *" REFERENCE(PNUMTP) TYPE NUMTP
> *"----------------------------------------------------------------------
> *---------------------------------------------------------------
> * Datendefinitionen
> *---------------------------------------------------------------
> DATA headdata LIKE bapie1mathead.
> DATA internationalartnos LIKE bapie1meanrt OCCURS 0 WITH HEADER
> LINE.
> DATA unitsofmeasure LIKE bapie1marmrt OCCURS 0 WITH HEADER
> LINE.
> DATA unitsofmeasurex LIKE bapie1marmrtx OCCURS 0 WITH HEADER
> LINE.
> DATA clientdata LIKE bapie1marart OCCURS 0 WITH HEADER
> LINE.
> DATA clientdatax LIKE bapie1marartx OCCURS 0 WITH HEADER
> LINE.
>
> DATA: return LIKE bapireturn1.
> DATA: z_msglin LIKE cfgnl-msglin.
> *---------------------------------------------------------------
> * Datenbestückung - Parameteraufbereitung / Vorbelegung
> *---------------------------------------------------------------
> CLEAR headdata.
> headdata-material = pmatnr.
> headdata-basic_view = 'X'.
> *
> internationalartnos-material = pmatnr.
> SELECT SINGLE meins FROM mara
> INTO internationalartnos-unit
> WHERE matnr = pmatnr.
>
> internationalartnos-ean_upc = pean11.
> APPEND internationalartnos.
> *
> unitsofmeasure-material = pmatnr.
> unitsofmeasure-alt_unit = internationalartnos-unit.
> unitsofmeasure-ean_upc = pean11.
> APPEND unitsofmeasure.
>
> unitsofmeasurex-material = pmatnr.
> unitsofmeasurex-alt_unit = internationalartnos-unit.
> unitsofmeasurex-ean_upc = pean11.
> APPEND unitsofmeasurex.
>
> clientdata-material = pmatnr.
> APPEND clientdata.
>
> clientdatax-material = pmatnr.
> APPEND clientdatax.
> *---------------------------------------------------------------
> * Verbuchen der Änderung
> *---------------------------------------------------------------
> CALL FUNCTION 'BAPI_MATERIAL_MAINTAINDATA_RT'
> EXPORTING
> headdata = headdata
> IMPORTING
> return = return
> TABLES
> * VARIANTSKEYS =
> * CHARACTERISTICVALUE =
> * CHARACTERISTICVALUEX =
> CLIENTDATA = clientdata
> CLIENTDATAX = clientdatax
> * CLIENTEXT =
> * CLIENTEXTX =
> * ADDNLCLIENTDATA =
> * ADDNLCLIENTDATAX =
> * MATERIALDESCRIPTION =
> * PLANTDATA =
> * PLANTDATAX =
> * PLANTEXT =
> * PLANTEXTX =
> * FORECASTPARAMETERS =
> * FORECASTPARAMETERSX =
> * FORECASTVALUES =
> * TOTALCONSUMPTION =
> * UNPLNDCONSUMPTION =
> * PLANNINGDATA =
> * PLANNINGDATAX =
> * STORAGELOCATIONDATA =
> * STORAGELOCATIONDATAX =
> * STORAGELOCATIONEXT =
> * STORAGELOCATIONEXTX =
> UNITSOFMEASURE = unitsofmeasure
> UNITSOFMEASUREX = unitsofmeasurex
> * UNITOFMEASURETEXTS =
> internationalartnos = internationalartnos
> * VENDOREAN =
> * LAYOUTMODULEASSGMT =
> * LAYOUTMODULEASSGMTX =
> * TAXCLASSIFICATIONS =
> * VALUATIONDATA =
> * VALUATIONDATAX =
> * VALUATIONEXT =
> * VALUATIONEXTX =
> * WAREHOUSENUMBERDATA =
> * WAREHOUSENUMBERDATAX =
> * WAREHOUSENUMBEREXT =
> * WAREHOUSENUMBEREXTX =
> * STORAGETYPEDATA =
> * STORAGETYPEDATAX =
> * STORAGETYPEEXT =
> * STORAGETYPEEXTX =
> * SALESDATA =
> * SALESDATAX =
> * SALESEXT =
> * SALESEXTX =
> * POSDATA =
> * POSDATAX =
> * POSEXT =
> * POSEXTX =
> * MATERIALLONGTEXT =
> * PLANTKEYS =
> * STORAGELOCATIONKEYS =
> * DISTRCHAINKEYS =
> * WAREHOUSENOKEYS =
> * STORAGETYPEKEYS =
> * VALUATIONTYPEKEYS =
> .
>
> break spranz.
>
> CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
> * Im Fehlerfall Protokoll ausgeben
>
> break spranz.
> IF return-type CA 'AE'.
> CALL FUNCTION 'RKC_MSG_STRING'
> EXPORTING
> id = return-id
> mtype = return-type
> number = return-number
> par1 = return-message_v1
> par2 = return-message_v2
> par3 = return-message_v3
> par4 = return-message_v4
> IMPORTING
> msg_lin = z_msglin
> EXCEPTIONS
> OTHERS = 1.
>
> MESSAGE ID return-id TYPE return-type NUMBER return-number
> WITH return-message_v1 return-message_v2
> return-message_v3 return-message_v4.
>
> ENDIF.
>
>
> ENDFUNCTION.
