GOS会计凭证上传附件

1、GOS介绍

GOS是一个连接文档和SAP内各种对象的工具，在SAP的一些凭证中，可以通过GOS进行附件的上传、查看和删除等功能，例如采购订单、会计凭证等。

如果没有这个按钮，可以将当前登录用户的类型设置为对话即可。

2、前台附件上传

点击创建附件，选择需要上传的附件即可

点击附件清单，即可查看上传的附件

并且可以对当前上传的附件进行删除操作

3、代码实现

源代码

"--------------------@斌将军--------------------
REPORT zgos.

TYPE-POOLS: slis,abap,truxs.
INCLUDE <cntn01>.

*----------------------------------------------------------------------*
*   屏幕定义
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-002.
  PARAMETERS:p_file  TYPE rlgrap-filename MEMORY ID p, "上载模版路径
             p_belnr TYPE bkpf-belnr OBLIGATORY,
             p_gjahr TYPE bkpf-gjahr OBLIGATORY,
             p_bukrs TYPE bkpf-bukrs OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN  on HELP-REQUEST|VALUE-REQUEST                   *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  "选择路径
  PERFORM frm_choose_file.

*----------------------------------------------------------------------*
* START-OF-SELECTION                                                   *
*----------------------------------------------------------------------*
START-OF-SELECTION.
  "上传附件
  PERFORM frm_upload_file.

*&---------------------------------------------------------------------*
*&      Form  FRM_CHOOSE_FILE
*&---------------------------------------------------------------------*
*       选择文件
*----------------------------------------------------------------------*
FORM frm_choose_file.
  "F4 选择文件
  CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      file_name = p_file.

  IF sy-subrc <> 0.
  ENDIF.
ENDFORM. "FRM_CHOOSE_FILE

*&---------------------------------------------------------------------*
*&      Form  FRM_UPLOAD_FILE
*&---------------------------------------------------------------------*
*       上传附件
*----------------------------------------------------------------------*
FORM frm_upload_file.

  DATA:lt_swcont        TYPE TABLE OF swcont WITH HEADER LINE,
       lt_binrel_attrib TYPE TABLE OF brelattr,
       lt_bin           TYPE TABLE OF solix.

  DATA:lv_filename       TYPE string,
       lv_long_filename  TYPE dbmsgora-filename,
       lv_pure_filename  TYPE sdbah-actid,
       lv_pure_extension TYPE sdbad-funct,
       ls_obja           TYPE borident,
       ls_roleb          TYPE borident,
       ls_binrel         TYPE gbinrel,
       ls_attsize        TYPE int4,
       lo_swc_obj        TYPE swc_object.

  "上传文件
  CLEAR:lv_filename.
  lv_filename = p_file.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = lv_filename
      filetype                = 'BIN'
    IMPORTING
      filelength              = ls_attsize
    TABLES
      data_tab                = lt_bin
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.
  IF sy-subrc <> 0.
    MESSAGE '文件上传失败' TYPE 'S' DISPLAY LIKE 'E'.
    STOP.
  ELSE.

    CLEAR:lv_long_filename.
    lv_long_filename = lv_filename.
    "截取文件名称和后缀
    CALL FUNCTION 'SPLIT_FILENAME'
      EXPORTING
        long_filename  = lv_long_filename
      IMPORTING
        pure_filename  = lv_pure_filename
        pure_extension = lv_pure_extension.

    "转换文件
    swc_create_object  lo_swc_obj 'MESSAGE' ''.
    swc_set_element    lt_swcont 'NO_DIALOG' 'X'.
    swc_set_element    lt_swcont 'DOCUMENTTITLE' lv_pure_filename."文件名
    swc_set_table      lt_swcont 'Content_Hex'   lt_bin."文件内容
    swc_set_element    lt_swcont 'DOCUMENTTYPE'  lv_pure_extension."文件格式
    swc_set_element    lt_swcont 'DOCUMENTSIZE'  ls_attsize."文件大小
    swc_refresh_object lo_swc_obj.
    swc_call_method    lo_swc_obj  'CREATE' lt_swcont.
    swc_get_object_key lo_swc_obj  ls_roleb-objkey.

    ls_roleb-objtype = 'MESSAGE'.   "
    ls_obja-objtype = 'BKPF'.      "
    ls_obja-objkey = p_bukrs && p_belnr && p_gjahr."拼接会计公司、会计凭证、会计年度

    "上传附件
    CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'
      EXPORTING
        obj_rolea      = ls_obja
        obj_roleb      = ls_roleb
        relationtype   = 'ATTA'
      IMPORTING
        binrel         = ls_binrel
      TABLES
        binrel_attrib  = lt_binrel_attrib
      EXCEPTIONS
        no_model       = 1
        internal_error = 2
        unknown        = 3
        OTHERS         = 4.
    IF sy-subrc EQ 0.
      MESSAGE s043(sgos_msg)."已成功创建附件
    ENDIF.
  ENDIF.

ENDFORM.
"--------------------@斌将军--------------------

定期更文，欢迎关注

 

 

 

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

 

 

此页面的语言为英语

 

翻译为中文（简体）

 

 

 

 

• 中文（简体）
• 中文（繁体）
• 丹麦语
• 乌克兰语
• 乌尔都语
• 亚美尼亚语
• 俄语
• 保加利亚语
• 克罗地亚语
• 冰岛语
• 加泰罗尼亚语
• 匈牙利语
• 卡纳达语
• 印地语
• 印尼语
• 古吉拉特语
• 哈萨克语
• 土耳其语
• 威尔士语
• 孟加拉语
• 尼泊尔语
• 布尔语(南非荷兰语)
• 希伯来语
• 希腊语
• 库尔德语
• 德语
• 意大利语
• 拉脱维亚语
• 挪威语
• 捷克语
• 斯洛伐克语
• 斯洛文尼亚语
• 旁遮普语
• 日语
• 普什图语
• 毛利语
• 法语
• 波兰语
• 波斯语
• 泰卢固语
• 泰米尔语
• 泰语
• 海地克里奥尔语
• 爱沙尼亚语
• 瑞典语
• 立陶宛语
• 缅甸语
• 罗马尼亚语
• 老挝语
• 芬兰语
• 英语
• 荷兰语
• 萨摩亚语
• 葡萄牙语
• 西班牙语
• 越南语
• 阿塞拜疆语
• 阿姆哈拉语
• 阿尔巴尼亚语
• 阿拉伯语
• 韩语
• 马尔加什语
• 马拉地语
• 马拉雅拉姆语
• 马来语
• 马耳他语
• 高棉语

 

随时将英语翻译为中文（简体）PRO
一律不翻译英语
一律不翻译i.cnblogs.com