How to Read Texts in ME22N or ME23N to PO Print Form

[Former Member]

Hi Anybody,

I want read ItemText, Info Record POText, Material POText, Delivery Text... from ME22N or ME23N in Smartforms from Each PO Item and Print into PO Print Form.

Can u please anybody answer me.

Thanks,

S.Muthu.

[Former Member]

Hi this will help u.

*&----

---

*

*& 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 = 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

*----

---

*

• Lieferplaneinteilung

*----

---

*

form entry_lpfz 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 = '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[].

• 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.

• get SmartForm protocoll and store it in the NAST protocoll

perform add_smfrm_prot.

endif.

endform.

*eject

*----

---

*

• Mahnung

*----

---

*

form entry_lpma 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 = '6'.

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.

**********************************************************

*form entry_lpf2_new for lpf2

************************************************************

form entry_lpf2_new 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.

xscreen = ent_screen.

xlpet = 'X'.

if nast-aende eq space.

xdruvo = '5'.

else.

xdruvo = '8'.

endif.

xfz = 'X'.

xoffen = 'X'.

clear: xlmahn.

*- Ansto©¬ Verarbeitung

*----

---

*

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.

*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.

*&----

---

*

*& Form set_print_param

*&----

---

*

• text

*----

---

*

• -->P_LS_ADDR_KEY text

• <--P_LS_CONTROL_PARAM text

• <--P_LS_COMPOSER_PARAM text

• <--P_LS_RECIPIENT text

• <--P_LS_SENDER text

• <--P_CF_RETCODE text

*----

---

*

form set_print_param using is_addr_key like addr_key

changing cs_control_param type ssfctrlop

cs_composer_param type ssfcompop

cs_recipient type swotobjid

cs_sender type swotobjid

cf_retcode type sy-subrc.

data: ls_itcpo type itcpo.

data: lf_repid type sy-repid.

data: lf_device type tddevice.

data: ls_recipient type swotobjid.

data: ls_sender type swotobjid.

lf_repid = sy-repid.

call function 'WFMC_PREPARE_SMART_FORM'

exporting

pi_nast = nast

pi_addr_key = is_addr_key

pi_repid = lf_repid

importing

pe_returncode = cf_retcode

pe_itcpo = ls_itcpo

pe_device = lf_device

pe_recipient = cs_recipient

pe_sender = cs_sender.

if cf_retcode = 0.

move-corresponding ls_itcpo to cs_composer_param.

• cs_composer_param-tdnoprint = 'X'. "Note 591576

cs_control_param-device = lf_device.

cs_control_param-no_dialog = 'X'.

cs_control_param-preview = xscreen.

cs_control_param-getotf = ls_itcpo-tdgetotf.

cs_control_param-langu = nast-spras.

endif.

endform.

with regards,

Hema Sundara.

pls reward if helpful.

[Former Member]

Use READ_TEXT functions to read the SAP Long Text

You have to use the READ_TEXT functions to read the SAP long text.

Check the following link

[Read_TEXT|]

Hope this helps.

Vinodh Balakrishnan