PO Form not printing correctly

Question

Hi Ppl,
I have a text (Info Record Note) from PO transaction(ME23N) to be printed in my form. Issue is, the text appears well in print preview but disappears from the transaction and form whenever i do a print.
It's not a form issue i guess. And no custom enhancements were made to the transaction.
Not sure why this is happening. Any info will be of great help.
Thanks,
Santosh.

Answer 1

Hai.
check the example.
*&  Include           ZMFM06PE02
  Smart Form Print Routines                                          *
form entry_neu using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  data: ls_print_data_to_read type lbbil_print_data_to_read.
  data: ls_bil_invoice type lbbil_invoice.
  data: lf_fm_name            type rs38l_fnam.
  data: ls_control_param      type ssfctrlop.
  data: ls_composer_param     type ssfcompop.
  data: ls_recipient          type swotobjid.
  data: ls_sender             type swotobjid.
  data: lf_formname           type tdsfname.
  data: ls_addr_key           like addr_key.
  xscreen = ent_screen.
  clear ent_retco.
  if nast-aende eq space.
    l_druvo = '1'.
  else.
    l_druvo = '2'.
  endif.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
Fill up pricing condition table if calling from ME9F
  if l_doc-xtkomv is initial.
    select * into table l_doc-xtkomv from konv
                                     where knumv = l_doc-xekko-knumv.
  endif.
*Set the print Parameters
  perform set_print_param using     ls_addr_key
                          changing  ls_control_param
                                    ls_composer_param
                                    ls_recipient
                                    ls_sender
                                    ent_retco.
*Get the Smart Form name.
  if not tnapr-sform is initial.
    lf_formname = tnapr-sform.
  else.
    lf_formname = tnapr-fonam.
  endif.
Determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting
            formname           = lf_formname
       importing
            fm_name            = lf_fm_name
       exceptions
            no_form            = 1
            no_function_module = 2
            others             = 3.
  if sy-subrc <> 0.
error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
  call function lf_fm_name
       exporting
            archive_index      = toa_dara
            archive_parameters = arc_params
            control_parameters = ls_control_param
            mail_recipient     = ls_recipient
            mail_sender        = ls_sender
            output_options     = ls_composer_param
            zxekko             = l_doc-xekko  " user_settings = ' '
            zxpekko            = l_doc-xpekko
       tables
            l_xekpo            = l_doc-xekpo[]
            l_xekpa            = l_doc-xekpa[]
            l_xpekpo           = l_doc-xpekpo[]
            l_xeket            = l_doc-xeket[]
            l_xtkomv           = l_doc-xtkomv[]
            l_xekkn            = l_doc-xekkn[]
            l_xekek            = l_doc-xekek[]
            l_xkomk            = l_xkomk
       exceptions
            formatting_error   = 1
            internal_error     = 2
            send_error         = 3
            user_canceled      = 4
            others             = 5.
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
get SmartForm protocoll and store it in the NAST protocoll
    perform add_smfrm_prot.
  endif.
endform.
Mahnung
form entry_mahn using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  clear ent_retco.
  l_druvo = '3'.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
CALL FUNCTION 'ME_PRINT_PO'
      EXPORTING
           ix_nast        = l_nast
           ix_druvo       = l_druvo
           doc            = l_doc
           ix_screen      = ent_screen
           ix_from_memory = l_from_memory
           ix_toa_dara    = toa_dara
           ix_arc_params  = arc_params
      IMPORTING
           ex_retco       = ent_retco.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
Fill up pricing condition table if calling from ME9F
  if l_doc-xtkomv is initial.
    select * into table l_doc-xtkomv from konv
                                     where knumv = l_doc-xekko-knumv.
  endif.
*Set the print Parameters
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
*Get the Smart Form name.
  if not tnapr-sform is initial.
    lf_formname = tnapr-sform.
  else.
    lf_formname = tnapr-fonam.
  endif.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting
            formname           = lf_formname
       importing
            fm_name            = lf_fm_name
       exceptions
            no_form            = 1
            no_function_module = 2
            others             = 3.
  if sy-subrc <> 0.
