topic Re: Search in Table Control in Application Development and Automation Discussions

Search in Table Control

Former Member — Fri, 22 May 2009 11:38:21 GMT

Hi Experts..

I am working in table control.

I have one input/output field on screen, I want to search the entered field in the table control and mark that one.

means when user will enter data in that field and press enter, cursor should go to that field in table control.

how to do this..

thanks in advance...

Re: Search in Table Control

Former Member — Fri, 22 May 2009 11:56:12 GMT

hi,

For this you should either go for a Table control with Position button ( SEARCH SCN) or See F1 Help for FIND IN TABLE.

Regards

Karthik D

Re: Search in Table Control

Former Member — Fri, 22 May 2009 12:23:31 GMT

Hi,

Please try this logic in the PAI.

loop at itab into wa where field eq entered_value.

wa-w_sel = 'X'.

modify itab from wa transporting field index sy-tabix.

endloop.

Re: Search in Table Control

Former Member — Sat, 23 May 2009 06:17:59 GMT

Hello,

When some one enters a entry and clicks enter.

in your PBO add a MODULE.

just inside your loop endloop.

LOOP AT itab INTO wa WITH CONTROL tbcl.

MODULE move_records_for_display.

MODULE mark_a_particular_record.

ENDLOOP.

MODULE mark_a_particular_record.

IF wa-field1 = search_field.

SEL = 'X'

ENDMODULE.

Hope this will solve your problem.

Cheers,

Suvendu

Re: Search in Table Control

Former Member — Mon, 25 May 2009 06:15:44 GMT

try this

in se51

PBO

Module_status_0800.

loop with control <tcname>

module fill_tc.

endloop.

PAI

Module_usercommand_0800.

loop with control <tcname>

module read_tc.

endloop.

module fill_tc.

IF wa-field1 = search_field.

SEL = 'X'

endloop.

if wk_field1 is not initial.

loop at screen.

if ( ( screen-name = 'ITAB-SNO' or

screen-name = 'ITAB-SNAME' or

screen-name = 'ITAB-SCITY' or

screen-name = 'ITAB-SEDU' or

screen-name = 'ITAB-SPERCENT' )

and control-line_selector eq itab-select ).

screen-input = 1.

endif.

modify screen.

endloop.

endmodule

Regards

Re: Search in Table Control

Former Member — Mon, 25 May 2009 07:05:21 GMT

Thanks Murali..

But I cann't understand, what is 'wa-field1',

is it internal table field or what.

and what is 'SEL'?

can u explain me?

Re: Search in Table Control

Former Member — Mon, 25 May 2009 18:15:40 GMT

Hello,

SEL is the w\selection parameter in table control attribute.

and wa-field1 is the name of the field for which you are creating the search help.

Cheers,

Suvendu

Re: Search in Table Control

varun_maharshi — Tue, 26 May 2009 04:50:30 GMT

'SEL' or whatever it is is the field name that you have used for the selection button in the table control.

Re: Search in Table Control

Former Member — Tue, 26 May 2009 08:15:28 GMT

Hi,

Loop at through the internal table, which is associated with the table control and use 'SET CURSOR' statement when you find the approprite line.

Thanks and regards,

Venkat

Re: Search in Table Control

Former Member — Fri, 29 May 2009 04:44:25 GMT

HI,

I hope you under stand SEL .

This field should be present in your Internal table.

