Code: Alles auswählen.
ALL METHOD cl_binary_relation=>read_links_of_binrel
EXPORTING
is_object = '??????'
* ip_logsys =
ip_relation = itrel
ip_role = 'GOSAPPLOBJ'
* ip_propnam =
* ip_no_buffer = SPACE
* IMPORTING
* et_links =
* et_roles =
.
Code: Alles auswählen.
CONSTANTS: c_botype TYPE borident-objtype VALUE 'BUS2012',
c_reltyp TYPE breltyp-reltype VALUE 'NOTE'.
DATA: lo_is_object_a TYPE sibflporb,
lt_links TYPE obl_t_link,
ls_links TYPE LINE OF obl_t_link.
DATA : lt_rel TYPE obl_t_relt,
wa_rel LIKE LINE OF lt_rel.
DATA document_id TYPE sofolenti1-doc_id.
DATA document_data TYPE sofolenti1.
DATA object_content TYPE TABLE OF solisti1 WITH HEADER LINE.
DATA tlines TYPE i.
DATA i TYPE i.
wa_rel-sign = 'I'.
wa_rel-option = 'EQ'.
wa_rel-low = c_reltyp.
APPEND wa_rel TO lt_rel.
lo_is_object_a-instid = nast-objky. " die Nummer des Belegs
lo_is_object_a-typeid = c_botype. " = BUS2012 (siehe Transaktion SW01 !)
lo_is_object_a-catid = 'BO'.
* get all links of the attached PO documents
TRY.
CALL METHOD cl_binary_relation=>read_links
EXPORTING
is_object = lo_is_object_a
it_relation_options = lt_rel
IMPORTING
et_links = lt_links.
CATCH cx_root .
retcode = 1.
ENDTRY.
LOOP AT lt_links INTO ls_links.
document_id = ls_links-instid_b.
CALL FUNCTION 'SO_DOCUMENT_READ_API1'
EXPORTING
document_id = document_id
IMPORTING
document_data = document_data
TABLES
object_content = object_content
EXCEPTIONS
document_id_not_exist = 1
operation_no_authorization = 2
x_error = 3
OTHERS = 4.
:
:
endloop.