pdf format..

Former Member — Wed, 30 Jul 2008 11:09:07 GMT

Hi ,

I want to convert the output into pdf format hw to achieve this and also i want to save this in application server....

If possible plz provide code.. for doing so..

Thanks & Regards

Ashu Singh

Re: pdf format..

Former Member — Wed, 30 Jul 2008 11:11:29 GMT

Re: pdf format..

former_member198357 — Wed, 30 Jul 2008 11:11:35 GMT

Which output you want to convert in PDF smartform/sap script

Re: pdf format..

Former Member — Wed, 30 Jul 2008 11:11:53 GMT

use this fm: 'CONVERT_OTF_2_PDF'...

Please go throught the code ... this is my salary sending program to all the employees as pdf attach file of his salary breakup ...... it was so clear how the data is converted in th pdf format .... and more understanding way the internal tables are declared ....

DATA W_OPTIONS LIKE ITCPO OCCURS 0 WITH HEADER LINE.

DATA : z_itcpp LIKE itcpp OCCURS 0 WITH HEADER LINE.

DATA : otfdt like ITCOO OCCURS 0 WITH HEADER LINE.

DATA : pdfdt like TLINE OCCURS 0 with header line.

DATA: NUMBYTES TYPE I.

DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.

DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.

DATA: OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.

DATA: DOC_CHNG LIKE SODOCCHGI1.

DATA: TAB_LINES LIKE SY-TABIX.

DATA: Begin of i_errors occurs 0,

type(1) type c,

descr(100) type c,

End of i_errors.

w_options-tdprinter = 'POSTSCPT'.

W_options-TDRDIDEV = 'XP45'.

W_options-TDGETOTF = 'X'.

APPEND W_options.

call function 'OPEN_FORM'

exporting

device = 'PRINTER'

dialog = ' '

form = 'ZHRPAYSLIP'

language = sy-langu

options = w_options

IMPORTING
LANGUAGE =
NEW_ARCHIVE_PARAMS =
RESULT =

exceptions

canceled = 1

device = 2

form = 3

options = 4

unclosed = 5

mail_options = 6

archive_error = 7

invalid_fax_number = 8

more_params_needed_in_batch = 9

others = 10 .

CALL FUNCTION 'CLOSE_FORM'

IMPORTING

RDI_RESULT =

TABLES

OTFDATA = otfdt

EXCEPTIONS

UNOPENED = 1

BAD_PAGEFORMAT_FOR_PRINT = 2

SEND_ERROR = 3

OTHERS = 4.

EXPORT otfdt TO MEMORY ID 'PDFT'.

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

FORMAT = 'PDF'

MAX_LINEWIDTH = 132
ARCHIVE_INDEX = ' '
COPYNUMBER = 0
ASCII_BIDI_VIS2LOG = ' '
PDF_DELETE_OTFTAB = ' '

IMPORTING

BIN_FILESIZE = NUMBYTES

BIN_FILE =

TABLES

otf = otfdt

lines = pdfdt

EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
ERR_BAD_OTF = 4
OTHERS = 5

IF sy-subrc 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF .

Refresh OBJTXT. clear OBJTXT.

Refresh OBJPACK. clear OBJPACK.

Refresh objbin. clear objbin.

Refresh OBJHEAD. clear OBJHEAD.

Refresh RECLIST. Clear RECLIST.

Creation of the document to be sent
File Name

DOC_CHNG-OBJ_NAME = 'PAYSLIP'.

Mail Subject

DOC_CHNG-OBJ_DESCR = 'Payslip'.

Mail Contents

OBJTXT = 'This e-mail was sent from an automated system...'.

APPEND OBJTXT.

OBJTXT = 'Do not reply to this message.'.

APPEND OBJTXT.

OBJTXT = 'Please open the attachment to view the Payslip'.

APPEND OBJTXT.

OBJTXT = ''.

APPEND OBJTXT.

if not msgtxt1 is initial.

OBJTXT = msgtxt1.

APPEND OBJTXT.

endif.

if not msgtxt2 is initial.

OBJTXT = msgtxt2.

APPEND OBJTXT.

endif.

if not msgtxt3 is initial.

OBJTXT = msgtxt3.

APPEND OBJTXT.

endif.

DESCRIBE TABLE OBJTXT LINES TAB_LINES.

READ TABLE OBJTXT INDEX TAB_LINES.

DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).

Creation of the entry for the compressed document

CLEAR OBJPACK-TRANSF_BIN.

OBJPACK-HEAD_START = 1.

OBJPACK-HEAD_NUM = 0.

OBJPACK-BODY_START = 1.

OBJPACK-BODY_NUM = TAB_LINES.

OBJPACK-DOC_TYPE = 'RAW'.

APPEND OBJPACK.

Creation of the document attachment

CALL FUNCTION 'QCE1_CONVERT'

TABLES

t_source_tab = pdfdt

t_target_tab = objbin

