Properties | SourceCde
Title | SoftCopy - cl gui unknown |
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_UNKNOWN                        *
    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_len TYPE i,
    39
      l_char TYPE c.
    40
    41
      CALL FUNCTION 'WS_FILENAME_GET'
    42
        EXPORTING
    43
          def_path = p_folder
    44
          mask     = ',*.txt,*.txt.'
    45
          mode     = 'O'
    46
          title    = 'Choose a directory'
    47
        IMPORTING
    48
          filename = c_selected_folder
    49
        EXCEPTIONS
    50
          OTHERS   = 1.
    51
      c_subrc = sy-subrc.
    52
      IF c_subrc = 0 AND NOT c_selected_folder IS INITIAL.
    53
        DO.
    54
          l_len = strlen( c_selected_folder ).
    55
          l_len = l_len - 1.
    56
          l_char = c_selected_folder+l_len(1).
    57
          IF l_len = 0.
    58
            EXIT.
    59
          ENDIF.
    60
          c_selected_folder = c_selected_folder+0(l_len).
    61
          IF l_char = gc_delimiter.
    62
            EXIT.
    63
          ENDIF.
    64
        ENDDO.
    65
      ENDIF.
    66
    ENDFORM.                    "cl_gui_get_folder