一个表结构smartform分页

该方法就建一个结构，没有将表头和行项目数据分开，当内表的交货单号变化时就换页。

报表代码如下：

*&---------------------------------------------------------------------*
*& Report  ZSDR006
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zsdr006.

TYPE-POOLS:slis.
TABLES:vbak, vbap, lips, likp, vbkd.

DATA: itab TYPE TABLE OF zsdr006 WITH HEADER LINE.
DATA: itab1 TYPE TABLE OF zsdr006 WITH HEADER LINE.
DATA: it_out TYPE TABLE OF zsdr006 WITH HEADER LINE.
DATA: it_temp TYPE TABLE OF zsdr006 WITH HEADER LINE.

DATA:  c_form_name       TYPE tdsfname ,
       c_form_title      TYPE string.


DATA: gv_title TYPE lvc_title.
DATA: gs_layout TYPE  slis_layout_alv,
      gt_fields  TYPE  slis_t_fieldcat_alv,
      gs_fields  TYPE  LINE  OF  slis_t_fieldcat_alv.

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_vkorg FOR vbak-vkorg,
s_kunnr FOR vbak-kunnr,
s_vbeln FOR vbap-vbeln.
PARAMETERS: p1 RADIOBUTTON GROUP g1 DEFAULT 'X',
p2 RADIOBUTTON GROUP g1,
p3 RADIOBUTTON GROUP g1,
p4 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK block1.

START-OF-SELECTION.
  PERFORM getdata.
  PERFORM alvdata.

*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM getdata.
  SELECT
    a~vbeln
    a~vkorg
    a~kunnr
    a~wadat_ist
    a~bldat
    a~trmtyp
    b~posnr
    b~matnr
    b~werks
    b~lfimg
    b~meins
    b~kdmat
    b~ntgew
    b~brgew
    b~vgbel
    b~vgpos
    INTO CORRESPONDING FIELDS OF TABLE itab FROM likp AS a INNER JOIN lips AS b ON a~vbeln = b~vbeln WHERE a~vkorg IN s_vkorg AND a~kunnr IN s_kunnr AND b~vbeln IN s_vbeln.

  LOOP AT itab.
    DATA: a(5) TYPE c.
    SELECT SINGLE bstkd INTO itab-bstkd FROM vbkd WHERE vbeln = itab-vgbel AND posnr = itab-vgpos.
    SELECT SINGLE maktx INTO itab-maktx FROM makt WHERE matnr = itab-matnr AND spras = 1.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = itab-posnr
      IMPORTING
        output = itab-posnr.

    MODIFY itab.
  ENDLOOP.
ENDFORM.                    "getdata

*&---------------------------------------------------------------------*
*&      Form  alvdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM alvdata.
  gs_layout-colwidth_optimize = 'X'.
  gs_layout-box_fieldname = 'CHE'.
  gs_layout-zebra = 'X'.
  REFRESH gt_fields.
  CLEAR gs_fields.

  gs_fields-fieldname  =  'VKORG'.
  gs_fields-seltext_l  =  '销售组织'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'VBELN'.
  gs_fields-seltext_l  =  '交货单号'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'POSNR'.
  gs_fields-seltext_l  =  '行项目号'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'WADAT_IST'.
  gs_fields-seltext_l  =  '发货日期'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'KUNNR'.
  gs_fields-seltext_l  =  '客户编号'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'MATNR'.
  gs_fields-seltext_l  =  '物料编号'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'MAKTX'.
  gs_fields-seltext_l  =  '物料描述'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'LFIMG'.
  gs_fields-seltext_l  =  '数量'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'BSTKD'.
  gs_fields-seltext_l  =  '客户采购订单号'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'VGBEL'.
  gs_fields-seltext_l  =  '销售订单号'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  gs_fields-fieldname  =  'TRMTYP'.
  gs_fields-seltext_l  =  '运输方式'.
  APPEND  gs_fields  TO  gt_fields.
  CLEAR  gs_fields.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'SET_PF'
      i_callback_user_command  = 'USER_COM'
      i_grid_title             = gv_title
      is_layout                = gs_layout
      it_fieldcat              = gt_fields
      i_save                   = 'X'
    TABLES
      t_outtab                 = itab
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.                    "alvdata

*&---------------------------------------------------------------------*
*&      Form  set_pf
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->EXTAB      text
*----------------------------------------------------------------------*
FORM  set_pf  USING    extab  TYPE  slis_t_extab.
  SET  PF-STATUS  'ZSDR006'.
