弹出文件选择

PARAMETERS : P_PROJID TYPE ZBC400_PROJ_113-PROJID.

 

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PROJID.


  PERFORM SUB_INIT_P_PROJID_F4HELP.

*&---------------------------------------------------------------------*
*&      Form  sub_init_p_projid_f4help
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SUB_INIT_P_PROJID_F4HELP .
  CALL FUNCTION 'WS_FILENAME_GET'
   EXPORTING
     DEF_FILENAME           = 'P_PROJID'
*     DEF_PATH               = ' '
     MASK                   = ' '
     MODE                   = '0'
*     TITLE                  = ' '
   IMPORTING
     FILENAME               = P_PROJID
*     RC                     =
   EXCEPTIONS
     INV_WINSYS             = 1
     NO_BATCH               = 2
     SELECTION_CANCEL       = 3
     SELECTION_ERROR        = 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.


ENDFORM.              

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值