error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
  call function lf_fm_name
       exporting
            archive_index      = toa_dara
            archive_parameters = arc_params
            control_parameters = ls_control_param
            mail_recipient     = ls_recipient
            mail_sender        = ls_sender
            output_options     = ls_composer_param
            zxekko             = l_doc-xekko  " user_settings = ' '
            zxpekko            = l_doc-xpekko
       tables
            l_xekpo            = l_doc-xekpo[]
            l_xekpa            = l_doc-xekpa[]
            l_xpekpo           = l_doc-xpekpo[]
            l_xeket            = l_doc-xeket[]
            l_xtkomv           = l_doc-xtkomv[]
            l_xekkn            = l_doc-xekkn[]
            l_xekek            = l_doc-xekek[]
            l_xkomk            = l_xkomk
       exceptions
            formatting_error   = 1
            internal_error     = 2
            send_error         = 3
            user_canceled      = 4
            others             = 5.
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
get SmartForm protocoll and store it in the NAST protocoll
    perform add_smfrm_prot.
  endif.
endform.
*eject
Auftragsbestatigungsmahnung
form entry_aufb using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  clear ent_retco.
  l_druvo = '7'.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
CALL FUNCTION 'ME_PRINT_PO'
      EXPORTING
           ix_nast        = l_nast
           ix_druvo       = l_druvo
           doc            = l_doc
           ix_screen      = ent_screen
           ix_from_memory = l_from_memory
           ix_toa_dara    = toa_dara
           ix_arc_params  = arc_params
      IMPORTING
           ex_retco       = ent_retco.
  if nast-adrnr is initial.
    perform get_addr_key changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
Fill up pricing condition table if calling from ME9F
  if l_doc-xtkomv is initial.
    select * into table l_doc-xtkomv from konv
    where knumv = l_doc-xekko-knumv.
  endif.
*Set the print Parameters
  perform set_print_param using    ls_addr_key
                          changing ls_control_param
                                   ls_composer_param
                                   ls_recipient
                                   ls_sender
                                   ent_retco.
*Get the Smart Form name.
  if not tnapr-sform is initial.
    lf_formname = tnapr-sform.
  else.
    lf_formname = tnapr-fonam.
  endif.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting
            formname           = lf_formname
       importing
            fm_name            = lf_fm_name
       exceptions
            no_form            = 1
            no_function_module = 2
            others             = 3.
  if sy-subrc <> 0.
error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
  call function lf_fm_name
       exporting
            archive_index      = toa_dara
            archive_parameters = arc_params
            control_parameters = ls_control_param
            mail_recipient     = ls_recipient
            mail_sender        = ls_sender
            output_options     = ls_composer_param
            zxekko             = l_doc-xekko  " user_settings = ' '
            zxpekko            = l_doc-xpekko
       tables
            l_xekpo            = l_doc-xekpo[]
            l_xekpa            = l_doc-xekpa[]
            l_xpekpo           = l_doc-xpekpo[]
            l_xeket            = l_doc-xeket[]
            l_xtkomv           = l_doc-xtkomv[]
            l_xekkn            = l_doc-xekkn[]
            l_xekek            = l_doc-xekek[]
            l_xkomk            = l_xkomk
       exceptions
            formatting_error   = 1
            internal_error     = 2
            send_error         = 3
            user_canceled      = 4
            others             = 5.
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
get SmartForm protocoll and store it in the NAST protocoll
    perform add_smfrm_prot.
  endif.
endform.
*eject
Lieferabrufdruck fur Formular MEDRUCK mit Fortschrittszahlen
form entry_lphe using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_xfz,
        l_doc   type meein_purchase_doc_print.
  clear ent_retco.
  l_druvo = '9'.
  l_xfz = 'X'.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
*Get the Smart Form name.
  if not tnapr-sform is initial.
    lf_formname = tnapr-sform.
  else.
    lf_formname = tnapr-fonam.
  endif.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting  formname           = lf_formname
                variant            = ' '
                direct_call        = ' '
       importing  fm_name            = lf_fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
  if sy-subrc <> 0.
  error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
