boy0

**********************************************************************
* UNICODE by boy0.tistory.com
**********************************************************************

at selection-screen on value-request for filename.
  call method CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
      exporting
        MULTISELECTION = abap_false
* { 2012.05.13 UNICODE by boy0.tistory.com
*        FILE_FILTER = '*.slnk'
        FILE_FILTER = 'slnk; slnk_u|*.slnk;*.slnk_u|All*|*.*|'
* } 2012.05.13 UNICODE by boy0.tistory.com
        DEFAULT_EXTENSION = 'slnk'
      changing
        FILE_TABLE = retFileTable
        rc = retRc
        user_Action = retUserAction.
  read table retFileTable into fileName index 1.

at selection-screen on value-request for NugFile.
  call method CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
      exporting
        MULTISELECTION = abap_false
* { 2012.05.13 UNICODE by boy0.tistory.com
*        FILE_FILTER = '*.nugg'
        FILE_FILTER = 'nugg; nugg_u|*.nugg;*.nugg_u|All*|*.*|'
* } 2012.05.13 UNICODE by boy0.tistory.com
        DEFAULT_EXTENSION = 'nugg'
      changing
        FILE_TABLE = retFileTable
        rc = retRc
        user_Action = retUserAction.
  read table retFileTable into NugFile index 1.

      xml = zsapLink=>convertIxmlDoctoString( ixmlDocument ).

* { 2012.05.13 UNICODE by boy0.tistory.com
*      concatenate plugin '_' _objName '.slnk' into defFilename.
      concatenate plugin '_' _objName '.slnk_u' into defFilename.
* } 2012.05.13 UNICODE by boy0.tistory.com
      clear errorFlag.
      perform downloadXMLtoLM using defFilename xml

  if retUserAct = 0.

    split xmlString at CL_ABAP_CHAR_UTILITIES=>NEWLINE
    into table tempTable_char.

* { 2011.11.03 UNICODE by boy0.tistory.com
    FIELD-SYMBOLS: <xml_line1> LIKE LINE OF tempTable_char.
    READ TABLE tempTable_char ASSIGNING <xml_line1> INDEX 1.
    REPLACE FIRST OCCURRENCE OF 'utf-16'
      IN <xml_line1> WITH 'utf-8'.
* } 2011.11.03 UNICODE by boy0.tistory.com

    call method CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
          exporting
            FILENAME = fullpath
            FILETYPE = 'DAT'
* { 2011.11.03 UNICODE by boy0.tistory.com
            CODEPAGE = '4110' " utf-8 UNICODE
* } 2011.11.03 UNICODE by boy0.tistory.com
          changing
            DATA_TAB = tempTable_char.
  endif.

  l_fileName = p_filename.
* { 2012.05.13 UNICODE by boy0.tistory.com
  DATA: lv_position TYPE i,
        lv_codepage TYPE abap_encoding.
  lv_codepage = space.
  lv_position = strlen( l_fileName ) - 2.
  IF l_fileName+lv_position EQ '_u' OR l_fileName+lv_position EQ '_U'.
    lv_codepage = '4110'. " utf-8 UNICODE
  ENDIF.
* } 2012.05.13 UNICODE by boy0.tistory.com
  call method CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD
        exporting
          FILENAME = l_fileName
* { 2011.11.03 UNICODE by boy0.tistory.com
          CODEPAGE = lv_codepage  " '4110' " utf-8 UNICODE
* } 2011.11.03 UNICODE by boy0.tistory.com
        changing
          data_tab = tempTable

*&--------------------------------------------------------------------*
*&      Form  ShowInitialGrid
FORM ShowInitialGrid  TABLES   P_OBJECTS.

      call function 'REUSE_ALV_GRID_DISPLAY'
        exporting
* { 2011.11.03 UNICODE by boy0.tistory.com
*          i_callback_program       = 'ZSAPLINK'
          i_callback_program       = sy-repid
* } 2011.11.03 UNICODE by boy0.tistory.com
          i_callback_pf_status_set = 'PF_STATUS_SET'
          i_callback_user_command  = 'USER_COMMAND_USER'
          i_grid_title             = 'Select objects'
          it_fieldcat              = lt_fieldcat
          is_layout                = ls_layout
        tables
          t_outtab                 = P_OBJECTS
        exceptions
          others                   = 0.

ENDFORM.                    " ShowInitialGrid
*&---------------------------------------------------------------------*
*&      Form  showResultsGrid
FORM showResultsGrid  TABLES   P_OBJECTS.
*    ** Display results
      call function 'REUSE_ALV_GRID_DISPLAY'
        exporting
* { 2011.11.03 UNICODE by boy0.tistory.com
*          i_callback_program      = 'ZSAPLINK'
          i_callback_program      = sy-repid
* } 2011.11.03 UNICODE by boy0.tistory.com
          i_callback_user_command = 'USER_COMMAND_USER'
          it_fieldcat             = lt_fieldcat
          i_grid_title            = 'Download results'
          is_layout               = ls_layout
        tables
          t_outtab                = p_objects
        exceptions
          others                  = 0.

ENDFORM.                    " showResultsGrid

FORM CreateEmptyNugget using p_NuggName.

    ixmlDocument = zsaplink_nugget=>createemptyXML(
      nuggetName = p_NuggName ).
    xml = zsapLink=>convertIxmlDoctoString( ixmlDocument ).
* { 2012.05.13 UNICODE by boy0.tistory.com
*    concatenate 'NUGG_' p_nuggName '.nugg' into sTemp.
    concatenate 'NUGG_' p_nuggName '.nugg_u' into sTemp.
* } 2012.05.13 UNICODE by boy0.tistory.com
    clear errorFlag.
    perform downloadXMLtoLM using sTemp xml
                            changing errorFlag.
    if errorFlag is not initial.
      exit.
    endif.

ENDFORM.                    " CreateEmptyNugget