topic Re: Search button on Table control in Application Development and Automation Discussions

Search button on Table control

Former Member — Mon, 10 Jul 2006 22:14:59 GMT

Hi everybody!

I'll apreciate so much a code for generate a search button like (Position button) on a table control.

Regards,

DanielM

Re: Search button on Table control

former_member181966 — Mon, 10 Jul 2006 22:33:59 GMT

Refer main prog :SAPL0H10

Prog = LSVIMIXX line # 187

CASE function. 'POSI'

PERFORM popup_positionieren.

in source code :LSVIMF3I

Hope this’ll give you idea!!

Pl... award the points.

Good luck

Thanks

Saquib Khan

"Some are wise and some are otherwise"

Re: Search button on Table control

Former Member — Mon, 10 Jul 2006 22:36:38 GMT

Logic

1. Put a position button and entry text field (search content) under the table control. Position button should have one function code 'PBUT' (set in button arrtibute). Set the name of text field as 'POSITION_VAL'.

2. Content of table control will be in an internal table. The field field will be used for positioning.

3. Enter the search (key) field in text field. Click position button.

4. Write code for this button click in PAI event (Module user_command) of that screen.

Case sy_ucomm.

When 'PBUT'.

Write code here to bring the row as selected in table control.

Endcase.

Bala

Re: Search button on Table control

Former Member — Mon, 23 Feb 2009 14:39:58 GMT

FORM search_element TABLES itab CHANGING tc TYPE cxtab_control.

DATA: l_action,

l_value TYPE kcd_value2,

l_cols LIKE LINE OF tc1-cols,

l_table_name(20),

l_find_by(20).

CALL FUNCTION 'POPUP_TO_SEARCH_VALUE'

EXPORTING

textline1 = text-106

titel = text-107

valuelength = '20'

IMPORTING

action = l_action

value = l_value

EXCEPTIONS

titel_too_long = 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.

IF l_action = 'J'.

READ TABLE tc-cols INTO l_cols WITH KEY selected = 'X'.

IF sy-subrc <> 0.

MESSAGE ...

ENDIF.

SPLIT l_cols-screen-name AT '-' INTO l_table_name l_find_by.

READ TABLE itab WITH KEY (l_find_by) = l_value.

IF sy-subrc = 0.

tc-top_line = sy-tabix.

ELSE.

MESSAGE ...

ENDIF.

ENDFORM. " SEARCH_ELEMENT