屏幕按钮

今天学习一个小功能,创建屏幕按钮,明明记得之前学习过,可是很快就忘了,很失望自己的记忆力
哎,笨鸟多分吧,加油,甜柚子
关于添加屏幕按钮
三部:

1
types-pools icon.
tables sscrfields .
data functxt type smp_dyntxt.“如果不要图片可以不要这个

2
selection-screen: function key 1.
function key 2.
3
initialization.
sscrfields-functxt_01 = '模板下载'. "不要图片的按钮
functxt-icon_id = icon_ws_plane.
functxt-icon_text = '飞机模板下载'. 要图片的按钮
sscrfields-functxt_02 = functxt.

at selection-screen.
case sscrfields-ucomm.
when 'FC01'
WHEN 'FC02'



详细代码如下
TYPE-POOLS icon.
TABLES sscrfields.
DATA functxt TYPE smp_dyntxt.

PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN: FUNCTION KEY 1,
                 FUNCTION KEY 2.

INITIALIZATION.
  functxt-icon_id   = icon_ws_plane.
  functxt-icon_text = '飞机模板下载'.
  sscrfields-functxt_01 = functxt.
  "functxt-icon_text = 'UA'.
  sscrfields-functxt_02 = '模板下载'.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      p_carrid = 'LH'.
      p_cityfr = 'Frankfurt'.
    WHEN 'FC02'.
      p_carrid = 'UA'.
      p_cityfr = 'Chicago'.
    WHEN OTHERS.
      ...
  ENDCASE.

猜你喜欢

转载自blog.csdn.net/weixin_41839503/article/details/80499857