附加资产中的文件

1楼 · 2020-08-22 08:08.采纳回答

嗨，

正如@ Frederic Girod 所述，GOS功能可用于附加资产主数据中的文件。

测试程序以在资产主文件中添加URL

 *＆--------------------  ------------------------------------------------- *
 *＆报告ZTEST
 *＆------------------------------------------------  --------------------- *
 *测试程序以使用GOS在资产主文件中上传URL附件
 *程序作者：乔纳森·埃曼斯（Jonathan Eemans）
 *＆------------------------------------------------  --------------------- *
 报告ZTEST。

 *全局变量
 数据：gv_obj_key TYPE密钥。  "从BAPI发布的文档的对象关键字

 *本地数据声明
 数据：ls_object类型gos_s_obj，" GOS API：应用程序对象
       lo_gos_api，对cl_gos_api的类型引用，"该类的本地对象引用
       ls_attcont TYPE gos_s_attcont，" GOS API：附件结构
       lv_commit TYPE布尔值，"布尔变量
       lv_roltype TYPE oblroltype。  "角色对象

 *常数
 常量：lc_url TYPE char3 VALUE'URL'，
            lc_bus1022 TYPE sibftypeid VALUE'BUS1022'，
            lc_bo TYPE sibfcatid VALUE'BO'，
            lc_filename类型bitm_filename值'INVOICE IMAGE'。

 *测试程序以使用GOS在资产主文件中上传URL附件
   尝试。
 *对象属性
 *业务对象密钥
         ls_object-instid ='BE001111000000050000'。  
"测试值：公司代码（1-4）+资产编号（5-14）+资产子编号（15-18）

 *业务对象
         ls_object-typeid = lc_bus1022。  " BUS1022

 *类别编号
         ls_object-catid = lc_bo。  " BO

 *创建对象实例
         lo_gos_api = cl_gos_api => create_instance（is_object = ls_object）。

 * GOS属性
         ls_attcont-atta_cat = cl_gos_api => c_msg。

 * 文档名称
         ls_attcont-文件名= lc_文件名。  "发票图像

 *网址
         ls_attcont-tech_type = lc_url。  " URL

 * 文件大小
         ls_attcont-filesize = strlen（ls_attcont-content）。

 *附件类型
         lv_roltype = cl_gos_api => c_website。

 *文件标题
         ls_attcont-descr = lc_filename。  "发票图像

 *文件语言
         ls_attcont-lang = sy-langu。

 *附加文件的调用方法
         lv_commit = lo_gos_api-> insert_al_item（is_attcont = ls_attcont
                                                 iv_roltype = lv_roltype）。
 *如果有任何异常，请填充错误消息
     捕捉cx_gos_api。
 *包含错误处理
   ENDTRY。
 *如果填充了提交指示器，则将事务提交到数据库。
   如果lv_commit不是INITIAL。
     提交工作并等待。
   ENDIF。

最诚挚的问候，
Jonathan Eemans