Classic Dynpro – Display a PDF Document

So.. this is an older way to code things. Please do add things at the bottom of the post – you know things like the objects that could have been used. It will help people on the newer versions.

The project: Create something that can save, create, upload, and e-mail documents. It should be easy to use.

The save, retrieve and e-mail part of the project was covered with my first blog.That was a multi-purpose blog begging people to create information on SAP Community again.

So first off – here is the first screen again.

This screen was created using fields, buttons, a table control, a subs screen and  a custom control box.

For the table control – use the wizard to create it. Make the lines selectable, and clickable.

For the subscreen – it was an easy way to create the select options and be able to save parameters.  I created a normal report program for that piece.  Because it was in a different program, I had to send the fields to the main dynpro program:  I filled global fields.

      PERFORM fill_parameters(sapmzdoc)  TABLES so_crt
                                          USING kunnr
                                                lifnr
                                                 p_ddes
                                                 p_doc
                                                 p_item
                                                 ' '.

Back to the dynpro:

  CALL SUBSCREEN parmaeters.

Then I called the modify module ON CHAIN-REQUEST..  Where I retrieved the line from the table control:

  GET CURSOR FIELD field_name LINE line_number.
  line_number = tc_300-top_line + line_number - 1.

Next – The user command, on this part, they probably want the PDF displayed first. To retrieve the PDF. I simply recreate the file name based on the key entries.  I select that from a Z table.  Next the standard Open / do / read / close

* get the data
  OPEN DATASET docs-file_name FOR INPUT IN BINARY MODE.

  IF sy-subrc <> 0.
    CONCATENATE 'Could not open file' docs-file_name
        INTO message SEPARATED BY space.
    EXIT.
  ENDIF.

  DO.
    READ DATASET docs-file_name INTO pdf LENGTH lv_size.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    pdf_size = pdf_size + lv_size.
    APPEND pdf.
  ENDDO.

  CLOSE DATASET docs-file_name.

So I’ve got the “PDF”.   Let’s display it in that container.

  TYPES: lt_pdf_line(134) TYPE c.
  DATA:  l_url(80)        TYPE c,
         l_pdf_data       TYPE STANDARD TABLE OF lt_pdf_line.

  l_pdf_data[] = p_pdf[].

* transfer data to data provider
  CALL METHOD pdf_html_control->load_data
    EXPORTING
      url          = 'smart.pdf'
      size         = pdf_size
      type         = 'text'
      subtype      = 'pdf'
    IMPORTING
      assigned_url = l_url
    CHANGING
      data_table   = l_pdf_data[]
    EXCEPTIONS
      OTHERS = 1.
  IF sy-subrc <> 0.
    message = 'Internal IT error'.
  ENDIF.

* show data
  CALL METHOD pdf_html_control->show_data
    EXPORTING
      url = l_url
    EXCEPTIONS
      OTHERS = 1.
  IF sy-subrc <> 0.
    message = 'Internal IT error'.
  ENDIF.

Done – it is displayed!  The e-mail screen looks like this. The details to send the e-mail are in the previous blog.

The message will be displayed at the top of the screen. Similar to our webpage. The user can type anything they want in the body.  Send e-mail and a list of the partner external addresses are displayed to determine which one(s) they want the mail to go to. There is also an option to send the e-mail only to yourself.

Again – new objects – different way of doing things? I would love to read about them!