MIGO配置过账后自动打印

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. "--------------------@斌将军--------------------

3、系统配置

3.1、配置方法一:复制标准配置(复杂)

SPRO——物料管理——库存管理和实际库存——输出确定

本实例是发货场景,可以复制标准的发货WA01为ZWA1

维护输出类型

配置输出类型调用的程序为自开发的程序名,表单过程为自开发程序的子例程,表单为自开发的SMARTFORMS名称 

维护输出确定过程

维护条件

打印项目

SPRO——物料管理——库存管理和实际库存——移动类型

检查移动类型配置,是否满足要求

3.2、配置方法二:修改标准配置(简单)

修改标准配置,改动很小,配置简单,只需要将标准的输出类型WA01调用的程序换成自开发的程序名,表单过程替换为自开发程序的子例程,表单替换自开发的SMARTFORMS名称即可。

4、打印测试

过账时,自动打印物料凭证,如此也限制了只允许首次打印

如果确实需要,还可以通过MB90重复打印

 

定期更文,欢迎关注

 

 

 

 

posted @ 2023-11-23 08:31  斌将军  阅读(221)  评论(0编辑  收藏  举报