Adobe Interactive Forms using ABAP in ERP2004

[Former Member]

Hi

I am using following code to create interactive form.

However not getting any output. But if I pass fp_docparams-FILLABLE = '' the output pdf is produced.

Does the interactive functionality works on ERP2004?

Regards

Girish

data fp_outputparams type SFPOUTPUTPARAMS .

data fm_name TYPE FUNCNAME .

• First get name of the generated function module

call function 'FP_FUNCTION_MODULE_NAME'

exporting

i_name = 'ZZFP_TEST_01'

importing

e_funcname = fm_name.

fp_outputparams-nodialog = 'X'. " suppress printer dialog popup

fp_outputparams-GETPDF = 'X'. " launch print preview

fp_outputparams-CONNECTION = 'ADS' .

call function 'FP_JOB_OPEN'

changing

ie_outputparams = fp_outputparams

exceptions

cancel = 1

usage_error = 2

system_error = 3

internal_error = 4

others = 5.

data fp_docparams type sfpdocparams .

data fp_formoutput type fpformoutput .

fp_docparams-langu = 'E'.

fp_docparams-country = 'GB'.

fp_docparams-FILLABLE = 'X'.

data t_head type thead .

t_head-tdobject = 'ZCMP' .

T_HEAD-TDNAME = 'HA000000022222000' .

T_HEAD-TDID = 'Z001'.

T_HEAD-TDSPRAS = SY-LANGU.

call function fm_name

exporting

/1bcdwb/docparams = fp_docparams

sapscript_header = t_HEAD

importing

/1BCDWB/FORMOUTPUT = fp_formoutput

exceptions

usage_error = 1

system_error = 2

internal_error = 3

others = 4.

call function 'FP_JOB_CLOSE'

exceptions

usage_error = 1

system_error = 2

internal_error = 3

others = 4.

data lt_att_content_hex type SDOKCNTBINS .

CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'

EXPORTING

buffer = fp_formoutput-PDF "PDF file from function module

TABLES

binary_tab = lt_att_content_hex.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD

EXPORTING

• BIN_FILESIZE =

FILENAME = 'c:\TEST1.PDF'

FILETYPE = 'BIN'

• APPEND = SPACE

• WRITE_FIELD_SEPARATOR = SPACE

• HEADER = '00'

• TRUNC_TRAILING_BLANKS = SPACE

• WRITE_LF = 'X'

• COL_SELECT = SPACE

• COL_SELECT_MASK = SPACE

• DAT_MODE = SPACE

• CONFIRM_OVERWRITE = SPACE

• NO_AUTH_CHECK = SPACE

• CODEPAGE = SPACE

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• WRITE_BOM = SPACE

• TRUNC_TRAILING_BLANKS_EOL = 'X'

• WK1_N_FORMAT = SPACE

• WK1_N_SIZE = SPACE

• WK1_T_FORMAT = SPACE

• WK1_T_SIZE = SPACE

• IMPORTING

• FILELENGTH =

CHANGING

DATA_TAB = lt_att_content_hex

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

NOT_SUPPORTED_BY_GUI = 22

ERROR_NO_GUI = 23

others = 24

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE

EXPORTING

DOCUMENT = 'C:\test1.pdf'

• APPLICATION =

• PARAMETER =

DEFAULT_DIRECTORY = 'c'

• MAXIMIZED =

• MINIMIZED =

• SYNCHRONOUS =

• OPERATION = 'OPEN'

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

BAD_PARAMETER = 3

FILE_NOT_FOUND = 4

PATH_NOT_FOUND = 5

FILE_EXTENSION_UNKNOWN = 6

ERROR_EXECUTE_FAILED = 7

SYNCHRONOUS_FAILED = 8

NOT_SUPPORTED_BY_GUI = 9

others = 10

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

[Former Member]

Hi Girish,

Is your problem solved? Because I am also facing the same problem. Could you please tell me what you did to see the PDF output.

Regards,

Amit