move the value
  move-corresponding l_doc-xekko to l_zekko.
  move-corresponding l_doc-xpekko to l_xpekko.
  l_xekpo[] = l_doc-xekpo[].
  l_xekpa[] = l_doc-xekpa[].
  l_xpekpo[] = l_doc-xpekpo[].
  l_xeket[] = l_doc-xeket[].
  l_xtkomv[] = l_doc-xtkomv[].
  l_xekkn[] = l_doc-xekkn[].
  l_xekek[] = l_doc-xekek[].
*l_xaend[]    = l_doc-xaend[].
  call function lf_fm_name
    exporting
     archive_index              = toa_dara
  ARCHIVE_INDEX_TAB          =
     archive_parameters         = arc_params
     control_parameters         = ls_control_param
  MAIL_APPL_OBJ              =
     mail_recipient             = ls_recipient
     mail_sender                = ls_sender
     output_options             = ls_composer_param
     user_settings              = ' '
      zxekko                     = l_zekko
      zxpekko                    = l_xpekko
  l_xaend                    = l_xaend
   IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
    tables
      l_xekpo                    = l_xekpo
      l_xekpa                    = l_xekpa
      l_xpekpo                   = l_xpekpo
      l_xeket                    = l_xeket
      l_xtkomv                   = l_xtkomv
      l_xekkn                    = l_xekkn
      l_xekek                    = l_xekek
      l_xkomk                    = l_xkomk
   l_xaend                    = l_xaend
EXCEPTIONS
  FORMATTING_ERROR           = 1
  INTERNAL_ERROR             = 2
  SEND_ERROR                 = 3
  USER_CANCELED              = 4
  OTHERS                     = 5
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
    perform add_smfrm_prot.
  endif.
endform.
*eject
Lieferabrufdruck fur Formular MEDRUCK ohne Fortschrittszahlen
form entry_lphe_cd using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  clear ent_retco.
  l_druvo = '9'.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
  lf_formname = tnapr-fonam.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting  formname           = lf_formname
                variant            = ' '
                direct_call        = ' '
       importing  fm_name            = lf_fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
  if sy-subrc <> 0.
  error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
move the value
  move-corresponding l_doc-xekko to l_zekko.
  move-corresponding l_doc-xpekko to l_xpekko.
  l_xekpo[] = l_doc-xekpo[].
  l_xekpa[] = l_doc-xekpa[].
  l_xpekpo[] = l_doc-xpekpo[].
  l_xeket[] = l_doc-xeket[].
  l_xtkomv[] = l_doc-xtkomv[].
  l_xekkn[] = l_doc-xekkn[].
  l_xekek[] = l_doc-xekek[].
l_xaend[]    = l_doc-xaend[].
  call function lf_fm_name
    exporting
     archive_index              = toa_dara
  ARCHIVE_INDEX_TAB          =
     archive_parameters         = arc_params
     control_parameters         = ls_control_param
  MAIL_APPL_OBJ              =
     mail_recipient             = ls_recipient
     mail_sender                = ls_sender
     output_options             = ls_composer_param
     user_settings              = ' '
      zxekko                     = l_zekko
      zxpekko                    = l_xpekko
  l_xaend                    = l_xaend
   IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
    tables
      l_xekpo                    = l_xekpo
      l_xekpa                    = l_xekpa
      l_xpekpo                   = l_xpekpo
      l_xeket                    = l_xeket
      l_xtkomv                   = l_xtkomv
      l_xekkn                    = l_xekkn
      l_xekek                    = l_xekek
      l_xkomk                    = l_xkomk
   l_xaend                    = l_xaend
EXCEPTIONS
  FORMATTING_ERROR           = 1
  INTERNAL_ERROR             = 2
  SEND_ERROR                 = 3
  USER_CANCELED              = 4
  OTHERS                     = 5
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
    perform add_smfrm_prot.
  endif.
