Image in selection screens
hi,
Can anyone tell me how to set an image in an selection screen.
kindly post ABAP related question in ABAP forum at
ABAP Development
coming to your question.
you can use a docking container and place the picture there using cl_gui_picture class.
for sample code check out transaction DWDM
Regards
Raja
Similar Messages
-
Hi all...
I had displayed am image at selection-screen.
But the problem is that, the image is been over-lapping on the out-put screen also...
Here is the sample code which I had used
can any one find a solution for this.... Thanks in advance
REPORT z_XXX.
DATA: docking TYPE REF TO cl_gui_docking_container,
picture_control_1 TYPE REF TO cl_gui_picture,
url(256) TYPE c .
DATA: query_table LIKE w3query OCCURS 1 WITH HEADER LINE,
html_table LIKE w3html OCCURS 1,
return_code LIKE w3param-ret_code,
content_type LIKE w3param-cont_type,
content_length LIKE w3param-cont_len,
pic_data LIKE w3mime OCCURS 0,
pic_size TYPE i.
DATA : sum(4) , num1(4) , num2(4).
PARAMETERS: p_dummy(4) DEFAULT '4' .
PARAMETERS: p_dummy1(4) DEFAULT '5' .
AT SELECTION-SCREEN output.
PERFORM show_pic.
START-OF-SELECTION.
data : var1 type i.
var1 = p_dummy1 + p_dummy.
write : / var1.
*& Form show_pic
FORM show_pic.
DATA: repid LIKE sy-repid.
repid = sy-repid.
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 = 25
left = 10
top = 30
width = 40.
IF url IS INITIAL.
REFRESH query_table.
query_table-name = '_OBJECT_ID'.
query_table-value = 'zflight'.
APPEND query_table.
CALL FUNCTION 'WWW_GET_MIME_OBJECT'
TABLES
query_string = query_table
html = html_table
mime = pic_data
CHANGING
return_code = return_code
content_type = content_type
content_length = content_length
EXCEPTIONS
object_not_found = 1
parameter_not_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
CALL FUNCTION 'DP_CREATE_URL'
EXPORTING
type = 'image'
subtype = cndp_sap_tab_unknown
size = pic_size
lifetime = cndp_lifetime_transaction
TABLES
data = pic_data
CHANGING
url = url
EXCEPTIONS
OTHERS = 1.
ENDIF.
CALL METHOD picture_control_1->load_picture_from_url
EXPORTING
url = url.
ENDFORM. "show_picHi, Kiran
Please test after doing following changes hope will solve out your problem,
CALL METHOD picture_control_1->set_position
EXPORTING
height = 300 " Change Here
left = 50 " Change Here
top = 50 " Change Here
width = 1200. " Change Here
REFRESH query_table.
query_table-name = '_OBJECT_ID'.
query_table-value = 'ENJOYSAP_LOGO'. " Change Here add you Pic name here
APPEND query_table.
Please Reply if any Issue,
Best Regards,
Faisal -
How to reduce size of image in Selection Screen
Hi all
I am trying to add an image in Selection screen and i want to reduce size of image .
Please help me asap.
Thanks & Regards
ShavetaHi Prashat
I tried by reducing the size of container , But scroll bars appears automatically .
The size of Picture remains same .
Please tell me if there is any option to fix the size of container ... so that picture reduces its size automatically .
Thanks & Regards
Shaveta -
How to display image in selection-screen of a report
Dear all ,
i want to show my image from url or from desktop to the report selection-screen . i have searched sdn and found some code . after applying it i am not able to display image in the selection-screen although it is displaying the box in which the image should appear . here i am sending my code plz verify where is the mistake .
REPORT ZPIC2.
DATA: docking TYPE REF TO cl_gui_docking_container,
picture_control_1 TYPE REF TO cl_gui_picture,
url(256) TYPE c .
PARAMETERS: A(4) DEFAULT '4' .
PARAMETERS: B(4) DEFAULT '5' .
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 = 100
left = 150
top = 58
width = 350.
CALL METHOD picture_control_1->load_picture_from_url
EXPORTING
url = 'C:\abc.jpg' .
endif .
IF sy-subrc NE 0.
ENDIF.
ENDFORM.
CORECT ANSWERS WILL BE HIGHLY APPRECIATED AND SURELY REWARED .
THANKS ,
AMIT RANJANHi,
Try this code. hope it will work.
DATA: DOCKING TYPE REF TO CL_GUI_DOCKING_CONTAINER,
PICTURE_CONTROL_1 TYPE REF TO CL_GUI_PICTURE,
URL(256) TYPE C,
PIC_DATA TYPE TABLE OF W3MIME WITH HEADER LINE,
PIC_SIZE TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK B1.
PARAMETERS: A(4) DEFAULT '4' .
PARAMETERS: B(4) DEFAULT '5' .
SELECTION-SCREEN END OF BLOCK B1.
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 = 200
LEFT = 100
TOP = 20
WIDTH = 400.
CHANGE POSITION AND SIZE ABOVE**************************
IF URL IS INITIAL.
CALL FUNCTION 'DP_CREATE_URL'
EXPORTING
TYPE = 'image'
SUBTYPE = CNDP_SAP_TAB_UNKNOWN
SIZE = PIC_SIZE
LIFETIME = CNDP_LIFETIME_TRANSACTION
TABLES
DATA = PIC_DATA
CHANGING
URL = URL
EXCEPTIONS
OTHERS = 1.
ENDIF.
CALL METHOD PICTURE_CONTROL_1->LOAD_PICTURE_FROM_URL
EXPORTING
URL = 'file://D:\img.jpg'.
ENDFORM. " SHOW_PIC -
Adding logo/image on selection screen
How can I add logo or image on my selection screen??? or else use a picture as a background on the selection screen??
P.S : I have already searched the forum and have not got any suitable answer..most of them are about adding image on module pool screen..but I want it in my selection screen???Hi ,
Try like this
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.
Regards,
Nandha -
Adding image/logo on selection screen
How can I add image or logo on my selection - screen??
Hi,
in AT-SELECTION-OUTPUT EVENT put these codes:
data: lv_docking type ref to cl_gui_docking_container,
lv_picture_control_1 type ref to cl_gui_picture,
lv_url(256) type c ,
li_query_table type w3query occurs 1 with header line,
li_html_table type w3html occurs 1,
lv_return_code type w3param-ret_code,
lv_content_type type w3param-cont_type,
lv_content_length type w3param-cont_len,
li_pic_data type w3mime occurs 0,
lv_pic_size type i.
refresh :li_query_table ,li_html_table , li_pic_data.
clear :
lv_url,
lv_return_code,
lv_pic_size,
lv_picture_control_1,
lv_docking,
lv_content_type,
lv_content_length.
create object lv_picture_control_1
exporting
parent = lv_docking.
check sy-subrc = 0.
call method lv_picture_control_1->set_3d_border
exporting
border = 5.
call method lv_picture_control_1->set_display_mode
exporting
display_mode = cl_gui_picture=>display_mode_stretch.
call method lv_picture_control_1->set_position
exporting
height = 75
left = 1200
top = 250
width = 250.
if lv_url is initial.
refresh li_query_table.
li_query_table-name = '_OBJECT_ID'.
*IMAGE UPLOADED IN SWO0
li_query_table-value = 'ZLOGO'.
append li_query_table.
call function 'WWW_GET_MIME_OBJECT'
tables
query_string = li_query_table
html = li_html_table
mime = li_pic_data
changing
return_code = lv_return_code
content_type = lv_content_type
content_length = lv_content_length
exceptions
object_not_found = 1
parameter_not_found = 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.
call function 'DP_CREATE_URL'
exporting
type = 'image'
subtype = cndp_sap_tab_unknown
size = lv_pic_size
lifetime = cndp_lifetime_transaction
tables
data = li_pic_data
changing
url = lv_url
exceptions
others = 1.
endif.
call method lv_picture_control_1->load_picture_from_url
exporting
url = lv_url. -
How to show more than one image on my screen at same time?
I recently upgraded to PS-CS4 from CS3 and notice that I can only view one image on my screen. Is there a way to view more than one image on the screen at the same time? I cannot seem to find a way to change this feature.
Thanks, RichieJohn Joslin wrote:
In addition, if you don't like the tabs, select Float All in Windows from the Arrange Documents drop-down in the Menu bar up top.
Or keep pressing the F key.
The drop-down bar also has a conveneint way of fitting multiple images on the screen. See the illustration below: -
Hey folks,
I have been using bootcamp for months now with windows 7 64 bit, and its been fine, yesterday while I was rebooting to do some gaming, at the hard drive selection screen when you boot holding the "options" butting down, it locks up when I select the windows drive and just sits there for ever. It doesn't throw an error, it boots fine into Lion.
I searched all morning and didn't find anything, was hoping that someone might have an idea.
Thanks in advanceSearch again. Microsoft has tips on what to do and Windows has a number of features
system restore points
automatic system repair using the Win7 DVD
system restore image creation
Just like you would with OS X Lion and Lion Recovery and Repair
Use WinClone 3 www.twocanoes.com $20 to make an image just like you would with Disk Utility Restore or Carbon Copy Cloner
rollback to last known good boot check point
rollback a driver or program or any changes
clean out temp files
clean registry
chkdsk
https://discussions.apple.com/people/The%20hatter?view=bookmarks -
Please help, cannot compare images in full screen mode
I am not able to compare 2 images in full screen mode. I am using a MBP and a ACD 23". The main image will remain in the ACD while the image being compare is being shown in the MBP.
I am able to compare images in the viewer mode.
My main display is the ACD 23 which I selected using the display preferences under 'Arrangement' with the menu bar located on the ACD. In Aperture, Secondary Viewer is set to Blank.
I had also tried different combinations of Main Viewer and Secondary Viewer settings but was not successful.
Am I missing something? Anyone have the solution?Thanks in advance for any help.
norhengAnyone have any suggestions to using Aperture to edit images using a MBP and ACD so that it best utilize Aperture full screen mode in comparing and narrowing down to the pick.
I am now trying to use the MBP as the main display and ACD as the secondary. This way I am able to compare images with the MBP in the Browser mode and the ACD display the compare images full screen. It work with the secondary display - ACD set to mirror, span and alternate mode.
It would be best if only one screen is use and hence save energy consumption (reducing global warming and bill, if it help).
Thanks in advance for any suggestions or and solutions.
norheng -
Images maximize (full screen) when switching windows?
When working with two or more images in Fireworks CS3 (Mac OSX 10.5.7)....
The image windows blast into full screen display when switching between images. I am new to CS3, (convert from Studio 8) but cannot find where to stop this irritating behaviour. I can correct by selecting Window>>Cascade - temporarily... But, when I click on another image window, that image blasts into full-screen again.
How can I stop this?
I really hate posting (usually preferring instead to lurk and scour the answers to my questions from previous posts). But, I am forced to post this question in hopes of a quick, simple solution to stop the lurching madness that makes me feel queasy every time my screen blasts an image into full screen mode..
Any help is appreciated... really, it is. :-)OK, this is possibly a bug.
After restarting today, the problem did not occur until about an hour working with FW.
A restart did NOT stop it. So, I restarted again and tried three different files... It was fine for a while and then started the same thing again.
I am starting to lose hope that it is something I can do to prevent this. It appears that FW and Carbon are not playing together nicely. -
Add a New field in Selection Screen of Transaction CNS0
All,
I need to create a new field in the selection screen of CNS0. Its a transaction (dialog) not a report.
Please find the image (will give more info on where to add)
http://img18.imageshack.us/img18/5319/cns0.gif
What are the options Any exits of Badi's ? any other options
a®hi
look at this scenario:
1. RCNSHSEL modifications:
ENHANCEMENT-POINT RCNSHSEL_G7 SPOTS ES_RCNSHSEL.
*$*$-Start: RCNSHSEL_G7-------------------------------------------------------------------------$*$*
ENHANCEMENT 4 MGV_GENERATED_RCNSHSEL. "active version
LOOP AT mgv_matnr_selopt_tab.
CONCATENATE mgv_matnr_selopt_tab-name'[]' INTO
mgv_matnr_selopt_tab-name.
ASSIGN (mgv_matnr_selopt_tab-name) TO <mgv_matnr_selopt_conv>.
IF sy-subrc IS INITIAL.
CALL FUNCTION 'MGV_SELOP_AFTER_START_OF_SEL'
EXPORTING
SELOPT_NAME = mgv_matnr_selopt_tab-name
TABLES
RANGE = <mgv_matnr_selopt_conv>.
ENDIF.
ENDLOOP.
ENDENHANCEMENT.
ENHANCEMENT 6 ZNEWENH1. "active version
*>> ds
if sy-tcode = 'CNS0'.
submit z_report_with_selscr and return.
endif.
*<< ds
ENDENHANCEMENT.
*$*$-End: RCNSHSEL_G7-------------------------------------------------------------------------$*$*
TABLES: ACT01,
AFFL,
AFKO,
AUFK,
PROJ,
PRPS_R,
RESB01,
2. new program: z_report_with_selscr
REPORT Z_REPORT_WITH_SELSCR.
parameters: lgort like vbap-lgort obligatory.
start-of-selection.
export lgort to memory id 'ZZLGORT_IN_MEMORY'.
3. code in BADI: DLP_COMPONENT_FILTER
import lgort from memory id 'ZZLGORT_IN_MEMORY'.
regards,darek -
Three Tabs each with different Images on select or hover
Hello,
I have a requirement where in each tab should have different images, currently there are three tabs and all three should have different images when selected/hover, here is a screen shot of my application for tab http://img541.imageshack.us/img541/1087/44160812.jpg , how do i modify CSS to include two other images for tabs "Book" and "Profile"?
Any help is appreciated.
Thanks and Regards,
-Senanaanyone? - Thanks
-
Retrieving Selection-Screen Button Variables
Hello,
Im currently doing a modification to a custom HR/Payroll report. I changed the report type to 1_MHR001 because I wanted the selections screen to include the 'Org. Structure' button, in order to allow easier hierarchical selection. The problem is that I need to make a comparison between the selected Organizational Units and a custom field, but I am not able to retrieve the values entered by the user. If you take a look at the image bellow, you'll see a blue square (covering the Organizational Unit field in the 'get PERNR' selection fields) and a red square (covering the top 'Org. Structure' button).
<a href="http://img442.imageshack.us/my.php?image=selscreenil8.png">Image of the selection screen...</a>
I can get the Organizational Unit values (pnporgeh) but I can't get to the values that are input by the user after pressing the 'Org. Structure' button. I thought they'd be placed in the same variable, but they are not.
How do I access those values? In what variable are they stored? How can I get that information (for future reference) ?
Thanks in advance,
RobertDid you try something like below
data: l_selvalues type table of rsselread with header line,
l_program type sy-repid,
l_workspace type wsid.
l_selvalues-name = 'P_WSID'.
l_selvalues-kind = 'P'.
append l_selvalues.
l_program = sy-repid.
call function 'RS_SELECTIONSCREEN_READ'
exporting program = l_program
tables fieldvalues = l_selvalues. -
How to Place a LOGO on Selection screen & Output list -OO ALV
Hi,
I was just wondering can we place a logo on standard Selection screen 1000?
And also on the Output list . I am using OO ABAP for my ALV.
regards
PraveenHi,
You cannot place a logo in your selection-screen.
But yes, you can place logos in your OO ALV.
data: ws_c_logo TYPE REF TO cl_dd_area.
"Instance for the logo
Split your document container for logo
CALL METHOD wcl_docum->vertical_split
EXPORTING split_area = wcl_docum
split_width = '70%'
IMPORTING right_area = ws_c_logo.
then,
CALL METHOD ws_c_logo->add_picture
EXPORTING picture_id = c_logo.
where: c_logo TYPE sdydo_key VALUE 'CC0040' . "logo for co.code 0040
The image should be stored in your business document. You may use BDS_OBJECT_SAVE or BDS_BUSINESSDOCUMENT_CREATEF to store the image in the business document server and then retrieve in your ALV.
Regards
Subramanian -
To display the user login details in selection-screen( input screen )
HI Experts,
I have a requirement.
Assume there is a report on travel details. Report access has been given to all in the organization based on authorization level.
Before excecuting the report, in the selection-screen(input screen) itself I need to display the login user details.
suppose user A belongs to ITS-business unit and user B-belongs to RDS-business unit and Industry group-Multi markets.
so when User B logs into production system and try to access the report, in the selection screen, i need to display like
user-id-- XXXX Business Unit---RDS and IG -
Multi Markets
how to achieve this? User details will vary based on login.
Regards,
Praveencheck this
REPORT Z_demo.
*& Function Modules: HR_GET_EMPLOYEE_DATA
*& HR_IMAGE_EXISTS
*& SCMS_DOC_URL_READ
*& HR_IMAGE_RESET
*& Class & Methods : CL_GUI_DOCKING_CONTAINER
*& CL_GUI_PICTURE->SET_POSITION
*& CL_GUI_PICTURE->SET_DISPLAY_MODE
*& CL_GUI_PICTURE->DISPLAY_MODE_FIT
*& CL_GUI_PICTURE->LOAD_PICTURE_FROM_URL_ASYNC
*REPORT ZEMPLOYEE.
TABLES: PA0001, PERSON.
*----------------------Declaration for Image------------------------*
DATA: DOCKING_CONT TYPE REF TO CL_GUI_DOCKING_CONTAINER, " Custom Container
PICTURE TYPE REF TO CL_GUI_PICTURE.
*--------------------Declaration of Internal table------------------*
DATA: ITAB_EMPDATA LIKE TABLE OF PERSON.
DATA: ITAB_DATA LIKE TABLE OF PERSON WITH HEADER LINE.
DATA: P_CONNECT_INFO LIKE TABLE OF TOAV0 WITH HEADER LINE.
DATA: P_DOCUMENT_TYPE LIKE TOAV0-RESERVE.
DATA: URL(255) TYPE C.
DATA: HANDLE TYPE I.
DATA: PPERNR TYPE PA0001-PERNR.
*----------------------Start of Selection Screen----------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-099.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN COMMENT 40(25) TEXT-010 .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-002 FOR FIELD PERNR.
PARAMETERS PERNR TYPE PA0001-PERNR.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-008 FOR FIELD ENAME.
PARAMETERS ENAME TYPE PA0001-ENAME.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-003 FOR FIELD PERSG.
PARAMETERS PERSG TYPE PA0001-PERSG.
SELECTION-SCREEN COMMENT 45(15) TEXT-009 FOR FIELD WERKS.
PARAMETERS WERKS TYPE PA0001-WERKS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-004 FOR FIELD PERSK.
PARAMETERS PERSK TYPE PA0001-PERSK.
SELECTION-SCREEN COMMENT 45(15) TEXT-005 FOR FIELD KOSTL.
PARAMETERS KOSTL TYPE PA0001-KOSTL.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-006 FOR FIELD ORGEH.
PARAMETERS ORGEH TYPE PA0001-ORGEH.
PARAMETERS ORGEHTXT TYPE PERSON-ORGEH_TXT .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 20(15) TEXT-007 FOR FIELD PLANS.
PARAMETERS PLANS TYPE PA0001-PLANS.
PARAMETERS PLANSTXT TYPE PERSON-PLANS_TXT .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN END OF BLOCK B1.
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN.
IF SCREEN-NAME = 'ENAME'
OR SCREEN-NAME = 'PERSG'
OR SCREEN-NAME = 'PERSK'
OR SCREEN-NAME = 'KOSTL'
OR SCREEN-NAME = 'WERKS'
OR SCREEN-NAME = 'ORGEH'
OR SCREEN-NAME = 'PLANS'
OR SCREEN-NAME = 'ORGEHTXT'
OR SCREEN-NAME = 'PLANSTXT'.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
IF SCREEN-NAME = 'ORGEHTXT'
OR SCREEN-NAME = 'PLANSTXT'.
SCREEN-OUTPUT = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
PERFORM GET_PIC.
*AT SELECTION-SCREEN .
AT SELECTION-SCREEN .
PPERNR = PERNR.
CALL FUNCTION 'HR_GET_EMPLOYEE_DATA'
EXPORTING
PERSON_ID = PPERNR
SELECTION_BEGIN = SY-DATUM
SELECTION_END = SY-DATUM
IMPORTING
PERSONAL_DATA = ITAB_DATA
EXCEPTIONS
PERSON_NOT_FOUND = 1
NO_ACTIVE_INTEGRATION = 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.
ENAME = ITAB_DATA-ENAME.
PERSG = ITAB_DATA-PERSG.
PERSK = ITAB_DATA-PERSK.
ORGEH = ITAB_DATA-ORGEH.
PLANS = ITAB_DATA-PLANS.
KOSTL = ITAB_DATA-KOSTL.
WERKS = ITAB_DATA-WERKS.
ORGEHTXT = ITAB_DATA-ORGEH_TXT.
PLANSTXT = ITAB_DATA-PLANS_TXT.
*Function Module To check Existance of Image
CALL FUNCTION 'HR_IMAGE_EXISTS'
EXPORTING
P_PERNR = PPERNR
IMPORTING
P_CONNECT_INFO = P_CONNECT_INFO
EXCEPTIONS
OTHERS = 2.
P_DOCUMENT_TYPE = P_CONNECT_INFO-RESERVE.
*Function Module To Get the URL of Image
CALL FUNCTION 'SCMS_DOC_URL_READ'
EXPORTING
STOR_CAT = SPACE
CREP_ID = P_CONNECT_INFO-ARCHIV_ID
DOC_ID = P_CONNECT_INFO-ARC_DOC_ID
COMP_ID = 'DATA'
DP_URL_ONLY = 'X'
IMPORTING
URL = URL
EXCEPTIONS
OTHERS = 10.
IF SY-SUBRC <> 0.
ENDIF.
*Method To load Image from URL
CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL_ASYNC
EXPORTING
URL = URL.
IF SY-SUBRC NE 0.
ENDIF.
IF PPERNR NE PERNR.
*Function Module To Reset Image
CALL FUNCTION 'HR_IMAGE_RESET'
EXPORTING
HANDLE = HANDLE
EXCEPTIONS
INVALID_HANDLE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
*& Form Get_Pic
FORM GET_PIC.
DATA: REPID LIKE SY-REPID.
REPID = SY-REPID.
IF PICTURE IS INITIAL.
*Object To Create the Custom Container
CREATE OBJECT PICTURE
EXPORTING
PARENT = DOCKING_CONT.
CHECK SY-SUBRC = 0.
*Method To Set Position of Image
CALL METHOD PICTURE->SET_POSITION
EXPORTING
HEIGHT = 47
LEFT = 610
TOP = 25
WIDTH = 70.
*Method To Set Display Mode Fit to Container
CALL METHOD PICTURE->SET_DISPLAY_MODE
EXPORTING
DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT.
ELSE.
*Function Module To Reset Image
CALL FUNCTION 'HR_IMAGE_RESET'
EXPORTING
HANDLE = HANDLE
EXCEPTIONS
INVALID_HANDLE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
ENDFORM. "Get_pic
Maybe you are looking for
-
I'm trying to get organized and I just added a bunch of books and pdfs to my itunes library. They were all added immediately to my ipad and iphone even though I did not want this. I added them to itunes using add to library and I have both devices se
-
Here is my situation: My sister and I have shared an Apple ID ever since I bought my sister an iPhone on my cell phone account. We each have Mac laptops and had no problem syncing to separate Gmail/Exchange accounts but still share an Apple ID for co
-
My iPod touch 5th gen isn't charging, when I plug in my charger I've always used. It's an apple product and a message pops up saying "This accessory may not be supported" The charger isn't the problem because my mom used her iPhone with my charger an
-
Real Cost from WBS to Activity
Hi, We are entering hours using Acct Assgt to a WBS elements by CAT2. I guess that some settlement or distribution process exists in order to allocate these costs to activities? Could anybody enlighten me or just give me a hint of how it works? Thank
-
How do i set the msg6.0 aliases file to send the messages to all users in mail system ? My mail server has 2,000 user s in ldap. It difficult to add 2,000 users in aliases file. And Can i set the privilege to user admin only to send the message to Al