Привет всем! Подскажите, пожалуйста, как достать XSTRING и выгрузить в папку готовый ПДФ файл. У меня всё выходит со спулом. А с вариантом XSTRING не получается, как бы ни старалась. Делаю это впервые HEEEELP
Code:
DATA pdf type xstring.
* prepare outputparams
fp_outputparams-device = 'PRINTER'.
fp_outputparams-preview = abap_true.
fp_outputparams-reqnew = abap_false.
fp_outputparams-lifetime = 1.
fp_outputparams-DEST = 'PDF0'.
fp_outputparams-nodialog = 'X'.
fp_outputparams-PREVIEW = ''.
fp_outputparams-getpdf = 'X'.
CALL FUNCTION 'FP_JOB_OPEN'
CHANGING
IE_OUTPUTPARAMS = FP_OUTPUTPARAMS
EXCEPTIONS
CANCEL = 1
USAGE_ERROR = 2
SYSTEM_ERROR = 3
INTERNAL_ERROR = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
ENDIF.
* Archiving
* append toa_dara to cs_docparams-daratab.
DATA:
fp_formoutput TYPE fpformoutput,
s_docparams TYPE sfpdocparams,
data_tab TYPE TABLE OF x255.
CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
EXPORTING
I_NAME = 'Z_REVERSE_CHARGE_PDF'
IMPORTING
E_FUNCNAME = FM_NAME.
* /1bcdwb/formoutput = fp_formoutput.
IF SY-SUBRC <> 0.
ENDIF.
fp_docparams-langu = 'I'.
fp_docparams-country = 'IT'.
* fp_docparams-fillable = edt.
* fp_docparams-dynamic = edt.
*
CALL FUNCTION FM_NAME
EXPORTING
/1BCDWB/DOCPARAMS = fp_docparams
Name_nalogoplat = 'nimkm'
BUDAT = '20200202'
BLDAT = '20201229'
HWBAS = '11.11.2020'
HWSTE = '11.11.2020'
SUM = '11.11.2020'
XBLNR = '11.11.2020'
XBLNR_ALT = '11.11.2020'
XREF1_HD = '11.11.2020'
*IMPORTING
* /1BCDWB/FORMOUTPUT = fp_formoutput
* EXCEPTIONS
* USAGE_ERROR = 1
* SYSTEM_ERROR = 2
* INTERNAL_ERROR = 3
* OTHERS = 4
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = fp_formoutput-pdf
TABLES
binary_tab = data_tab.
cl_gui_frontend_services=>gui_download(
EXPORTING
filename = fname
filetype = 'BIN'
CHANGING
data_tab = data_tab ).
CALL FUNCTION 'FP_JOB_CLOSE'
* IMPORTING
* E_RESULT =
EXCEPTIONS
USAGE_ERROR = 1
SYSTEM_ERROR = 2
INTERNAL_ERROR = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
ENDIF.