点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

大家好，

我必须创建一个对象的外部链接，并具有以下代码：

 FUNCTION Z_ANLAGE_HINZUFUEGEN4。
 *" ------------------------------------------------  ----------------------
 *" *" Lokale Schnittstelle：
 *"正在导入
 *" VALUE（I_OBJECTTYPE）喜欢BORIDENT-OBJTYPE可选
 *" VALUE（I_OBJECTKEY）像BORIDENT-OBJKEY可选
 *" VALUE（I_URL）喜欢SOLI-LINE可选
 *" VALUE（I_URLDES）喜欢SOOD1-OBJDES可选
 *" VALUE（I_NOCOMMIT）类型XFELD可选
 *"表格
 *" OT_RETURN结构BAPIRET2
 *" ------------------------------------------------  ----------------------

  数据：l_owner像soud-usrnam，
          l_folderid像soodk，
          l_obj_id就像soodk，
          l_objdata像sood1，

          带有标题行的sol_lt_objcont类型表，
          带有标题行的sol_lt_objhead类型表，

          l_object像borident，
          l_reldoc像borident，

          l_syst就像syst。
 * -------------------------------------------------  ----------------------

 * 1。 获取文件夹ID。
    l_owner = sy-uname。
    调用函数" SO_FOLDER_ROOT_ID_GET"
      出口
        所有者= l_owner
        地区='B'
      输入
        folder_id = l_folderid
      例外情况
        communication_failure = 1
        owner_not_exist = 2
        system_failure = 3
        x_错误= 4
        其他= 5。
    如果sy-subrc <> 0。
      l_syst = syst。
      使用ot_return l_syst'1.FolderRoot'执行collect_message。
      附加ot_return。
      出口。
    万一。

 * 2。 插入物件

    l_objdata-objla ='EN'。
    l_objdata-objdes = i_urldes。
    l_objdata-objsns ='O'。

    将"＆KEY＆" i_url连接到lt_objcont。
    附加lt_objcont。

    调用函数" SO_OBJECT_INSERT"
      出口
        folder_id = l_folderid
        object_type ='URL'
        object_hd_change = l_objdata
        所有者= l_owner
      输入
        object_id = l_obj_id
      桌子
        objcont = lt_objcont
        objhead = lt_objhead
      例外情况
        active_user_not_exist = 1
        communication_failure = 2
        component_not_available = 3
        dl_name_exist = 4
        folder_not_exist = 5
        folder_no_authorization = 6
        object_type_not_exist = 7
        operation_no_authorization = 8
        owner_not_exist = 9
        parameter_error = 10
        replace_not_active = 11
        replace_not_defined = 12
        system_failure = 13
        x_错误= 14
        其他= 15。
    如果sy-subrc <> 0。
      l_syst = syst。
      使用ot_return l_syst'2.ObjectInsert'执行collect_message。
      附加ot_return。
      出口。
    万一。

 * 3。 创建二进制关系

    l_object-objkey = i_objectkey。
    l_object-objtype = i_objecttype。

    将l_folderid l_obj_id连接到l_reldoc-objkey中。
    l_reldoc-objtype ='MESSAGE'。

    调用函数" BINARY_RELATION_CREATE"
      出口
        obj_rolea = l_object
        obj_roleb = l_reldoc
        Relationtype ='URL'
      例外情况
        no_model = 1
        internal_error = 2
        未知= 3
        其他= 4。
    如果sy-subrc <> 0。
      l_syst = syst。
      使用ot_return l_syst执行collect_message
      '3.BinaryRelationCreate'。
      附加ot_return。
      出口。
    万一。

 * 4。 提交LUW
 *所有成功，发送成功消息。

    清除：l_syst-msgid，l_syst-msgno。
    l_syst-msgty ='S'。
    l_syst-msgv1 ='链接创建成功'。

    使用ot_return l_syst'4执行collect_message。  URLLinkCreated"。
    附加ot_return。
    如果i_nocommit是初始的。
      调用函数" BAPI_TRANSACTION_COMMIT"。
    万一。





 结束功能。


 

以及子例程：collect_message：

 * ----------------------------------------------  ------------------------ *
 ***包含/1BCDWB/LIQG000000000039F01。
 * -------------------------------------------------  --------------------- *

 *＆------------------------------------------------  --------------------- *
 *＆表格collect_message
 *＆------------------------------------------------  --------------------- *


 像bapiret2一样使用o_return形成collect_message
                             i_syst像syst
                             i_callpoint像bapiret2-parameter。

    清除o_return。
    o_return-type = i_syst-msgty。
    如果i_syst-msgty是初始的。
      o_return-type ='E'。
      i_syst-msgty ='E'。
    万一。
    o_return-id = i_syst-msgid。
    o_return-number = i_syst-msgno。
    o_return-message_v1 = i_syst-msgv1。
    o_return-message_v2 = i_syst-msgv2。
    o_return-message_v3 = i_syst-msgv3。
    o_return-message_v4 = i_syst-msgv4。

    o_return-parameter = i_callpoint。

    消息ID i_syst-msgid类型i_syst-msgty编号i_syst-msgno
    o_return-message。

  最终形式。  " collect_message


 

那是为什么，我该如何解决？

非常感谢Taha