selection-screen增加按钮 / write 报表后增加按钮

selection-screen增加按钮 / write 报表后增加按钮

 

selection-screen 添加按钮

tables: sscrfields.

selection-screen: function key 1.

 

设置按钮显示文本：

initialization.

sscrfields-functxt_01 = '按钮文本'.

 

设置按钮功能

at selection-screen .

 case sscrfields-ucomm.

    when 'FC01'.

    .......

 endcase.

 

WRITE 语句输出显示添加按钮

end-of-selection.

  set pf-status 'PRINT_LIST'.

at user-command.

  case sy-ucomm.

    when 'PLIST'.
      perform print_form.

  when 'DETAIL'.

  read current line line value into l_pzh.

  if l_pzh <> ''.

        l_pzh = l_pzh+22(10).

        condense l_pzh.

      endcase.

根据屏幕鼠标位置取值

 http://blog.csdn.net/zsf8848/article/details/3520041