endform.
*eject
Feinabrufdruck fur Formular MEDRUCK mit Fortschrittszahlen
form entry_lpje using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_xfz,
        l_doc   type meein_purchase_doc_print.
  clear ent_retco.
  l_druvo = 'A'.
  l_xfz = 'X'.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
  lf_formname = tnapr-fonam.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting  formname           = lf_formname
                variant            = ' '
                direct_call        = ' '
       importing  fm_name            = lf_fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
  if sy-subrc <> 0.
  error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
move the value
  move-corresponding l_doc-xekko to l_zekko.
  move-corresponding l_doc-xpekko to l_xpekko.
  l_xekpo[] = l_doc-xekpo[].
  l_xekpa[] = l_doc-xekpa[].
  l_xpekpo[] = l_doc-xpekpo[].
  l_xeket[] = l_doc-xeket[].
  l_xtkomv[] = l_doc-xtkomv[].
  l_xekkn[] = l_doc-xekkn[].
  l_xekek[] = l_doc-xekek[].
l_xaend[]    = l_doc-xaend[].
  call function lf_fm_name
    exporting
     archive_index              = toa_dara
  ARCHIVE_INDEX_TAB          =
     archive_parameters         = arc_params
     control_parameters         = ls_control_param
  MAIL_APPL_OBJ              =
     mail_recipient             = ls_recipient
     mail_sender                = ls_sender
     output_options             = ls_composer_param
     user_settings              = ' '
      zxekko                     = l_zekko
      zxpekko                    = l_xpekko
  l_xaend                    = l_xaend
   IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
    tables
      l_xekpo                    = l_xekpo
      l_xekpa                    = l_xekpa
      l_xpekpo                   = l_xpekpo
      l_xeket                    = l_xeket
      l_xtkomv                   = l_xtkomv
      l_xekkn                    = l_xekkn
      l_xekek                    = l_xekek
      l_xkomk                    = l_xkomk
   l_xaend                    = l_xaend
EXCEPTIONS
  FORMATTING_ERROR           = 1
  INTERNAL_ERROR             = 2
  SEND_ERROR                 = 3
  USER_CANCELED              = 4
  OTHERS                     = 5
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
    perform add_smfrm_prot.
  endif.
endform.
*eject
Feinabrufdruck fur Formular MEDRUCK ohne Fortschrittszahlen
form entry_lpje_cd using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  clear ent_retco.
  l_druvo = 'A'.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
  lf_formname = tnapr-fonam.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting  formname           = lf_formname
                variant            = ' '
                direct_call        = ' '
       importing  fm_name            = lf_fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
  if sy-subrc <> 0.
  error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
move the value
  move-corresponding l_doc-xekko to l_zekko.
  move-corresponding l_doc-xpekko to l_xpekko.
  l_xekpo[] = l_doc-xekpo[].
  l_xekpa[] = l_doc-xekpa[].
  l_xpekpo[] = l_doc-xpekpo[].
  l_xeket[] = l_doc-xeket[].
  l_xtkomv[] = l_doc-xtkomv[].
  l_xekkn[] = l_doc-xekkn[].
  l_xekek[] = l_doc-xekek[].
l_xaend[]    = l_doc-xaend[].
  call function lf_fm_name
    exporting
     archive_index              = toa_dara
  ARCHIVE_INDEX_TAB          =
     archive_parameters         = arc_params
     control_parameters         = ls_control_param
  MAIL_APPL_OBJ              =
     mail_recipient             = ls_recipient
     mail_sender                = ls_sender
     output_options             = ls_composer_param
     user_settings              = ' '
      zxekko                     = l_zekko
      zxpekko                    = l_xpekko
  l_xaend                    = l_xaend
   IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
    tables
      l_xekpo                    = l_xekpo
      l_xekpa                    = l_xekpa
      l_xpekpo                   = l_xpekpo
      l_xeket                    = l_xeket
      l_xtkomv                   = l_xtkomv
      l_xekkn                    = l_xekkn
      l_xekek                    = l_xekek
      l_xkomk                    = l_xkomk
   l_xaend                    = l_xaend
