OPEN DIALOGDATA:
----------------------------------------------------------------------------------------
it_tabmann TYPE filetable,
rc_mann TYPE i.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
WINDOW_TITLE = 'Open a File'
DEFAULT_EXTENSION = ',*.txt,*.txt,*.xls,*.xls,*.doc,*.doc, **,*.*,*.*.'
DEFAULT_FILENAME = 'test.txt'
INITIAL_DIRECTORY = 'c:\temp'
multiselection = ' ' "No multiple selection
CHANGING
FILE_TABLE = it_tabmann
RC = rc_mann
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
others = 5 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_tabmann INTO p_input.ENDLOOP.
--------------------------------------------------------------------------------------
Search This Blog
Monday, July 27, 2009
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment