REPORT zread.
DATA: lt_guid TYPE crmt_object_guid_tab,
lv_id TYPE crms4d_btx_h-object_id VALUE '8000000362',
lt_partner TYPE crmt_partner_external_wrkt.
SELECT SINGLE guid INTO @DATA(guid) FROM crms4d_btx_h WHERE object_id = @lv_id.
APPEND guid TO lt_guid.
CALL FUNCTION 'CRM_ORDER_READ'
EXPORTING
it_header_guid = lt_guid
IMPORTING
et_partner = lt_partner.
SELECT * INTO TABLE @DATA(lt_partner_fct) FROM crmc_partner_ft AS a
FOR ALL ENTRIES IN @lt_partner WHERE a~partner_fct = @lt_partner-partner_fct AND
spras = @sy-langu.
LOOP AT lt_partner ASSIGNING FIELD-SYMBOL(<partner>) WHERE ref_kind = 'A'.
READ TABLE lt_partner_fct ASSIGNING FIELD-SYMBOL(<fct>) WITH KEY partner_fct =
<partner>-partner_fct.
IF sy-subrc = 0.
WRITE:/ |Partner No: { <partner>-partner_no }, 'Role:' { <fct>-description }| COLOR COL_GROUP.
ENDIF.
ENDLOOP.
REPORT z_crms4d_partner.
DATA: lt_guid TYPE crmt_object_guid_tab,
lv_id TYPE crms4d_btx_h-object_id VALUE '8000000362',
lt_partner TYPE TABLE OF crms4d_partner.
SELECT * INTO TABLE lt_partner FROM crms4d_partner WHERE object_id = lv_id AND number_int = 0.
SELECT * INTO TABLE @DATA(lt_partner_fct) FROM crmc_partner_ft AS a
FOR ALL ENTRIES IN @lt_partner WHERE a~partner_fct = @lt_partner-partner_fct AND
spras = @sy-langu.
LOOP AT lt_partner ASSIGNING FIELD-SYMBOL(<partner>).
READ TABLE lt_partner_fct ASSIGNING FIELD-SYMBOL(<fct>) WITH KEY partner_fct =
<partner>-partner_fct.
IF sy-subrc = 0.
WRITE:/ |Partner No: { <partner>-partner_id }, 'Role:' { <fct>-description }| COLOR COL_GROUP.
ENDIF.
ENDLOOP.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
4 | |
4 | |
2 | |
2 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 |