SMARTFORM 循环打印实现 (循环调用SMARTFORM)

用SMARTFORM做打印已经很久了，功能也了解了不少，但是还是有很多功能有待去学习。

SAP做的东西都太强大了，怎么学也学不完。最近在做FORM打印的时候，客户要求按供应

商分类打印，并且按每个供应商的信息统计页码，当然，在程序中定义些变量什么的也是可

以实现的，但是还是有点麻烦。还是用SMARTFORM标准的页码吧，就想到循环打印了，研

究了一下，实现实现起来还是挺简单的。贴出来共享之……

 

*&---------------------------------------------------------------------*
*&      Form  SUB_DATA_PRINT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM sub_data_print .
  DATA: mid TYPE c LENGTH 20.

  SORT itab_total BY matkl budat zcdnr.
  SORT s_fenlei BY low.

  DATA: fm_name TYPE rs38l_fnam.
  DATA: ls_control_param TYPE ssfctrlop .
  DATA: ls_composer_param TYPE ssfcompop .
  DATA: outopt TYPE ssfcresop.
  DATA: i_job_output_info TYPE ssfcrescl.
  DATA: itab_print LIKE TABLE OF wand.

  ls_control_param-langu = '1'.
  ls_control_param-no_open = 'X'.
  ls_control_param-no_close = 'X'.

  CALL FUNCTION 'SSF_OPEN'
    EXPORTING
      control_parameters = ls_control_param
      output_options     = ls_composer_param
    IMPORTING
      job_output_options = outopt
    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.
    EXIT.
  ENDIF.
* 根据SmartForm 名称获得Form的 Function Name
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname = 'ZCL_LOOP_PRINT'
    IMPORTING
       fm_name = fm_name
    EXCEPTIONS
       no_form = 1
       no_function_module = 2
      OTHERS = 3 .

  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  LOOP AT s_fenlei.
    REFRESH itab_print.
    LOOP AT itab_total INTO wand WHERE fenlei = s_fenlei-low.
      APPEND wand TO itab_print.
    ENDLOOP.

    IF itab_print IS INITIAL.
      CONTINUE.
    ENDIF.

   CONCATENATE sy-uname sy-uzeit INTO mid.
*将内表数据存入ABAP内存
    EXPORT a = itab_print TO DATABASE indx(hk) ID mid.

    CALL FUNCTION fm_name
      EXPORTING
        control_parameters = ls_control_param
        output_options     = ls_composer_param
      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.
*删除内存数据
    DELETE FROM DATABASE indx(hk) ID mid.
  ENDLOOP.

  CALL FUNCTION 'SSF_CLOSE'
    IMPORTING
      job_output_info  = i_job_output_info
    EXCEPTIONS
      formatting_error = 1
      internal_error   = 2
      send_error       = 3
      OTHERS           = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.                    " SUB_DATA_PRINT

总结：其实类似这样的分类打印还有很多，但是方式都差不多，我做的时候，都是把分类信息存放在一个

内表中，然后再对分类信息进行循环，一个分类一个分类打，例如按科目打印的时候，把要打印的N个科目

放在内表中，对科目表进行循环，再对数据表进行循环，把单个科目的数据放在一个临时表中打印，这样

打印也不容易出错。当然，需求不一样，做法就会多种多样，还需要我们一同去探究了……

转载于:https://www.cnblogs.com/clsoho/archive/2010/08/12/1798246.html