SAP DOI EXCEL应用

【应用场景】采用DOI方式打开填充EXCEL数据

*&---------------------------------------------------------------------*
*&  包含                ZFI1009R_TOP
*&---------------------------------------------------------------------*
TABLES:bkpf,bseg.

DATA: gt_list TYPE TABLE OF zsfi1009_02,
      gs_list TYPE zsfi1009_02.

"===>DOI 相关变量
DATA  gi_spreadsheet    TYPE REF TO i_oi_spreadsheet.
DATA  gi_document       TYPE REF TO i_oi_document_proxy.
DATA  gs_sheet          TYPE ole2_object.
DATA  gs_handle         TYPE cntl_handle.
DATA  gt_ranges         TYPE soi_range_list.
DATA  gt_excel_input    TYPE soi_generic_table.
DATA  gc_container      TYPE REF TO cl_gui_custom_container.
DATA  gi_control        TYPE REF TO i_oi_container_control.
DATA  gt_header         TYPE soi_generic_table.
DATA  gv_menu           TYPE c VALUE 'X'.
DATA  gv_sapye          TYPE p LENGTH 16 DECIMALS 2.
DATA  gv_percentage     TYPE i.
DATA  gt_edit_area      TYPE TABLE OF string.
DATA  gi_error          TYPE REF TO i_oi_error." occurs 0 with header line.
"<===DOI 相关变量

*==============EXCEL 模板变量========================*
DATA gs_temp_name TYPE bds_propva VALUE 'ZFI1009R'. "excel 模板名称
CONSTANTS:
  gs_sheet1 TYPE scrfname VALUE  '凭证'.
*==================================================*

DATA: lt_ztfi0222   TYPE SORTED TABLE OF ztfi0222
                     WITH NON-UNIQUE KEY fzhlx priority
                     WITH HEADER LINE,
      lt_ztfi0222_1 TYPE SORTED TABLE OF ztfi0222
                     WITH NON-UNIQUE KEY sapfzhzd priority
                     WITH HEADER LINE,
      "lt_prhi     TYPE TABLE OF prhi WITH HEADER LINE,
      lt_ztfi0120   TYPE SORTED TABLE OF ztfi0120
                  WITH NON-UNIQUE KEY hslx zzxiangmu
                  WITH HEADER LINE, " 项目分期对应关系[EAS<->SAP]
      lt_ztfi0121   TYPE SORTED TABLE OF ztfi0121
                  WITH NON-UNIQUE KEY hslx zzyeta1 zzxiangmu
                  WITH HEADER LINE, " 产品类型对应关系[EAS<->SAP]
      lt_ztfi0122   TYPE SORTED TABLE OF ztfi0122
                  WITH NON-UNIQUE KEY hslx zzroom
                  WITH HEADER LINE, " 房源类型对应关系[EAS<->SAP]
      lt_ztfi0123   TYPE SORTED TABLE OF ztfi0123
                  WITH NON-UNIQUE KEY zzbeiyong1_1  zzbeiyong1 zzbeiyong2
                  WITH HEADER LINE, " 辅助核算内容对应关系[EAS<->SAP]
      lt_ztfi0124   TYPE SORTED TABLE OF ztfi0124
                  WITH NON-UNIQUE KEY hslx zzhbkid zzhktid
                  WITH HEADER LINE, " 银行帐户对应关系[EAS<->SAP]
      lt_ztfi0161   TYPE SORTED TABLE OF ztfi0161
                  WITH NON-UNIQUE KEY hslx bukrs zzhetong2
                  WITH HEADER LINE, " 合同号新旧代码对应关系[EAS期初凭证]
      lt_ztfi0170   TYPE SORTED TABLE OF ztfi0170
                  WITH NON-UNIQUE KEY hslx lifnr
                  WITH HEADER LINE, " 供应商对应关系[EAS<->SAP]
      lt_ztfi0171   TYPE SORTED TABLE OF ztfi0171
                  WITH NON-UNIQUE KEY hslx kunnr
                  WITH HEADER LINE, " 客户对应关系[EAS<->SAP]
      lt_ztfi0172   TYPE SORTED TABLE OF ztfi0172
                  WITH NON-UNIQUE KEY hslx kostl
                  WITH HEADER LINE, " 成本中心对应关系[EAS<->SAP]
      lt_ztfi0268   TYPE SORTED TABLE OF ztfi0268
                  WITH NON-UNIQUE KEY hslx rassc
                  WITH HEADER LINE, " 贸易伙伴对照表[EAS<->SAP]
      lt_ztfi0360   TYPE SORTED TABLE OF ztfi0360
                  WITH NON-UNIQUE KEY hslx zzmenge
                  WITH HEADER LINE, " 往来类型对照关系表
      lt_