problem regarding script to pdf conversion

29 Views

Hi Experts ,

i am working on script , which i want to convert into pdf .

i am using the following coding.

*To specify Printername*

struct-tddest = 'LP'.

*To specify no Print Preview*

struct-tdnoprev = 'X'.

*To access the SAP Script output in OTF format*

struct-tdgetotf = 'X'.

PERFORM open_form .

*******************

CALL FUNCTION 'OPEN_FORM'

EXPORTING

* APPLICATION = 'TX'

* ARCHIVE_INDEX =

* ARCHIVE_PARAMS =

DEVICE = 'PRINTER'

DIALOG = 'SPACE'

FORM = 'ZEXCISEINVPRN'

LANGUAGE = SY-LANGU

OPTIONS = STRUCT

* MAIL_SENDER =

* MAIL_RECIPIENT =

* MAIL_APPL_OBJECT =

* RAW_DATA_INTERFACE = '*'

* SPONUMIV =

IMPORTING

LANGUAGE = sy-langu

* NEW_ARCHIVE_PARAMS =

RESULT = IT_CONT

EXCEPTIONS

********************

PERFORM close_form .

******************************

CALL FUNCTION 'CLOSE_FORM'

IMPORTING

* RESULT =

* RDI_RESULT =

TABLES

OTFDATA = DATAB[]

********************************

PERFORM CONVERT_PDF.

******************************

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

FORMAT = 'PDF'

** MAX_LINEWIDTH = 132

** ARCHIVE_INDEX = ' '

** COPYNUMBER = 0

** ASCII_BIDI_VIS2LOG = ' '

** PDF_DELETE_OTFTAB = ' '

** PDF_USERNAME = ' '

* IMPORTING

BIN_FILESIZE = BINFILESIZE

** BIN_FILE =

* TABLES

otf = DATAB[]

lines = PDFTAB[] ( chines like char , laguage pass to fm is "E" )

CALL METHOD cl_gui_frontend_services=>file_save_dialog

* EXPORTING

* window_title =

* default_extension =

* default_file_name =

* with_encoding =

* file_filter =

* initial_directory =

* prompt_on_overwrite = 'X'

CHANGING

filename = FILE_NAME

path = FILE_PATH

fullpath = FULL_PATH

* user_action =

* file_encoding =

EXCEPTIONS

cntl_error = 1

error_no_gui = 2

not_supported_by_gui = 3

others = 4

.

IF sy-subrc <> 0.

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

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

ENDIF.

concatenate FULL_PATH '.pdf' into full_path.

****DOWNLOAD

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE = BINFILESIZE

filename = FULL_PATH "FILE_NAME " 'D:\T1.pdf'

FILETYPE = 'BIN'

* APPEND = 'X'

* WRITE_FIELD_SEPARATOR = ' '

* HEADER = '00'

* TRUNC_TRAILING_BLANKS = ' '

* WRITE_LF = 'X'

* COL_SELECT = ' '

* COL_SELECT_MASK = ' '

* DAT_MODE = ' '

* CONFIRM_OVERWRITE = ' '

* NO_AUTH_CHECK = ' '

* CODEPAGE = ' '

* IGNORE_CERR = ABAP_TRUE

* REPLACEMENT = '#'

* WRITE_BOM = ' '

* TRUNC_TRAILING_BLANKS_EOL = 'X'

* WK1_N_FORMAT = ' '

* WK1_N_SIZE = ' '

* WK1_T_FORMAT = ' '

* WK1_T_SIZE = ' '

* WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE

* SHOW_TRANSFER_STATUS = ABAP_TRUE

* IMPORTING

* FILELENGTH =

tables

data_tab = PDFTAB[]

* FIELDNAMES =

EXCEPTIONS

**********************************

currently using ECC6

1. in debugger when we check the "convert_pdf " function module

the output table show chines like character in pdftab[].

2. The pdf format is generated but no values dispaly in the pdf file.

only text which are defined in the script like " delivery no" "date " etc.

shows but no data .

kindly help to solve the problem.

with thanks and regards,

vikas