Export or Preview Graphic of SE78

[faisal_altaf2]

I found too many posts about Exporting SE78 Graphics because there is no option for Exporting Graphics in T-Code SE78 so I decided to develop a custom Application to overcome this exporting issue. The purpose is not only Exporting or Preview SE78 Graphics but I also consider so many other things for the beginners and frequently asked questions, like I used Sub Screen, Elementary Search Help, Structure, Some Function Modules and Methods which we often asked about.

Download .nugg file using link bellow and install this to your system using ZSAPLINK or follow the steps and code bellow to develop new.

SAPLink Package of Application

After importing all the components of application using SAPLINK to system, Please make sure that all that components are active. Following are the Three you need to active.

1. ZFSL_SH_STXBITMAPS (Search Help)
2. ZFSL_ST_STXBITMAPS (Structure)
3. ZFSL_EXPORT_OR_PREVIEW_SE78 (Main Program, its Screen and Text Elements.

Create Search Help
Let’s Start from Search Help follow steps bellow to create Elementary Search Help for your section fields here we are going to create a search help which we will attach to the Four Field of a Structure and at the end we create selection screen parameter like this structure fields and find search help with all these four fields.
--> T-Code: SE11
--> Select the Radio Button Search help
--> Write name of search help I am using here ZFSL_SH_STXBITMAPS
--> Click Button Create 
--> Now from the appearing window

--> select Elementary search help and Click   Button.
--> Fill the Field as in the following figure

--> Now Save and Active it
--> At the end it must be active as shown in the above figure.

Create Structure and Attach Search Help
--> T-Code SE11
--> Select the Radio Button Data Type
--> Write name of Structure I am using here ZFSL_ST_ STXBITMAPS
--> Click Button Create 
--> Now from the appearing window

--> Select Structure and Click Button.
--> Fill the Field as in the following figure

--> Now Go to Entry help/check Tab to Attach Search Help
--> Click Button Search Help
--> Now for all Four Fields Select the Same ZFSL_SH_STXBITMAPS Search Help

--> It must be active as shown in search help.

* Main program.

************************************************ *            Selection Screen                  * ************************************************ SELECTION-SCREEN BEGIN OF SCREEN 0001 AS SUBSCREEN. PARAMETERS: tdname LIKE zfsl_st_stxbitmaps-tdname,             tdbtype LIKE zfsl_st_stxbitmaps-tdbtype,             tdobject LIKE zfsl_st_stxbitmaps-tdobject,             tdid LIKE zfsl_st_stxbitmaps-tdid. SELECTION-SCREEN END OF SCREEN 0001.  ************************************************ *              Data Declaration                * ************************************************ DATA: BEGIN OF graphic_table OCCURS 0,       line(255) TYPE x,       END OF graphic_table.  TYPE-POOLS sbdst .  CONSTANTS: cntl_true  TYPE i VALUE 1,            cntl_false TYPE i VALUE 0,            true(1)    VALUE 'X',            false(1)   VALUE ' '.  DATA: gr_content          TYPE sbdst_content,       gr_rawdata          TYPE w3mime OCCURS 0,       g_bitmaptypeout     TYPE c,       g_bytecount         TYPE i,       download_path       TYPE string,       stdname             TYPE string,       l_graphic_xstr      TYPE xstring,       graphic_size        TYPE i,       l_graphic_conv      TYPE i,       l_graphic_offs      TYPE i,       g_result            LIKE cntl_true,       h_picture           TYPE REF TO cl_gui_picture,       h_pic_container     TYPE REF TO cl_gui_custom_container,       ok_code_0002        TYPE sy-ucomm,       path                TYPE string,       count               TYPE i,       answer              TYPE string,       graphic_url(255),       graphic_refresh(1),       l_continue(1),       l_change_screen(1).  ************************************************ *           Calling Screen 0002                * ************************************************ CALL SCREEN 0002.   ************************************************ *           PROCESS BEFORE OUTPUT              * ************************************************  *&---------------------------------------------------------------------* *&      Module  STATUS_0002  OUTPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* MODULE status_0002 OUTPUT.   SET PF-STATUS 'ZFSL_SE78_DLD_STATUS'.   SET TITLEBAR 'MAIN_WINDOW_TITLE'.    IF h_picture IS INITIAL.     CREATE OBJECT h_pic_container       EXPORTING         container_name = 'CONTAINER_PICTURE'.     CREATE OBJECT h_picture       EXPORTING         parent = h_pic_container.      CALL METHOD h_picture->set_display_mode       EXPORTING         display_mode = cl_gui_picture=>display_mode_normal.   ENDIF.    IF graphic_refresh = true.     CALL METHOD h_picture->load_picture_from_url       EXPORTING         url    = graphic_url       IMPORTING         RESULT = g_result.     IF g_result = cntl_false.       EXIT.     ENDIF.     graphic_refresh = false.   ENDIF.  ENDMODULE.                 " STATUS_0002  OUTPUT  *&---------------------------------------------------------------------* *&      Module  clear_ok_bt  OUTPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* MODULE clear_ok_bt OUTPUT.   CLEAR: ok_code_0002. ENDMODULE.                 " clear_ok_bt  OUTPUT   ************************************************ *            PROCESS AFTER INPUT               * ************************************************  *&---------------------------------------------------------------------* *&      Module  USER_COMMAND_0002  INPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* MODULE user_command_0002 INPUT.    CASE ok_code_0002.     WHEN 'GPRV'.       PERFORM preview USING tdobject tdname tdid tdbtype.     WHEN 'GEXP'.       PERFORM export USING tdobject tdname tdid tdbtype.     WHEN OTHERS.   ENDCASE.  ENDMODULE.                 " USER_COMMAND_0002  INPUT  *&---------------------------------------------------------------------* *&      Module  user_exit_command  INPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* MODULE user_exit_command INPUT.   CASE ok_code_0002.     WHEN 'BACK'.       LEAVE TO SCREEN 0.     WHEN 'EXIT'.       LEAVE PROGRAM.     WHEN 'CANCEL'.       LEAVE TO TRANSACTION 'ZEXSE78'.   ENDCASE. ENDMODULE.                 " user_exit_command  INPUT  *&---------------------------------------------------------------------* *&      Form  preview *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* FORM preview USING ftdobject ftdname ftdid ftdbtype.   CLEAR: graphic_url,          graphic_table[].    CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp     EXPORTING       p_object  = ftdobject       p_name    = ftdname       p_id      = ftdid       p_btype   = ftdbtype     RECEIVING       p_bmp     = l_graphic_xstr     EXCEPTIONS       not_found = 1       OTHERS    = 2.   IF sy-subrc NE 0. *    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno *            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.     EXIT.   ENDIF.    graphic_size = XSTRLEN( l_graphic_xstr ).   CHECK graphic_size > 0.    l_graphic_conv = graphic_size.   l_graphic_offs = 0.    WHILE l_graphic_conv > 255.     graphic_table-line = l_graphic_xstr+l_graphic_offs(255).     APPEND graphic_table.     l_graphic_offs = l_graphic_offs + 255.     l_graphic_conv = l_graphic_conv - 255.   ENDWHILE.    graphic_table-line = l_graphic_xstr+l_graphic_offs(l_graphic_conv).   APPEND graphic_table.    CALL FUNCTION 'DP_CREATE_URL'     EXPORTING       type                 = 'image'       subtype              = cndp_sap_tab_unknown       size                 = graphic_size       lifetime             = cndp_lifetime_transaction     TABLES       data                 = graphic_table     CHANGING       url                  = graphic_url     EXCEPTIONS       dp_invalid_parameter = 1       dp_error_put_table   = 2       dp_error_general     = 3       OTHERS               = 4.   IF sy-subrc NE 0. *    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno *            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.     EXIT.   ENDIF.   graphic_refresh = true.  ENDFORM.                    "preview  *&---------------------------------------------------------------------* *&      Form  export *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* FORM export USING ftdobject ftdname ftdid ftdbtype.    stdname = tdname.  * For Display the Pop-Up for Gating file Save Path   CALL METHOD cl_gui_frontend_services=>directory_browse     EXPORTING       window_title         = 'Please Select Path where you want to save'       initial_folder       = 'My Documents'     CHANGING       selected_folder      = path     EXCEPTIONS       cntl_error           = 1       error_no_gui         = 2       not_supported_by_gui = 3       OTHERS               = 4.  * If your cancel the Path Popup Display the following message and start T-Code again.   IF path IS INITIAL.     MESSAGE: 'Please Select Valid Path' TYPE 'S'.     LEAVE TO TRANSACTION 'ZEXSE78'.   ENDIF.  * if some file name have ‘/’ replace this to ‘_’ like a/b.bmp will be a_b.bmp   REPLACE ALL OCCURRENCES OF '/' IN stdname WITH '_'.  * Concatenate extension with file name.   CONCATENATE path '\' stdname '.BMP' INTO download_path.    CLEAR: path.     FIND FIRST OCCURRENCE OF ':\\' IN download_path.   IF sy-subrc EQ 0.     REPLACE ALL OCCURRENCES OF ':\\' IN download_path WITH ':\'.   ENDIF.    CALL FUNCTION 'SAPSCRIPT_GET_GRAPHIC_BDS'     EXPORTING       i_object       = ftdobject       i_name         = ftdname       i_id           = ftdid       i_btype        = ftdbtype     IMPORTING       e_bytecount    = g_bytecount     TABLES       content        = gr_content     EXCEPTIONS       not_found      = 1       bds_get_failed = 2       bds_no_content = 3       OTHERS         = 4.    CALL FUNCTION 'SAPSCRIPT_CONVERT_BITMAP '     EXPORTING       old_format               = 'BDS'       new_format               = 'BMP'       bitmap_file_bytecount_in = g_bytecount       itf_bitmap_type_in       = '*'     IMPORTING       bitmap_file_bytecount    = g_bytecount       itf_bitmap_type_out      = g_bitmaptypeout     TABLES       bitmap_file              = gr_rawdata       bds_bitmap_file          = gr_content     EXCEPTIONS       no_bitmap_file           = 1       format_not_supported     = 2       bitmap_file_not_type_x   = 3       no_bmp_file              = 4       bmperr_invalid_format    = 5       bmperr_no_colortable     = 6       bmperr_unsup_compression = 7       bmperr_corrupt_rle_data  = 8       bmperr_eof               = 9       bdserr_invalid_format    = 10       bdserr_eof               = 11       OTHERS                   = 12.    CALL METHOD cl_gui_frontend_services=>gui_download     EXPORTING       bin_filesize            = g_bytecount       filename                = download_path       filetype                = 'BIN'       confirm_overwrite       = 'X'     CHANGING       data_tab                = gr_rawdata     EXCEPTIONS       file_write_error        = 1       no_batch                = 2       gui_refuse_filetransfer = 3       invalid_type            = 4       no_authority            = 5       unknown_error           = 6       header_not_allowed      = 7       separator_not_allowed   = 8       filesize_not_allowed    = 9       header_too_long         = 10       dp_error_create         = 11       dp_error_send           = 12       dp_error_write          = 13       unknown_dp_error        = 14       access_denied           = 15       dp_out_of_memory        = 16       disk_full               = 17       dp_timeout              = 18       file_not_found          = 19       dataprovider_exception  = 20       control_flush_error     = 21       not_supported_by_gui    = 22       error_no_gui            = 23       OTHERS                  = 24.    IF sy-subrc EQ 0.      CALL FUNCTION 'POPUP_TO_CONFIRM'       EXPORTING         titlebar              = 'Congratulations! You Have Successfully Exported'         text_question         = 'Do you want to Open ?'         text_button_1         = 'Open Folder'         icon_button_1         = 'ICON_OPEN_FOLDER'         text_button_2         = 'Open File'         icon_button_2         = 'ICON_OPEN'         display_cancel_button = 'X'       IMPORTING         answer                = answer       EXCEPTIONS         text_not_found        = 1         OTHERS                = 2.     IF sy-subrc EQ 0.       CASE answer.         WHEN '1'.           CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'             EXPORTING               full_name = download_path             IMPORTING               file_path = download_path             EXCEPTIONS               x_error   = 1               OTHERS    = 2.            CALL METHOD cl_gui_frontend_services=>execute             EXPORTING               application            = download_path             EXCEPTIONS               cntl_error             = 1               error_no_gui           = 2               bad_parameter          = 3               file_not_found         = 4               path_not_found         = 5               file_extension_unknown = 6               error_execute_failed   = 7               synchronous_failed     = 8               not_supported_by_gui   = 9               OTHERS                 = 10.         WHEN '2'.           CALL METHOD cl_gui_frontend_services=>execute             EXPORTING               application            = download_path             EXCEPTIONS               cntl_error             = 1               error_no_gui           = 2               bad_parameter          = 3               file_not_found         = 4               path_not_found         = 5               file_extension_unknown = 6               error_execute_failed   = 7               synchronous_failed     = 8               not_supported_by_gui   = 9               OTHERS                 = 10.         WHEN 'A'.          WHEN OTHERS.       ENDCASE.     ENDIF.   ENDIF.  ENDFORM.                    "export  * Because I am using Sub Screen so from Validation Using AT SELECTION-SCREEN ************************************************ *           AT SELECTION-SCREEN                * ************************************************ AT SELECTION-SCREEN.   IF tdobject IS INITIAL OR tdname IS INITIAL OR tdid IS INITIAL OR tdbtype IS INITIAL.     CLEAR: tdobject, tdname, tdid, tdbtype, ok_code_0002.     MESSAGE 'Object Properties Missing' TYPE 'E'.     LEAVE TO TRANSACTION 'ZEXSE78'.   ENDIF.  *  Check the object is available or not.   IF tdobject IS NOT INITIAL OR tdname IS NOT INITIAL OR tdid IS NOT INITIAL OR tdbtype IS NOT INITIAL..     SELECT COUNT(*) FROM stxbitmaps INTO count       WHERE tdobject = tdobject         AND tdname = tdname         AND tdid = tdid         AND tdbtype = tdbtype.     IF sy-subrc NE 0.       CLEAR: ok_code_0002.       MESSAGE 'There is no Object with given Properties' TYPE 'E'.     ENDIF.   ENDIF.

* Screen 0002 in Screen Painter.

* Screen Elements

* Flow Logic of Screen 0002.

************************************************ *          PROCESS BEFORE OUTPUT               * ************************************************ PROCESS BEFORE OUTPUT.   CALL SUBSCREEN sub_screen INCLUDING 'ZFSL_EXPORT_OR_PREVIEW_SE78' '0001'.   MODULE status_0002.   MODULE clear_ok_bt.  ************************************************ *          PROCESS AFTER INPUT                 * ************************************************ PROCESS AFTER INPUT.   MODULE user_exit_command AT EXIT-COMMAND.   CALL SUBSCREEN sub_screen.   MODULE user_command_0002.

Create T-Code
--> Go to T-Code SE93 for creating T-Code
--> Write T-Code I am using ZEXSE78 in this program
--> Than Click Button.
--> Write Short text
--> Select the second Radio button Program and selection screen (report transaction)
--> Click Button.
--> Write the name of you program My Program Name is ZFSL_EXPORT_OR_PREVIEW_SE78
--> Save it using Button.

Used T-Codes
SE38      ABAP Editor
SE11      ABAP Dictionary Maintenance
SE51      Screen Painter
SE41      Menu Painter
SE93      Maintain Transaction Codes