Пример метода:
METHOD spool_pdf_to_bin. " iv_spoolid TYPE rspoid " rt_bin_tab TYPE solix_tab DATA: ls_tsp01 TYPE tsp01, ls_rq TYPE tsp01sys, lt_partlist TYPE TABLE OF adspartdesc, lv_pdf TYPE fpcontent, lt_bin_tab1 TYPE solix_tab. FIELD-SYMBOLS: <fs_partlist> LIKE LINE OF lt_partlist. REFRESH rt_bin_tab. CHECK iv_spoolid IS NOT INITIAL. SELECT SINGLE * FROM tsp01 INTO ls_tsp01 WHERE rqident = iv_spoolid. CHECK sy-subrc = 0. MOVE-CORRESPONDING ls_tsp01 TO ls_rq. CALL FUNCTION 'RSPO_ADSP_FILL_PARTLIST' EXPORTING rq = ls_rq * IMPORTING * all_docs = * number_of_parts = * old_document = TABLES partlist = lt_partlist. LOOP AT lt_partlist ASSIGNING <fs_partlist>. CALL FUNCTION 'FPCOMP_CREATE_PDF_FROM_SPOOL' EXPORTING i_spoolid = iv_spoolid i_partnum = <fs_partlist>-adsnum IMPORTING e_pdf = lv_pdf * e_renderpagecount = * e_pdf_file = EXCEPTIONS ads_error = 1 usage_error = 2 system_error = 3 internal_error = 4 OTHERS = 5. REFRESH lt_bin_tab1. CALL METHOD cl_bcs_convert=>xstring_to_solix EXPORTING iv_xstring = lv_pdf RECEIVING et_solix = lt_bin_tab1. INSERT LINES OF lt_bin_tab1 INTO TABLE rt_bin_tab. ENDLOOP. ENDMETHOD.
Комментариев нет:
Отправить комментарий