*----------------------------------------------------------------------*
* Program Name   <程序名称>     :  Z_FI_DCV_0001                       *
* Purpose        <程序用途>     :    资产负债表导出为EXCEL              *
* Project Name   <项目名称>     :  ITG-TRAINING                        *
* Created by     <代码编写人>   :  YANGMIN                             *
* Create on      <创建日期>     :  20071207                            *
* Functional Consultant  <顾问> :                                      *
* Description    <功能描述>     :  从服务器下载EXCEL到用户本地,         *
*                                  打开本地EXCEL,将CELL内公式转换为参数 *
*                                  根据参数调用函数,返回结果回写入CELL  *
*----------------------------------------------------------------------*
*            Modification Log  <程序修改日志>                           *
*Date        Programmer     Corr. #      Description                   *
*2007.12.07  YANGMIN                     Initial pgm dev               *
*----------------------------------------------------------------------*

REPORT  z_fi_dcv_0001.

*&---------------------------------------------------------------------*
*& 变量声明   *---服务器上文件路径,客户端临时文件夹声明
*&---------------------------------------------------------------------*
DATA: g_user_file_path(60) TYPE c."存放登陆用户的系统临时文件夹路径
INCLUDE ole2incl.
DATA: excel TYPE ole2_object,
      workbook TYPE ole2_object,    " Workbook object
      book TYPE ole2_object,
      sheet TYPE ole2_object,   " Worksheet object
      range TYPE ole2_object,     " Range object
      cell TYPE ole2_object.      " Cell object
DATA: sheet_name(20) VALUE 'SHEET1'.  "Excel文件里的sheet name
DATA local_file LIKE rcgfiletr-ftfront."下载文件类型
DATA: gt_data TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE. "便历EXCEL 所有数据
DATA: gchange_data TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE."存放需要修改的单元格数据
DATA: g_sql TYPE string."测试拼接SQL语句
DATA: str_name TYPE string."存放本地的EXCEL名字


*****传递给函数的内表 结构 参考zsfagl****************************************

  data: new_table_to_function LIKE zsfagl OCCURS 0 WITH HEADER LINE.


DATA: xin_table_to_function LIKE new_table_to_function OCCURS 0 WITH HEADER LINE."传递给函数的内表参数


DATA: t1 LIKE SY-UZEIT,"运行开始时间
      t2 LIKE SY-UZEIT,"运行结束
      t3 LIKE SY-UZEIT."运行时间差




       t1 = SY-UZEIT.


***********定义屏幕元素********************************************************************************************************
*&---------------------------------------------------------------------*
*& Select-OPTIONS
*&---------------------------------------------------------------------*
SelectION-SCREEN BEGIN OF BLOCK zblock003 WITH FRAME TITLE text-001.

PARAMETERS:p_bukrs LIKE ekko-bukrs,"公司代码
           p_gjahr LIKE bkpf-gjahr,"会计凭证年度
           p_rpmax LIKE faglflext-rpmax,"起始 月份
           p_xend LIKE faglflext-rpmax."终止 月份

*****选择报表类型 下拉GRID 方式1*****************************
TABLES: ZTFIBBK.
DATA:
      filepath_real(60) TYPE c,"通过SQL语句再获得 真实路径
      lc_filepath LIKE zfitable00-filepath,
      ltab_fields LIKE help_value OCCURS 0 WITH HEADER LINE,
      BEGIN OF ltab_values OCCURS 0,
      feld(40) TYPE c,
      END OF ltab_values.

PARAMETERS: filepath(60) TYPE c OBLIGATORY."获得文件名

SelectION-SCREEN END OF BLOCK zblock003.


AT SelectION-SCREEN ON VALUE-REQUEST FOR filepath.
*获得文件名
  PERFORM get_path_value USING filepath text-006.


*------调用事件----------------------------------------
*INITIALIZATION."初始化事件
INITIALIZATION .

  ltab_fields-tabname    = 'ZTFIBBK '."'ZFITABLE00'.
  ltab_fields-fieldname  = 'BBMC'."'TABLENAME'.
  ltab_fields-selectflag = 'X'.
  APPEND ltab_fields.
  ltab_fields-tabname    = 'ZTFIBBK'.
  ltab_fields-fieldname  = 'FILEPATH'.
  ltab_fields-selectflag = space.
  APPEND ltab_fields.

  Select * FROM ZTFIBBK.
    ltab_values-feld = ZTFIBBK-BBMC.
    APPEND ltab_values.
    ltab_values-feld = ZTFIBBK-filepath.
    APPEND ltab_values.
  ENDSelect.


