topic Doubt on upload image in Application Development and Automation Discussions

Doubt on upload image

Former Member — Thu, 06 Mar 2008 10:10:26 GMT

Hi All Experts,

When i am uploading the image in screen 1000 .

DropDown List is Not working.if i comment that image code the drop down list is working.

Can anyone help me.

Thanks in Advance.

lokesh

Re: Doubt on upload image

Former Member — Thu, 06 Mar 2008 10:14:19 GMT

Hi Lokesh,

Can u please eloborate what problem u r facing.

Re: Doubt on upload image

Former Member — Thu, 06 Mar 2008 10:25:48 GMT

Hai Vaibhav

I created a modulepool screen,

In that screen i use one drop down list and one custom container to upload image in that.

here i got problem that is when i upload the image it is uploading at the same time the drop down list fields are not geting.if i comment the code of image then the drop down list fields are coming.

Re: Doubt on upload image

Former Member — Fri, 07 Mar 2008 11:12:36 GMT

Hi Lokesh,

can u please send the code u have written.

Re: Doubt on upload image

Former Member — Fri, 07 Mar 2008 16:41:25 GMT

HI Vaibhav

TYPES pict_line(256) TYPE c.

DATA :

container TYPE REF TO cl_gui_custom_container,

editor TYPE REF TO cl_gui_textedit,

picture TYPE REF TO cl_gui_picture,

pict_tab TYPE TABLE OF pict_line,

url(255) TYPE c.

IF init is initial.

init = 'X'.

CREATE OBJECT:

container EXPORTING container_name = 'PICTURE_CONTAINER',

picture EXPORTING parent = container.

IMPORT pict_tab = pict_tab FROM DATABASE abtree(pi) ID 'ENJOY'.

CALL FUNCTION 'DP_CREATE_URL'

EXPORTING

type = 'IMAGE'

subtype = 'GIF'

TABLES

data = pict_tab

CHANGING

url = url.

CALL METHOD picture->load_picture_from_url EXPORTING url = url.

CALL METHOD picture->set_display_mode

EXPORTING display_mode = picture->display_mode_fit_center.

ENDIF.

IF init is initial.

SELECT * FROM ZPRO_CAR.

values-text = ZPRO_CAR-CARNAME.

values-key = ZPRO_CAR-CARCODE.

APPEND values.

ENDSELECT.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'ZPRO_CAR-CARCODE'

values = values[]

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

endif.

ZPRO_CAR-CARNAME = 'LH'.

init = 'X'.