报表中调用事务码

屏幕参数结构：

 

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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9394055/viewspace-594933/