ITPub博客

首页 > Linux操作系统 > Linux操作系统 > smart forms 抬头和项目分离显示

smart forms 抬头和项目分离显示

原创 Linux操作系统 作者:sapr 时间:2009-07-09 08:34:36 0 删除 编辑

需求:

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

实现:

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:

smartforms.JPG

condition.JPG

code.JPG

command1.JPG

items text.JPG

items.JPG

items data.JPG

hrow.JPG

header text.JPG

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

请登录后发表评论 登录
全部评论

注册时间:2007-12-22

  • 博文量
    89
  • 访问量
    234266