Hallo,
habe eine Lösung gefunden:
t_object-objkey = p_trans. "Transportnummer
t_object-objtype = 'VTTK'.
CALL FUNCTION 'SREL_GET_NEXT_RELATIONS'
EXPORTING
object = t_object
TABLES
roles = t_roles
EXCEPTIONS
internal_error = 1
no_logsys = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
READ TABLE t_roles INTO s_roles WITH KEY roletype = 'OUTIDOC'.
IF sy-subrc EQ 0.
MOVE s_roles-objkey TO s_idoc.
MOVE s_idoc TO idoc. "Idoc-Nummer
ENDIF.
Danke für deine Unterstützung Wolfgang.
Bearbeitet vom Benutzer
vor 14 Jahre
|
Grund: Nicht angegeben
Mit freundlichen Gruessen,
David
Logistik SD
ABAP Entwickler / Customizing
ERP 2005