You will be running a loop in PAI for Table control (It won't help to find the lines you want).

So Run a seperate loop Outside for the ITAB.

Check for the value you want if it found make the SEL = "X".

Note down the sy-tabix value.

then PBO will run to Populate the TC.

After that.

Set TC-Top_line = sy-tabix.(not sure about the TC property- check the help of TC)

Then.

Screen will display with the line you want as first line

Hope this will Help you

Re: Search in Table Control

Former Member — Fri, 29 May 2009 06:08:47 GMT

Hi,

First loop the internal table and the index number of the record of value you have entered in the first screen.

in table control screen


LOOP AT GT_EMP INTO WA_EMP
  WITH CONTROL TC1 CURSOR TC1-CURRENT_LINE.

 MODULE M_MOVE_DATA.

ENDLOOP.

in that M_MOVE_DATA module.



MOVE-CORRESPONDING WA_EMP TO ZEMP_REC.
  IF WA_EMP-REQNO = P_REQNO.
    TC1-CURRENT_LINE = SY-STEPL.
    TC1-TOP_LINE = INDEX.
    SET CURSOR FIELD 'ZEMP_REC-REQNO' LINE TC1-CURRENT_LINE.
  ENDIF.

Hope these will solve the problem

Regards,

Kumar M.

Re: Search in Table Control

Former Member — Fri, 29 May 2009 10:35:41 GMT

HI I have done the same in my program,hope the code will be useful to u.

Requirement :For this there should be one table control, one input field (inwhich u will enter something and will search in the table control),one find button(is a push button to which a fcode is attached),one find next button(is a push button to which a fcode is attached),and a clear button.

Process:first enter material no in the input field and press find button twice - it will take u to that line item in table control. Then press find next button - it takes u to all other line items starting from first line item...Then press clear button to start searching for another new material number.

Code:It should be in PBO,should be the last code

IF SY-UCOMM EQ 'SER'.
    PERFORM SEARCH_MATNR.
  ELSEIF SY-UCOMM EQ 'SERN'.
    PERFORM SEARCH_MATNR_NEXT.
  ELSEIF SY-UCOMM EQ 'CLE'.
    PERFORM CLEAR_MATNR.
  ENDIF.

****find button code

FORM SEARCH_MATNR .
  DATA: WA_BOQ_DUMMY TYPE ST_BOQ.
  CLEAR WA_BOQ_DUMMY.
  IF S_MATNR IS NOT INITIAL.
    LOOP AT IT_BOQ INTO WA_BOQ_DUMMY WHERE MATNR EQ S_MATNR.
      WA_BOQ_DUMMY-SEL = 'X'.
      MODIFY IT_BOQ FROM WA_BOQ_DUMMY.
      TAB_CNTL-TOP_LINE = SY-TABIX.
      EXIT.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " SEARCH_MATNR

**find next code

FORM SEARCH_MATNR_NEXT .
  DATA: VAR_FLAG14 TYPE C.
  CLEAR VAR_FLAG14.
  DATA: WA_BOQ_DUMMY TYPE ST_BOQ.
  CLEAR WA_BOQ_DUMMY.
  IF S_MATNR IS NOT INITIAL.
    VAR_FLAG14 = 'X'.
    LOOP AT IT_BOQ INTO WA_BOQ_DUMMY WHERE MATNR EQ S_MATNR.
      IF TAB_CNTL-TOP_LINE NE SY-TABIX.
        IF VAR_FLAG14 EQ 'X'.
          WA_BOQ_DUMMY-SEL = 'X'.
          MODIFY IT_BOQ FROM WA_BOQ_DUMMY.
        ELSEIF VAR_FLAG14 EQ ' '.
          WA_BOQ_DUMMY-SEL = 'X'.
          VAR_FLAG14 = 'X'.
          TAB_CNTL-TOP_LINE = SY-TABIX.
          MODIFY IT_BOQ FROM WA_BOQ_DUMMY.
        ENDIF.
      ELSEIF TAB_CNTL-TOP_LINE EQ SY-TABIX.
        WA_BOQ_DUMMY-SEL = 'X'.
        VAR_FLAG14 = ' '.
        MODIFY IT_BOQ FROM WA_BOQ_DUMMY.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " SEARCH_MATNR_NEXT

***clear code

FORM CLEAR_MATNR .
  CLEAR S_MATNR .
  DATA: WA_BOQ_DUMMY TYPE ST_BOQ.
  CLEAR WA_BOQ_DUMMY.
  LOOP AT IT_BOQ INTO WA_BOQ_DUMMY WHERE SEL EQ 'X'.
    WA_BOQ_DUMMY-SEL = ' '.
    MODIFY IT_BOQ FROM WA_BOQ_DUMMY.
  ENDLOOP.
ENDFORM.                    " CLEAR_MATNR

If it was useful,then provide points

Regards

Sajid

Edited by: shaik sajid on May 29, 2009 12:35 PM