06-27-2008 11:46 AM
hai all ! i want 2 create a selection-screen with a parameter 2 browse the file name to download/upload the XK01 bdc data.. plz give the sample code 2 fullfill this functionality..
06-27-2008 11:58 AM
In the AT SELECTION-SCREEN ON VALUE-REQUEST block make a call to methods
CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
[search sdn for samples using these methods |https://www.sdn.sap.com/irj/sdn/advancedsearch?cat=sdn_all&query=cl_gui_frontend_services%3d%3eFILE_OPEN_DIALOGCL_GUI_FRONTEND_SERVICES%3D%3EFILE_SAVE_DIALOG.&adv=false&sortby=cm_rnd_rankvalue#]
Regards
06-27-2008 1:50 PM
hi ,
try the following code
SELECTION-SCREEN : BEGIN OF BLOCK B.
PARAMETERS : FILE TYPE RLGRAP-FILENAME.
SELECTION-SCREEN : END OF BLOCK B.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = SYST-REPID
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = 'FILE'
STATIC = ' '
MASK = ' '
CHANGING
FILE_NAME = FILE
EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
FILENAME = FILE.
Reward Points if useful
Regards,
Ani
06-27-2008 10:54 PM
Hi,
Just check this code or copy paste into ur program.
****************************************************************
*Selection Screen
****************************************************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME .
parameters: p_file LIKE RLGRAP-FILENAME obligatory.
SELECTION-SCREEN END OF BLOCK b1 .
----
A T S E L E C T I O N S C R E E N *
----
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_local_file_name USING p_file.
&----
*& Form get_local_file_name
&----
text
----
form get_local_file_name using p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
CHANGING
file_name = p_file.
endform. " get_local_file_name
Regards,
KK
06-28-2008 8:26 AM
hi,
use the FM given below and the filetype should be
IBIPPARMS-PATH in FM 'F4_FILENAME'
but in 'GUI_DOWNLOAD' change it to string type.
lw_file type string, " File Path
lw_file1 type IBIPPARMS-PATH. " File Path
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = lw_file1.
lw_file = lw_file1.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
FILENAME = lw_file
FILETYPE = 'ASC'
* APPEND = ' '
WRITE_FIELD_SEPARATOR = 'X'
* HEADER = '00'
TABLES
DATA_TAB = itab
EXCEPTIONS
with luck,
pritam.