topic Re: Screen painter in Application Development and Automation Discussions

Screen painter

Former Member — Mon, 05 Jun 2006 06:39:44 GMT

How to get the Dropdown list values in Screen painter.

Regards,

MARK K

Re: Screen painter

Former Member — Mon, 05 Jun 2006 07:07:32 GMT

In the screen painter, create an i/o element, in the elements attributes select the value 'Listbox with key' for the field DROPDOWN, you will get a the field having a list of values in your screen.

Re: Screen painter

Former Member — Mon, 05 Jun 2006 07:13:41 GMT

Hi,

Assign an dictionary field field for that input field.

You can also try triggering the event

(PROCESS ON VALUE-REQUEST) for F4 help values in the PAI.

If its useful, award points pls..

Regards,

Bharadwaj

Re: Screen painter

venkat_o — Mon, 05 Jun 2006 07:40:13 GMT

Hi Mark,

To get Drop Drown Box on screen .

Follow these steps.

1.

Go to T.Code SE51 and Select Laypout for the Screen.

2.

Double click on the field for which u want Dropdown box.

3.

Then U will see Name ,Text ,DROPDOWN.Click on that and select List Box or ListBox with key . Better to to select first one.

4.

Save and Activate ur screen .

5.

Enter the following peice of code in the PBO of the screen.(Change for ur requirement).

TYPE-POOLS :vrm.

DATA:i_natio TYPE vrm_values,

w_natio LIKE LINE OF i_natio.

DATA: BEGIN OF i_t005t OCCURS 0,

land1 TYPE t005t-land1,

natio TYPE t005t-natio,

END OF i_t005t.

IF i_t005t[] IS INITIAL.

SELECT land1 natio

FROM t005t

INTO TABLE i_t005t

WHERE spras = sy-langu.

IF sy-subrc = 0.

LOOP AT i_t005t .

w_natio-key = i_t005t-land1.

w_natio-text = i_t005t-natio.

APPEND w_natio TO i_natio.

CLEAR w_natio.

ENDLOOP.

ENDIF.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'I_IT0002-NATIO'

values = i_natio

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.

6.

Observe the above code and change as for ur requirement.

I think it helps a lot.

Let me know ,if u have any problem creating Dropdownbox.

Thanks,

Venkat.O

Re: Screen painter

Former Member — Mon, 05 Jun 2006 07:44:36 GMT

Hi Mark,

In screen painter , go to the attributes of the screen element. You can see the dropdown section ,just select "Listbox" or "listbox with key"..

In the main program , append the value that you want to be displayed to a table. Then call teh Function Module,

VRM_SET_VALUES to display the listbox with the values.

Just go through this link.

http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbabe435c111d1829f0000e829fbfe/content.htm

Regards,

SP.

Re: Screen painter

Former Member — Mon, 05 Jun 2006 09:27:22 GMT

Hi Venkat,

I have done exactly like your code, but I am not getting the list in the field.

I have reproduced the code what I have written.

*&----

*& Module STATUS_0100 OUTPUT

*&----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'GUI0100'.

SET TITLEBAR 'xxx'.

TYPE-POOLS :VRM.

DATA:I_DDLIST TYPE VRM_VALUES,

W_DDLIST LIKE LINE OF I_DDLIST.

DATA: BEGIN OF I_PSTYP OCCURS 0,

PKEY(1) TYPE C,

PVAL(10) TYPE C,

END OF I_PSTYP.

I_PSTYP-PKEY = 'P'.

I_PSTYP-PVAL = 'Primary'.

APPEND I_PSTYP.

I_PSTYP-PKEY = 'S'.

I_PSTYP-PVAL = 'Secondary'.

APPEND I_PSTYP.

LOOP AT I_PSTYP .

W_DDLIST-KEY = I_PSTYP-PKEY.

W_DDLIST-TEXT = I_PSTYP-PVAL.

APPEND W_DDLIST TO I_DDLIST.

CLEAR W_DDLIST.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'I_DDLIST'

