BD87

[Baran1684]

Hallo zusammen,

suche schon lange und verzweifelt und hoffe es kann mir einer helfen.

In der BD87 kann man sich ja den Objektschlüssel (OBJKEY) einblenden lassen bei den verarbeiteten IDOCs.

Dieser wird in der Struktur BDMOD1TP angezeigt.

Ich finde die Tabelle nicht dazu, in dem dieser Schlüssel und somit die Verknüpfung zum IDOC abgelegt ist.

Kennt die zufällig jemand?

Danke im Voraus

gruss

gerhard

[Alma59]

Hallo,

da muß man ein bischen hin und her lesen:

z.B. Eingangs-IDOC:
Zugriff Tabelle SRRELROLES mit Key OBJKEY = IDOC-Nummer mit führenden Nullen !!
OBJTYPE = IDOC (Konstante)
ROLETYPE = INIDOC

nun auf die Tabelle IDOCREL mit KEY ROLE_A = SRRELROLES-ROLEID

und nun nochmal die SRRELROLES mit Key ROLEID = IDOCREL-ROLE_B

und schon hast du die angelegte Verknüpfung im Feld OBJKEY.

Oder du nutzt den Baustein SREL_IDOC_GET_LINKS
ROLETYPE INIDOC
RELATIONTYPE IDC1
OBJKEY IDOC-Nummer mit führenden Nullen !!
OBJTYPE IDOC (Konstante)

VG Tina

[Baran1684]

Hallo Tina,

vielen Dank. Mein Problem ist aber, dass ich den WM TA kenne (TANUM) und dann dazu das IDOC finden muss. Hast Du da auch so eine gute Lösung. Wäre super.

gruss

gerhard

[Alma59]

Hallo Gerhard,

umgekehrt geht das auch entweder über die SRRELROLES
Eingang:
OBJKEY = Beleg (immer den Key der Tabelle beachten)
OBJTYPE = BUS2017 (Konstante)
ROLETYPE = INBELEG (Konstante)

Ausgang;
OBJKEY = Beleg (immer den Key der Tabelle beachten)
OBJTYPE = BUS2012 (Konstante)
ROLETYPE = OUTBELEG (Konstante)

und dann wieder die IDOCREL dazu mit
ROLETYPE = INBELEG (Eingangsbelege) oder OUTBELEG (Ausgangsbelege)


bzw. FUBA SREL_GET_NEXT_RELATIONS
OBJECT-OBJKY = deine TA-NUMMER (immer mir führenden Nullen)
OBJECT-OBJTYPE = BUS2017 (Eingangsbelege) oder BUS2012 (Ausgangsbelege)
ROLETYPE = INBELEG (Eingangsbelege) oder OUTBELEG (Ausgangsbelege)
RELATIONTYPE = IDC1 (Eingangsbelege) oder IDCB (Ausgangsbelege)

schau Dir mal die Funktionsgruppe SREL an

Vg Tina

[Baran1684]

Hallo Tina,

super vielen Dank hast mir sehr geholfen, habe es jetzt so gelöst, das ich im Feld IDOC letztendlich die IDOC Nummer habe.

DATA BEGIN OF t_roles OCCURS 0.
INCLUDE STRUCTURE RELROLES .
DATA END OF t_roles.

DATA: t_object TYPE BORIDENT.
DATA: s_roles TYPE BORIDENT.

DATA: DOCNUM TYPE EDIDC-DOCNUM.
DATA: IDOC TYPE EDID4-DOCNUM.
DATA: s_idoc TYPE BORIDENT-objkey.

**************

PARAMETERS: p_tanu TYPE ltak-tanum.

**************
**** Lagernummer und WM TA Nummer
CONCATENATE '111' p_tanu INTO t_object-objkey.
t_object-objtype = 'BUS2018'. " WMTORD

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.