Hi this is Atul katoch. I write one code to generate one form but i am not able to insert picture in selection screen block.here is my code plz give me some solution.I try it with dock container but it moving with screen block. I want to fixed picture in block and it should be move with particular selection screen block if i scroll the screen up and down.
*&---------------------------------------------------------------------*
*& Report ZHR_BDC_UPLOADPIC6
*
REPORT ZHR_BDC_UPLOADPIC6.
DATA: p_path TYPE string.
DATA: p_path1 TYPE string.
*-----------------------------------------------------------------------------------------------------------------------------------------------------
DATA: lr_mime_rep TYPE REF TO if_mr_api.
DATA: lv_url TYPE char255.
DATA: lv_content TYPE xstring.
DATA: lv_repid TYPE sy-repid.
DATA: lt_data TYPE STANDARD TABLE OF x255.
DATA: lo_docking TYPE REF TO cl_gui_docking_container.
DATA: lo_picture TYPE REF TO cl_gui_picture.
*----------------------------------------------------------
selection-screen skip 1.
*SELECTION-SCREEN PUSHBUTTON 15(25) PUBU USER-COMMAND CODE1.
SELECTION-SCREEN begin of BLOCK selection WITH FRAME TITLE text-006.
selection-screen skip 9.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT /1(40) TEXT-002 MODIF ID SG1.
SELECTION-SCREEN comment /1(75) comm1.
SELECTION-SCREEN comment /1(75) comm2.
SELECTION-SCREEN comment /2(75) comm3.
SELECTION-SCREEN comment /1(75) comm4.
SELECTION-SCREEN comment /2(75) comm5.
SELECTION-SCREEN comment /1(75) comm6.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN SKIP 2.
PARAMETERS: p_name(30) type c.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(12) FOR FIELD P_NAME1.
parameters P_NAME1(15) TYPE C.
SELECTION-SCREEN COMMENT 38(12) FOR FIELD P_NAME2.
PARAMETERS P_NAME2(15) TYPE C.
SELECTION-SCREEN COMMENT 75(12) FOR FIELD P_NAME3.
PARAMETERS P_NAME3(15) TYPE C.
SELECTION-SCREEN end of line.
SELECTION-SCREEN skip 2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) FOR FIELD pre_add.
PARAMETERS: pre_add(35) type c.
SELECTION-SCREEN COMMENT 60(15) for field per_add.
PARAMETERS: per_add(35) type c.
SELECTION-SCREEN end of line.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) FOR FIELD res_tel.
PARAMETERS: res_tel type i.
SELECTION-SCREEN COMMENT 60(15) for field res_tel1.
PARAMETERS: res_tel1 type i.
SELECTION-SCREEN end of line.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) FOR FIELD off_tel.
PARAMETERS: off_tel type ZEMP_CONTACT-OFFICE_TEL1.
SELECTION-SCREEN COMMENT 60(15) for field off_tel1.
PARAMETERS: off_tel1 type ZEMP_CONTACT-OFFICE_TEL1.
SELECTION-SCREEN end of line.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) FOR FIELD mob_tel.
PARAMETERS: mob_tel type ZEMP_CONTACT-MOBILE_TEL1.
SELECTION-SCREEN COMMENT 60(15) for field mob_tel1.
PARAMETERS: mob_tel1 type ZEMP_CONTACT-MOBILE_TEL1.
SELECTION-SCREEN end of line.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) FOR FIELD p_fax.
PARAMETERS: p_fax type ZEMP_CONTACT-FAX1.
SELECTION-SCREEN COMMENT 60(15) for field p_fax1.
PARAMETERS: p_fax1 type ZEMP_CONTACT1-FAX2.
SELECTION-SCREEN end of line.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) FOR FIELD p_email.
PARAMETERS: p_email(30) type c.
SELECTION-SCREEN COMMENT 60(15) for field p_email1.
PARAMETERS: p_email1(30) type c.
SELECTION-SCREEN end of line.
SELECTION-SCREEN end of BLOCK b3.
SELECTION-SCREEN end of BLOCK selection.
*----------------------------------------------------------------------------------------------------------------------------
*DATA: p_path type string VALUE 'SAP/PUBLIC/ATUL143.jpg'.
data: itab TYPE TABLE of ZACENTIQ_PAGE1,
wa TYPE ZACENTIQ_PAGE1.
*------------------------------------------------------------------------------------------------------------------------------
INITIALIZATION.
comm1 = '1.Do not leave any item blank.if it is not applicable to you, indicate"N.A."'.
comm2 = '2.please attach a scanned copy of your passport showing all relevant'.
comm3 = 'details.'.
comm4 = '3.False particulars or willful suppression of materials facts will render '.
comm5 = ' you liable to disqualification,'.
comm6 = '4. or,if appointed, to termination and/or appropriate legal proceedings.'.
IMPORT f_path2 to p_path from MEMORY ID 'ZTEST128'(006).
CONDENSE p_path NO-GAPS.
P_PATH1 = P_PATH+11(12).
EXPORT P_PATH1 TO MEMORY ID 'ZTEST131'.
SELECT * from ZACENTIQ_PAGE1 into TABLE itab where EMP_ID = p_path1.
loop at itab INTO wa.
p_name = wa-POSTTION1.
P_NAME1 = wa-FIRST_NAME.
P_NAME2 = wa-MIDDLE_NAME.
P_NAME3 = wa-LAST_NAME.
per_add = wa-ZPERM_ADD.
pre_add = wa-ZCURR_ADD.
res_tel = wa-RESIDENCE_TEL1.
off_tel = wa-OFFICE_TEL1.
mob_tel = wa-MOBILE_TEL1.
p_fax = wa-FAX1.
p_email = wa-EMAIL_ADDRESS1.
res_tel1 = wa-RESIDENCE_TEL2.
off_tel1 = wa-OFFICE_TEL2.
mob_tel1 = wa-MOBILE_TEL2.
* p_fax1 = wa-FAX2.
p_email1 = wa-EMAIL_ADDRESS2.
ENDLOOP.
AT SELECTION-SCREEN OUTPUT.
loop at screen.
if screen-name = 'P_NAME2' or screen-name = 'P_NAME1' or screen-name = 'P_NAME3' or screen-name = 'PRE_ADD' or screen-name = 'PER_ADD'
or screen-name = 'RES_TEL' or screen-name = 'OFF_TEL' or screen-name = 'MOB_TEL' or screen-name = 'P_FAX' or screen-name = 'P_EMAIL'
or screen-name = 'RES_TEL1' or screen-name = 'OFF_TEL1' or screen-name = 'MOB_TEL1' or screen-name = 'P_MAIL1' or screen-name = 'P_NAME'
OR SCREEN-NAME = 'P_FAX1' OR SCREEN-NAME = 'P_EMAIL1'.
screen-invisible = 0.
screen-input = 0.
modify screen.
endif.
ENDLOOP.
CREATE OBJECT lo_docking
EXPORTING
repid = lv_repid
dynnr = sy-dynnr
side = lo_docking->dock_at_left
extension = 100.
* CREATE OBJECT lo_picture
* EXPORTING
* parent = lo_docking.
CREATE OBJECT lo_picture EXPORTING parent = lo_docking.
CHECK sy-subrc = 0.
* CALL METHOD lo_picture->SET_3D_BORDER
*
* EXPORTING
*
* BORDER = 5.
CALL METHOD lo_picture->SET_DISPLAY_MODE
EXPORTING
DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT.
* DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_STRETCH.
CALL METHOD lo_picture->SET_POSITION
EXPORTING
HEIGHT = 108
LEFT = 130
TOP = 16
WIDTH = 10
* 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.
lr_mime_rep = cl_mime_repository_api=>if_mr_api~get_api( ).
lr_mime_rep->get(
EXPORTING
i_url = P_path
IMPORTING
e_content = lv_content
EXCEPTIONS
not_found = 3 ).
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = lv_content
TABLES
binary_tab = lt_data.
CALL FUNCTION 'DP_CREATE_URL'
EXPORTING
type = 'IMAGE'
subtype = 'JPG'
TABLES
data = lt_data
CHANGING
url = lv_url.
lo_picture->load_picture_from_url_async( lv_url ).
START-OF-SELECTION.
perform screen.
if sy-subrc = 0.
MESSAGE 'for next screen click here' TYPE 'I'.
SUBMIT zdis_page2 VIA SELECTION-SCREEN AND RETURN.
ENDIF.
*&---------------------------------------------------------------------*
*& Form screen
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form screen .
call SELECTION-SCREEN 110.
endform. " screen