Skip to Content
avatar image
Former Member

Screen painter

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.

Add comment
10|10000 characters needed characters exceeded

  • Follow
  • Get RSS Feed

3 Answers

  • avatar image
    Former Member
    Oct 16, 2008 at 08:57 AM

    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.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Oct 16, 2008 at 09:16 AM

    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.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Sep 15, 2009 at 12:10 PM

    Thx

    Add comment
    10|10000 characters needed characters exceeded