smart forms 抬头和项目分离显示

最新推荐文章于 2021-05-20 09:39:49 发布

cozr73848099

最新推荐文章于 2021-05-20 09:39:49 发布

阅读量280

点赞数

需求：

抬头显示在单独一页里，而相关行项目在下一页里显示，且行项目可以分页。

实现：

1. 测试报表： zssf_001

REPORT zssf_001.

TABLES spfli.

DATA: wa TYPE spfli,
lt_header TYPE TABLE OF spfli WITH HEADER LINE,
lt_items TYPE TABLE OF spfli WITH HEADER LINE.
data i type i.

SELECT carrid connid countryfr cityfrom countryto cityto
INTO CORRESPONDING FIELDS OF wa
FROM spfli.

lt_header-carrid = wa-carrid.
COLLECT lt_header.

if wa-carrid = 'AZ'.
    WHILE i < 50.
      lt_items-carrid = wa-carrid.
      lt_items-connid = wa-connid.
      lt_items-countryfr = wa-countryfr.
      lt_items-cityfrom = wa-cityfrom.
      lt_items-countryto = wa-countryto.
      lt_items-cityto = wa-cityto.
      APPEND lt_items.
      i = sy-index.
    endwhile.

ENDIF.

lt_items-carrid = wa-carrid.
lt_items-connid = wa-connid.
lt_items-countryfr = wa-countryfr.
lt_items-cityfrom = wa-cityfrom.
lt_items-countryto = wa-countryto.
lt_items-cityto = wa-cityto.
APPEND lt_items.

ENDSELECT.

CALL FUNCTION '/1BCDWB/SF00000170'
TABLES
    header                     = lt_header
    items                      = lt_items
EXCEPTIONS
   FORMATTING_ERROR           = 1
   INTERNAL_ERROR             = 2
   SEND_ERROR                 = 3
   USER_CANCELED              = 4
   OTHERS                     = 5
          .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

2. '/1BCDWB/SF00000170' 对应smart forms：