Skip to Content

This code will generate a PDF based on a smartform and will encrypt it with a password.

Some prerequisites are necessary:

  1. It is necessary to upload the jar (available here) to the application server either using the server filesystem or using the tcode CG3Z.
  2. Create a custom command under SM69 (Fill in the correct path to the jar file)

Untitled.png

Example source code:


data: l_formulario              type tdsfname,

       l_fun                     type rs38l_fnam,

       v_language                type sflangu,

       v_e_devtype               type rspoptype,

       st_output_options         type ssfcompop,

       st_control_parameters     type ssfctrlop,

       st_document_output_info   type ssfcrespd,

       st_job_output_info        type ssfcrescl,

       st_job_output_options     type ssfcresop,

       otf_data                  type tsfotf,

       gd_buffer                 type string,

       v_bin_filesize            type i,

       it_docs                   type standard table of docs,

       it_lines                  type standard table of tline,

       wa_lines                  like line of it_lines,

       l_file                    type string,

       it_params                 type table of btcxpgpar,

       wa_params                 like line of it_params,

       l_cmd                     like sxpgcolistname,

       unique_name               type sysuuid_c.

v_language = sylangu.

CALL FUNCTION ‘SSF_GET_DEVICE_TYPE’

   EXPORTING

     i_language    = v_language

     i_application = ‘SAPDEFAULT’

   IMPORTING

     e_devtype     = v_e_devtype.

st_output_optionstdprinter = v_e_devtype.

st_control_parametersno_dialog = ‘X’.

st_control_parametersgetotf = ‘X’.

l_formulario = ‘Z_TESTE_AJV’.

CALL FUNCTION ‘SSF_FUNCTION_MODULE_NAME’

   EXPORTING

     formname           = l_formulario

   IMPORTING

     fm_name            = l_fun

   EXCEPTIONS

     no_form            = 1

     no_function_module = 2

     OTHERS             = 3.

CALL FUNCTION l_fun

   EXPORTING

     control_parameters   = st_control_parameters

     output_options       = st_output_options

   IMPORTING

     document_output_info = st_document_output_info

     job_output_info      = st_job_output_info

     job_output_options   = st_job_output_options

   EXCEPTIONS

     formatting_error     = 1

     internal_error       = 2

     send_error           = 3

     user_canceled        = 4

     OTHERS               = 5.

otf_data = st_job_output_infootfdata.

CALL FUNCTION ‘CONVERT_OTF_2_PDF’

   IMPORTING

     bin_filesize           = v_bin_filesize

   TABLES

     otf                    = otf_data

     doctab_archive         = it_docs

     lines                  = it_lines

   EXCEPTIONS

     err_conv_not_possible  = 1

     err_otf_mc_noendmarker = 2

     OTHERS                 = 3.

CALL FUNCTION ‘SYSTEM_UUID_C_CREATE’

   IMPORTING

     UUID = unique_name.

CONCATENATE  ‘D:\usr\sap\DA1\DVEBMGS00\work\’ unique_name ‘.PDF’ INTO l_file.

OPEN DATASET l_file FOR OUTPUT IN BINARY MODE  .

IF  sysubrc = 0 .

   LOOP AT it_lines into wa_lines.

     TRANSFER wa_lines TO l_file .

   ENDLOOP.

   CLOSE DATASET l_file  .

   ” password <space> file

   CONCATENATE ‘12345’ l_file into wa_params SEPARATED BY space.

   l_cmd = ‘Z_PDF_ENCRYPT’.

   CALL FUNCTION ‘SXPG_COMMAND_EXECUTE’

     EXPORTING

       COMMANDNAME           = l_cmd

       ADDITIONAL_PARAMETERS = wa_params

     EXCEPTIONS

       OTHERS                = 15.

   IF SYSUBRC = 0.

     close dataset l_file.

     OPEN DATASET l_file FOR INPUT IN BINARY MODE.

     IF sysubrc EQ 0.

       refresh it_lines.

       DO.

         clear wa_lines.

         READ DATASET l_file INTO wa_lines.

         IF sysubrc = 0.

           append wa_lines to it_lines.

         else.

           IF wa_lines is not INITIAL.

             append wa_lines to it_lines.

           ENDIF.

           exit.

         ENDIF.

       ENDDO.

       CLOSE DATASET l_file.

       ” send PDF by email / save as pdf …

       call function ‘GUI_DOWNLOAD’

         EXPORTING

           filename = ‘C:\TEMP\B.PDF’

           filetype = ‘BIN’

         TABLES

           data_tab = it_lines

         EXCEPTIONS

           OTHERS   = 15.

     ENDIF.

   ENDIF.

   ” remove temp file from app server

   delete DATASET l_file.

ENDIF.

To report this post you need to login first.

8 Comments

You must be Logged on to comment or reply to a post.

Leave a Reply