动态生成BW expert TR

这几天研究没有白费，终于搞定了，哈哈，很开心！这个只是雏形，还有很多地方可以完善！！！

*&---------------------------------------------------------------------*
*& Report ZSONG_TEST_CREATE_TR
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zsong_test_create_tr.


DATA gt_code      TYPE STANDARD TABLE OF string.


DATA lv_filetable TYPE filetable. " 打开文件的信息放入此列表中
DATA lv_filename  TYPE string.    " 定义一字段用于放置上传的文件名称

PARAMETERS: p_file TYPE string,
            p_src  TYPE sobj_name DEFAULT 'SZC_PAPM',
            p_tgt  TYPE sobj_name DEFAULT 'SZC_PAPM2'.



AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. " 按F4鍵時也可觸發該事件
  PERFORM f_open_filename CHANGING p_file.


START-OF-SELECTION.
  PERFORM read_sql.
  PERFORM create_tr.

*&---------------------------------------------
*&F_OPEN_FILENAME  FOR OPEN FILE
*&---------------------------------------------
FORM f_open_filename CHANGING p_file.
  DATA lv_rc TYPE i.

  " 调用METHOD 打开对话框
  cl_gui_frontend_services=>file_open_dialog(  " OPEN FILE DIALOG 打开上传文件的对话框
    EXPORTING
      window_title      = '文件'
      file_filter       = 'All Files (*.*)|*.*|NotePad Files(*.txt)|*.txt|Excel Files(*.xls)|*.xls|Word files(*.doc)|*.doc' " 过滤上传文件的类型
      default_extension = '*.txt'
      default_filename  = '1.txt'  " 默认打开的文件  "d:\Users\wei.sunqing\Desktop\1.txt
    CHANGING
      file_table        = lv_filetable " 你打开文件名的列表
      rc                = lv_rc ).  " 返回打开文件的数量

  IF sy-subrc <> 0.
    MESSAGE 'FILE DOES NOT EXIST!' TYPE 'E'.
  ELSEIF lv_filetable[] IS NOT INITIAL.  " 不為空
    READ TABLE lv_filetable INDEX 1 INTO lv_filename.  " 读取打開文件内表的第一个文件信息
    p_file = lv_filename.
  ENDIF.
ENDFORM.

*&---------------------------------------------
*&read_sql
*&---------------------------------------------
FORM read_sql.
  DATA data_tab TYPE STANDARD TABLE OF itab.

  cl_gui_frontend_services=>gui_upload( EXPORTING  filename                = p_file
                                                   filetype                = 'ASC'
                                                   codepage                = '8400'
                                        CHANGING   data_tab                = gt_code
                                        EXCEPTIONS file_open_error         = 1
                                                   file_read_error         = 2
                                                   no_batch                = 3
                                                   gui_refuse_filetransfer = 4
                                                   no_authority            = 6
                                                   unknown_error           = 7
                                                   bad_data_format         = 8
                                                   unknown_dp_error        = 12
                                                   access_denied           = 13
                                                   OTHERS                  = 17 ).
ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  CREATE_TR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM create_tr.
  DATA i_source  TYPE rstran_s_tlogo.
  DATA i_targert TYPE rstran_s_tlogo.
  DATA ls_rule TYPE  	rstran_s_rule.
  DATA:lv_subrc TYPE sy-subrc.

  i_source-tlogo = 'ADSO'.
  i_source-objnm = p_src.

  i_targert-tlogo = 'ADSO'.
  i_targert-objnm = p_tgt.

  DATA(lr_tran) = cl_rstran_trfn=>factory( i_s_source   = i_source
                                           i_s_target   = i_targert
                                           i_for_delete = rs_c_true
                                           i_expert     = rs_c_true
                                           i_new        = rs_c_true ).

*  lr_tran->set_force_generate_amdp( i_frc_gen_amdp = abap_true ).

  TRY.
      CALL METHOD lr_tran->set_mode
        EXPORTING
          i_mode = rsawc_c_tfc-create.