EXCEPTIONS
  FORMATTING_ERROR           = 1
  INTERNAL_ERROR             = 2
  SEND_ERROR                 = 3
  USER_CANCELED              = 4
  OTHERS                     = 5
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
    perform add_smfrm_prot.
  endif.
endform.
*eject
  INCLUDE FM06PE02                                                   *
form entry_neu_matrix using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  clear ent_retco.
  if nast-aende eq space.
    l_druvo = '1'.
  else.
    l_druvo = '2'.
  endif.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
  lf_formname = tnapr-fonam.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting  formname           = lf_formname
                variant            = ' '
                direct_call        = ' '
       importing  fm_name            = lf_fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
  if sy-subrc <> 0.
  error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
move the value
  move-corresponding l_doc-xekko to l_zekko.
  move-corresponding l_doc-xpekko to l_xpekko.
  l_xekpo[] = l_doc-xekpo[].
  l_xekpa[] = l_doc-xekpa[].
  l_xpekpo[] = l_doc-xpekpo[].
  l_xeket[] = l_doc-xeket[].
  l_xtkomv[] = l_doc-xtkomv[].
  l_xekkn[] = l_doc-xekkn[].
  l_xekek[] = l_doc-xekek[].
l_xaend[]    = l_doc-xaend[].
  call function lf_fm_name
    exporting
     archive_index              = toa_dara
  ARCHIVE_INDEX_TAB          =
     archive_parameters         = arc_params
     control_parameters         = ls_control_param
  MAIL_APPL_OBJ              =
     mail_recipient             = ls_recipient
     mail_sender                = ls_sender
     output_options             = ls_composer_param
     user_settings              = ' '
      zxekko                     = l_zekko
      zxpekko                    = l_xpekko
  l_xaend                    = l_xaend
   IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
    tables
      l_xekpo                    = l_xekpo
      l_xekpa                    = l_xekpa
      l_xpekpo                   = l_xpekpo
      l_xeket                    = l_xeket
      l_xtkomv                   = l_xtkomv
      l_xekkn                    = l_xekkn
      l_xekek                    = l_xekek
      l_xkomk                    = l_xkomk
   l_xaend                    = l_xaend
EXCEPTIONS
  FORMATTING_ERROR           = 1
  INTERNAL_ERROR             = 2
  SEND_ERROR                 = 3
  USER_CANCELED              = 4
  OTHERS                     = 5
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
    perform add_smfrm_prot.
  endif.
endform.
*eject
Angebotsabsage
form entry_absa using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  l_druvo = '4'.
  clear ent_retco.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
  lf_formname = tnapr-fonam.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting  formname           = lf_formname
                variant            = ' '
                direct_call        = ' '
       importing  fm_name            = lf_fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
  if sy-subrc <> 0.
  error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
move the value
  move-corresponding l_doc-xekko to l_zekko.
  move-corresponding l_doc-xpekko to l_xpekko.
  l_xekpo[] = l_doc-xekpo[].
  l_xekpa[] = l_doc-xekpa[].
  l_xpekpo[] = l_doc-xpekpo[].
  l_xeket[] = l_doc-xeket[].
  l_xtkomv[] = l_doc-xtkomv[].
  l_xekkn[] = l_doc-xekkn[].
  l_xekek[] = l_doc-xekek[].
l_xaend[]    = l_doc-xaend[].
  call function lf_fm_name
    exporting
     archive_index              = toa_dara
  ARCHIVE_INDEX_TAB          =
     archive_parameters         = arc_params
     control_parameters         = ls_control_param
  MAIL_APPL_OBJ              =
     mail_recipient             = ls_recipient
     mail_sender                = ls_sender
     output_options             = ls_composer_param
     user_settings              = ' '
      zxekko                     = l_zekko
      zxpekko                    = l_xpekko
  l_xaend                    = l_xaend
   IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
    tables
      l_xekpo                    = l_xekpo
      l_xekpa                    = l_xekpa
      l_xpekpo                   = l_xpekpo
      l_xeket                    = l_xeket
      l_xtkomv                   = l_xtkomv
      l_xekkn                    = l_xekkn
      l_xekek                    = l_xekek
      l_xkomk                    = l_xkomk
   l_xaend                    = l_xaend
