FUNCTION y_print_mm_document.
*"----------------------------------------------------------------------
*"*"кНЙЮКЭМШИ ХМРЕПТЕИЯ:
*"  IMPORTING
*"     REFERENCE(MATERIALDOCUMENT) LIKE  MSEG-MBLNR
*"     REFERENCE(MATDOCUMENTYEAR) LIKE  MSEG-MJAHR
*"     REFERENCE(P_PRINT_COPY) TYPE  I DEFAULT 1
*"----------------------------------------------------------------------
*&**********************************************************************
*& Comments    : Печать документа ММ *&**********************************************************************
  DATA: i_count_rec TYPE i,
         pe_rcode LIKE sy-subrc,           "return code
         pi_nast LIKE nast,
         l_kschl LIKE nast-kschl,
         l_objky LIKE nast-objky.

  i_count_rec = 0.
  DO.
    SELECT SINGLE blart INTO (pi_nast-kschl)
    FROM mkpf WHERE mblnr = materialdocument AND
                    mjahr = matdocumentyear.
    IF sy-subrc = 0.
      CONCATENATE materialdocument matdocumentyear '0001'
                  INTO l_objky.
      pi_nast-mandt = sy-mandt.
      pi_nast-kappl = 'ME'.
      pi_nast-objky = l_objky.
      pi_nast-kschl = 'WA03'.
      pi_nast-spras = sy-langu.
      pi_nast-manue = 'X'.
      pi_nast-nacha = 1.
      pi_nast-vsztp = 4.
      pi_nast-anzal = p_print_copy.          "Кол-во копий
      pi_nast-vstat = 1.
      pi_nast-ldest = 'LOCL'.
      pi_nast-nauto = 'X'.
      pi_nast-erdat = sy-datum.
      pi_nast-eruhr = sy-uzeit.
      pi_nast-dimme = 'X'.                   "Немедленный вывод
      pi_nast-delet = 'X'.                   "Удалить после вывода
      pi_nast-usnam = sy-uname.
      pi_nast-tdreceiver = sy-uname.
      pi_nast-objtype = 'MSEG'.
      CALL FUNCTION 'WFMC_MESSAGE_SINGLE'
           EXPORTING
                pi_nast  = pi_nast
           IMPORTING
                pe_rcode = pe_rcode.
      EXIT.
    ELSE.
      i_count_rec = i_count_rec + 1.
      IF i_count_rec = 20. EXIT. ENDIF.
    ENDIF.
  ENDDO.
ENDFUNCTION.