*& Report ZDEMO11
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zdemo11.
PARAMETERS:p_vbeln LIKE vbak-vbeln OBLIGATORY.
*销售订单GOS附件上载
DATA g_borident TYPE borident.
DATA refer TYPE REF TO cl_gos_document_service.
g_borident-objkey = p_vbeln. "销售订单
g_borident-objtype = 'BUS2032'. "对象类型
CREATE OBJECT refer.
CALL METHOD refer->create_attachment
EXPORTING
is_object = g_borident.
COMMIT WORK.