Properties | SourceCde
Title | SoftCopy - cl gui |
Original language | DE | Englisch
Created | 04.01.2013 |  | CREYTZ |
Last changed by | 23.02.2021 |  | CREYTZ |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Customer production program |
Application |  |
Authorization Group |  |
Package | ZSOFTCOPY | SoftCopy
| Editor lock
txt
    1
    *&---------------------------------------------------------------------*
    2
    *&  Include           ZSOFTCOPY__CL_GUI                                *
    3
    *&                                                                     *
    4
    *&---------------------------------------------------------------------*
    5
    *&                                                                     *
    6
    *& This file is part of ZSOFTCOPY.                                     *
    7
    *&                                                                     *
    8
    *& ZSOFTCOPY is free software: you can redistribute it and/or modify   *
    9
    *& it under the terms of the GNU General Public License as published   *
    10
    *& by the Free Software Foundation, either version 3 of the License,   *
    11
    *& or any later version.                                               *
    12
    *&                                                                     *
    13
    *& ZSOFTCOPY is distributed in the hope that it will be useful,        *
    14
    *& but WITHOUT ANY WARRANTY; without even the implied warranty of      *
    15
    *& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
    16
    *& GNU General Public License for more details.                        *
    17
    *&                                                                     *
    18
    *& You should have received a copy of the GNU General Public License   *
    19
    *& along with ZDOWNLOAD. If not, see <http://www.gnu.org/licenses/>.   *
    20
    *&                                                                     *
    21
    *&---------------------------------------------------------------------*
    22
    *&                                                                     *
    23
    *&  Author:     Ruediger von Creytz     ruediger.creytz@globalbit.net  *
    24
    *&  Copyright:  globalBIT, LLC          http://www.globalbit.net       *
    25
    *&                                                                     *
    26
    *&---------------------------------------------------------------------*
    27
    28
    29
    *-----------------------------------------------------------------------
    30
    * cl_gui_get_folder
    31
    *-----------------------------------------------------------------------
    32
    FORM cl_gui_get_folder
    33
      CHANGING
    34
        c_selected_folder TYPE string
    35
        c_subrc TYPE sysubrc.
    36
    37
      DATA:
    38
      l_obj_file TYPE REF TO cl_gui_frontend_services,
    39
      l_initial_folder TYPE string.
    40
    41
      CREATE OBJECT l_obj_file.
    42
    43
      IF NOT p_folder IS INITIAL.
    44
        l_initial_folder = p_folder.
    45
      ELSE.
    46
        CALL METHOD l_obj_file->get_temp_directory
    47
          CHANGING
    48
            temp_dir = l_initial_folder
    49
          EXCEPTIONS
    50
            OTHERS   = 1.
    51
      ENDIF.
    52
    53
      CALL METHOD l_obj_file->directory_browse
    54
        EXPORTING
    55
          initial_folder  = l_initial_folder
    56
        CHANGING
    57
          selected_folder = c_selected_folder
    58
        EXCEPTIONS
    59
          OTHERS          = 1.
    60
      c_subrc = sy-subrc.
    61
    ENDFORM.                    "cl_gui_get_folder