Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
former_member217447
Discoverer
1,378

Hi,

just want to share my findings and code regarding the topic.

Recently I've been working on the functionality which would allow our users to interact with the Smartform's text (which is usually comes from SO10 texts) before it is passed on to the Smartform function.

We already have gone through some iterations of implementation. First we have delivered it using standard simple text edit gui component which was fine from the technical side but was not good enough from the user's perspective as the initial SO10's formatting was lost ones text have been processed using text edit.

The next iteration was logical one. We have switched from text edit to CL_GUI_SAPSCRIPT_EDITOR, which give a native SO10 text editing environment. The issue with this editor though is that you have to provide a suitable style during initialization. We can always init it with style SYSTEM but our approach was to limit user's formatting options down to the ones supported by particular smartform.

So this post is about how we are getting style name from the smartform.

Bellow is the form's code which determines the proper smartstyle name based on the smartform name. Hope it will help some of you. If you have any better solution, please share here.

FORM get_form_smartstyle USING    p_form        TYPE tdsfname

                          CHANGING cp_smartstyle TYPE tdssname.

   DATA:

       nodename     TYPE ssfname VALUE 'HEADER',

       ivarheader   TYPE tsfivhd,

       varheader_wa TYPE ssfivhd.

   cp_smartstyle = 'SYSTEM'.

   IF NOT p_form IS INITIAL.

     CALL FUNCTION 'SSF_READ_FORM'

       EXPORTING

         i_formname = p_form

         i_language = sy-langu

       EXCEPTIONS

         OTHERS     = 4.

     IF sy-subrc EQ 0.

       CALL FUNCTION 'SSF_READ_NODE_BEGIN'

         EXPORTING

           i_nodetype = 'SF'

           i_nodename = nodename

         EXCEPTIONS

           OTHERS     = 4.

       IF sy-subrc EQ 0.

         CALL FUNCTION 'SSF_READ_DATE'

           EXPORTING

             i_name = 'IVARHEADER'

           IMPORTING

             o_date = ivarheader

           EXCEPTIONS

             OTHERS = 4.

         IF NOT ivarheader[] IS INITIAL.

           READ TABLE ivarheader INTO varheader_wa INDEX 1.

           cp_smartstyle = varheader_wa-stdstyle.

         ENDIF.

       ENDIF.

     ENDIF.

   ENDIF.

ENDFORM.                    "get_form_smartstyle

2 Comments
Labels in this area