*----------------------------------------------------------------------*
*START-OF-SelectION
*----------------------------------------------------------------------*
START-OF-SelectION.
*获得用户TEMP路径
  PERFORM get_user_info USING g_user_file_path.

*根据选择的 会计表名,查找出表名真实路径
  Select SINGLE filepath FROM ZTFIBBK
     INTO filepath_real
    Where bbmc = filepath.


*读本地服务器文件到本地
  PERFORM read_serverfile_to_local USING filepath_real str_name.
*把STRING类型 赋值给 rcgfiletr-ftfront 类型,否则函数参数类型不同
  local_file  =  str_name.
  PERFORM get_data_to_innertable TABLES gt_data USING local_file." 从本地文件local_file 读 EXCEL模版单元格到内表gt_data

*PERFORM display TABLES gt_data."测试显示结果  取的表名,字段名

*  gt_data放初始EXCEL内表, table_to_function 为处理后内表
*  PERFORM processdata_to_function TABLES gt_data table_to_function.
    PERFORM processdata_to_function TABLES gt_data xin_table_to_function.

*  调用庄闽程序  暂时缺少输出结果表参数
  PERFORM call_new TABLES xin_table_to_function USING p_bukrs p_gjahr p_rpmax p_xend.

*   PERFORM CALL_SECOND  TABLES

*  将函数结果表传递给要更新的内表
*  PERFORM processdata_from_function TABLES table_from_function gchange_data .

*  根据内表数据 替换本地EXCEL数据
  PERFORM write_to_local_excel TABLES gchange_data USING local_file ."将需要替换的数据 写回EXCEL相应单元格


*更新启群的 模版路径表
  PERFORM process_data_test.

*将屏幕元素写入EXCEL
*PERFORM fill_fix_value_to_innertable.

   t2 = SY-UZEIT.
   t3 = t2 - t1.
   WRITE:'程序运行时间为:',t3.



*&---------------------------------------------------------------------*
*&      Form  read_serverfile_to_local
*&---------------------------------------------------------------------*
*       text     读读服务器上文件并下载到本地
*----------------------------------------------------------------------*
*      -->F_NAME     text  服务器路径+文件名
*      -->F_DIR      text  本地文件名 利用CHARGING 回写 f_local_file
*----------------------------------------------------------------------*
FORM read_serverfile_to_local USING f_server_file  TYPE c  CHANGING f_local_file TYPE string .

  DATA: f_itab TYPE TABLE OF x WITH HEADER LINE.
  DATA: f_length TYPE i.
  DATA:f_name LIKE epsf-epsfilnam, "类型参考 函数 EPS_GET_FILE_ATTRIBUTES
       f_dir LIKE epsf-epsdirnam.
  DATA:o_dir TYPE string,
        o_name TYPE string.
  DATA: f_11 TYPE sy-fdpos.
  DATA: f_itabnew TYPE TABLE OF string.
  SPLIT f_server_file AT '\' INTO TABLE f_itabnew."分离字符串到内表
  LOOP AT f_itabnew INTO o_name."读到最后一个 \
*  WRITE / o_name.
  ENDLOOP.
  SEARCH f_server_file FOR o_name.
  IF sy-subrc = 0.
    f_11 = sy-fdpos.
    o_dir = f_server_file+0(f_11).
  ENDIF.
  f_dir = o_dir."请注意本步转换
  f_name = o_name.


****读服务器上文件到内表********************
  OPEN DATASET f_server_file FOR INPUT IN BINARY MODE.

  DO.
    READ DATASET f_server_file INTO f_itab.
    IF sy-subrc <> 0 .
      EXIT.
    ENDIF.
    APPEND f_itab.
  ENDDO.


****计算下载文件大小********************
  CALL FUNCTION 'EPS_GET_FILE_ATTRIBUTES'
    EXPORTING
      file_name                    =     f_name "str_name_new " '出口统计.xls' "类型:epsf-epsfilnam
      dir_name                     =     f_dir "str_dir_new    " "'\usr\sap\ids\dvebmgs00\log\' "类型:epsf-epsdirnam
   IMPORTING
     file_size                    =       f_length
*   FILE_OWNER                   =
*   FILE_MODE                    =
*   FILE_TYPE                    =
*   FILE_MTIME                   =
*   FILE_SIZE_LONG               =
   EXCEPTIONS
     read_directory_failed        = 1
     read_attributes_failed       = 2
     OTHERS                       = 3
            .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

*连接字符串组成文件路径    用户本地TEMP路径+文件名
  CONCATENATE g_user_file_path '\' o_name INTO o_name.
  f_local_file = o_name.

    g_sql = f_local_file.


  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      bin_filesize            = f_length                    "56018
      filename                = f_local_file  "'d:\9_new.xls' "str_name "
      filetype                = 'BIN'
    TABLES
      data_tab                = f_itab
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception  = 20
      control_flush_error     = 21
      OTHERS                  = 22.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.