EXCEPTIONS

convert_not_possible = 1

OTHERS = 2.

describe table objbin lines tab_lines.

OBJHEAD = 'Payslip.PDF'.

APPEND OBJHEAD.

Creation of the entry for the compressed attachment

OBJPACK-TRANSF_BIN = 'X'.

OBJPACK-HEAD_START = 1.

OBJPACK-HEAD_NUM = 1.

OBJPACK-BODY_START = 1.

OBJPACK-BODY_NUM = TAB_LINES.

OBJPACK-DOC_TYPE = 'PDF'.

OBJPACK-OBJ_NAME = 'Payslip'.

OBJPACK-OBJ_DESCR = 'Payslip'.

OBJPACK-DOC_SIZE = TAB_LINES * 255.

APPEND OBJPACK.

Completing the recipient list
Read table i_pa0105 with key pernr = pernr-pernr binary search.

loop at i_pa0105 where pernr = pernr-pernr and USRTY = '0010'.

endloop.

if sy-subrc = 0.

RECLIST-RECEIVER = i_pa0105-USRID_LONG.

RECLIST-REC_TYPE = 'U'.

APPEND RECLIST.

endif.

if RECLIST[] is initial.

loop at i_pa0105 where pernr = pernr-pernr and USRTY = 'MAIL'.

endloop.

if sy-subrc = 0.

RECLIST-RECEIVER = i_pa0105-USRID.

RECLIST-REC_TYPE = 'U'.

APPEND RECLIST.

endif.

if not RECLIST[] is initial.

Sending the document

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = DOC_CHNG

PUT_IN_OUTBOX = ''

COMMIT_WORK = 'X'

TABLES

PACKING_LIST = OBJPACK

OBJECT_HEADER = OBJHEAD

CONTENTS_BIN = OBJBIN

CONTENTS_TXT = OBJTXT

RECEIVERS = RECLIST

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

OPERATION_NO_AUTHORIZATION = 4

OTHERS = 99.

CASE SY-SUBRC.

WHEN 0.

LOOP AT RECLIST.

Concatenate pernr-pernr '-' RECLIST-RECEIVER(48)

into error1.

IF RECLIST-RETRN_CODE = 0.

Concatenate error1 ': The document was sent' into

error1.

i_errors-descr = pernr-pernr.

i_errors-type = 'S'.

append i_errors.

ELSE.

Concatenate error1 ': The document could not be

sent' into error1.

i_errors-descr = error1.

i_errors-type = 'E'.

append i_errors.

ENDIF.

ENDLOOP.

WHEN 1.

Concatenate pernr-pernr '-' RECLIST-RECEIVER(48) into

error1.

Concatenate error1 ': No authorization for sending to the

recipients' into error1.

i_errors-descr = error1.

i_errors-type = 'E'.

append i_errors.

WHEN 2.

Concatenate pernr-pernr '-' RECLIST-RECEIVER(48) into

error1.

Concatenate error1 ': Document could not be sent to the

recipient' into error1.

i_errors-descr = error1.

i_errors-type = 'E'.

append i_errors.

WHEN 4.

Concatenate pernr-pernr '-' RECLIST-RECEIVER(48) into

error1.

Concatenate error1 ': No send authorization' into error1.

i_errors-descr = error1.

i_errors-type = 'E'.

append i_errors.

WHEN OTHERS.

Concatenate pernr-pernr '-' RECLIST-RECEIVER(48) into

error1.

Concatenate error1 ': Error occurred while sending' into

error1.

i_errors-descr = error1.

i_errors-type = 'E'.

append i_errors.

ENDCASE.

else.

error1 = pernr-pernr.

Concatenate error1 ': Maintain Infotype 0105.' into error1.

i_errors-descr = error1.

i_errors-type = 'M'.

append i_errors.

endif.

Re: pdf format..

Former Member — Wed, 30 Jul 2008 11:12:14 GMT

call Function CONVERT_OTF with format 'PDF' , will take the OTF data and gives you the PDF data. save that in application server.

using open dataset in Binary mode, and transfer the data

to the application server file./

Re: pdf format..

Former Member — Wed, 30 Jul 2008 11:16:13 GMT

Hi ashu,

CONVERT_OTFSPOOLJOB_2_PDF converts a OTF spool to PDF (i.e. Sapscript document)

Regards,

Sravanthi

Re: pdf format..

Former Member — Wed, 30 Jul 2008 11:23:18 GMT

first convert form into PDF formate as suggested you than i

Hope OPEN DATASET , READ DATASET and TRANSFER DATASET won't

work out for PDF file format.

You can download the PDF to the presentation server first and using CG3Y/CG3Z Toced later you can move to Application server.

Amit.

topic Re: pdf format.. in Application Development and Automation Discussions

pdf format..

Re: pdf format..

Re: pdf format..

Re: pdf format..

Re: pdf format..

Re: pdf format..

Re: pdf format..