VALUES = I_DDLIST

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.

*----

In the data element part, I have selected as 'List Box with Key'.

I also would like to know how the data from the internal will be linked to the field in the screen paiter.

Pls check this code and let me know where is the mistake.

Regards,

Re: Screen painter

Former Member — Mon, 05 Jun 2006 09:28:38 GMT

Hi Mark,

Kindly reward the points

In screen painter SE51 Tcode, go to the attributes of the screen element. You can see the dropdown section ,just select "Listbox" or "listbox with key"..

In the main program , append the value that you want to be displayed to a table. Then call the Function Module,

VRM_SET_VALUES to display the listbox with the values or

call the Fm...

DATA : BEGIN OF it_zprojorg OCCURS 0,

areacd LIKE zprojorg-areacd,

areadesc LIKE zprojorg-areadesc,

END OF it_zprojorg.

DATA : IT_DYNPREAD LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = 'SAPMZDIN'

DYNUMB = SY-DYNNR

REQUEST = 'A'

TABLES

DYNPFIELDS = IT_DYNPREAD.

CHECK SY-SUBRC = 0.

READ TABLE IT_DYNPREAD WITH KEY FIELDNAME = 'ZPROJMAST-PROJCD'.

if not IT_DYNPREAD-FIELDVALUE is initial.

SELECT areacd areadesc FROM zprojorg

INTO TABLE it_zprojorg

WHERE projcd = it_dynpread-fieldvalue.

if sy-subrc <> 0.

MESSAGE E000(8I) WITH 'Invalid ArecCode, Please re-enter'.

STOP.

ELSE.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'AREACD'

dynpprog = 'SAPMZDIN'

dynpnr = sy-dynnr

dynprofield = 'IDINDTL-AREACD'

value_org = 'S'

TABLES

value_tab = it_zprojorg

RETURN_TAB = IDDSHRETVAL.

ENDIF.

endif.

Re: Screen painter

venkat_o — Mon, 05 Jun 2006 09:36:27 GMT

Hi Mark,

I think u need to check here.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'Screen field name' =>This is the Screen Field .If u give screen field name here in Caps.This is linked to the field in the screen

VALUES = I_DDLIST

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.

I think u only need to give ur screen field for ID in the Function module VRM_SET_VALUES.

I am sure it works.

Thanks

Venkat.O

Re: Screen painter

Former Member — Mon, 05 Jun 2006 09:41:23 GMT

Hi Vekat,

Thank u so much for your help. It is working now.

Regards,

Re: Screen painter

Former Member — Mon, 05 Jun 2006 09:53:03 GMT

Hi Venkat,

The list gets duplicated after every save.

I have given clear statement, but still it duplicates.

How to avoid the duplicates in the list.

Pls guide me.

Regards,

Re: Screen painter

Former Member — Mon, 05 Jun 2006 09:57:08 GMT

Hi Mark,

Can you just post your code...?

May be the clear will not be working at all or will be in the wrong place...

Regarding the duplicates in the listbox, you can remove it in yet another method also.

use the statement

DELETE ADJACENT DUPLICATES FROM <itab_name>.

Use it in the place where you are appending it in the table.

Hope your query is solved.

Regards,

SP.

Message was edited by: Sylendra Prasad

Re: Screen painter

venkat_o — Mon, 05 Jun 2006 10:58:06 GMT

Hi Mark,

1.

Write like this .

if I_PSTYP[] is initial.

I_PSTYP-PKEY = 'P'.

I_PSTYP-PVAL = 'Primary'.

APPEND I_PSTYP.

I_PSTYP-PKEY = 'S'.

I_PSTYP-PVAL = 'Secondary'.

APPEND I_PSTYP.

endif.

2.

So that that table is populated first time only.

It works.

Thanks

Venkat.O

Re: Screen painter

Former Member — Mon, 05 Jun 2006 11:45:26 GMT

Hi Venkat,

Thanks for your suggestion. It is working fine.

Regards,