***************************************************************************

ENDFORM.                    "read_serverfile_to_local

*&      Form  write_to_local_excel
*&---------------------------------------------------------------------*
*       text  打开EXCEL,并将将数据写回EXCEL
*        f_table 存放需要替换的内容组成的内表    f_local_file 本地指定的EXCEL文件
*----------------------------------------------------------------------*
FORM write_to_local_excel TABLES f_table STRUCTURE alsmex_tabline USING f_local_file LIKE rcgfiletr-ftfront.

  Create OBJECT excel 'EXCEL.APPLICATION'.         "Create EXCEL OBJECT
  IF sy-subrc NE 0.
    EXIT.
  ENDIF.
  SET PROPERTY OF excel 'Visible' = 1.             "是否显示EXCEL
  CALL METHOD OF excel 'Workbooks' = workbook.
  DATA h TYPE i.


  CALL METHOD OF workbook 'Open'
    EXPORTING
    #1 = f_local_file.

  CALL METHOD OF excel 'Sheets' = sheet
    EXPORTING
    #1 = 1.

  CALL METHOD OF sheet 'Select' .


  WRITE:/,'写入固定数据'.
*填充
*  PERFORM fill_range USING 8 1  g_sql ."'100'.          "第8行第1列

*  PERFORM fill_range USING 2 1  '20' ."'100'.          "第2行第1列
*  PERFORM fill_range USING 2 2  '-4' ."'100'.          "第2行第2列

  LOOP AT  f_table.
    PERFORM fill_range USING f_table-row  f_table-col  f_table-value ."         "在这框的下面10列显示结果
    WRITE:/,'写入数据:','行:',f_table-row ,'列:',f_table-col,'值',f_table-value.
  ENDLOOP.


  GET PROPERTY OF excel 'ActiveWorkbook' = sheet.
*  CALL METHOD OF sheet 'printout'.                  "打印
*  CALL METHOD OF excel 'SAVE'.                      "保存
*  CALL METHOD OF excel 'Quit'.                      "退出
  FREE OBJECT cell.
  FREE OBJECT range.
  FREE OBJECT sheet.
  FREE OBJECT workbook.
  FREE OBJECT excel.

ENDFORM.                    "write_to_local_excel

*&---------------------------------------------------------------------*
*&      Form  fill_range
*&---------------------------------------------------------------------*
*       text  填充EXCEL 单元格
*----------------------------------------------------------------------*
*      -->VALUE(F_ROW)    text
*      -->VALUE(F_COL)    text
*      -->VALUE(F_VALUE)  text
*----------------------------------------------------------------------*
FORM fill_range USING value(f_row)
                      value(f_col)
                      value(f_value).
  DATA:
    row TYPE i,
    col TYPE i.
  row = f_row.
  col = f_col.
  CALL METHOD OF excel 'CELLS' = cell
    EXPORTING
    #1 = row
    #2 = col.
  SET PROPERTY OF cell 'VALUE' = f_value.
ENDFORM.                    "fill_range

*&---------------------------------------------------------------------*
*&      Form  Get_data_to_innerTable
*&---------------------------------------------------------------------*
*       text   打开本地EXCEL文件 并传递到内表
*----------------------------------------------------------------------*
FORM get_data_to_innertable TABLES f_tab STRUCTURE alsmex_tabline  USING f_file_name LIKE rlgrap-filename.

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = f_file_name
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 100
      i_end_row               = 30000
    TABLES
      intern                  = f_tab"gt_data
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

  SORT gt_data BY row col value."按行,列排序

ENDFORM.                    "Get_data_to_innerTable




*&---------------------------------------------------------------------*
*&      Form  ProcessData_to_function
*&---------------------------------------------------------------------*
*       text  将EXCEL读出的内表 筛选为传递参数内表
*----------------------------------------------------------------------*
*FORM processdata_to_function TABLES f_table STRUCTURE alsmex_tabline  f_table_to_function STRUCTURE type_table_to_function.
FORM processdata_to_function TABLES f_table STRUCTURE alsmex_tabline  f_table_to_function STRUCTURE new_table_to_function.
  DATA: f_1 TYPE sy-fdpos,
        f_2 TYPE sy-fdpos,
        f_3 TYPE sy-fdpos.",
*        f_4 TYPE sy-fdpos,
*        f_5 TYPE sy-fdpos,
*        f_6 TYPE sy-fdpos.

  DATA:  s_1 TYPE char10,
         s_1_new LIKE s_1,
         s_2 TYPE char20,
         s_2_new LIKE s_2,
         s_3 TYPE char10,
         s_3_new LIKE s_2.",
