MODULE DISPLAY_PICTURE OUTPUT. DATA: REPID LIKE SY-REPID. DATA:L_RESULT TYPE I. REPID = SY-REPID. IF PICTURE IS INITIAL. "TC_0100 CREATE OBJECT WCL_CONTAINER_PHOTO EXPORTING CONTAINER_NAME = 'TC_0300'. *Object To Create the Custom Container CREATE OBJECT PICTURE EXPORTING PARENT = WCL_CONTAINER_PHOTO. CHECK SY-SUBRC = 0. *Method To Set Position of Image * CALL METHOD PICTURE->SET_POSITION * EXPORTING * HEIGHT = 47 * LEFT = 610 * TOP = 25 * WIDTH = 70. 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. CLEAR:P_CONNECT_INFO,P_CONNECT_INFO[],URL. *FUNCTION MODULE TO CHECK EXISTANCE OF IMAGE CALL FUNCTION 'HR_IMAGE_EXISTS' EXPORTING P_PERNR = <PERNR_PHOTO> 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 Set Display Mode Fit to Container CALL METHOD PICTURE->SET_DISPLAY_MODE EXPORTING DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT. *Method To load Image from URL CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL_ASYNC EXPORTING URL = URL. ENDMODULE.