Dienste zum Objekt - Notizen zu Objekt holen

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.