SAP Select Screen 代码的实现

report  ztest131 message-id zmsg line-size 136 line-count 33
no standard page heading.

tables: ekko,mkpf.

define screen_hide_po.
  loop at screen.
    if screen-group1 = 'PO'.
      screen-active = 0.
      screen-input = 1.
      screen-output = 0.
      screen-invisible = 0.
      modify screen.
    endif.
  endloop.
end-of-definition.
define screen_show_po.
  loop at screen.
    if screen-group1 = 'PO'.
      screen-active = 1.
      screen-input = 1.
      screen-output = 1.
      screen-invisible = 0.
      modify screen.
    endif.
  endloop.
end-of-definition.

selection-screen begin of block 001 with frame title text-001.
selection-screen begin of line.
selection-screen position 10.
parameters:
p_po radiobutton group rad1 user-command p_po default 'X'.
selection-screen comment 13(18) text-002 for field p_po .
selection-screen position 37.
parameters:
p_mr radiobutton group rad1.
selection-screen comment 40(18) stext-03 for field p_mr.
selection-screen end of line.
selection-screen end of block 001 .

at selection-screen output.

  case sy-langu.
    when 'M'.
    when 'E'.
* sTEXT-02 = 'MRP Orders'.
      stext-03 = 'PO Orders'.
    when '1'.
* sTEXT-02 = '生产'.
      stext-03 = '采购'.
    when others.
* sTEXT-02 = '生产'.
      stext-03 = '采购'.
  endcase.

*屏幕控制
  perform screen_control.
** 对选屏进行权限检查
* PERFORM AUTHORITY_CHECK. " 权限校验

*&---------------------------------------------------------------------*
*& Form SCREEN_CONTROL
*&---------------------------------------------------------------------*
* 屏幕控制
*----------------------------------------------------------------------*
form screen_control .
  if p_po = 'X'.
    screen_show_po.
  else.
    screen_hide_po.
  endif.
endform. " SCREEN_CONTROL

*查询对象
selection-screen begin of block 002 with frame title text-004.
select-options:
s_ebeln for ekko-ebeln modif id po no-extension no intervals, "采购订单号
s_budat for mkpf-budat modif id po, "入库时间
s_mblnr for mkpf-mblnr no-extension no intervals , "物料凭证号
s_mjahr for mkpf-mjahr no-extension no intervals. "会计年度
selection-screen end of block 002 .