MIGO配置过账后自动打印

最新推荐文章于 2024-04-17 21:33:15 发布

斌将军

最新推荐文章于 2024-04-17 21:33:15 发布

阅读量306

点赞数

分类专栏： ABAP 文章标签： ABAP 自动打印 MIGO

本文链接：https://blog.csdn.net/BinGeneral/article/details/134568002

版权

ABAP 专栏收录该内容

108 篇文章 14 订阅

订阅专栏

1、业务需求

本文档介绍，当MIGO发货过账时，自动打印自开发表格。

2、打印程序

复制标准配置中调用的程序和子例程，到新的程序（路径可参考下文系统配置）

只用复制子例程entry_wa01即可，参考代码：

"--------------------@斌将军--------------------
REPORT ytest022.

TABLES: nast.

FORM entry_wa01 USING ent_retco ent_screen.

  DATA:fm_name               TYPE rs38l_fnam,
       ls_output_options     TYPE ssfcompop,
       ls_control_parameters TYPE ssfctrlop,
       ls_output_info        TYPE ssfcrescl,
       ls_option             TYPE ssfcresop.
  DATA:l_control_parameters  TYPE ssfctrlop.
  DATA:lv_formname TYPE tdsfname VALUE 'ZSAPM07DR_SF'."smartforms名称
  DATA:lt_head TYPE TABLE OF zmm043_fhdy_head,
       ls_head TYPE zmm043_fhdy_head,
       lt_item TYPE TABLE OF zmm043_fhdy_item,
       ls_item TYPE zmm043_fhdy_item.

  DATA: BEGIN OF nast_key,
          mblnr LIKE mkpf-mblnr,
          mjahr LIKE mkpf-mjahr,
          zeile LIKE mseg-zeile,
        END OF nast_key.

  CLEAR:ent_retco,ent_screen.

  nast_key = nast-objky.

"具体逻辑（略）
……

"调用打印函数
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME           = LV_FNAME
    IMPORTING
      FM_NAME            = PV_FNAME
    EXCEPTIONS
      NO_FORM            = 1
      NO_FUNCTION_MODULE = 2
      OTHERS             = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    LEAVE LIST-PROCESSING.
  ENDIF.

CALL FUNCTION PV_FNAME
    EXPORTING
      CONTROL_PARAMETERS = LS_SSFCTRLOP
    EXCEPTIONS
      FORMATTING_ERROR   = 1
      INTERNAL_ERROR     = 2
      SEND_ERROR         = 3
      USER_CANCELED      = 4
      OTHERS             = 5.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.
"--------------------@斌将军--------------------