工作流 - 挂附件2

作者: Mmm_余安 | 来源:发表于2017-08-09 20:34 被阅读30次

*&----------------------------------从后台即程序挂附件
DATA: LS_OBJECT TYPE SIBFLPORB,
LV_OBJECTID TYPE SIBFLPORB-INSTID.
CLEAR: LS_OBJECT, LV_OBJECTID.

    LV_OBJECTID =  123 ."一般为流水号，为唯一标示（主键）

   LS_OBJECT-INSTID =  LV_OBJECTID.
    LS_OBJECT-TYPEID = '123'."SAP OBJECT 相关人员建立
  LS_OBJECT-CATID  = 'BO'.                  "默认
    "维护附件列表
    CALL FUNCTION 'GOS_ATTACHMENT_LIST_POPUP'
      EXPORTING
       IS_OBJECT             = LS_OBJECT
       IP_CHECK_ARL          = 'X'
       IP_CHECK_BDS          = '' "这几个标示不同上传方式
       IP_NOTES              = ''
       IP_ATTACHMENTS        = ''
       IP_URLS               = ''
       IP_MODE              =  'M'                      "D对应显示，M对应维护

IF SY-SUBRC = 0.
MESSAGE S008(ZZXXDEV01) .
ENDIF.