Welcome To My BLOG

This site is to give a brief idea for the abap learners who are looking for some real time programs .It consists of collection of programs from my side . I hope these programs are very much used for all of the learners. Please check the links for any information in ABAP.
Please vote for my Blog. And please input me on this mail addrssess.Email me

Share this link with your friends

http://www.rebtel.com/u/15163104576

For every friend who signs up using this link and makes a payment, we'll give you 8 €!


Thursday, September 23, 2010

Logo on selection screen

REPORT ztest .

DATA:docking TYPE REF TO cl_gui_docking_container,
picture_control_1 TYPE REF TO cl_gui_picture,
url(256) TYPE c .

DATA : begin of imakt occurs 0,
matnr like makt-matnr,
spras like makt-spras,
maktx like makt-maktx,
end of imakt.

DATA: itrepid LIKE sy-repid.

itrepid = sy-repid.

parameters:p_matnr like makt-matnr.

select matnr
spras
maktx
from makt
into table imakt
where matnr = p_matnr.

loop at imakt.
write:/ imakt-matnr,
imakt-spras,
imakt-maktx.
endloop.

AT SELECTION-SCREEN OUTPUT.
PERFORM show_pic.

*&---------------------------------------------------------------------
**& Form show_pic
*&---------------------------------------------------------------------
FORM show_pic.

CREATE OBJECT picture_control_1 EXPORTING parent = docking.
CHECK sy-subrc = 0.
CALL METHOD picture_control_1->set_3d_border
EXPORTING
border = 5.

CALL METHOD picture_control_1->set_display_mode
EXPORTING
display_mode = cl_gui_picture=>display_mode_stretch.
CALL METHOD picture_control_1->set_position
EXPORTING
height = 55
left = 750
top = 08
width = 350.

CALL METHOD picture_control_1->load_picture_from_url
EXPORTING
url = 'C:\zpic.gif'.

*here you give the path where your pic is stored on the desktop

IF sy-subrc NE 0.
ENDIF.
ENDFORM.

No comments: