ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 报表中调用事务码

报表中调用事务码

原创 Linux操作系统 作者:salonwang01 时间:2009-05-13 09:59:48 0 删除 编辑

屏幕参数结构:

 

DATA rspar LIKE rsparams OCCURS 10 WITH HEADER LINE.


屏幕参数赋值过程:

 

FORM. para_field TABLES p_rspara STRUCTURE rsparams
     USING p_name  p_value1 p_value2.
  CLEAR p_rspara.
  CASE  p_value1.
    WHEN ''.
    WHEN OTHERS.
      IF p_value2 = ''.
        p_rspara-selname  =  p_name.
        p_rspara-kind = 'P' .
*      P_RSPARA-SIGN = 'I' .
*      P_RSPARA-OPTION = 'EQ' .
        p_rspara-low  =  p_value1.
        APPEND  p_rspara.
      ELSE.
        p_rspara-selname  =  p_name.
        p_rspara-kind = 'P' .
        p_rspara-sign = 'I' .
        p_rspara-option = 'BT' .
        p_rspara-low  =  p_value1.
        p_rspara-high  =  p_value1.
        APPEND  p_rspara.
      ENDIF.
  ENDCASE.
ENDFORM.                    "para_FIELD


给选择屏幕参数赋值:

      PERFORM. para_field  TABLES  rspar  USING  'P_MATNR'   itab-idnrk ''."00000084itab-idnrk.
      PERFORM. para_field  TABLES  rspar   USING  'P_ABLAD' itab-ablad ''."itab-lackitab-psmng
      PERFORM. para_field  TABLES  rspar   USING  'P_WERKS'  p_werks ''.
      PERFORM. para_field  TABLES  rspar   USING  'RAD_NX'  'X' ''.
      PERFORM. para_field  TABLES  rspar     USING  'SCRCNT' scnt  ''."via selection-screen

调用事务:

      SUBMIT zr_pp_gdpc  WITH SELECTION-TABLE rspar  AND RETURN.

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9394055/viewspace-594933/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
下一篇: 自动刷新ALV数据
请登录后发表评论 登录
全部评论

注册时间:2009-05-13

  • 博文量
    4
  • 访问量
    5587