DATA: ls_str TYPE zdemo_str_01,
ls_str_itm TYPE zdemo_str_02.
IF it_key_tab IS NOT INITIAL.
DATA(lv_key_tab) = VALUE #( it_key_tab[ 1 ]-value ).
SELECT belnr, gjahr, buzei,
ebeln, matnr, werks,
xblnr
FROM rseg
INTO TABLE @DATA(lt_ztab)
WHERE belnr = @lv_key_tab.
IF lt_ztab IS NOT INITIAL.
DATA(ls_header) = VALUE #( lt_ztab[ 1 ] ).
ls_str-invoicedocnum = ls_header-belnr.
ls_str-plant = ls_header-werks.
LOOP AT lt_ztab INTO DATA(ls_ztab).
ls_str_itm-purdocnum = ls_ztab-ebeln.
ls_str_itm-fisyear = ls_ztab-gjahr.
ls_str_itm-itemcode = ls_ztab-buzei.
ls_str_itm-material = ls_ztab-matnr.
ls_str_itm-refnumber = ls_ztab-xblnr.
APPEND ls_str_itm TO ls_str-item.
CLEAR ls_str_itm.
ENDLOOP.
ENDIF.
ENDIF.
DATA: lv_fm_name TYPE rs38l_fnam,
ls_cntl_prmt TYPE ssfctrlop,
ls_op_opt TYPE ssfcompop,
ls_ssfcrescl TYPE ssfcrescl.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZDEMO_SFM_01'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = lv_fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ls_cntl_prmt-langu = 'EN'.
ls_cntl_prmt-getotf = abap_true.
ls_cntl_prmt-preview = space.
ls_cntl_prmt-no_dialog = abap_true.
ls_op_opt-tddest = 'LOCL'.
ls_op_opt-xdfcmode = abap_true.
ls_op_opt-tdnewid = abap_true.
ls_op_opt-tdimmed = abap_true.
CALL FUNCTION lv_fm_name "'/1BCDWB/SF00000080'
EXPORTING
control_parameters = ls_cntl_prmt
output_options = ls_op_opt
user_settings = 'X'
e_structure = ls_str
IMPORTING
* DOCUMENT_OUTPUT_INFO =
job_output_info = ls_ssfcrescl
* JOB_OUTPUT_OPTIONS =
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
DATA: lt_otf TYPE TABLE OF itcoo,
lv_bin_file TYPE xstring,
lt_lines TYPE TABLE OF tline,
gs_stream TYPE ty_s_media_resource.
REFRESH lt_otf[].
lt_otf[] = ls_ssfcrescl-otfdata[].
CLEAR : lv_bin_file.
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
IMPORTING
bin_file = lv_bin_file
TABLES
otf = lt_otf
lines = lt_lines
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
OTHERS = 5.
IF sy-subrc <> 0.
RETURN.
ENDIF.
gs_stream-mime_type = 'application/pdf'.
gs_stream-value = lv_bin_file.
CALL METHOD me->copy_data_to_ref
EXPORTING
is_data = gs_stream
CHANGING
cr_data = er_stream.
URL: /sap/opu/odata/SAP/ZDEMO_ODATA_01_SRV/InvoiceDocNumberSet('5105600762')/$value.
(Note: $value used to get the raw value of a property. It used to trigger get stream method).
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
5 | |
2 | |
2 | |
2 | |
2 | |
2 | |
2 | |
1 | |
1 | |
1 |