Converting Smartform in to PDF-Reg

Question

Hi,
We have a issue.
When we try to convert the SAP Script or Smart form in to PDF file using standard program,its not converting the BARCODES properly.
What could be the reason and how to acheive it.
Regards
A.Sureshbabu

Answer 1

Hi,
check this..
    DATA:
    w_form_name TYPE tdsfname VALUE '<your form name>',
    w_fmodule TYPE rs38l_fnam,
    w_cparam TYPE ssfctrlop,
    w_outoptions TYPE ssfcompop,
    w_bin_filesize TYPE i, " Binary File Size
    w_file_name TYPE string,
    w_file_path TYPE string ,
    w_full_path TYPE string .
*   Internal tables declaration
*   Internal table to hold the OTF data
    DATA:  t_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
*Internal table to hold OTF data recd from the SMARTFORM
      t_otf_from_fm TYPE ssfcrescl,
*Internal table to hold the data from the FM CONVERT_OTF
      t_pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname           = w_form_name
        variant            = ' '
        direct_call        = ' '
      IMPORTING
        fm_name            = w_fmodule
      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.
*    Calling the SMARTFORM using the function module retrieved above
*GET_OTF parameter in the CONTROL_PARAMETERS is set to get the OTF
*format of the output:
    w_cparam-no_dialog = 'X'.
    w_cparam-preview = space. " Suppressing the dialog box
    " for print preview
    w_cparam-getotf = 'X'.
*   Printer name to be used is provided in the export parameter
*OUTPUT_OPTIONS
    w_outoptions-tddest = 'LOCL'.
    CALL FUNCTION w_fmodule
    EXPORTING
       wa_ekko                 = wa_ekko
         wa_adrc                 = wa_adrc
         wa_ecc                  = wa_ecc
         wa_range1               = wa_range1
         wa_range2               = wa_range2
         wa_bednr                = wa_bednr
         wa_banfn                = wa_banfn
         wa_revno                = wa_revno
         wa_vat                  = wa_vat
         wa_cst                  = wa_cst
         count                   = count
         wa_slfdt                = wa_slfdt
         wa_menge1               = wa_menge1
         wa_menge                = wa_menge
         wa_telfx                =  wa_telfx
         wa_month                = wa_month
         wa_year                 = wa_year
         wa_ernam                = wa_ernam
         wa_email                = wa_email
         wa_adrc_copy            = wa_adrc_copy
         wa_pspel                = wa_pspel
         wa_werks                = wa_werks
*        ARCHIVE_INDEX =
*        ARCHIVE_INDEX_TAB =
*        ARCHIVE_PARAMETERS =
        control_parameters = w_cparam
*        MAIL_APPL_OBJ =
*        MAIL_RECIPIENT =
*        MAIL_SENDER =
         output_options = w_outoptions
         user_settings = 'X'
        IMPORTING
        job_output_info = t_otf_from_fm
*        DOCUMENT_OUTPUT_INFO =
        TABLES
         it_eket                = it_eket
         it_text                = it_text
         line                   = line
         it_adrc_new            = it_adrc_new
         it_esll                = it_esll
*     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_otf_from_fm-otfdata[].
*Function Module CONVERT_OTF is used to convert the OTF format to PDF
    DATA : w_archive LIKE     toa_dara VALUE space.
    CALL FUNCTION 'CONVERT_OTF'
      EXPORTING
        format                = 'PDF'
        max_linewidth         = 132
        archive_index         = w_archive
        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.
*    to display file save dialog window
    CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
*     window_title =
*     default_extension =
*     default_file_name =
*     file_filter =
     initial_directory = '<file path>'
*     with_encoding =
    prompt_on_overwrite = 'X'
    CHANGING
    filename = w_file_name
    path = w_file_path
    fullpath = w_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.
*    use the fm gui_download to download the generated pdf file onto the
*    presentation server
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        bin_filesize              = w_bin_filesize
        filename                  = w_full_path
        filetype                  = 'BIN'
        append                    = ' '
        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                = ' '
*      IMPORTING
*        filelength                =
        TABLES
        data_tab                  = t_pdf_tab
*        fieldnames                =
        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
        OTHERS                    = 22.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*  ENDIF.
  ENDIF.
ENDFORM.                    " SUB_PRINT_DATA
Arunima