*      lr_tran->set_current_version( i_objvers = rs_c_objvers-new ).

    CATCH cx_rstran_display_only .
      ASSERT 1 = 2. " could not happen
  ENDTRY.
  lr_tran->set_vers_with_proposal( rs_c_true ).
  lr_tran->set_current_version( i_objvers = rs_c_objvers-new ).

  lr_tran->if_rso_tlogo_maintain~save( EXPORTING i_with_cto = abap_false IMPORTING e_subrc = lv_subrc ).
  WRITE / lv_subrc.

  lr_tran->if_rso_tlogo_maintain~activate( EXPORTING i_with_cto = rs_c_false
                                           IMPORTING e_subrc    = lv_subrc ).
  WRITE / lv_subrc.
*
  lr_tran->set_haap_hint( 'Y' ) .

**get rules
*  lr_tran->get_info(
*    IMPORTING
*      e_t_tranrule  = DATA(l_tab_old_rule)
*  ).
*
** Delete all rules first
*  LOOP AT l_tab_old_rule ASSIGNING FIELD-SYMBOL(<l_str_old_rule>).
*
*    lr_tran->delete_rule( i_ruleid = <l_str_old_rule>-r_rule->n_ruleid ).
*
*  ENDLOOP.



  DATA(i_script) = | METHOD procedure BY DATABASE PROCEDURE FOR HDB LANGUAGE SQLSCRIPT OPTIONS READ-ONLY.| && cl_abap_char_utilities=>cr_lf
                   && |outtab =  select  | && cl_abap_char_utilities=>cr_lf
                   && |  '2023009' as PERIOD,| && cl_abap_char_utilities=>cr_lf
                   && |  'EN' as COUNTRY,| && cl_abap_char_utilities=>cr_lf
                   && |  'A0' as BU,| && cl_abap_char_utilities=>cr_lf
                   && |  '10000' as SALE_ORDER,| && cl_abap_char_utilities=>cr_lf
                   && |  'EA01' as REPORT_ITEM,| && cl_abap_char_utilities=>cr_lf
                   && |  '' as RECORDMODE,| && cl_abap_char_utilities=>cr_lf
                   && |   21 as BALANCE,| && cl_abap_char_utilities=>cr_lf
                   && |   0 as record,| && cl_abap_char_utilities=>cr_lf
                   && |   0 as SQL__PROCEDURE__SOURCE__RECORD| && cl_abap_char_utilities=>cr_lf
                   && |  from :intab;| && cl_abap_char_utilities=>cr_lf
                   && |errortab =| && cl_abap_char_utilities=>cr_lf
                   && |  SELECT '' AS ERROR_TEXT,| && cl_abap_char_utilities=>cr_lf
                   && |         '' AS SQL__PROCEDURE__SOURCE__RECORD| && cl_abap_char_utilities=>cr_lf
                   && |    FROM DUMMY| && cl_abap_char_utilities=>cr_lf
                   && |    WHERE DUMMY <> 'X';| && cl_abap_char_utilities=>cr_lf
                   && |ENDMETHOD.|.

  lr_tran->set_script( i_script = i_script
                       i_amdp   = abap_true ).

  TRY.
      lr_tran->create_haap(  ).
    CATCH cx_rstran_haap INTO DATA(l_r_rstran_haap).
  ENDTRY.

  lr_tran->set_vers_with_proposal( rs_c_true ).
  lr_tran->set_current_version( i_objvers = rs_c_objvers-modified ).

  lr_tran->if_rso_tlogo_maintain~save( EXPORTING i_with_cto = abap_false IMPORTING e_subrc = lv_subrc ).
  WRITE / lv_subrc.

  lr_tran->if_rso_tlogo_maintain~activate( EXPORTING i_with_cto = rs_c_false
                                           IMPORTING e_subrc    = lv_subrc ).

  WRITE / lv_subrc.

  lr_tran->generate( ).


ENDFORM.