How To Use Function 'F4_FILENAME' and 'KD_GET_FILENAME_ON_F4'

来源：互联网发布：财经数据接口编辑：程序博客网时间：2024/06/05 03:49

*-----------------------------------------------------------------------
*
* Company XXX Company Limited
*
* ProgrameName: ZZW_FUT_F4_FILENAME
*
* Author: Lilo.Zhu
*
* Date: 08/08/2007
*
* Description: Study SAP In Program How To Use Function 'F4_FILENAME'
* When User Click 'Save In' Button, A Pop-up Window will
* appear to allow you choice local PC Drive and Filename.
*
*-----------------------------------------------------------------------

REPORT ZZW_FUT_F4_FILENAME .

Tables: SSCRFIELDS.

*-----------------------------------------------------------------------
* Function 'F4_FILENAME'
*-----------------------------------------------------------------------
Selection-Screen Begin Of Block B1 With Frame Title Text-001.
Parameters: P_File Like RLGRAP-FileName
Modif ID M1 Default 'C:/Data/SAP.XLS'.
Selection-Screen PushButton /33(10) Text-002 User-Command F4CLICK.
Selection-Screen End Of Block B1.

*-----------------------------------------------------------------------
* Function 'KD_GET_FILENAME_ON_F4'
*-----------------------------------------------------------------------
Selection-Screen Begin Of Block B2 With Frame Title Text-003.
Parameters: P_File_1 Like RLGRAP-FileName Memory ID M2.
Selection-Screen End Of Block B2.

At Selection-Screen.
IF SSCRFIELDS-Ucomm EQ 'F4CLICK'.
    Call Function 'F4_FILENAME'
      Exporting
        Program_Name = SYST-CPROG
        DYNPRO_NUMBER = SYST-DYNNR
        FIELD_NAME    = ''
      IMPORTING
        FILE_NAME     = P_File.
   ENDIF.

At Selection-Screen On Value-Request For P_File_1.
Call Function 'KD_GET_FILENAME_ON_F4'
    Exporting
      Mask    = '*.xls'
      Static = 'X'
    Changing
      File_Name = P_File_1.