使用ABAP代碼返回S/4HANA Material上維護的Attachment明細
阿新 • • 發佈:2018-06-23
create tid start pen lis app 維護 out attach
在事務碼 MM02裏為ID為16的material維護附件:
如何使用ABAP代碼獲得如下附件的名稱和文件內容?
REPORT zgos_api. DATA ls_appl_object TYPE gos_s_obj. DATA lo_gos_api TYPE REF TO cl_gos_api. DATA lt_attachment_list TYPE gos_t_atta. DATA lt_role_filter TYPE gos_t_rol. DATA ls_attachment TYPE gos_s_atta. DATA ls_attachm_cont TYPE gos_s_attcont. DATA ls_atta_key TYPE gos_s_attkey. DATA: lv_id TYPE matnr VALUE ‘16‘, lt_att TYPE TABLE OF sibflporb. CALL FUNCTION ‘CONVERSION_EXIT_MATN1_INPUT‘ EXPORTING input = lv_id IMPORTING output = lv_id. ls_appl_object-typeid = ‘BUS1001006‘. ls_appl_object-instid = lv_id. ls_appl_object-catid = ‘BO‘. START-OF-SELECTION. TRY. lo_gos_api = cl_gos_api=>create_instance( ls_appl_object ). APPEND cl_gos_api=>c_attachment TO lt_role_filter. lt_attachment_list = lo_gos_api->get_atta_list( lt_role_filter ). CATCH cx_gos_api INTO DATA(error). WRITE:/ error->get_text( ). RETURN. ENDTRY. DATA: ls_key TYPE gos_s_attkey. LOOP AT lt_attachment_list ASSIGNING FIELD-SYMBOL(<id>). ls_key-atta_id = <id>-atta_id. ls_key-atta_cat = <id>-atta_cat. DATA(ls) = lo_gos_api->get_al_item( ls_key ). ENDLOOP.
執行結果:
要獲取更多Jerry的原創技術文章,請關註公眾號"汪子熙"或者掃描下面二維碼:
使用ABAP代碼返回S/4HANA Material上維護的Attachment明細