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

港控/mmm° 2022-06-18 01:52 416阅读 0赞

用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个科目

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

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