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

  • Image at selection-screen

    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_pic

    Hi, 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
    Shaveta

    Hi 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 RANJAN

    Hi,
    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, Richie

    John 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:

  • I am dual booting my mackbook pro with windows 7 64 bit. Yesterday it started locking up at the disk drive selections screen, when you hold down the "option" butting when powering on. I have been searching all morning, and so far nothing. Thanks. :)

    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 advance

    Search 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.
    norheng

    Anyone 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,
    -Senana

    anyone? - 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,
    Robert

    Did 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
    Praveen

    Hi,
    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,
    Praveen

    check 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