EXCEPTIONS
  FORMATTING_ERROR           = 1
  INTERNAL_ERROR             = 2
  SEND_ERROR                 = 3
  USER_CANCELED              = 4
  OTHERS                     = 5
  if sy-subrc <> 0.
    ent_retco = sy-subrc.
    perform protocol_update_i.
    perform add_smfrm_prot.
  endif.
endform.
*eject
Lieferplaneinteilung
form entry_lpet using ent_retco ent_screen.
  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
  data: l_zekko like ekko,
        l_xpekko like pekko,
        l_xekpo like table of ekpo,
        l_wa_xekpo like ekpo.
  data: l_xekpa like ekpa occurs 0,
        l_wa_xekpa like ekpa.
  data: l_xpekpo  like pekpo occurs 0,
        l_wa_xpekpo like pekpo,
        l_xeket   like table of eket with header line,
        l_xekkn  like table of ekkn with header line,
        l_xekek  like table of ekek with header line,
        l_xekeh   like table of ekeh with header line,
        l_xkomk like table of komk with header line,
        l_xtkomv  type komv occurs 0,
        l_wa_xtkomv type komv.
  data: ls_addr_key           like addr_key.
  clear ent_retco.
  if nast-aende eq space.
    l_druvo = '5'.
  else.
    l_druvo = '8'.
  endif.
  call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
  check ent_retco eq 0.
  if nast-adrnr is initial.
    perform get_addr_key
                         changing ls_addr_key.
  else.
    ls_addr_key = nast-adrnr.
  endif.
  perform set_print_param using      ls_addr_key
                            changing ls_control_param
                                     ls_composer_param
                                     ls_recipient
                                     ls_sender
                                     ent_retco.
*Get the Smart Form name.
  if not tnapr-sform is initial.
    lf_formname = tnapr-sform.
  else.
    lf_formname = tnapr-fonam.
  endif.
determine smartform function module for invoice
  call function 'SSF_FUNCTION_MODULE_NAME'
       exporting  formname           = lf_formname
                variant            = ' '
                direct_call        = ' '
       importing  fm_name            = lf_fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
  if sy-subrc <> 0.
  error handling
    ent_retco = sy-subrc.
    perform protocol_update_i.
  endif.
move the value
  move-corresponding l_doc-xekko to l_zekko.
  move-corresponding l_doc-xpekko to l_xpekko.
  l_xekpo[] = l_doc-xekpo[].
  l_xekpa[] = l_doc-xekpa[].
  l_xpekpo[] = l_doc-xpekpo[].
  l_xeket[] = l_doc-xeket[].
  l_xtkomv[] = l_doc-xtkomv[].
  l_xekkn[] = l_doc-xekkn[].
  l_xekek[] = l_doc-xekek[].
  call function lf_fm_name
    exporting
     archive_index              = toa_dara
  ARCHIVE_INDEX_TAB          =
     archive_parameters         = arc_params
     control_parameters         = ls_control_param
  MAIL_APPL_OBJ              =
     mail_recipient             = ls_recipient
     mail_sender                = ls_sender
     output_options             = ls_composer_param
     user_settings              = ' '
      zxekko                     = l_zekko
      zxpekko                    = l_xpekko
  l_xaend                    = l_xaend
   IMPORTING
  DOCUMENT_OUTPUT_INFO       =
  JOB_OUTPUT_INFO            =
  JOB_OUTPUT_OPTIONS         =
    tables
      l_xekpo                    = l_xekpo
      l_xekpa                    = l_xekpa
      l_xpekpo                   = l_xpekpo
      l_xeket                    = l_xeket
      l_xtkomv                   = l_xtkomv
      l_xekkn                    = l_xekkn
      l_xekek                    = l_xekek
      l_xkomk                    = l_xkomk
exceptions
   formatting_error