MIGO配置過賬後自動列印

斌將軍發表於2023-11-23
Go

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重複列印

 

定期更文，歡迎關注

 

 

 

 

相關文章