ITPub博客

首页 > 应用开发 > IT综合 > F4Help

F4Help

原创 IT综合 作者:sapkitty 时间:2007-10-11 14:11:53 0 删除 编辑

)* _*(

用户F4 Help的作成。

[@more@]

REPORT ZF4HELP.

*----------------------------------------------------------------------*

* INTERNAL TABLES & WORK AREAS *

*----------------------------------------------------------------------*

* 人事領域内表

DATA: BEGIN OF GT_T500P OCCURS 0,

PERSA LIKE T500P-PERSA, "人事領域

NAME1 LIKE T500P-NAME1, "人事領域テキスト

END OF GT_T500P.

DATA: G_REPID LIKE SY-REPID, "当前程序

G_DYNNR LIKE SY-DYNNR. "当前屏幕

*----------------------------------------------------------------------*

* PARAMETERS & SELECT-OPTIONS *

*----------------------------------------------------------------------*

PARAMETERS P_PERSA LIKE T500P-PERSA.

*----------------------------------------------------------------------*

* INITIALIZATION *

*----------------------------------------------------------------------*

INITIALIZATION.

G_REPID = SY-REPID.

G_DYNNR = SY-DYNNR.

REFRESH GT_T500P.

GT_T500P-PERSA = '1000'.

GT_T500P-NAME1 = 'Hamburg'.

APPEND GT_T500P.

GT_T500P-PERSA = '1100'.

GT_T500P-NAME1 = 'Berlin'.

APPEND GT_T500P.

*----------------------------------------------------------------------*

* START-OF-SELECTION *

*----------------------------------------------------------------------*

START-OF-SELECTION.

WRITE P_PERSA.

*----------------------------------------------------------------------*

* AT SELECTION-SCREEN *

*----------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PERSA.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'PERSA'

DYNPPROG = G_REPID

DYNPNR = G_DYNNR

DYNPROFIELD = 'P_PERSA'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = GT_T500P.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/8214011/viewspace-975957/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 项目上遇到的BAPI
下一篇: BDC SESSION
请登录后发表评论 登录
全部评论

注册时间:2008-08-04

  • 博文量
    62
  • 访问量
    201142