ZTEST_SOURAV_EXCEL

REPORT  ZTEST_SOURAV_EXCEL  NO  STANDARD  PAGE HEADING .

DATA :
  OREF_CONTAINER    TYPE  REF  TO CL_GUI_CUSTOM_CONTAINER ,
  IREF_CONTROL      TYPE  REF  TO I_OI_CONTAINER_CONTROL ,
  IREF_DOCUMENT     TYPE  REF  TO I_OI_DOCUMENT_PROXY ,
  IREF_SPREADSHEET  TYPE  REF  TO I_OI_SPREADSHEET ,
  IREF_ERROR        TYPE  REF  TO I_OI_ERROR .

DATA :
  V_DOCUMENT_URL  TYPE  C LENGTH  256 ,
  I_SHEETS        TYPE SOI_SHEETS_TABLE ,
  WA_SHEETS       TYPE SOI_SHEETS ,
  I_DATA          TYPE SOI_GENERIC_TABLE ,
  WA_DATA         TYPE SOI_GENERIC_ITEM ,
  I_RANGES        TYPE SOI_RANGE_LIST .


PARAMETERS :
  P_FILE  TYPE  LOCALFILE OBLIGATORY ,
  P_ROWS  TYPE  I  DEFAULT  100 OBLIGATORY ,  "Rows (Maximum 65536)
  P_COLS  TYPE  I  DEFAULT  10 OBLIGATORY .     "Columns (Maximum 256)


INITIALIZATION .

   CALL  METHOD C_OI_CONTAINER_CONTROL_CREATOR =>GET_CONTAINER_CONTROL
     IMPORTING
       CONTROL  = IREF_CONTROL
      ERROR    = IREF_ERROR
*     retcode =
     .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .

     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'E' .
   ENDIF .

   CREATE OBJECT OREF_CONTAINER
     EXPORTING
*     parent                      =
      CONTAINER_NAME               =  'CONT'
*     style                       =
*     lifetime                    = lifetime_default
*     repid                       =
*     dynnr                       =
*     no_autodef_progid_dynnr     =
     EXCEPTIONS
      CNTL_ERROR                   =  1
      CNTL_SYSTEM_ERROR            =  2
      CREATE_ERROR                 =  3
      LIFETIME_ERROR               =  4
      LIFETIME_DYNPRO_DYNPRO_LINK  =  5
       OTHERS                       =  6 .
   IF SY -SUBRC <>  0 .
     MESSAGE E001 ( 00 )  WITH  'Error while creating container' .
   ENDIF .

   CALL  METHOD IREF_CONTROL ->INIT_CONTROL
     EXPORTING
*     dynpro_nr            = SY-DYNNR
*     gui_container        = ' '
      INPLACE_ENABLED       =  'X'
*     inplace_mode         = 0
*     inplace_resize_documents = ' '
*     inplace_scroll_documents = ' '
*     inplace_show_toolbars    = 'X'
*     no_flush             = ' '
*     parent_id            = cl_gui_cfw=>dynpro_0
      R3_APPLICATION_NAME   =  'EXCEL CONTAINER'
*     register_on_close_event  = ' '
*     register_on_custom_event = ' '
*     rep_id               = SY-REPID
*     shell_style          = 1384185856
      PARENT                = OREF_CONTAINER
*     name                 =
*     autoalign            = 'x'
     IMPORTING
      ERROR                 = IREF_ERROR
*     retcode              =
     EXCEPTIONS
      JAVABEANNOTSUPPORTED  =  1
       OTHERS                =  2 .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .
     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'E' .
   ENDIF .

   CALL  METHOD IREF_CONTROL ->GET_DOCUMENT_PROXY
     EXPORTING
*     document_format    = 'NATIVE'
      DOCUMENT_TYPE   = SOI_DOCTYPE_EXCEL_SHEET
*     no_flush       = ' '
*     register_container = ' '
     IMPORTING
      DOCUMENT_PROXY  = IREF_DOCUMENT
      ERROR           = IREF_ERROR
*     retcode        =
     .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .
     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'E' .

   ENDIF .



AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR P_FILE .
* To provide F4 help for the file

   PERFORM SUB_FILE_F4 .


START-OF-SELECTION .

   CONCATENATE  'FILE://' P_FILE  INTO V_DOCUMENT_URL .

   CALL  METHOD IREF_DOCUMENT ->OPEN_DOCUMENT
     EXPORTING
      DOCUMENT_TITLE  =  'Excel'
      DOCUMENT_URL    = V_DOCUMENT_URL
*     no_flush       = ' '
      OPEN_INPLACE    =  'X'
*     open_readonly  = ' '
*     protect_document = ' '
*     onsave_macro   = ' '
*     startup_macro  = ''
*     user_info      =
     IMPORTING
      ERROR           = IREF_ERROR
*     retcode        =
     .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .

     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'I' .
     LEAVE  LIST-PROCESSING .

   ENDIF .



   CALL  METHOD IREF_DOCUMENT ->GET_SPREADSHEET_INTERFACE
     EXPORTING
      NO_FLUSH         =  ' '
     IMPORTING
      ERROR            = IREF_ERROR
      SHEET_INTERFACE  = IREF_SPREADSHEET
*     retcode         =
     .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .

     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'I' .

     LEAVE  LIST-PROCESSING .

   ENDIF .



   CALL  METHOD IREF_SPREADSHEET ->GET_SHEETS
     EXPORTING
      NO_FLUSH  =  ' '
*     updating = -1
     IMPORTING
      SHEETS    = I_SHEETS
      ERROR     = IREF_ERROR
