Advertisement
depth1

PDF in Dynpro

Feb 13th, 2019
1,144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 2.64 KB | None | 0 0
  1.   set pf-status 'PF_STATUS_0200'.
  2.   set titlebar 'TITLE_0200'.
  3.  
  4.   data : lv_side_url(255) type c.
  5.   data : lo_side_cont type ref to cl_gui_custom_container.
  6.  
  7.   data : lo_side_html type ref to cl_gui_html_viewer.
  8.  
  9.   data : lt_bin_pdf type standard table of x255.
  10.   types : begin of ts_data,
  11.             data(255) type c,
  12.           end of ts_data,
  13.           tt_data type standard table of ts_data.
  14.  
  15.   data : lt_pdf type tt_data,
  16.          ls_pdf type ts_data.
  17.  
  18.  
  19.  
  20.   call function 'SCMS_XSTRING_TO_BINARY'
  21.     exporting
  22.       buffer     = gv_pdf
  23.     tables
  24.       binary_tab = lt_bin_pdf.
  25.  
  26.   create object lo_side_cont
  27.     exporting
  28.       container_name              = cv_cc_pdf
  29.     exceptions
  30.       cntl_error                  = 1
  31.       cntl_system_error           = 2
  32.       create_error                = 3
  33.       lifetime_error              = 4
  34.       lifetime_dynpro_dynpro_link = 5
  35.       others                      = 6.
  36.  
  37.   if sy-subrc <> 0.
  38.     message i021 with sy-msgv1 into gv_msg.
  39.     message i021 with sy-msgv1.
  40.     exit.
  41.   endif.
  42.  
  43.   create object lo_side_html
  44.     exporting
  45.       parent             = lo_side_cont
  46.     exceptions
  47.       cntl_error         = 1
  48.       cntl_install_error = 2
  49.       dp_install_error   = 3
  50.       dp_error           = 4
  51.       others             = 5.
  52.   if sy-subrc <> 0.
  53.     message i021 with sy-msgv1 into gv_msg.
  54.     message i021 with sy-msgv1.
  55.     exit.
  56.   endif.
  57.   call method lo_side_html->load_data
  58.     exporting
  59.       url                    = cv_url_pdf
  60.       type                   = cv_application_pdf
  61.       subtype                = cv_subtype_pdf
  62. *     size                   = 0
  63. *     encoding               =
  64. *     charset                =
  65. *     needfiltering          = 0
  66. *     language               =
  67. *     i_tidyt                =
  68.     importing
  69.       assigned_url           = lv_side_url
  70.     changing
  71.       data_table             = lt_bin_pdf
  72. *     iscontentchanged       =
  73.     exceptions
  74.       dp_invalid_parameter   = 1
  75.       dp_error_general       = 2
  76.       cntl_error             = 3
  77.       html_syntax_notcorrect = 4
  78.       others                 = 5.
  79.   if sy-subrc <> 0.
  80.     message i021 with sy-msgv1 into gv_msg.
  81.     message i021 with sy-msgv1.
  82.     exit.
  83.   endif.
  84.  
  85.  
  86.   call method lo_side_html->show_url
  87.     exporting
  88.       url                    = lv_side_url
  89.     exceptions
  90.       cntl_error             = 1
  91.       cnht_error_not_allowed = 2
  92.       cnht_error_parameter   = 3
  93.       dp_error_general       = 4
  94.       others                 = 5.
  95.   if sy-subrc <> 0.
  96.     message i021 with sy-msgv1 into gv_msg.
  97.     message i021 with sy-msgv1.
  98.     exit.
  99.   endif.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement