..3 Программа печати

Создайте отчет Z_SHIPPING_LABEL и поместите в него следующий код:

REPORT z_shipping_label.


* declare selection-screen

PARAMETERS:

p_name TYPE text255 ,

p_street TYPE text255 ,

p_town TYPE text255 ,

p_state TYPE text255 ,

p_zip TYPE text255 .


* declare the context

DATA gs_context TYPE zcontext_shipping_label .


* fill the context

gs_context-to_name = p_name .

gs_context-to_street = p_street.

gs_context-to_town = p_town .

gs_context-to_state = p_state .

gs_context-to_zip = p_zip .


* call the form

CALL FUNCTION 'ZXLWB_CALLFORM'

EXPORTING

iv_formname = 'SHIPPING_LABEL'

iv_context_ref = gs_context

EXCEPTIONS

OTHERS = 2.

IF sy-subrc NE 0 .

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF .

Результат работы программы печати