Solved: Using Smartforms with SAP ITS

aarif_baig · ‎2015 Jul 14

Hi Abapers,

I have a requirement where in i need to publish smartform in PDF format with SAP ITS , is there anyone who has worked on similar requirement, Any help?

Code I am using to show the PDF is below

CALL METHOD cl_hrge_document_services=>show_pdf

EXPORTING

pdf_data_tab = it_lines

pdf_data_size = l_pdf_len

pdf_viewer = a_pdf_viewer

mess_handler = mess_handler

display_in_place = open_inplace

IMPORTING

is_ok = is_ok.

when I execute the code i am getting 'The report did not produce any data for the selections.'

Any suggestions???

Private_Member_7726 · ‎2015 Jul 15

I also created a little test program from SF_EXAMPLE_01 demo programm to illustrate using html viewer to display pdf; maybe it will give you an idea what's wrong with your:

*----------------------------------------------------------------------*
* Report SF_EXAMPLE_01
*----------------------------------------------------------------------*
* Printing of documents using Smart Forms
*----------------------------------------------------------------------*
REPORT zsf_example_01.

DATA: carr_id TYPE sbook-carrid,
fm_name TYPE rs38l_fnam.

PARAMETER:      p_custid TYPE scustom-id DEFAULT 1.
SELECT-OPTIONS: s_carrid FOR carr_id     DEFAULT 'LH' TO 'LH'.
PARAMETER:      p_form   TYPE tdsfname   DEFAULT 'SF_EXAMPLE_01' MODIF ID oon .
PARAMETERS:     p_ingui TYPE c AS CHECKBOX DEFAULT space .

DATA: customer    TYPE scustom,
      bookings    TYPE ty_bookings,
      connections TYPE ty_connections.

DATA: gs_control_parameters TYPE ssfctrlop,
      gs_output_options TYPE ssfcompop,
      gs_job_output_info TYPE ssfcrescl,
      g_len_int TYPE i,
      go_html_viewer TYPE REF TO cl_gui_html_viewer,
      g_url TYPE w3url,
      gt_pdf_text TYPE tsftext.

* get data
SELECT SINGLE * FROM scustom INTO customer WHERE id = p_custid.
CHECK sy-subrc = 0.
SELECT * FROM sbook INTO TABLE bookings
         WHERE customid = p_custid
         AND   carrid   IN s_carrid
         ORDER BY PRIMARY KEY.
SELECT * FROM spfli INTO TABLE connections
         FOR ALL ENTRIES IN bookings
         WHERE carrid = bookings-carrid
         AND   connid = bookings-connid
         ORDER BY PRIMARY KEY.

START-OF-SELECTION .
* print data
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = p_form
    IMPORTING
      fm_name            = fm_name
    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.

gs_control_parameters-getotf = 'X'. "get as otf
gs_output_options-tdnoprint = 'X'. "no <print> button

* now call the generated function module
CALL FUNCTION fm_name
    EXPORTING
      control_parameters = gs_control_parameters
      output_options     = gs_output_options
      customer           = customer
      bookings           = bookings
      connections        = connections
    IMPORTING
      job_output_info    = gs_job_output_info
    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.
ELSE .

    CALL FUNCTION 'CONVERT_OTF'
      EXPORTING
        format                = 'PDF'
      IMPORTING
        bin_filesize          = g_len_int
      TABLES
        otf                   = gs_job_output_info-otfdata[]
        lines                 = gt_pdf_text[]
      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.
    ELSE.

* Force changing to the LIST Processor dynpro *******************
WRITE space .
*****************************************************************

* create HTML viewer object
      CREATE OBJECT go_html_viewer
        EXPORTING
          parent = cl_gui_container=>default_screen.

