PDF With Password Protection

PDF with Password protection
inShare
1: convert otf to pdf file 2: download pdf file into application server 3:encrypt pdf file with password protect 4:upload pdf file from application server 5:send mail OTR TO PDF FORM pdf . CLEAR gt_otf. REFRESH gt_otf . gt_otf[] = it_otfdata[]. * Convert the OTF DATA to SAP Script Text lines CLEAR gt_pdf_tab. CALL FUNCTION 'CONVERT_OTF' EXPORTING format max_linewidth IMPORTING bin_filesize * BIN_FILE TABLES otf lines EXCEPTIONS = gv_bin_filesize = = gt_otf = gt_pdf_tab =1 =2 = 'PDF' = 132
err_max_linewidth err_format
err_conv_not_possible =3 err_bad_otf =4 OTHERS IF sy-subrc <> 0. = 5.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. PERFORM download. PERFORM pssword_prot_encryptpdf . PERFORM send_mail. ENDFORM.
Then download pdf file into application server using following code
FORM download . * DATA: l_file TYPE string . CONCATENATE 'd:\pdf/' main_dtl-vbeln '.PDF' INTO l_file. OPEN DATASET l_file FOR OUTPUT IN BINARY MODE . IF sy-subrc = 0 . LOOP AT gt_pdf_tab. TRANSFER gt_pdf_tab TO l_file . ENDLOOP. CLOSE DATASET l_file . ELSE. WRITE : / 'operating system could not open file' . ENDIF. ENDFORM.
Then use command line mode Encryptpdf, from verypdf.com, so successfuly file encrypted and password protected. Also you have to create external operating system command (SM69)
ZTEST is external command
FORM pssword_prot .
DATA: BEGIN OF command_list OCCURS 0. INCLUDE STRUCTURE sxpgcolist. DATA: END OF command_list .
DATA: BEGIN OF exec_protocol OCCURS 0. INCLUDE STRUCTURE btcxpm. DATA: END OF exec_protocol. DATA: status LIKE btcxp3-exitstat, commandname LIKE sxpgcolist-name VALUE 'ZTEST',
sel_no LIKE sy-tabix.

* GET LIST OF EXTERNAL COMMANDS CALL FUNCTION 'SXPG_COMMAND_LIST_GET' EXPORTING commandname = commandname operatingsystem = sy-opsys TABLES command_list = command_list EXCEPTIONS
OTHERS
= 1.
CALL FUNCTION 'SXPG_COMMAND_CHECK' EXPORTING commandname = command_list-name operatingsystem = sy-opsys EXCEPTIONS no_permission =1 command_not_found =2 parameters_too_long =3 security_risk =4 wrong_check_call_interface = 5 x_error =6 too_many_parameters =7 parameter_expected =8 illegal_command =9 communication_failure = 10 system_failure = 11 OTHERS = 12. CLEAR command_list. REFRESH command_list. DATA: v_dir_input TYPE sxpgcolist-parameters. DATA: v_dir_input1 TYPE sxpgcolist-parameters.
command_list-name = 'ZTEST'. command_list-opsystem = 'Windows NT'.

DATA : doc TYPE string. data : pass type string . Doc = invoice.
Pass 123456.
CONCATENATE 'd:\pdf\' doc'.PDF' INTO name. CONCATENATE 'cmd /c d:\pdf\encryptpdf.exe' '-i' name '-o ' name 'u' pass INTOv_dir_input SEPARATED BY space . READ TABLE command_list INDEX sel_no. CONCATENATE command_list-opcommand v_dir_input INTO command_listopcommand SEPARATED BY space.
* CHECK AUTHORIZATION command_list-addpar = 'X'. APPEND command_list. . CONSTANTS: c_extcom TYPE sxpgcolist-name VALUE 'ZTEST', c_oper TYPE syopsys VALUE 'Windows NT'. DATA: t_result TYPE STANDARD TABLE OF btcxpm. v_dir_input = command_list-opcommand.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE' EXPORTING commandname additional_parameters operatingsystem TABLES exec_protocol EXCEPTIONS no_permission command_not_found parameters_too_long security_risk =4 =5 =1 =2 =3 = t_result = c_extcom = v_dir_input = c_oper
wrong_check_call_interface program_start_error
=6 =7
program_termination_error x_error parameter_expected too_many_parameters =8 =9
= 10
illegal_command
= 11
wrong_asynchronous_parameters = 12 cant_enq_tbtco_entry jobcount_generation_error OTHERS = 15. = 13 = 14
* ENDFORM. FORM send_mail . You can open file using following logic DATA : doc TYPE string . DATA: pdf TYPE REF TO cl_hrasr00_pdf_generation. DATA : lt_data TYPE solix_tab DATA : doc TYPE string. Doc = invoice. filename = name. IF NAME IS INITIAL. CONCATENATE 'd:\pdf\' doc '.PDF' INTO name. filename = name. ENDIF .
OPEN DATASET filename FOR INPUT IN BINARY MODE. IF sy-subrc EQ 0. READ DATASET filename INTO filex. * CLOSE DATASET filename. ENDIF.
After that using following Functional module you can send file CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' ENDFORM. " SEND_MAIL

PDF With Password Protection

Uploaded by

PDF With Password Protection

Uploaded by

PDF with Password protection

err_conv_not_possible =3 err_bad_otf =4 OTHERS IF sy-subrc <> 0. = 5.

ZTEST is external command

sel_no LIKE sy-tabix.

command_list-name = 'ZTEST'. command_list-opsystem = 'Windows NT'.

program_termination_error x_error parameter_expected too_many_parameters =8 =9

wrong_asynchronous_parameters = 12 cant_enq_tbtco_entry jobcount_generation_error OTHERS = 15. = 13 = 14

You might also like