SubMit 传区间段的值

如果带区间的字段这样传：

 

ZSD040_CCSTO_SCR:

SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS:P_VKORG LIKE VBAK-VKORG OBLIGATORY,"Sales Organization
           P_AUART LIKE VBAK-AUART OBLIGATORY,"Order Type
           P_VSTEL LIKE TVST-VSTEL NO-DISPLAY, "Shipping Point
           P_MATNR LIKE MSKA-MATNR."Material


SELECT-OPTIONS:S_VBELN FOR VBAK-VBELN."Sales doc.

SELECTION-SCREEN:END OF BLOCK B1 .

 

传值：

      DATA: SELTAB TYPE TABLE OF RSPARAMS,
            SELTAB_WA LIKE LINE OF SELTAB.
*
      SELTAB_WA-SELNAME = 'S_VBELNN'.

      LOOP AT S_VBELN.
        SELTAB_WA-LOW = S_VBELN-LOW.
        SELTAB_WA-HIGH = S_VBELN-HIGH.
        SELTAB_WA-SIGN = S_VBELN-SIGN.
        SELTAB_WA-OPTION = S_VBELN-OPTION.

        APPEND SELTAB_WA TO SELTAB.
      ENDLOOP.
      "按鈕1
      SUBMIT ZSD040_CCSTO_SHOW WITH P_VKORG = P_VKORG
                               WITH P_AUART = P_AUART
                               WITH P_MATNR = P_MATNR
                               WITH selection-table SELTAB
                               AND RETURN.

 

ZSD040_CCSTO_SHOW  接收页面不用填写值了，自动取得从ZSD040_CCSTO传过来的值

 

 

ZSD040_CCSTO_SHOW :

 

SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS:P_VKORG LIKE VBAK-VKORG OBLIGATORY,"Sales Organization
           P_AUART LIKE VBAK-AUART OBLIGATORY,"Order Type
           P_VSTEL LIKE TVST-VSTEL NO-DISPLAY, "Shipping Point
           P_MATNR LIKE MSKA-MATNR."Material


SELECT-OPTIONS:S_VBELNN FOR VBAK-VBELN."Sales doc.

SELECTION-SCREEN:END OF BLOCK B1 .

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

转载于:http://blog.itpub.net/10339719/viewspace-609242/