genau DEN wuerde ich auch benutzen. ich denke, dass du dich mit dem richtig austoben kannst..Sian hat geschrieben:Da hätte ich gleich noch eine Frage:
Bin soeben über diesen BAPI gestolpert:
BAPI_MATERIAL_SAVEDATA
Der scheint doch auch alle Parameter zu beinhalten die ich brauche oder etwa nicht?
Was ist der unterschied Haubi?
sorry, aber standardfunktionsbausteine muss man ausprobieren und/oder ueber die verwendung in aufrufende andere programme/fbs gehen und schauen, was dort gemacht wird. ich wuerde mir die strukturen per d-click anschauen und zusehen, ob ich meine txt-felder unterbringen kann. mit einem kleinen report kann dann alles fuellen und aufrufen..Sian hat geschrieben:Gibt es denn niergens einfache Beispiele!
Ich finde das so toll dass ihr mir alle helfen wollt.
Lasst mich mal zusammenfassen ob ich den Ablauf verstanden habe.
Also:
1) *.txt Datei einlesen Zeile für Zeile
2) interne Tabellen mit Daten füllen
3) z.B. marax Kennzeichnen welche Felder gepflegt werden sollen
4) interne Tabelle und die X Tabelle an den Funtkionsbaustein übergeben
5) Returns auswerten
Habe ich das jetzt irgendwie verstanden?
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Form anlegen
*&---------------------------------------------------------------------*
FORM anlegen USING p_daten LIKE LINE OF t_daten.
DATA: amara_ueb TYPE STANDARD TABLE OF mara_ueb,
ambew_ueb TYPE STANDARD TABLE OF mbew_ueb,
amfieldres TYPE STANDARD TABLE OF mfieldres,
amerrdat TYPE STANDARD TABLE OF merrdat.
DATA: wa_amara_ueb TYPE mara_ueb,
wa_ambew_ueb TYPE mbew_ueb,
wa_amfieldres TYPE mfieldres,
wa_amerrdat TYPE merrdat.
wa_amara_ueb-mandt = sy-mandt.
wa_amara_ueb-matnr = p_daten-matnr.
wa_amara_ueb-tcode = 'MM01'.
wa_amara_ueb-tranc = 1.
wa_amara_ueb-d_ind = 1.
wa_amara_ueb-vpsta = 'BG'.
wa_amara_ueb-pstat = wa_amara_ueb-vpsta .
APPEND wa_amara_ueb TO amara_ueb.
* Buchhaltungssichten
SELECT SINGLE *
INTO CORRESPONDING FIELDS OF wa_ambew_ueb
FROM mbew
WHERE matnr = p_daten-vorlage
AND bwkey = p_daten-werks.
wa_ambew_ueb-matnr = p_daten-matnr.
wa_ambew_ueb-d_ind = 2.
wa_ambew_ueb-tranc = wa_amara_ueb-tranc.
wa_ambew_ueb-pstat = 'BG'.
APPEND wa_ambew_ueb TO ambew_ueb.
CALL FUNCTION 'MATERIAL_MAINTAIN_DARK'
EXPORTING
p_kz_no_warn = 'N'
kz_prf = 'I'
kz_test = testlauf
TABLES
amara_ueb = amara_ueb
ambew_ueb = ambew_ueb
amfieldres = amfieldres
amerrdat = amerrdat
EXCEPTIONS
kstatus_empty = 1
tkstatus_empty = 2
t130m_error = 3
internal_error = 4
too_many_errors = 5
update_error = 6
OTHERS = 7.
IF NOT amara_ueb IS INITIAL. " Fehler
LOOP AT amerrdat INTO wa_amerrdat.
PERFORM message USING wa_amerrdat.
ENDLOOP.
ELSE.
IF sy-binpt = space.
COMMIT WORK.
CALL FUNCTION 'DEQUEUE_ALL'.
ENDIF.
WRITE 'ok' COLOR 5.
ENDIF.
ULINE.
ENDFORM. " anlegen
*&---------------------------------------------------------------------*
*& Form message
*&---------------------------------------------------------------------*
FORM message USING p_error TYPE merrdat.
DATA: text(120).
CASE p_error-msgty.
WHEN 'I'.FORMAT COLOR 3 INTENSIFIED OFF.
WHEN 'E'.FORMAT COLOR 6 INTENSIFIED OFF.
WHEN 'W'.FORMAT COLOR 7 INTENSIFIED OFF.
WHEN OTHERS.FORMAT COLOR 1 INTENSIFIED OFF.
ENDCASE.
MESSAGE ID p_error-msgid TYPE 'I' NUMBER p_error-msgno
WITH p_error-msgv1 p_error-msgv2 p_error-msgv3 p_error-msgv4
INTO text.
WRITE:/ text.
ENDFORM. " message
Heißt das, dass ich keine Sicht Klassifizierung pflegen kann? Das wäre dann schlecht, weil ich das auch noch machen muss!Foldende Daten sind nicht unterstützt:
- Klassifizierung