by Niko2692 » Wed Feb 06, 2013 3:04 pm
Hallo jalil-z,
vielen Dank für die Info. Das funktioniert auch.
Folgendes weiteres Problem. Wir beliefern Automotivekunden.
Und die wollen auch das Ursprungsland auf Lieferscheinen und in den EDI´s stehen haben.
D.h. auch bei Lieferungen von DE nach DE.
Da zieht dies ja nicht mehr, da kein Export mehr stattfindet, nur eine Inlandslieferung.
Das Ziel ist, dass in der Lieferung (von DE nach DE) die Felder Ursprungsland + Ursprungsregion automatisch gefüllt werden.
Ich habe jetzt schon im Programm MV50AFZ1 den USEREXIT_SAVE_DOCUMENT_PREPARE scharfgeschalten, damit da die Daten HERKL und HERKR automatisch beim Speichern gezogen werden.
leider auch ohne Erfolg.
Codeabschnitt:
*-- Datendeklaration
DATA zxt_xlips LIKE xlips OCCURS 0 WITH HEADER LINE.
DATA zxl_eipo LIKE eipovb.
*-- Feldsymbole
FIELD-SYMBOLS <xeipo> STRUCTURE eipovb DEFAULT zxl_eipo.
FIELD-SYMBOLS <teipo> TYPE ANY TABLE.
*-- Datenänderung nur beim Anlegen/ Ändern einer Lieferung
IF t180-trtyp = 'H' OR t180-trtyp = 'V'.
*-- Dirty Assign auf Aussenhandelspositionsdaten in FUGR V50E
UNASSIGN <teipo>.
ASSIGN ('(SAPLV50E)XEIPO[]') TO <teipo>.
IF <teipo> IS ASSIGNED.
*-- Außenhandelsdaten bearbeiten
LOOP AT <teipo> ASSIGNING <xeipo>.
CHECK <xeipo>-updkz <> 'D'.
READ TABLE xlips INTO zxt_xlips WITH KEY posnr = <xeipo>-expos.
CHECK sy-subrc = 0.
*-- Ändern der stat. Warennummer
* IF <xeipo>-stawn <> zxt_xlips-zz_nimex.
IF <xeipo>-herkl eq space.
<xeipo>-herkl = 'DE'.
<xeipo>-herkr = '07'.
IF <xeipo>-updkz = space.
*-- Updatekennzeichen setzen
<xeipo>-updkz = 'U'.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
Jetzt weiss ich hier nicht mehr weiter.
Weiss vielleicht noch jemand nen Tipp?
Danke und Gruss