为选择屏幕的字段设置F4帮助

在没有参考 数据元素,域和搜索帮助的情况下,自定义F4 帮助

PARAMETERS: p_bukrs(4) TYPE C MATCHCODE OBJECT H_T001.
AT SELECTION-SCREEN  ON VALUE-REQUEST  FOR  p_bukrs.
        PERFORM frm_f4 CHANGING p_bukrs.
FORM frm_f4 CHANGING p_value.
   CONSTANTS cns_retfield TYPE fieldname VALUE 'BUKRS'.   
   DATA: BEGIN OF lt_value OCCURS 0, 
            bukrs LIKE t001-bukrs, "公司代码     
            butxt LIKE t001-butxt, " 公司名称      
            END OF lt_value. 
   DATA: lt_retuen LIKE TABLE OF  ddshretval WITH HEADER LINE.  
  SELECT bukrs butxt FROM t001 INTO TABLE lt_value.    
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' 
    EXPORTING 
        retfield        = cns_retfield  
        value_org       = 'S'   
   TABLES 
       value_tab       = lt_value     
      return_tab      = lt_retuen   
   EXCEPTIONS 
       parameter_error = 1     
   no_values_found = 2      
  OTHERS          = 3.  
  IF sy-subrc = 0. 
    READ TABLE lt_retuen  INDEX 1.    
    p_value  = lt_retuen-fieldval. 
  ELSE. 
  ENDIF. 
ENDFORM.                    "frm_f4_bukrs

 

转载于:https://www.cnblogs.com/datie/p/11495864.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值