* load PDF data (get URL)
     go_html_viewer->load_data(
        EXPORTING
          type                   = 'text'
          subtype                = 'pdf'
        IMPORTING
          assigned_url           = g_url
        CHANGING
          data_table             = gt_pdf_text
        EXCEPTIONS
          dp_invalid_parameter   = 1
          dp_error_general       = 2
          cntl_error             = 3
          html_syntax_notcorrect = 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.

* show HTML object with PDF
      go_html_viewer->show_url(
        EXPORTING
          url = g_url
          in_place = p_ingui
        EXCEPTIONS
          cntl_error = 1
          cnht_error_not_allowed = 2
          cnht_error_parameter = 3
          dp_error_general = 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.

* hide unnecessary GUI control
      IF p_ingui IS INITIAL .
        go_html_viewer->set_visible(
          EXPORTING
            visible           = cl_gui_container=>visible_false
          EXCEPTIONS
            cntl_error        = 1
            cntl_system_error = 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.
      ENDIF .
    ENDIF.
ENDIF.

AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN .
    IF screen-group1 = 'OON' .
      screen-input = 0 .
      MODIFY SCREEN .
    ENDIF .
ENDLOOP.

Private_Member_7726 · ‎2015 Jul 14

Hi,

If with "publish" you mean show the pdf (that's what cl_hrge_document_services=>show_pdf attempts to do) within "classic dynpro" so that displaying also works under SAP GUI for HTML, then you are on the right path.

You don't actually need that HR wrapper and can (and should, if there is no specific reason to use cl_hrge_document_services) call CL_GUI_HTML_VIEWER directly. Let me know if you need code sample for that.

cheers

Jānis

aarif_baig · ‎2015 Jul 14

Thanks Janis for the reply but I am getting a screen with message I already mentioned in the above post I don't know what exactly I am missing I have checked the smart form and it is looks perfectly fine still it is not displaying the result.

Private_Member_7726 · ‎2015 Jul 14

Then I guess you have to:

1) look where the message is coming from... debugging an so forth;

2) try to describe the problem better (I assumed "when I execute the code" refers to the code you posted - the cl_hrge_document_services call in other words)

The point about simply trying to use in custom code some obscure SAP standard class, which is not mentioned in the public interface of SAP package in question, to accomplish, I assume, nothing more than displaying pdf, still stands - it creates unnecessary and avoidable dependency.

cheers

Jānis

aarif_baig · ‎2015 Jul 15

Hi Janis,

Let me clarify, I have implemented the code and it does not give me any error, even the return code is_ok but i am not able to produce the PDF output instead it is starting a new window with message ' 'The report did not produce any data for the selections.''

Can you please share the code if you have and do check my code below

CREATE OBJECT PARENT

EXPORTING

CLSID = space

EXCEPTIONS

create_error = 1

others = 2.

if sy-subrc ne 0.

exit.

endif.

CREATE OBJECT A_PDF_VIEWER

EXPORTING

PARENT = PARENT

EXCEPTIONS

CNTL_ERROR = 1

CNTL_INSTALL_ERROR = 2

DP_INSTALL_ERROR = 3

DP_ERROR = 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.

CALL METHOD cl_hrge_document_services=>show_pdf

EXPORTING

pdf_data_tab = it_lines

pdf_data_size = l_pdf_len

pdf_viewer = a_pdf_viewer

mess_handler = mess_handler

display_in_place = open_inplace

IMPORTING

is_ok = is_ok.

Private_Member_7726 · ‎2015 Jul 15

Hi Aarif,

Please explain:

1) what are you trying to achieve (display pdf embedded in GUI or open a new browser window to display it)?

2) what kind of program does the functionality need to be integrated into (ABAP report, module pool with dynpro screens, something else like webdynpro application)?;

3) why do you believe you need to use cl_hrge_document_services to achieve it?

cheers

Jānis

aarif_baig · ‎2015 Jul 15

Hi Janis,

thanks for reply.

It is module pool program which is integrated with SAP ITS so we write the logic in module pool and pass on the values to HTML( ITS ) to show the data dynamically.

example :

module pool screen->100->go to layout editor->click on utilities go to Internet service template->create-> takes you to HTML editor and this is where HTML logic is written.

Currently there is button on the HTML side so if we click on that it will call sapcript in the back end abap program and right now it is converting the sapcript into pdf and showing the data.

I am trying to replace sapscript with smartforms and convert it into pdf in a similar way as above.

please suggest.

Private_Member_7726 · ‎2015 Jul 15

Hi,

Still quite difficult to get a picture of what might be going on... bear with me please

So, I assume there is a (report) program that used to handle converting SAP Script OTF output to pdf and displaying pdf, and now you have to replace that Sapscript with Smartform in that program, is that right? Which is also why you have no idea why cl_hrge_document_services is used to show pdf?

If that's the setup, I'd suggest to check if all the exceptions involved in calling smartform are handled properly (whether cl_hrge_document_services does indeed receive the pdf data).

Another question: was the SAPscript pdf opened in new browser window? It would be helpful, if you could attach the whole program handling the form or at least the fragment from calling sapscript/smartform to displaying pdf.

cheers

Jānis

Private_Member_7726 · ‎2015 Jul 15