Skip to Content
0
Former Member
Jun 30, 2005 at 12:15 PM

PDF file gets corrupted when generated from BSP

158 Views

Hi,

I am generating a PDF file from a BSP page ( see the code below). The problem is that PDF file gets corrupted and I am unable to open it. I also tried to use other functions like GUI_Download and DOwnload as suggested by many and they also do not work either. Has any one generated a PDF from BSP and can some one help?

Data: GG type String.

  • event handler for data retrieval

data : event type ref to cl_htmlb_event.

class cl_htmlb_manager definition load.

class CL_HTTP_RESPONSE DEFINITION LOAD.

DATA : PARAMS TYPE PRI_PARAMS,

VALID TYPE C,

GV_SUCCESS_SPOOL_NO LIKE SY-SPONO.

CALL FUNCTION 'GET_PRINT_PARAMETERS'

EXPORTING DESTINATION = 'LOCL'

  • COPIES = COUNT

  • LIST_NAME = 'TEST'

  • LIST_TEXT = 'Test NEW-PAGE PRINT ON'

IMMEDIATELY = ''

RELEASE = 'X'

NEW_LIST_ID = 'X'

  • EXPIRATION = DAYS

LINE_SIZE = 140

  • LINE_COUNT = 23

  • LAYOUT = 'X_PAPER'

  • SAP_COVER_PAGE = 'X'

  • RECEIVER = 'SAP*'

  • DEPARTMENT = 'System'

NO_DIALOG = 'X'

IMPORTING OUT_PARAMETERS = PARAMS

VALID = VALID.

IF VALID <> SPACE.

NEW-PAGE PRINT ON PARAMETERS PARAMS NO DIALOG.

write :/ 'Hello Message1'.

write :/ 'Hello Message2 '.

NEW-PAGE PRINT OFF .

ENDIF.

data : spool_no TYPE TSP01-RQIDENT .

spool_no = sy-spono.

DATA: itab TYPE TLINE,

witab TYPE TABLE OF TLINE,

output TYPE STRING,

outputx TYPE XSTRING.

data : l_pdf_len type i.

data: mi_bytecount type i.

DATA : APP_TYPE TYPE STRING VALUE 'APPLICATION/PDF' .

DATA: cached_response TYPE ref to if_HTTP_RESPONSE.

data : l_display_url type string .

data : guid type GUID_32 .

call function 'CONVERT_ABAPSPOOLJOB_2_PDF'

EXPORTING

SRC_SPOOLID = spool_no

NO_DIALOG = 'X'

IMPORTING

PDF_BYTECOUNT = mi_bytecount

TABLES

PDF = witab

EXCEPTIONS

ERR_NO_ABAP_SPOOLJOB = 1

ERR_NO_SPOOLJOB = 2

ERR_NO_PERMISSION = 3

ERR_CONV_NOT_POSSIBLE = 4

ERR_BAD_DESTDEVICE = 5

USER_CANCELLED = 6

ERR_SPOOLERROR = 7

ERR_TEMSEERROR = 8

ERR_BTCJOB_OPEN_FAILED = 8

ERR_BTCJOB_SUBMIT_FAILED = 9

ERR_BTCJOB_CLOSE_FAILED = 10

others = 11.

if sy-subrc EQ 0.

LOOP AT witab INTO itab.

CONCATENATE

output

itab-tdline

INTO output in character mode.

ENDLOOP.

endif.

CALL FUNCTION 'SCMS_STRING_TO_XSTRING'

EXPORTING

text = output

mimetype = 'APPLICATION/PDF'

IMPORTING

buffer = outputx.

concatenate cl_abap_char_utilities=>byte_order_mark_little

outputx

into outputx in byte mode.

response->set_header_field( name = 'content-type' value =

'APPLICATION/PDF; charset=utf-16le' ).

response->delete_header_field( name =

if_http_header_fields=>cache_control ).

response->delete_header_field( name = if_http_header_fields=>expires

).

response->delete_header_field( name = if_http_header_fields=>pragma )

.

response->set_header_field( name = 'content-disposition'

value = 'attachment; filename = TEST.PDF'

).

l_PDF_len = xstrlen( OUTPUTX ).

response->set_data( data = OUTPUTx

length = l_PDF_len ).

navigation->response_complete( ).

Regards

Amit Agrawal