赛跑网-BDC处理前的准备工作

SAPOK_ABAP

运行下面的代码你就发现，BDC前期的准备工作是如此的简单（模板的下载&自动获取文件路径），不过还有其他要准备的哦
REPORT  ZBDC.
PARAMETERS p_file TYPE IBIPPARMS-PATH.
TABLES SSCRFIELDS.
TYPES :
* 模板标题用类型
  BEGIN OF GTYP_TITLE,
    TITLE1(20) TYPE C,                   "标题1
    TITLE2(20) TYPE C,                   "标题2
    TITLE3(20) TYPE C,                   "标题3
    TITLE4(20) TYPE C,                   "标题4
    TITLE5(20) TYPE C,                   "标题5
    TITLE6(20) TYPE C,                   "标题6
    TITLE7(20) TYPE C,                   "标题7
  END OF GTYP_TITLE.
  DATA ls_title TYPE GTYP_TITLE.
DATA GT_TITLE    TYPE STANDARD TABLE OF GTYP_TITLE.
SELECTION-SCREEN: FUNCTION KEY 1.
INITIALIZATION.
  SSCRFIELDS-FUNCTXT_01 = '下载模板'.
AT SELECTION-SCREEN.
* 相应按钮
  PERFORM FRM_DOWNLOAD.

FORM frm_download .
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_download_excel.
  ENDCASE.
ENDFORM.
FORM frm_download_excel .
*    DATA: LS_DOWNLOAD     TYPE GTYP_DOWNLOAD,
  DATA : ls_title        TYPE gtyp_title,
         l_file          TYPE string,
         l_filename(128) TYPE c.
  IF gt_title IS INITIAL.
    ls_title-title1 = '标题1'.
    ls_title-title2 = '标题2'.
    ls_title-title3 = '标题3'.
    ls_title-title4 = '标题4'.
    ls_title-title5 = '标题5'.
    ls_title-title6 = '标题6'.
    ls_title-title7 = '标题7'.
    APPEND ls_title TO gt_title.
  ENDIF.
  

游客，如果您要查看本帖隐藏内容请回复

  IF sy-subrc <> 0.
    CLEAR: l_filename.
  ENDIF.
  l_file = l_filename.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename = l_file
      filetype = 'DAT'
      codepage = '8400'
    TABLES
      data_tab = gt_title.
*      FIELDNAMES = GT_TITLE
  IF sy-subrc = 0.
    MESSAGE '模板下载成功！' TYPE 'S'.
  ELSE.
    MESSAGE '模板下载错误！' TYPE 'E'.
  ENDIF.
ENDFORM.                    " FRM_DOWNLOAD_EXCEL
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

游客，如果您要查看本帖隐藏内容请回复

  START-OF-SELECTION.

thp20000

研究研究，谢谢老师分享

xingfan234

不错，要好好学习一下

thp20000

知识用时方知价值，再次谢谢老师分享

dorian110

学习

caizjian

学习学习啦

412768150

cx楼主辛苦啦，这个问题对我很重要

秋凉

xuexi

pingminwang

学习

taskcnjia

sr