如图,选择画面增加了一个按钮,关键代码如下:
第一步:声明表和类型池
tables:sscrfields.
type-pools: icon.
第二步:
data:gv_field like smp_dyntxt.
selection-screen: function key 1,
function key 2.
第三步:
initialization.
clear:gv_field."GV_RC,GT_FILETAB,GT_FILETAB[],GS_ITAB,GT_ITAB.
gv_field-icon_id = '@B2@'. (@B2@是ICON表中图标的ID,可以复制图标到记事本然后查看对应的id)
gv_field-icon_text = text-026.
gv_field-quickinfo = text-026.
sscrfields-functxt_01 = gv_field.
第四步:
at selection-screen .
form frm_fc_ucomm .
data: lv_ucomm like sy-ucomm.
lv_ucomm = sy-ucomm.
case lv_ucomm.
when 'FC01'.
call transaction 'ZCNFI8_B'.
when others.
endcase.
endform. " FRM_FC_UCOMM