*     retcode  =
     .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .

     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'I' .

     LEAVE  LIST-PROCESSING .

   ENDIF .

   LOOP  AT I_SHEETS  INTO WA_SHEETS .

     CALL  METHOD IREF_SPREADSHEET ->SELECT_SHEET
       EXPORTING
        NAME   = WA_SHEETS -SHEET_NAME
*       no_flush = ' '
       IMPORTING
        ERROR  = IREF_ERROR
*       retcode  =
       .

     IF IREF_ERROR ->HAS_FAILED  =  'X' .
       EXIT .
*      call method iref_error->raise_message
*        exporting
*          type = 'E'.

     ENDIF .

     CALL  METHOD IREF_SPREADSHEET ->SET_SELECTION
       EXPORTING
        TOP      =  1
         LEFT     =  1
         ROWS     = P_ROWS
        COLUMNS  = P_COLS .

     CALL  METHOD IREF_SPREADSHEET ->INSERT_RANGE
       EXPORTING
        NAME      =  'Test'
         ROWS      = P_ROWS
        COLUMNS   = P_COLS
        NO_FLUSH  =  ''
       IMPORTING
        ERROR     = IREF_ERROR .
     IF IREF_ERROR ->HAS_FAILED  =  'X' .
       EXIT .
*      call method iref_error->raise_message
*        exporting
*          type = 'E'.

     ENDIF .

     REFRESH I_DATA .

     CALL  METHOD IREF_SPREADSHEET ->GET_RANGES_DATA
       EXPORTING
*       no_flush = ' '
         ALL       =  'X'
*       updating = -1
*       rangesdef =
       IMPORTING
        CONTENTS  = I_DATA
        ERROR     = IREF_ERROR
*       retcode  =
       CHANGING
         RANGES    = I_RANGES .

* Remove ranges not to be processed else the data keeps on adding up
     CALL  METHOD IREF_SPREADSHEET ->DELETE_RANGES
       EXPORTING
         RANGES  = I_RANGES .
     DELETE I_DATA  WHERE  VALUE  IS  INITIAL  OR  VALUE  = SPACE .
     ULINE .
     WRITE :/1 WA_SHEETS -SHEET_NAME  COLOR  3 .
     ULINE .
     LOOP  AT I_DATA  INTO WA_DATA .
       WRITE :(50 ) WA_DATA - VALUE .

       AT  END  OF ROW .

         NEW-LINE .

       ENDAT .

     ENDLOOP .

   ENDLOOP .

   CALL  METHOD IREF_DOCUMENT ->CLOSE_DOCUMENT
*  EXPORTING
*    do_save     = ' '
*    no_flush    = ' '
     IMPORTING
      ERROR  = IREF_ERROR
*     has_changed =
*     retcode     =
     .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .
     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'I' .
     LEAVE  LIST-PROCESSING .
   ENDIF .

   CALL  METHOD IREF_DOCUMENT ->RELEASE_DOCUMENT
*  EXPORTING
*    no_flush = ' '
     IMPORTING
      ERROR  = IREF_ERROR
*     retcode  =
     .

   IF IREF_ERROR ->HAS_FAILED  =  'X' .
     CALL  METHOD IREF_ERROR ->RAISE_MESSAGE
       EXPORTING
         TYPE  =  'I' .

     LEAVE  LIST-PROCESSING .

   ENDIF .



*&---------------------------------------------------------------------*
*&      Form  SUB_FILE_F4
*&---------------------------------------------------------------------*
*       F4 help for file path
*----------------------------------------------------------------------*
FORM SUB_FILE_F4  .
   DATA :
    L_DESKTOP   TYPE STRING ,
    L_I_FILES   TYPE FILETABLE ,
    L_WA_FILES  TYPE FILE_TABLE ,
    L_RCODE     TYPE INT4 ,
    L_ACTION    TYPE  I .

* Finding desktop
   CALL  METHOD CL_GUI_FRONTEND_SERVICES =>GET_DESKTOP_DIRECTORY
     CHANGING
      DESKTOP_DIRECTORY     = L_DESKTOP
     EXCEPTIONS
      CNTL_ERROR            =  1
      ERROR_NO_GUI          =  2
      NOT_SUPPORTED_BY_GUI  =  3
       OTHERS                =  4 .
   IF SY -SUBRC <>  0 .
    L_DESKTOP  =  'C:\' .
   ENDIF .

* Update View
   CALL  METHOD CL_GUI_CFW =>UPDATE_VIEW
     EXCEPTIONS
      CNTL_SYSTEM_ERROR  =  1
      CNTL_ERROR         =  2
       OTHERS             =  3 .

   CALL  METHOD CL_GUI_FRONTEND_SERVICES =>FILE_OPEN_DIALOG
     EXPORTING
      WINDOW_TITLE             =  '文件选择'
      DEFAULT_EXTENSION        =  '.xls'
*     default_filename        =
      FILE_FILTER              =  'Excel(*.xls;*.xlsx)|*.XLSX;*.XLS;'
*     with_encoding           =
      INITIAL_DIRECTORY        = L_DESKTOP
*     multiselection          =
     CHANGING
      FILE_TABLE               = L_I_FILES
      RC                       = L_RCODE
      USER_ACTION              = L_ACTION
*     file_encoding           =
     EXCEPTIONS
      FILE_OPEN_DIALOG_FAILED  =  1
      CNTL_ERROR               =  2
      ERROR_NO_GUI             =  3
      NOT_SUPPORTED_BY_GUI     =  4
       OTHERS                   =  5 .

   IF L_ACTION  =  0  AND SY -SUBRC  =  0 .
     READ  TABLE L_I_FILES  INDEX  1  INTO L_WA_FILES .
     IF SY -SUBRC  =  0 .
      P_FILE  = L_WA_FILES -FILENAME .
     ENDIF .
   ENDIF .
ENDFORM .                     " SUB_FILE_F4