How to add external URL link to SAP object (Purchase Order, Invoice, etc)

Question

Hello,
Is there any function module /BAPI that allows me to add an external URL link to a existing Purchase Order
or Invoice document in R3 system?
I tried to debug the system but have not found no suitable function module for it.
I also analyzed the ABAP code of the small GUI window that allows to add a external URL link to
a Purchase Order, and found the function module SO_OBJECT_INSERT. However I could not debug
it (seems to be created with BOR objects) so I've no example for it.
Please help!
Regards,
Manuel Dias

Answer 1

CONSTANTS:
    c_http(36)    TYPE c VALUE '/BpHttpApis/slaphapi?ibmperson/(uid=',
    c_listxml(12) TYPE c VALUE ').list/byxml',
    c_value(5)    TYPE c VALUE 'value',
    c_cn(2)       TYPE c VALUE 'cn',
    c_mail(4)     TYPE c VALUE 'mail',
    c_em_num(19)  TYPE c VALUE 'managerserialnumber',
    c_em_cou(18)  TYPE c VALUE 'managercountrycode'.
  DATA  client          TYPE REF TO if_http_client.
  DATA  url             TYPE string.
  DATA  xbuffer         TYPE xstring.
  DATA  l_value         TYPE zchar2000.
  DATA  l_value_string  TYPE string.
  DATA  content         TYPE string .
  DATA  rows            TYPE STANDARD TABLE OF string.
  DATA  wa_rows         TYPE string .
  DATA  conv            TYPE REF TO cl_abap_conv_in_ce.
  DATA  ixml            TYPE REF TO if_ixml.
  DATA  streamfactory   TYPE REF TO if_ixml_stream_factory.
  DATA  parser          TYPE REF TO if_ixml_parser.
  DATA  istream         TYPE REF TO if_ixml_istream.
  DATA  document        TYPE REF TO if_ixml_document.
  DATA  node            TYPE REF TO if_ixml_node.
  DATA  xmldata         TYPE string.
  DATA  iterator        TYPE REF TO if_ixml_node_iterator.
  DATA  nodemap         TYPE REF TO if_ixml_named_node_map.
  DATA  attr            TYPE REF TO if_ixml_node.
  DATA  name            TYPE string.
  DATA  prefix          TYPE string.
  DATA  value           TYPE string.
  DATA  indent          TYPE i.
  DATA  count           TYPE i.
  DATA  index           TYPE i.
  url = 'http://bluepages.ibm.com'.
  CLEAR: l_value_string, l_value.
***Create the HTTP client
  CALL METHOD cl_http_client=>create_by_url
    EXPORTING
      url    = url
    IMPORTING
      client = client
    EXCEPTIONS
      OTHERS = 1.
  IF sy-subrc <> 0.
Create the HTTP client failure, sy-subrc =
    MESSAGE i005(zm) WITH text-026 sy-subrc.
    EXIT.
  ENDIF.
  CONCATENATE c_http
              p_accnt
              p_couty
              c_listxml
              INTO l_value.
  l_value_string = l_value.
***Get employee information
  CALL METHOD client->request->set_header_field
    EXPORTING
      name  = '~request_uri'
      value = l_value_string.
  client->send( ).
  client->receive( ).
***Load to xstring
  CLEAR xbuffer .
  xbuffer = client->response->get_data( ).
  conv = cl_abap_conv_in_ce=>create( input = xbuffer ).
  conv->read( IMPORTING data = content ).
create the ixml main factory
  ixml = cl_ixml=>create( ).
create a stream factory
  streamfactory = ixml->create_stream_factory( ).
  xmldata = content.
create a input stream
  istream  = streamfactory->create_istream_string( string = xmldata )
create a ixml document
  document = ixml->create_document( ).
create a xml parser
  parser  = ixml->create_parser( document       = document
                                 stream_factory = streamfactory
                                 istream        = istream ).
parse the xml document into DOM tree
  IF parser->parse( ) <> 0.
parse the xml document into DOM tree failure
    MESSAGE i005(zm) WITH text-027.
    EXIT.
  ELSE.
    node ?= document.
    IF node IS INITIAL.
To be done
    ENDIF.
create a node iterator
    iterator  = node->create_iterator( ).
get current node
    node = iterator->get_next( ).
loop over all nodes
    WHILE NOT node IS INITIAL.
      indent = node->get_height( ) * 2.
      indent = indent + 20.
      CASE node->get_type( ).
        WHEN if_ixml_node=>co_node_element.
      element node
          name    = node->get_name( ).
          nodemap = node->get_attributes( ).
          IF NOT nodemap IS INITIAL.
        attributes
            count = nodemap->get_length( ).
            DO count TIMES.
              index  = sy-index - 1.
              attr   = nodemap->get_item( index ).
              name   = attr->get_name( ).
              prefix = attr->get_namespace_prefix( ).
              value  = attr->get_value( ).
            ENDDO.
          ENDIF.
        WHEN if_ixml_node=>co_node_text.
User name
          IF name  = c_value AND
             value = c_cn.
      text node
            value  = node->get_value( ).
            p_name = value.
          ENDIF.
User email
          IF name  = c_value AND
             value = c_mail.
      text node
            value  = node->get_value( ).
            p_email = value.
          ENDIF.
Employ serial number
          IF name  = c_value AND
             value = c_em_num.
      text node
            value  = node->get_value( ).
            p_em_num = value.
          ENDIF.
Employ country code
          IF name = c_value AND
             value = c_em_cou.
      text node
            value  = node->get_value( ).
            p_em_cou = value.
          ENDIF.
      ENDCASE.
  advance to next node
      node = iterator->get_next( ).
    ENDWHILE.
  ENDIF.