Screen painter

[Former Member]

Hi,

I want to fill a list box with values from the program using screen painter & how to affect a table control to a table strip.

Best regards.

[Former Member]

Thx

[Former Member]

HAI,

IN PBO

with in loop at i.tab with controls <t.c.name>

module fill_listbox.

endloop.

module fill_listbox.

**for first field**

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_MATKL'

values = t_table1[]

EXCEPTIONS

ID_ILLEGAL_NAME = 1

OTHERS = 2.

endmodule.

[Former Member]

Hello,

First creat the List box in the Screen painter then in module PBO.

Double click on the PBO Module y_f_fill_data.

You use this logic it will work it is not working then go for PAI

Module y_f_fill_data.

MOVE: text-200 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-203 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-210 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-211 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-204 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-205 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-206 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-207 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

MOVE text-208 TO y_wa_listbox-field.

APPEND y_wa_listbox TO y_i_listbox.

CLEAR y_wa_listbox.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'FIELD'

dynpprog = sy-repid

stepl = 1

value = ' '

value_org = 'S'

display = ' '

TABLES

value_tab = y_i_listbox[]

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

...

ENDIF.

REFRESH y_i_listbox.

endmodule.