*         s_4 TYPE char10,
*         s_4_new LIKE s_2,
*         s_5 TYPE char10,
*         s_5_new LIKE s_2,
*         s_6 TYPE char10,
*         s_6_new TYPE char10.
  DATA: ln_spaces TYPE i.
  ln_spaces = 1.
  DATA: new_col LIKE alsmex_tabline-col.
  DATA: new_row LIKE alsmex_tabline-row.
  DATA: s_sql TYPE string.
  DATA: s_value TYPE f.
  DATA: flag TYPE i."单元格正负


  ULINE.
  WRITE:/,'EXCEL 中初始数据为:'.

  LOOP AT f_table.

*去除前面的0,否则显示 1,4单元格 为0001,0004
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = f_table-row
      IMPORTING
        output = f_table-row.
*去除前面的0
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = f_table-col
      IMPORTING
        output = f_table-col.
    WRITE:/,'行:',f_table-row,'列:',f_table-col,'值:',f_table-value.



*~defined(zcfz营业收入)_bq
**************
    SEARCH f_table-value FOR '('. "先搜索 ( 号
    IF sy-subrc = 0.  "如果找到
      f_1 = sy-fdpos.
      SEARCH f_table-value FOR '_'.
      IF sy-subrc = 0 .
        f_2 = sy-fdpos.

