Scribd
Upload
2K views

Logo On Module Pool Screen

This tutorial explains how you can make a logo or an image display on the Module Pool Screen in ABAP .

Uploaded by

Amrutha Ashok Kamat
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
2K views

Logo On Module Pool Screen

This tutorial explains how you can make a logo or an image display on the Module Pool Screen in ABAP .

Uploaded by

Amrutha Ashok Kamat
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 5

Inserting Logo on Module Pool Screen.

Goto se80, create a program, name starting from sapmz or sapmy followed by the program name. Note: SAPMZ-> SAP MODULE POOL PROGRAM Name space for M type programs, which creates top include by default. 1. Create a Module pool program, say sapmz_app1. 2. Create a screen, number 100 for example. 3. Go to the layout of the screen 100. 4. Insert a Custom Control UI element on the layout and name it as TEST_CONTROL.

5. Come back to flow logic.

6. Create a module by double clicking MODULE STATUS_0100 and select for main program.
7. Provide the following code in the PBO module which carries a logic to display a logo on the screen.

CONSTANTS: CNTL_TRUE TYPE I VALUE 1, CNTL_FALSE type i value 0. data:

* * *

h_picture type ref to cl_gui_picture, h_pic_container type ref to cl_gui_custom_container. h_tree type ref to cl_gui_list_tree, h_docking type ref to cl_gui_docking_container, h_application type ref to lcl_application.

data: graphic_url(255), graphic_refresh(1), g_result

like cntl_true.

data: begin of graphic_table occurs 0, line(255) type x, end of graphic_table. data: graphic_size type i. data: l_graphic_xstr type xstring, l_graphic_conv type i, l_graphic_offs type i. CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp EXPORTING p_object = 'GRAPHICS' p_name = 'ENJOY' "IMAGE NAME - Image name from SE78 p_id = 'BMAP' p_btype = 'BMON' "(BMON = black&white, BCOL = colour) RECEIVING p_bmp = l_graphic_xstr EXCEPTIONS not_found = 1 OTHERS = 2. * * * * * * * IF sy-subrc = 1. MESSAGE e287 WITH g_stxbitmaps-tdname. ELSEIF sy-subrc <> 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' "#EC NOTEXT subtype = cndp_sap_tab_unknown " 'X-UNKNOWN' size = graphic_size lifetime = cndp_lifetime_transaction "'T' 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 <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. EXIT. ENDIF. create object h_pic_container exporting container_name = 'TEST_CONTROL'. create object h_picture exporting parent = h_pic_container. call method h_picture->load_picture_from_url exporting url = graphic_url importing result = g_result. ENDMODULE.

8. Create a Transaction for the Module pool program and Test.

You might also like