ENDFORM.                    "set_pf

*&---------------------------------------------------------------------*
*&      Form  user_com
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM user_com USING r_ucomm LIKE sy-ucomm
      rs_selfield TYPE slis_selfield.

  DATA: lr_grid TYPE REF TO cl_gui_alv_grid,
        myindex TYPE sy-tabix.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lr_grid.
  CALL METHOD lr_grid->check_changed_data.
  rs_selfield-refresh = 'X'.

  CASE r_ucomm.
    WHEN '&PRINT'.
      DATA:i TYPE i.
      i = 0.
      LOOP AT itab WHERE che EQ 'X'.
        i = i + 1.
      ENDLOOP.
      IF i = 0.
        MESSAGE:'请选择需要打印的列' TYPE 'E'.
      ELSE.
        LOOP AT itab WHERE che EQ 'X'.
          itab1 = itab.
          APPEND itab1.
        ENDLOOP.
      ENDIF.
      PERFORM printdata.
  ENDCASE.

ENDFORM.                    "user_com

*&---------------------------------------------------------------------*
*&      Form  printdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM printdata.
  DATA: f_index LIKE sy-tabix.
  DATA: lines_len TYPE i.
  DATA: ls_control_parameters  TYPE ssfctrlop.
  DATA: ls_output_options      TYPE ssfcompop.
  DATA: l_smf_name             TYPE rs38l_fnam.

  SORT itab1 BY vbeln posnr.

  IF NOT p1 IS INITIAL.
    c_form_name = 'ZSDSF006A'.
  ENDIF.
  IF NOT p2 IS INITIAL.
    c_form_name = 'ZSDSF006B'.
  ENDIF.
  IF NOT p3 IS INITIAL.
    c_form_name = 'ZSDSF006C'.
  ENDIF.

  ls_output_options-tdimmed       = 'X'.
  ls_output_options-tdcopies      = '1'.
  ls_output_options-tdnoprint     = ''.
  ls_output_options-tddelete      = 'X'.

  ls_control_parameters-no_dialog = ''.
  ls_control_parameters-preview   = 'X'.
  ls_control_parameters-langu     = '1'.


  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'     "这个函数主要用来取你要调用的function module
    EXPORTING
      formname = c_form_name        "将smartform赋值给formname
    IMPORTING
      fm_name  = l_smf_name.

  DATA:v_vbeln TYPE vbak-vbeln.
  DATA: newpage TYPE i.
  DATA:len TYPE i, a TYPE i.
  newpage = 0. "为0则不换页，为1换页
  len = 0.    "统计内表总行数
  a = 0.    "循环加1，如果是最后一行也执行打印
  v_vbeln = ''.
DESCRIBE TABLE itab1 LINES len.
  LOOP AT itab1.
    a = a + 1.
     IF itab1-vbeln <> v_vbeln AND sy-tabix <> 1.   "如果交货单后改变并且不是第一个行项目,因为第一个行项目v_vbeln为空，和它比较交货单号也改变了
      newpage = 1.
      it_temp = itab1.    "如果单号改变则讲该行项目放入到 it_temp 里，然后将 it_temp 的值赋值给 it_out
      APPEND it_temp.
    ELSE.  "交货单号没变
      IF NOT it_temp IS INITIAL."如果订单号有改变，则将该值赋值给it_out
        LOOP AT it_temp.
          it_out = it_temp.
          APPEND it_out.
        ENDLOOP.
      ENDIF.
      CLEAR it_temp.
      refresh it_temp[].
      newpage = 0.
      it_out = itab1.
      APPEND it_out.
    ENDIF.
    v_vbeln = itab1-vbeln.
    IF newpage = 1 OR a = len."如果换页则输出打印
      ls_control_parameters-no_close = 'X'.
      AT LAST.
        ls_control_parameters-no_close = space.
      ENDAT.

      CALL FUNCTION l_smf_name     "调用smartform,这里是以function的方式和smartform交互
          EXPORTING
            control_parameters = ls_control_parameters
            output_options     = ls_output_options
            user_settings      = 'X'
          TABLES
            gt_sfout             = it_out[]
          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.
      CLEAR it_out.
      REFRESH it_out[].
      "newpage = 0.
      ls_control_parameters-no_open = 'X'.
      AT LAST.
        ls_control_parameters-no_open = space.
      ENDAT.
    ENDIF.
  ENDLOOP.
  CLEAR itab1.
  REFRESH itab1[].
ENDFORM.                    "printdata

smartform在资源里

结构如下：