*      找到 营业收入
        f_3 = f_1 + 5."
        s_3 = f_table-value+f_3(4).
        WRITE:'取得的项目名为:',s_3."营业收入
        f_1 = f_1 + 1."现在假设表名字为ZCFZ        + 5. "(ZCFZ 共5个字符
        s_1 = f_table-value+f_1(4).      "zcfz 4个字符                   "营业收入  4个字符
        WRITE:'取得的表名为:',s_1."zcfz
        f_2 = f_2 + 1.
        s_2 = f_table-value+f_2(2).
        WRITE:'取得的期间为:',s_2.                                "bq 2个字符

        s_2_new+ln_spaces = s_2 ."补充前面空格
        s_1_new+ln_spaces = s_1.


**********形成传递给庄闽的结果内表********************************************************

*        f_table_to_function-row = f_table-row.
*        f_table_to_function-col = f_table-col.
*        f_table_to_function-old_value = f_table-value.
*        f_table_to_function-xiangmu = s_3.
*        f_table_to_function-qijian = s_2.
*        APPEND f_table_to_function.


*         item type char50,
*         qsff TYPE char10,
*         wrbtr LIKE bseg-wrbtr ,
*         rtcur LIKE bseg-PSWSL,
**         exrow TYPE numeric,
**         excol TYPE numeric,
*         exrow TYPE i,
*         excol TYPE i,
*         olval TYPE char50,



        f_table_to_function-exrow = f_table-row.
        f_table_to_function-excol = f_table-col.
        f_table_to_function-olval = f_table-value.
        f_table_to_function-item = s_3.
        f_table_to_function-qsff = s_2.
        APPEND f_table_to_function.


      ENDIF.

    ENDIF.

  ENDLOOP.


*PERFORM fill_fix_value_to_innertable.

*****测试传给庄闽的内表数据**********************************
  WRITE:/,'******这是向庄闽传递的内表参数*******'.
  LOOP AT f_table_to_function.
*    WRITE:/,'row',f_table_to_function-row,'col',f_table_to_function-col,'old_value',f_table_to_function-old_value,'xiangmu',f_table_to_function-xiangmu,'qijian',f_table_to_function-qijian.
    WRITE:/,'row',f_table_to_function-exrow,'col',f_table_to_function-excol,'old_value',f_table_to_function-olval,'xiangmu',f_table_to_function-item,'qijian',f_table_to_function-qsff.

ENDLOOP.


ENDFORM.                    "ProcessData_to_function




*&---------------------------------------------------------------------*
*&      Form  ProcessData_from_function
*&---------------------------------------------------------------------*
*       text  从函数取回结果内表附加到需要修改的内表
*----------------------------------------------------------------------*
FORM processdata_from_function TABLES f_table STRUCTURE new_table_to_function  f_outab STRUCTURE alsmex_tabline.

  DATA: flag TYPE i.


  ULINE.
  WRITE:/,'函数传递来的结果内表为:'.

  LOOP AT f_table.
    flag = 1."默认CELL单元格数值为正
    SEARCH f_table-olval FOR ':=-1*'.
    IF sy-subrc = 0.
      flag = 0. "进行标记 CELL 中添充结果为负
    ENDIF.




    IF flag = 0.
      f_outab-value = f_table-wrbtr.
    ELSEIF flag = 1.
*          f_table-b =  f_table-b * -1.  "这样写 传递到EXCEL竟然成了 12-
      f_outab-value = f_table-wrbtr.
      CONCATENATE '-'  f_outab-value INTO f_outab-value.
    ENDIF.

    f_outab-row  = f_table-exrow.
    f_outab-col = f_table-excol.



    APPEND f_outab.




  ENDLOOP.

*     MODIFY f_outab."因为是引用传递,所以这里不能用MODIFY 否则有BUG

*****测试庄闽函数传出的内表数据**********************************
    WRITE:/,'******这是要替换EXCEL内容的内表*******'.
      LOOP AT f_outab.
         WRITE:/,'row:',f_outab-row,'col:',f_outab-col,'NEW_value:',f_outab-value.
      ENDLOOP.


    PERFORM fill_fix_value_to_innertable.

ENDFORM.                    "ProcessData_from_function





*&---------------------------------------------------------------------*
*&      Form  fill_fix_value_to_innertable
*&---------------------------------------------------------------------*
*       text   写入固定数据到内表
*----------------------------------------------------------------------*
FORM fill_fix_value_to_innertable.


*****屏幕元素写入指定单元格*************************************
  gchange_data-row = 12 .
  gchange_data-col = 1 .
  gchange_data-value = '系统当前日期为:' .
  WRITE:/,'追加数据:','行:',gchange_data-row ,'列:',gchange_data-col,'值',gchange_data-value.
  APPEND   gchange_data.

  gchange_data-row = 12 .
  gchange_data-col = 2 .
  gchange_data-value = sy-datum .
  WRITE:/,'追加数据:','行:',gchange_data-row ,'列:',gchange_data-col,'值',gchange_data-value.
  APPEND   gchange_data.

  gchange_data-row = 12 .
  gchange_data-col = 3 .
  gchange_data-value = '当前时间:'.
  APPEND   gchange_data.
  gchange_data-row = 12 .
  gchange_data-col = 4 .
  gchange_data-value = sy-uzeit  .
  APPEND   gchange_data.

  gchange_data-row = 12 .
  gchange_data-col = 5 .
  gchange_data-value = '当前用户为:'.
  APPEND   gchange_data.
  gchange_data-row = 12 .
  gchange_data-col = 6 .
  gchange_data-value = sy-uname  .
  APPEND   gchange_data.




  gchange_data-row = 13 .
  gchange_data-col = 1 .
  gchange_data-value = '屏幕选择的公司代码为'.
  APPEND   gchange_data.
  gchange_data-row = 13 .
  gchange_data-col = 2 .
  gchange_data-value = p_bukrs .
  APPEND   gchange_data.

*           s_GJAHR LIKE BKPF-GJAHR,"会计凭证年度
*           S_RPMAX LIKE FAGLFLEXT-RPMAX."期间  月份

  gchange_data-row = 14 .
  gchange_data-col = 1 .
  gchange_data-value = '屏幕选择的会计年度为'.
  APPEND   gchange_data.
  gchange_data-row = 14 .
  gchange_data-col = 2 .
  gchange_data-value = p_gjahr .
  APPEND   gchange_data.


  gchange_data-row = 15 .
  gchange_data-col = 1 .
  gchange_data-value = '屏幕选择的期间为'.
  APPEND   gchange_data.
  gchange_data-row = 15 .
  gchange_data-col = 2 .
  gchange_data-value = p_rpmax .
  APPEND   gchange_data.


  gchange_data-row = 16 .
  gchange_data-col = 1 .
  gchange_data-value = '1 选择的文件为:'.
  APPEND   gchange_data.
  gchange_data-row = 16 .
  gchange_data-col = 2 .
  gchange_data-value = filepath .
  APPEND   gchange_data.

*  gchange_data-row = 17 .
*  gchange_data-col = 1 .
*  gchange_data-value = '2 选择的文件路径为:'.
*  APPEND   gchange_data.
*  gchange_data-row = 17 .
*  gchange_data-col = 2 .
*  gchange_data-value = ps_parm .
*  APPEND   gchange_data.


ENDFORM.                    "fill_fix_value_to_innertable





*&---------------------------------------------------------------------*
*&      Form  get_path_value
*&---------------------------------------------------------------------*
*       text   文件路径 自定义搜索帮助
*----------------------------------------------------------------------*
*      -->P_WERKS  text
*      -->P_TEXT_006  text
*----------------------------------------------------------------------*
FORM get_path_value  USING    p_table
                         p_text_006.
  CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
    EXPORTING
      fieldname                 =  'BBMC'  "'TABLENAME'  "'WERKS'
      tabname                   =  'ZTFIBBK'" 'ZFITABLE00'              "'T001W'
      title_in_values_list      = 'Select a value'
    IMPORTING
      select_value              = p_table "p_werks
    TABLES
      fields                    = ltab_fields
      valuetab                  = ltab_values
    EXCEPTIONS
      field_not_in_ddic         = 01
      more_then_one_selectfield = 02
      no_selectfield            = 03.
ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  get_user_info
*&---------------------------------------------------------------------*
*       text   得到用户 TEMP路径
*----------------------------------------------------------------------*
*      -->F_TEMP_INFO  text
*----------------------------------------------------------------------*
FORM get_user_info CHANGING  f_temp_info TYPE c.

* DATA: f_temp_info(255) TYPE C.

  CALL FUNCTION 'GUI_GET_DESKTOP_INFO'
    EXPORTING
      type   = '4'
    CHANGING
      return = f_temp_info.
ENDFORM.                    "get_user_info



*&---------------------------------------------------------------------*
*&      Form  DISPLAY
*&---------------------------------------------------------------------*
*       text  纯粹测试无其他意义
*----------------------------------------------------------------------*
FORM display TABLES f_table STRUCTURE alsmex_tabline .
  DATA: f_1 TYPE sy-fdpos,
        f_2 TYPE sy-fdpos,
        f_3 TYPE sy-fdpos,
        f_4 TYPE sy-fdpos,
        f_5 TYPE sy-fdpos,
        f_6 TYPE sy-fdpos.

  DATA:  s_1 TYPE char10,
         s_1_new LIKE s_1,
         s_2 TYPE char20,
         s_2_new LIKE s_2,
         s_3 TYPE char10,
         s_3_new LIKE s_2,
         s_4 TYPE char10,
         s_4_new LIKE s_2,
         s_5 TYPE char10,
         s_5_new LIKE s_2,
         s_6 TYPE char10,
         s_6_new TYPE char10.
  DATA: ln_spaces TYPE i.
  ln_spaces = 1.
  DATA: new_col LIKE alsmex_tabline-col.
  DATA: new_row LIKE alsmex_tabline-row.
  DATA: s_sql TYPE string.
  DATA: s_value TYPE f.
  DATA: flag TYPE i."单元格正负



*****测试写参数表 并传递给庄闽的函数*************************************************
  DATA: BEGIN OF f_table_to_function OCCURS 0,
          row TYPE i,
          col TYPE i,
          old_value TYPE char50,
          xiangmu TYPE char20,
          qijian TYPE char20,
*          new_value TYPE char50, "新的结果值要等 庄闽返回结果内表 去找
        END OF f_table_to_function.



  f_table_to_function-row = 20.
  f_table_to_function-col = 1.
  f_table_to_function-old_value = '~defined(zcfz营业收入)_bq'.
  f_table_to_function-xiangmu = '营业收入'.
  f_table_to_function-qijian = 'bq'.
*        f_table_to_Function-new_value = '209556.89'.
  APPEND f_table_to_function.




****************************************************************





*****测试读 庄闽返回的结果内表*************************************************
  DATA: BEGIN OF zcfz OCCURS 0,
          a TYPE string,
          b TYPE i,
          c TYPE string,
        END OF zcfz.

  zcfz-a = 'test1'.
  zcfz-b = 12.
  zcfz-c = '~defined(zcfz营业收入)_bq'.
  APPEND zcfz.

  zcfz-a = '内表中存的数据:test2'.
  zcfz-b = 24.
  zcfz-c = '~defined(ZCFZ销售费用_bq)~'.
  APPEND zcfz.


****************************************************************


  ULINE.
  WRITE:/,'EXCEL 中初始数据为:'.

  LOOP AT f_table.
    flag = 1."默认CELL单元格数值为正

    SEARCH f_table-value FOR ':=-1*'.
    IF sy-subrc = 0.
      flag = 0. "进行标记 CELL 中添充结果为负
    ENDIF.


*去除前面的0,否则显示 1,4单元格 为0001,0004
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = f_table-row
      IMPORTING
        output = f_table-row.
*去除前面的0
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = f_table-col
      IMPORTING
        output = f_table-col.
    WRITE:/,'行:',f_table-row,'列:',f_table-col,'值:',f_table-value.




*~defined(zcfz营业收入)_bq
**************
    SEARCH f_table-value FOR '('. "先搜索 ( 号
    IF sy-subrc = 0.  "如果找到
      f_1 = sy-fdpos.
      SEARCH f_table-value FOR '_'.
      IF sy-subrc = 0 .
        f_2 = sy-fdpos.

*      找到 营业收入
        f_3 = f_1 + 5."
        s_3 = f_table-value+f_3(4).
        WRITE:'取得的项目名为:',s_3."营业收入
        f_1 = f_1 + 1."现在假设表名字为ZCFZ        + 5. "(ZCFZ 共5个字符
        s_1 = f_table-value+f_1(4).      "zcfz 4个字符                   "营业收入  4个字符
        WRITE:'取得的表名为:',s_1."zcfz
        f_2 = f_2 + 1.
        s_2 = f_table-value+f_2(2).
        WRITE:'取得的期间为:',s_2.                                "bq 2个字符

        s_2_new+ln_spaces = s_2 ."补充前面空格
        s_1_new+ln_spaces = s_1.


**********形成传递给庄闽的结果内表********************************************************

        f_table_to_function-row = f_table-row.
        f_table_to_function-col = f_table-col.
        f_table_to_function-old_value = f_table-value.
        f_table_to_function-xiangmu = s_3.
        f_table_to_function-qijian = s_2.
        APPEND f_table_to_function.

****************************************************************

**        CONCATENATE ' select'  s_2_new   ' from'  s_1_new  INTO g_sql. "且该命令忽略被连接的各个字符串的尾部空格 注意是尾部!!
*        CONCATENATE 'READ TABLE '  s_1_new   ' INDEX 1'    INTO g_sql. "且该命令忽略被连接的各个字符串的尾部空格 注意是尾部!!
*        WRITE:/,'SQL IS:',g_sql.



* 测试从庄闽传递来的记过内表中 检索出数据  插入要替换的内表      ************************************
        CLEAR g_sql.

        READ TABLE zcfz WITH KEY  a = 'test1' .             "b = 100.
        IF sy-subrc = 0.
          g_sql = zcfz-b.
*           CONCATENATE '=-1*' g_sql INTO g_sql.
          IF flag = 0. "FALG 为 0 时表负数
            CONCATENATE '=-1*' g_sql INTO g_sql.
          ENDIF.

        ENDIF.
        WRITE:/,'现在从内表中读到的数据为:',g_sql.



*   将需要转换的单元格汇总,加载到  需要修改数据的内表
        CLEAR s_sql.
        s_sql = g_sql.
        new_col = f_table-col.                              " + 4.
*        new_row = f_table-row + 10.
        new_row = f_table-row + 1.
        gchange_data-row = new_row .
        gchange_data-col = new_col .
        gchange_data-value = s_sql .

        WRITE:/,'追加数据:','行:',gchange_data-row ,'列:',gchange_data-col,'值',gchange_data-value.

        APPEND   gchange_data.
      ENDIF.

    ENDIF.

  ENDLOOP.

*****屏幕元素写入指定单元格*************************************
  gchange_data-row = 12 .
  gchange_data-col = 1 .
  gchange_data-value = '系统当前日期为:' .
  WRITE:/,'追加数据:','行:',gchange_data-row ,'列:',gchange_data-col,'值',gchange_data-value.
  APPEND   gchange_data.

  gchange_data-row = 12 .
  gchange_data-col = 2 .
  gchange_data-value = sy-datum .
  WRITE:/,'追加数据:','行:',gchange_data-row ,'列:',gchange_data-col,'值',gchange_data-value.
  APPEND   gchange_data.

  gchange_data-row = 12 .
  gchange_data-col = 3 .
  gchange_data-value = '当前时间:'.
  APPEND   gchange_data.
  gchange_data-row = 12 .
  gchange_data-col = 4 .
  gchange_data-value = sy-uzeit  .
  APPEND   gchange_data.

  gchange_data-row = 12 .
  gchange_data-col = 5 .
  gchange_data-value = '当前用户为:'.
  APPEND   gchange_data.
  gchange_data-row = 12 .
  gchange_data-col = 6 .
  gchange_data-value = sy-uname  .
  APPEND   gchange_data.




  gchange_data-row = 13 .
  gchange_data-col = 1 .
  gchange_data-value = '屏幕选择的公司代码为'.
  APPEND   gchange_data.
  gchange_data-row = 13 .
  gchange_data-col = 2 .
  gchange_data-value = p_bukrs .
  APPEND   gchange_data.

*           s_GJAHR LIKE BKPF-GJAHR,"会计凭证年度
*           S_RPMAX LIKE FAGLFLEXT-RPMAX."期间  月份

  gchange_data-row = 14 .
  gchange_data-col = 1 .
  gchange_data-value = '屏幕选择的会计年度为'.
  APPEND   gchange_data.
  gchange_data-row = 14 .
  gchange_data-col = 2 .
  gchange_data-value = p_gjahr .
  APPEND   gchange_data.


  gchange_data-row = 15 .
  gchange_data-col = 1 .
  gchange_data-value = '屏幕选择的期间为'.
  APPEND   gchange_data.
  gchange_data-row = 15 .
  gchange_data-col = 2 .
  gchange_data-value = p_rpmax .
  APPEND   gchange_data.


  gchange_data-row = 16 .
  gchange_data-col = 1 .
  gchange_data-value = '1 选择的文件为:'.
  APPEND   gchange_data.
  gchange_data-row = 16 .
  gchange_data-col = 2 .
  gchange_data-value = filepath .
  APPEND   gchange_data.

*  gchange_data-row = 17 .
*  gchange_data-col = 1 .
*  gchange_data-value = '2 选择的文件路径为:'.
*  APPEND   gchange_data.
*  gchange_data-row = 17 .
*  gchange_data-col = 2 .
*  gchange_data-value = ps_parm .
*  APPEND   gchange_data.



*****测试传给庄闽的内表数据**********************************
  WRITE:/,'******这是向庄闽传递的内表参数*******'.
  LOOP AT f_table_to_function.
    WRITE:/,'row',f_table_to_function-row,'col',f_table_to_function-col,'old_value',f_table_to_function-old_value,'xiangmu',f_table_to_function-xiangmu,'qijian',f_table_to_function-qijian.
  ENDLOOP.


ENDFORM.                    "DISPLAY






*&---------------------------------------------------------------------*
*&      Form  call_new
*&---------------------------------------------------------------------*
*       text  调用庄闽函数  输入,输出同为 f_tab表,不知是否可行
*----------------------------------------------------------------------*
*      -->F_TAB      text
*      -->F_BUKRS    text
*      -->F_YEAR     text
*      -->F_FR       text
*      -->F_TO       text
*----------------------------------------------------------------------*
*FORM call_new TABLES f_tab STRUCTURE type_table_to_function    USING f_bukrs LIKE ekko-bukrs  f_year LIKE bkpf-gjahr f_fr LIKE  faglflext-rpmax f_to LIKE faglflext-rpmax   .
FORM call_new TABLES f_tab STRUCTURE new_table_to_function    USING f_bukrs LIKE ekko-bukrs  f_year LIKE bkpf-gjahr f_fr LIKE  faglflext-rpmax f_to LIKE faglflext-rpmax   .

  CALL FUNCTION 'Z_FI_FAGL_RPT_ITEM'
    EXPORTING
      i_ryear = f_year
      i_bukrs = f_bukrs
      i_frper = f_fr
      i_toper = f_to
    TABLES
      t_fitab = f_tab.


LOOP AT f_tab.
   gchange_data-row = f_tab-exrow.
   gchange_data-col = f_tab-excol.
   gchange_data-value = f_tab-wrbtr.
   APPEND gchange_data.
ENDLOOP.


ENDFORM.                    "call_new





*&---------------------------------------------------------------------*
*&      Form  process_data_test
*&---------------------------------------------------------------------*
*       text   测试表添加,修改,删除    主要与新同事交流用
*----------------------------------------------------------------------*
FORM process_data_test.
***测试删除数据*****************
  Delete FROM  zfitable00 Where bukrs <> '1000'.

*  Delete sflight FROM TABLE sflight_key_tab. "另外一种删除表的语法

***测试添加数据******
*  DATA: z_temp LIKE zfitable00 OCCURS 0 WITH HEADER LINE.
*  z_temp-bukrs = '1000'.
*  z_temp-tablename = 'A05'.
*  z_temp-uname = 'YANGMIN'.
*  z_temp-filepath = '\usr\sap\ids\dvebmgs00\log\9.xls'.
**   Insert line INTO TABLE itab.
*  Insert into zfitable00 values z_temp .


*****测试更新数据*************
  Update ztfibbk" zfitable00
    SET filepath = '\usr\sap\ids\dvebmgs00\log\资产负债表.xls'
*        tablename = '资产负债表'
    Where bbdm = 'A01'.

  Update ztfibbk" zfitable00
    SET filepath = '\usr\sap\ids\dvebmgs00\log\利润表.xls'
*        tablename = '资产负债表'
    Where bbdm = 'A03'.



*  Select *
*    FROM zfitable00
*    INTO TABLE z_temp.
*
**   modify zfitable00 from z_temp .
*
*  LOOP AT z_temp.
*    WRITE:/,'TABLENAME:',z_temp-tablename,'path:',z_temp-filepath.
*  ENDLOOP.

ENDFORM.                    "process_data_test