CONVERT_RTF_TO_ITF

[Former Member]

Hi Experts,

Can any one give code How to Use This Function Module CONVERT_RTF_TO_ITF.I mean what are the parametrs need to pass to the Function Module.Plz give the Code.

[Former Member]

Hi Experts,

Can any one give code How to Use This Function Module CONVERT_RTF_TO_ITF.I mean what are the parametrs need to pass to the Function Module.Plz give the Code.

[Former Member]

Function Module CONVERT_RTF_TO_ITF

Short Text

Text Conversion RFT to ITF (SAPscript Format)

RTF text (Rich Text Format) in table X_DATATAB of size in bytes X_SIZE is converted into the internal SAPscript text format ITF in result table ITF_LINES.

For the print formats (parameters concerned are SSHEET, WITH_TAB, and WITH_TAB_E) refer to the parameter documentation.

In the HEADER field you must specify the language (HEADER-TDSPRAS); HEADER-TDSTYLE and HEADER-TDFORM are relevant only if a print format conversion ( WITH_TAB = 'X') is concerned.

Parameters

HEADER

SSHEET

WITH_TAB

MASK_BRACKETS

X_DATATAB

X_SIZE

WITH_TAB_E

ITF_LINES

Exceptions

INVALID_TABLETYPE

MISSING_SIZE

Regards.

[Former Member]

Hi Shiva

i am sending you the solution:-

CALL FUNCTION 'CONVERT_RTF_TO_ITF'

EXPORTING

header =

• SSHEET = ' '

• WITH_TAB = ' '

• MASK_BRACKETS = 'X'

x_datatab =

x_size =

• IMPORTING

• WITH_TAB_E =

tables

itf_lines =

• EXCEPTIONS

• INVALID_TABLETYPE = 1

• MISSING_SIZE = 2

• OTHERS = 3

.

IF sy-subrc <> 0.

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

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

ENDIF.

Pls pls reward pts.

happy new year in advance.

Regards

deepanker

[Former Member]

Hi,

this is the sample code which i did.Have a look on that

DATA: FM_NAME TYPE RS38L_FNAM.

DATA: WA_CTRLOP TYPE SSFCTRLOP, "Smartform control structure

WA_OUTOPT TYPE SSFCOMPOP, "Smart Composer Options

T_OTFDATA TYPE SSFCRESCL, "Return value at end of form printing

T_PDF_TAB LIKE TLINE OCCURS 0 WITH HEADER LINE. "SAP Acripts: Text lines

DATA: T_OTF TYPE ITCOO OCCURS 0 WITH HEADER LINE, "OTF Structure

W_FILESIZE TYPE I,

W_BIN_FILESIZE TYPE I.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZCS_FORM6'

• VARIANT = ' '

• DIRECT_CALL = ' '

IMPORTING

FM_NAME = FM_NAME

• EXCEPTIONS

• NO_FORM = 1

• NO_FUNCTION_MODULE = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

WA_CTRLOP-GETOTF = 'X'. "Return of OTF Table.No printing,display,or faxing

WA_CTRLOP-NO_DIALOG = 'X'. "SAP Smartform: General indicator

WA_OUTOPT-TDNOPREV = 'X'. "No print preview

CALL FUNCTION FM_NAME " '/1BCDWB/SF00000699'

EXPORTING

• ARCHIVE_INDEX =

• ARCHIVE_INDEX_TAB =

• ARCHIVE_PARAMETERS =

CONTROL_PARAMETERS = WA_CTRLOP

• MAIL_APPL_OBJ =

• MAIL_RECIPIENT =

• MAIL_SENDER =

OUTPUT_OPTIONS = WA_OUTOPT

USER_SETTINGS = 'X'

IMPORTING

• DOCUMENT_OUTPUT_INFO =

JOB_OUTPUT_INFO = T_OTFDATA

• JOB_OUTPUT_OPTIONS =

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 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.

T_OTF[] = T_OTFDATA-OTFDATA[].

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

FORMAT = 'PDF'

MAX_LINEWIDTH = 132

• ARCHIVE_INDEX = ' '*

• COPYNUMBER = 0*

• ASCII_BIDI_VIS2LOG = ' '*

• PDF_DELETE_OTFTAB = ' '*

IMPORTING

BIN_FILESIZE = W_BIN_FILESIZE

• BIN_FILE =*

TABLES

OTF = T_OTF

LINES = T_PDF_TAB

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.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

BIN_FILESIZE = W_BIN_FILESIZE

• CODEPAGE = ' '

FILENAME = 'D:\TEST11.PDF'

FILETYPE = 'BIN'

• MODE = ' '

• WK1_N_FORMAT = ' '

• WK1_N_SIZE = ' '

• WK1_T_FORMAT = ' '

• WK1_T_SIZE = ' '

• COL_SELECT = ' '

• COL_SELECTMASK = ' '

• NO_AUTH_CHECK = ' '

IMPORTING

FILELENGTH = W_FILESIZE

TABLES

DATA_TAB = T_PDF_TAB

• FIELDNAMES =

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_WRITE_ERROR = 2

INVALID_FILESIZE = 3

INVALID_TYPE = 4

NO_BATCH = 5

UNKNOWN_ERROR = 6

INVALID_TABLE_WIDTH = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

NO_AUTHORITY = 10

OTHERS = 11

.

IF SY-SUBRC = 0.

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

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

WRITE:/ 'THE PDF FILE IS SUCCESSFULLY CONVERTED'.

ENDIF.

up to my knoledge,both "CONVERT_RTF_TO_ITF" and "CONVERT_OTF" doing the same job.

If it is helpful reward point.

Thank you

chandu