pagedown
Beitrag
von kostonstyle (Specialist / 247 / 0 /
0
)
»
hallo abap programmer
habe problem mit ABAP Programmierung, breche gleich zusammen, bin schon eine Weile nach eine Lösung.
Bitte drigend um Hilfe!!!!!! Also es geht um folgendes, ich habe ein programm erstellt, das Programm
liest Materialdaten von Excel Datei(Batchinput) ein und ändert die hoehe des materials in mm02. Bis auf 11 Material
ändert die Hoehe per Batchinput richtig und über 11 findet keine Änderungen statt. Das Problemm liegt der Bildverschiebung,
nach 10 felder und danach auf Taste PAGE_DOWN drücken, kommt man in der 11 Zeile des Bildes und die Zählung
fängt wieder bei null an. Tont es bisschen verwirrend oder das Bild sollte es verdeutlichen.
Ich hoffe das ihr mir weiter helfen können, wäre sehr sehr froh:-)
habe problem mit ABAP Programmierung, breche gleich zusammen, bin schon eine Weile nach eine Lösung.
Bitte drigend um Hilfe!!!!!! Also es geht um folgendes, ich habe ein programm erstellt, das Programm
liest Materialdaten von Excel Datei(Batchinput) ein und ändert die hoehe des materials in mm02. Bis auf 11 Material
ändert die Hoehe per Batchinput richtig und über 11 findet keine Änderungen statt. Das Problemm liegt der Bildverschiebung,
nach 10 felder und danach auf Taste PAGE_DOWN drücken, kommt man in der 11 Zeile des Bildes und die Zählung
fängt wieder bei null an. Tont es bisschen verwirrend oder das Bild sollte es verdeutlichen.
Ich hoffe das ihr mir weiter helfen können, wäre sehr sehr froh:-)
Code: Alles auswählen.
PERFORM DYNPRO USING:
'X' 'SAPLMGMM' '0060', " Materialfenster
' ' 'RMMG1-MATNR' V_MATNR, " Materialnummern
' ' 'BDC_OKCODE' 'ENTR', " Bestätigung
'X' 'SAPLMGMM' '0070', " Sichtenauswahl
' ' 'MSICHTAUSW-KZSEL(01)' 'X', " Grunddaten selektieren
' ' 'BDC_OKCODE' 'ENTR', " Bestätigung
'X' 'SAPLMGMM' '3005',
' ' 'BDC_OKCODE' 'ZU01',
'X' 'SAPLMGMM' '3010', " Springen zu Register Mengeneinheiten
' ' 'BDC_OKCODE' 'ZU02',
'X' 'SAPLMGMM' '3100'. " Mengeneinheiten
IF V_COUNTER < 12.
CONCATENATE 'SMEINH-HOEHE(' V_COUNTER ')' INTO V_SMTEXTH.
CONCATENATE 'SMEINH-MEABM(' V_COUNTER ')' INTO V_SMTEXTM.
PERFORM DYNPRO USING:
' ' V_SMTEXTH V_HOEHE, " geänderte Höhe
' ' V_SMTEXTM V_MEABM, " geänderter Mass
' ' 'BDC_OKCODE' 'BU'. " Sichern
ELSE.
V_COUNTER = V_COUNTER - 11.
CONCATENATE 'SMEINH-HOEHE(' V_COUNTER ')' INTO V_SMTEXTH.
CONCATENATE 'SMEINH-MEABM(' V_COUNTER ')' INTO V_SMTEXTM.
PERFORM DYNPRO USING:
' ' 'BDC_CURSOR' 'SMEINH-UMREN(01)',
' ' 'FCODE_VOBI' 'VOBI',
* ' ' 'BDC_OKCODE' 'P++',
' ' V_SMTEXTH V_HOEHE, " geänderte Höhe
' ' V_SMTEXTM V_MEABM, " geänderter Mass
' ' 'BDC_OKCODE' 'BU'. " Sichern
ENDIF.Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo,
ich kann Deine Frage leider nicht direkt beantworten, vielleicht solltest Du mit dem Recorder noch einmal genau abspielen, damit Du siehst, welcher BDC_OKCODE u.ä. beim PageDown genau prozessiert wird.
Wenn Ihr aber so viele ME je Material habt, dann erscheint es mir einfacher, die Änderungen mit dem FuBa 'BAPI_MATERIAL_MAINTAINDATA_RT' durchzuführen. Dort übergibst Du in der Tabelle unitsofmeasure (und unitsofmeasurex für die Ankreuzfelder) zu den ME des Materials die Maße aus Deiner Excel-Datei. In headdata kannst Du neben der Materialnr. auch noch mitgeben, ob ein Applikationslog und Änderungsbelege gewünscht sind oder nicht.
ich kann Deine Frage leider nicht direkt beantworten, vielleicht solltest Du mit dem Recorder noch einmal genau abspielen, damit Du siehst, welcher BDC_OKCODE u.ä. beim PageDown genau prozessiert wird.
Wenn Ihr aber so viele ME je Material habt, dann erscheint es mir einfacher, die Änderungen mit dem FuBa 'BAPI_MATERIAL_MAINTAINDATA_RT' durchzuführen. Dort übergibst Du in der Tabelle unitsofmeasure (und unitsofmeasurex für die Ankreuzfelder) zu den ME des Materials die Maße aus Deiner Excel-Datei. In headdata kannst Du neben der Materialnr. auch noch mitgeben, ob ein Applikationslog und Änderungsbelege gewünscht sind oder nicht.
Viele Grüße
Britta
Britta
Beitrag
von kostonstyle (Specialist / 247 / 0 /
0
)
»
thx für Antwort.
Noch eine Frage, wie benutze ich Funktion BAPI_MATERIAL_MAINTAINDATA_RT mit UNITSOFMEASUREX?
Ich weiss leider nicht, wie man eine Funktion aufruft.
ich habe mal die aufzeichnung gestartet und kein anzeigen von pagedown in der BDC_OKCODE
danke kostonstyle
Noch eine Frage, wie benutze ich Funktion BAPI_MATERIAL_MAINTAINDATA_RT mit UNITSOFMEASUREX?
Ich weiss leider nicht, wie man eine Funktion aufruft.
ich habe mal die aufzeichnung gestartet und kein anzeigen von pagedown in der BDC_OKCODE
danke kostonstyle
Beitrag
von kostonstyle (Specialist / 247 / 0 /
0
)
»
ich habe mal das so geschrieben, aber es geht einfach nicht
habe fast vergessen
Code: Alles auswählen.
CALL FUNCTION 'BAPI_MATERIAL_MAINTAINDATA_RT'
EXPORTING
HEADDATA = '000000000000005117'
UNITSOFMEASURE = P_KM
* IMPORTING
* E_AMOUNT =
* EXCEPTIONS
* FAILED = 1
* OTHERS = 2Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Hi,
hier ein Ausschnitt aus einem Programm. Es geht mit dem P+
.
.
.
perform bdc_field using 'RMMG1-MTART'
record-MTART_003.
perform bdc_field using 'RMMG1_REF-MATNR'
record-MATNR_004.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using 'BDC_OKCODE'
'=P+'.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(08)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
.
.
.
Viel Spass noch,
Grayhound
hier ein Ausschnitt aus einem Programm. Es geht mit dem P+
.
.
.
perform bdc_field using 'RMMG1-MTART'
record-MTART_003.
perform bdc_field using 'RMMG1_REF-MATNR'
record-MATNR_004.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using 'BDC_OKCODE'
'=P+'.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(08)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
.
.
.
Viel Spass noch,
Grayhound
Hallo kostonstyle,
wahrscheinlich konnte Dir Grayhound mit seinem Hinweis schon helfen, wenn nicht, dann lies einfach weiter:
Ich setze mal voraus, Du hast eine itab_mara (mit matnr) für alle Materialien im System und eine itab_imp (mit matnr, me/Mengeneinheit, hoehe, dim/Dimension der Länge) aus der Excel-Datei.
Vorher lieber mal (im Testlauf) checken:
- ob es alle Kombinationen für matnr/me auch im System gibt (call function 'MARM_SINGLE_READ')
- ob es alle Dimensionen aus itab_imp auch in der T006 gibt (DIMID = LENGTH)
DATA:
lt_bapie1marmrt LIKE bapie1marmrt OCCURS 0 WITH HEADER LINE,
lt_bapie1marmrtx LIKE bapie1marmrtx OCCURS 0 WITH HEADER LINE,
lt_clientdata LIKE bapie1marart occurs 0 with HEADER LINE,
lt_clientdatax LIKE bapie1marartx occurs 0 with HEADER LINE,
l_headdata LIKE bapie1mathead,
l_return LIKE bapireturn1.
* Kopfsatz füllen (headdata ist eine Struktur, die nicht nur die matnr enthält!)
* Die matnr wird später gefüllt
l_headdata-basic_view = 'X'. "Sicht Grunddaten
l_headdata-no_appl_log = ' '. "Applikationslog
l_headdata-no_change_doc = ' '. "Änderungsbelege
loop at itab_mara.
l_headdata-material = itab_mara-matnr.
lt_clientdata-material = itab_mara-matnr.
append lt_clientdata.
lt_clientdatax-material = itab_mara-matnr.
append lt_clientdatax.
loop at itab_imp where matnr = itab_mara-matnr.
* Datensatz für Änderung an der MARM
lt_bapie1marmrt-material = itab_mara-matnr. "key:matnr
lt_bapie1marmrt-alt_unit = itab_imp-me. "key:me
lt_bapie1marmrt-height = itab_imp-hoehe. "Höhe
lt_bapie1marmrt-unit_dim = itab_imp-dim. "Längen-Einheit
append lt_bapie1marmrt.
* Ankreuzfelder (die Schlüsselfelder genauso wie bei den Datenfeldern
* belegen, die restlichen Felder mit 'X')
lt_bapie1marmrtx-material = itab_mara-matnr.
lt_bapie1marmrtx-alt_unit = itab_imp-me.
lt_bapie1marmrtx-height = 'X'.
lt_bapie1marmrtx-unit_dim = 'X'.
append lt_bapie1marmrtx.
endloop.
* Änderungen durchführen je Material
call function 'BAPI_MATERIAL_MAINTAINDATA_RT'
exporting
headdata = l_headdata
importing
return = l_return
tables
clientdata = lt_clientdata
clientdatax = lt_clientdatax
unitsofmeasure = lt_bapie1marmrt
unitsofmeasurex = lt_bapie1marmrtx.
* ggf. noch l_return auswerten (l_return-type = 'S' ist ok)
endloop.
[code][/code]
wahrscheinlich konnte Dir Grayhound mit seinem Hinweis schon helfen, wenn nicht, dann lies einfach weiter:
Ich setze mal voraus, Du hast eine itab_mara (mit matnr) für alle Materialien im System und eine itab_imp (mit matnr, me/Mengeneinheit, hoehe, dim/Dimension der Länge) aus der Excel-Datei.
Vorher lieber mal (im Testlauf) checken:
- ob es alle Kombinationen für matnr/me auch im System gibt (call function 'MARM_SINGLE_READ')
- ob es alle Dimensionen aus itab_imp auch in der T006 gibt (DIMID = LENGTH)
DATA:
lt_bapie1marmrt LIKE bapie1marmrt OCCURS 0 WITH HEADER LINE,
lt_bapie1marmrtx LIKE bapie1marmrtx OCCURS 0 WITH HEADER LINE,
lt_clientdata LIKE bapie1marart occurs 0 with HEADER LINE,
lt_clientdatax LIKE bapie1marartx occurs 0 with HEADER LINE,
l_headdata LIKE bapie1mathead,
l_return LIKE bapireturn1.
* Kopfsatz füllen (headdata ist eine Struktur, die nicht nur die matnr enthält!)
* Die matnr wird später gefüllt
l_headdata-basic_view = 'X'. "Sicht Grunddaten
l_headdata-no_appl_log = ' '. "Applikationslog
l_headdata-no_change_doc = ' '. "Änderungsbelege
loop at itab_mara.
l_headdata-material = itab_mara-matnr.
lt_clientdata-material = itab_mara-matnr.
append lt_clientdata.
lt_clientdatax-material = itab_mara-matnr.
append lt_clientdatax.
loop at itab_imp where matnr = itab_mara-matnr.
* Datensatz für Änderung an der MARM
lt_bapie1marmrt-material = itab_mara-matnr. "key:matnr
lt_bapie1marmrt-alt_unit = itab_imp-me. "key:me
lt_bapie1marmrt-height = itab_imp-hoehe. "Höhe
lt_bapie1marmrt-unit_dim = itab_imp-dim. "Längen-Einheit
append lt_bapie1marmrt.
* Ankreuzfelder (die Schlüsselfelder genauso wie bei den Datenfeldern
* belegen, die restlichen Felder mit 'X')
lt_bapie1marmrtx-material = itab_mara-matnr.
lt_bapie1marmrtx-alt_unit = itab_imp-me.
lt_bapie1marmrtx-height = 'X'.
lt_bapie1marmrtx-unit_dim = 'X'.
append lt_bapie1marmrtx.
endloop.
* Änderungen durchführen je Material
call function 'BAPI_MATERIAL_MAINTAINDATA_RT'
exporting
headdata = l_headdata
importing
return = l_return
tables
clientdata = lt_clientdata
clientdatax = lt_clientdatax
unitsofmeasure = lt_bapie1marmrt
unitsofmeasurex = lt_bapie1marmrtx.
* ggf. noch l_return auswerten (l_return-type = 'S' ist ok)
endloop.
[code][/code]
Viele Grüße
Britta
Britta
Beitrag
von kostonstyle (Specialist / 247 / 0 /
0
)
»
so, mein urland war nun zu ende, muss wieder abap programme schreiben.
also erstmal möchte ich mich für eure hilfe bedanken. Ich habe mal mit p++ versucht aber leider will es einfach nicht klappen. aber wenn ich die pagedown drücke rückt er nach unten, ist schon komisch oder?
also erstmal möchte ich mich für eure hilfe bedanken. Ich habe mal mit p++ versucht aber leider will es einfach nicht klappen. aber wenn ich die pagedown drücke rückt er nach unten, ist schon komisch oder?
Beitrag
von kostonstyle (Specialist / 247 / 0 /
0
)
»
hallo programmers
ich habe das programm wie folgt abgeändert mit dem Funktionsbaustein BAPI_MATERIAL_MAINTAINDATA_RT
Leider bin ich immer noch gleich wie vorher, das programm ändert die höhe nicht. Der Fehler
liegt glaube ich an Funktionsbaustein BAPI_MATERIAL_MAINTAINDATA_RT. Ich wäre sehr sehr dankbar
wenn jemand mit weiter helfen könnten.
ich habe das programm wie folgt abgeändert mit dem Funktionsbaustein BAPI_MATERIAL_MAINTAINDATA_RT
Leider bin ich immer noch gleich wie vorher, das programm ändert die höhe nicht. Der Fehler
liegt glaube ich an Funktionsbaustein BAPI_MATERIAL_MAINTAINDATA_RT. Ich wäre sehr sehr dankbar
wenn jemand mit weiter helfen könnten.
Code: Alles auswählen.
FORM HOEHE_FUELLEN.
DATA:
LT_BAPIE1MARMRT LIKE BAPIE1MARMRT OCCURS 0 WITH HEADER LINE,
LT_BAPIE1MARMRTX LIKE BAPIE1MARMRTX OCCURS 0 WITH HEADER LINE,
LT_CLIENTDATA LIKE BAPIE1MARART OCCURS 0 WITH HEADER LINE,
LT_CLIENTDATAX LIKE BAPIE1MARARTX OCCURS 0 WITH HEADER LINE,
L_HEADDATA LIKE BAPIE1MATHEAD,
L_RETURN LIKE BAPIRETURN1.
* Kopfsatz füllen (headdata ist eine Struktur, die nicht nur die matnr enthält!)
* Die matnr wird später gefüllt
L_HEADDATA-BASIC_VIEW = 'X'. "Sicht Grunddaten
L_HEADDATA-NO_APPL_LOG = ' '. "Applikationslog
L_HEADDATA-NO_CHANGE_DOC = ' '. "Änderungsbelege
CLEAR: I_DATEN, I_DATEN_CL, V_MATNR.
LOOP AT I_DATEN.
IF V_MATNR NE I_DATEN-MATNR.
L_HEADDATA-MATERIAL = I_DATEN-MATNR.
LT_CLIENTDATA-MATERIAL = I_DATEN-MATNR.
APPEND LT_CLIENTDATA.
LT_CLIENTDATAX-MATERIAL = I_DATEN-MATNR.
APPEND LT_CLIENTDATAX.
LOOP AT I_DATEN_CL WHERE MATNR = I_DATEN-MATNR
AND UMREZ NE I_DATEN-UMREZ.
* Datensatz für Änderung an der MARM
LT_BAPIE1MARMRT-MATERIAL = I_DATEN-MATNR. "key:matnr
LT_BAPIE1MARMRT-ALT_UNIT = I_DATEN_CL-UMREZ. "key:me
LT_BAPIE1MARMRT-HEIGHT = I_DATEN_CL-HOEHE. "Höhe
LT_BAPIE1MARMRT-UNIT_DIM = I_DATEN_CL-MEABM. "Längen-Einheit
APPEND LT_BAPIE1MARMRT.
* Ankreuzfelder (die Schlüsselfelder genauso wie bei den Datenfeldern
* belegen, die restlichen Felder mit 'X')
LT_BAPIE1MARMRTX-MATERIAL = I_DATEN-MATNR.
LT_BAPIE1MARMRTX-ALT_UNIT = I_DATEN_CL-UMREZ.
LT_BAPIE1MARMRTX-HEIGHT = 'X'.
LT_BAPIE1MARMRTX-UNIT_DIM = 'X'.
APPEND LT_BAPIE1MARMRTX.
ENDLOOP.
* Änderungen durchführen je Material
CALL FUNCTION 'BAPI_MATERIAL_MAINTAINDATA_RT'
EXPORTING
HEADDATA = L_HEADDATA
IMPORTING
RETURN = L_RETURN
TABLES
CLIENTDATA = LT_CLIENTDATA
CLIENTDATAX = LT_CLIENTDATAX
UNITSOFMEASURE = LT_BAPIE1MARMRT
UNITSOFMEASUREX = LT_BAPIE1MARMRTX.
MOVE I_DATEN-MATNR TO V_MATNR.
ENDIF.
ENDLOOP.
WRITE: / L_RETURN.
Die Auswertung von Return solltest du noch in der Loop-Schleife machen in der auch das BAPI aufgerufen wird so bekommst du alle Meldungen mit und nicht nur die letzte.kostonstyle hat geschrieben:wenn jemand mit weiter helfen könnten.
Ein Bapi will meistens ein explizietes Commit. Versuchs mal mit FuBa BAPI_TRANSACTION_COMMIT nach Aufruf des FuBas 'BAPI_MATERIAL_MAINTAINDATA_RT'
Gruß Hendrik
Beitrag
von kostonstyle (Specialist / 247 / 0 /
0
)
»
als meldung bekomme ich nur
und zwar sechs mal
Code: Alles auswählen.
537Meldungen zum Material 000000000000000006: Lognummer 0000000000000185
Hallo,
schreib einfach CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Wie Hendrik schon schrieb, ist der COMMIT notwendig (damit das Anwendungslog auch weggeschrieben wird, s. Doku zum Fuba, die übrigens sehr ausführlich ist).
Außerdem ist mir aufgefallen, dass ein clear/refresh für die itabs LT_CLIENTDATA und LT_CLIENTDATAX fehlt, bevor das nächste Material drankommt.
schreib einfach CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Wie Hendrik schon schrieb, ist der COMMIT notwendig (damit das Anwendungslog auch weggeschrieben wird, s. Doku zum Fuba, die übrigens sehr ausführlich ist).
Außerdem ist mir aufgefallen, dass ein clear/refresh für die itabs LT_CLIENTDATA und LT_CLIENTDATAX fehlt, bevor das nächste Material drankommt.
Viele Grüße
Britta
Britta
Beitrag
von kostonstyle (Specialist / 247 / 0 /
0
)
»
so habe das programm wie folgt abgeändert.
aber leider funktioniert es immer noch nicht 
Bitte dringend um Rat
danke kostonstyle
Code: Alles auswählen.
FORM HOEHE_FUELLEN.
DATA:
LT_BAPIE1MARMRT LIKE BAPIE1MARMRT OCCURS 0 WITH HEADER LINE,
LT_BAPIE1MARMRTX LIKE BAPIE1MARMRTX OCCURS 0 WITH HEADER LINE,
LT_CLIENTDATA LIKE BAPIE1MARART OCCURS 0 WITH HEADER LINE,
LT_CLIENTDATAX LIKE BAPIE1MARARTX OCCURS 0 WITH HEADER LINE,
L_HEADDATA LIKE BAPIE1MATHEAD,
L_RETURN LIKE BAPIRETURN1,
WAIT LIKE BAPITA-WAIT,
RETURN LIKE BAPIRET2.
* Kopfsatz füllen (headdata ist eine Struktur, die nicht nur die matnr enthält!)
* Die matnr wird später gefüllt
L_HEADDATA-BASIC_VIEW = 'X'. "Sicht Grunddaten
L_HEADDATA-NO_APPL_LOG = ' '. "Applikationslog
L_HEADDATA-NO_CHANGE_DOC = ' '. "Änderungsbelege
CLEAR: I_DATEN, I_DATEN_CL, V_MATNR.
LOOP AT I_DATEN.
IF V_MATNR NE I_DATEN-MATNR.
L_HEADDATA-MATERIAL = I_DATEN-MATNR.
LT_CLIENTDATA-MATERIAL = I_DATEN-MATNR.
APPEND LT_CLIENTDATA.
LT_CLIENTDATAX-MATERIAL = I_DATEN-MATNR.
APPEND LT_CLIENTDATAX.
LOOP AT I_DATEN_CL WHERE MATNR = I_DATEN-MATNR
AND UMREZ NE I_DATEN-UMREZ.
* Datensatz für Änderung an der MARM
LT_BAPIE1MARMRT-MATERIAL = I_DATEN-MATNR. "key:matnr
LT_BAPIE1MARMRT-ALT_UNIT = I_DATEN_CL-UMREZ. "key:me
LT_BAPIE1MARMRT-HEIGHT = I_DATEN_CL-HOEHE. "Höhe
LT_BAPIE1MARMRT-UNIT_DIM = I_DATEN_CL-MEABM. "Längen-Einheit
APPEND LT_BAPIE1MARMRT.
* Ankreuzfelder (die Schlüsselfelder genauso wie bei den Datenfeldern
* belegen, die restlichen Felder mit 'X')
LT_BAPIE1MARMRTX-MATERIAL = I_DATEN-MATNR.
LT_BAPIE1MARMRTX-ALT_UNIT = I_DATEN_CL-UMREZ.
LT_BAPIE1MARMRTX-HEIGHT = 'X'.
LT_BAPIE1MARMRTX-UNIT_DIM = 'X'.
APPEND LT_BAPIE1MARMRTX.
ENDLOOP.
* Änderungen durchführen je Material
CALL FUNCTION 'BAPI_MATERIAL_MAINTAINDATA_RT'
EXPORTING
HEADDATA = L_HEADDATA
IMPORTING
RETURN = L_RETURN
TABLES
CLIENTDATA = LT_CLIENTDATA
CLIENTDATAX = LT_CLIENTDATAX
UNITSOFMEASURE = LT_BAPIE1MARMRT
UNITSOFMEASUREX = LT_BAPIE1MARMRTX.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = WAIT
IMPORTING
RETURN = RETURN
EXCEPTIONS
OTHERS = 01.
MOVE I_DATEN-MATNR TO V_MATNR.
ENDIF.
WRITE: / L_RETURN.
SKIP.
SKIP.
ENDLOOP.
ENDFORM.
Bitte dringend um Rat
danke kostonstyle
Du mußt, wie brinam schon schrieb, die internen Tabellen die du an den FuBa 'BAPI_MATERIAL_MAINTAINDATA_RT' übergibst, für jedes Material zurücksetzten. Ich habe dein Coding angepasst:
Wenn du in l_return-type ein 'S' zurück bekommst wurde das Material geänder.
Wenn du in l_return-type ein 'E' zurück bekommst konnte das Material nicht geändert werden. Die genau Fehlermeldung steht in einem Anwendungslog. Diesen kannst du mittels BAPI_APPLICATIONLOG_GETDETAIL lesen. Das ganze ist gut dokumentiert.
Code: Alles auswählen.
FORM HOEHE_FUELLEN.
* Kopfsatz füllen (headdata ist eine Struktur, die nicht nur die matnr enthält!)
* Die matnr wird später gefüllt
L_HEADDATA-BASIC_VIEW = 'X'. "Sicht Grunddaten
L_HEADDATA-NO_APPL_LOG = ' '. "Applikationslog
L_HEADDATA-NO_CHANGE_DOC = ' '. "Änderungsbelege
CLEAR: I_DATEN, I_DATEN_CL, V_MATNR.
LOOP AT I_DATEN.
IF V_MATNR NE I_DATEN-MATNR.
*** BEGIN Daten initialisieren
CLEAR: LT_CLIENTDATA, LT_CLIENTDATAX, LT_BAPIE1MARMRT, LT_BAPIE1MARMRTX.
REFRESH: LT_CLIENTDATA, LT_CLIENTDATAX, LT_BAPIE1MARMRT, LT_BAPIE1MARMRTX.
*** ENDE Daten initialisieren
L_HEADDATA-MATERIAL = I_DATEN-MATNR.
LT_CLIENTDATA-MATERIAL = I_DATEN-MATNR.
APPEND LT_CLIENTDATA.
LT_CLIENTDATAX-MATERIAL = I_DATEN-MATNR.
APPEND LT_CLIENTDATAX.
LOOP AT I_DATEN_CL WHERE MATNR = I_DATEN-MATNR
AND UMREZ NE I_DATEN-UMREZ.
* Datensatz für Änderung an der MARM
LT_BAPIE1MARMRT-MATERIAL = I_DATEN-MATNR. "key:matnr
LT_BAPIE1MARMRT-ALT_UNIT = I_DATEN_CL-UMREZ. "key:me
LT_BAPIE1MARMRT-HEIGHT = I_DATEN_CL-HOEHE. "Höhe
LT_BAPIE1MARMRT-UNIT_DIM = I_DATEN_CL-MEABM. "Längen-Einheit
APPEND LT_BAPIE1MARMRT.
* Ankreuzfelder (die Schlüsselfelder genauso wie bei den Datenfeldern
* belegen, die restlichen Felder mit 'X')
LT_BAPIE1MARMRTX-MATERIAL = I_DATEN-MATNR.
LT_BAPIE1MARMRTX-ALT_UNIT = I_DATEN_CL-UMREZ.
LT_BAPIE1MARMRTX-HEIGHT = 'X'.
LT_BAPIE1MARMRTX-UNIT_DIM = 'X'.
APPEND LT_BAPIE1MARMRTX.
ENDLOOP.
* Änderungen durchführen je Material
CALL FUNCTION 'BAPI_MATERIAL_MAINTAINDATA_RT'
EXPORTING
HEADDATA = L_HEADDATA
IMPORTING
RETURN = L_RETURN
TABLES
CLIENTDATA = LT_CLIENTDATA
CLIENTDATAX = LT_CLIENTDATAX
UNITSOFMEASURE = LT_BAPIE1MARMRT
UNITSOFMEASUREX = LT_BAPIE1MARMRTX.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = WAIT
IMPORTING
RETURN = RETURN
EXCEPTIONS
OTHERS = 01.
MOVE I_DATEN-MATNR TO V_MATNR.
ENDIF.
*** Dieser BLOCK sollte vor das ENDIF in der Zeile darüber.
WRITE: / L_RETURN.
SKIP.
SKIP.
*** BLOCK ENDE
ENDLOOP.
ENDFORM.
Wenn du in l_return-type ein 'E' zurück bekommst konnte das Material nicht geändert werden. Die genau Fehlermeldung steht in einem Anwendungslog. Diesen kannst du mittels BAPI_APPLICATIONLOG_GETDETAIL lesen. Das ganze ist gut dokumentiert.
Gruß Hendrik
Hallo,
geändert? Ich sehe z.B. keine Änderung des Codings bzgl. refresh für die itabs LT_CLIENTDATA und LT_CLIENTDATAX !!!
Du musst auch genauer beschreiben, was nicht funktioniert, wenn Dir jemand helfen soll. "Es funktioniert nicht" ist da nicht gerade zielführend.
Was steht denn nun im Anwendungslog (l_return-type, l_return-message)?
geändert? Ich sehe z.B. keine Änderung des Codings bzgl. refresh für die itabs LT_CLIENTDATA und LT_CLIENTDATAX !!!
Du musst auch genauer beschreiben, was nicht funktioniert, wenn Dir jemand helfen soll. "Es funktioniert nicht" ist da nicht gerade zielführend.
Was steht denn nun im Anwendungslog (l_return-type, l_return-message)?
Viele Grüße
Britta
Britta
Vergleichbare Themen
1
Antw.
Antw.
1083
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Unbeantwortete Forenbeiträge
F6862 - Stücklistenpositionen Massenhinzufügen ohne Änderungsnummer
vor einer Woche von Radinator 1 / 1367
vor einer Woche von Radinator 1 / 1367