topic Re: Table control in Application Development and Automation Discussions

Table control

Former Member — Wed, 23 Nov 2005 15:41:43 GMT

Hi All,

Iam developing a table control.

i have a screen with 2 fields say for example empid and empname .if enter a value in empid and then if press enter then empname should be filled.

so please help me out how to do this.if possible plz send me a sample code .

with regards,

kiran i

Re: Table control

RichHeilman — Wed, 23 Nov 2005 15:56:51 GMT

These two fields are in a table control, right?

Regards,

Rich Heilman

Re: Table control

Former Member — Wed, 23 Nov 2005 16:03:19 GMT

Yes Rich.

Re: Table control

RichHeilman — Wed, 23 Nov 2005 16:10:47 GMT

If you used the table control wizard, then you probably have a module like this.



module itabcon_modify input.

<b>  if not itab-field1 is initial.
    concatenate 'This is the description for'
                 itab-field1 into itab-field2.
  endif.</b>

  modify itab
    index itabcon-current_line.

endmodule.

The code in BOLD is an example of how you would fill the other field. Here is where you would do it, whether it comes from the DB or not.

Regards,

RIch Heilman

Re: Table control

Former Member — Wed, 23 Nov 2005 16:16:36 GMT

iam not using wizard table control.send me some detailed code of this iam new to module poll programming

with regards,

krian.i

Re: Table control

RichHeilman — Wed, 23 Nov 2005 16:25:07 GMT

In the flow logic of your screen, you will need to have a loop like this, notice that it is executing the module that I described above.



  loop at ITAB.
    chain.
      field ITAB-FIELD1.
      field ITAB-FIELD2.
      module ITABCON_modify on chain-request.
    endchain.
  endloop.

Regards,

Rich Heilman

Re: Table control

Former Member — Wed, 23 Nov 2005 16:27:21 GMT

What i have to write for module itab_con_modify

Regards,

kirani

Re: Table control

RichHeilman — Wed, 23 Nov 2005 16:39:42 GMT

If you are writing a module pool, then put it in your include for PAI. It should probably end withh I01.

Regards,

Rich Heilman

Re: Table control

Former Member — Thu, 24 Nov 2005 02:27:07 GMT

Hi kiran,

Refer the below for a brief idea of how to code for a module pool program.

*************

&----

*& Module pool ZTESTRAJ_TABLECONTROL *

*& *

&----

*& *

&----

PROGRAM ztestraj_tablecontrol .

TABLES mara.

CONTROLS : tc1 TYPE TABLEVIEW USING SCREEN 100.

TYPES : BEGIN OF t_mara,

matnr TYPE mara-matnr,

mtart TYPE mara-mtart,

mbrsh TYPE mara-mbrsh,

meins TYPE mara-meins,

lsel TYPE c,

END OF t_mara.

DATA : it_mara TYPE STANDARD TABLE OF t_mara WITH HEADER LINE,

it_mara1 TYPE STANDARD TABLE OF t_mara WITH HEADER LINE,

cols LIKE LINE OF tc1-cols.

DATA : v_lines TYPE i,

lsel,

v_fill TYPE i,

v_limit TYPE i.

DATA : fg_set TYPE c VALUE ''.

DATA : ok_code TYPE sy-ucomm,

save_ok TYPE sy-ucomm.

CONSTANTS : c_mtart(4) TYPE c VALUE 'FERT'.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE status_0100 OUTPUT.

SET PF-STATUS 'SCREEN_100'.

SET TITLEBAR 'RAJ'.

IF fg_set = ''.

SELECT matnr

mtart

mbrsh

meins

FROM mara

INTO TABLE it_mara

WHERE mtart = c_mtart.

DESCRIBE TABLE it_mara LINES v_fill.

v_lines = v_fill.

fg_set = 'X'.

ENDIF.

IF fg_set = 'X'.

EXIT.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module fill_table_control OUTPUT

&----

text

----

MODULE fill_table_control OUTPUT.

READ TABLE it_mara INTO it_mara1 INDEX tc1-current_line.

ENDMODULE. " fill_table_control OUTPUT

&----

*& Module cancel INPUT

&----

text

----

MODULE cancel INPUT.

LEAVE PROGRAM.

ENDMODULE. " cancel INPUT

&----

*& Module read_table_control INPUT

&----

text

----

MODULE read_table_control INPUT.

v_lines = sy-loopc .

it_mara1-lsel = lsel.

MODIFY it_mara FROM it_mara1 INDEX tc1-current_line.

ENDMODULE. " read_table_control INPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE user_command_0100 INPUT.

ok_code = sy-ucomm.

save_ok = ok_code.

CLEAR ok_code.

CASE save_ok.

WHEN 'NEXT_LINE'.

tc1-top_line = tc1-top_line + 1.

v_limit = v_fill - v_lines + 1.

IF tc1-top_line > v_limit.

tc1-top_line = v_limit.

ENDIF.

WHEN 'PREV_LINE'.

tc1-top_line = tc1-top_line - 1.

IF tc1-top_line < 0.

tc1-top_line = 0.

ENDIF.

WHEN 'NEXT_PAGE'.

tc1-top_line = tc1-top_line + v_lines.

v_limit = v_fill - v_lines + 1.

IF tc1-top_line > v_limit.

tc1-top_line = v_limit.

ENDIF.

WHEN 'PREV_PAGE'.

tc1-top_line = tc1-top_line - v_lines.

IF tc1-top_line < 0.

tc1-top_line = 0.

ENDIF.

WHEN 'LAST_PAGE'.

tc1-top_line = v_fill - v_lines + 1.

WHEN 'FIRST_PAGE'.

tc1-top_line = 0.

WHEN 'DELETE'.

READ TABLE tc1-cols INTO cols

WITH KEY screen-input = '1'.

IF sy-subrc = 0.

LOOP AT it_mara INTO it_mara1 WHERE lsel = 'X'.

DELETE it_mara.

fg_set = 'X'.

ENDLOOP.

ELSE.

fg_set = ''.

ENDIF.

WHEN 'INSERT'.

LOOP AT it_mara INTO it_mara1 WHERE lsel = 'X'.

INSERT INITIAL LINE INTO it_mara INDEX sy-tabix.

ENDLOOP.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

WHEN 'JADOO'.

READ TABLE tc1-cols INTO cols

WITH KEY selected = 'X'.

IF sy-subrc = 0.

cols-invisible = '1'.

MODIFY tc1-cols FROM cols INDEX sy-tabix.

ENDIF.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

*************

Regards,

Raj

Re: Table control

Former Member — Thu, 24 Nov 2005 04:51:05 GMT

Hi Rajasekhar,

Thanks for the reply.But my requirement is if i write in empid field and press enter then empid and emp name should be filled.

with regards,

kiran

Re: Table control

Former Member — Thu, 24 Nov 2005 07:01:19 GMT

For enter,

case sy-ucomm.

when ' '.

Name = 'test'.

endcase.

Try this

Re: Table control

Former Member — Thu, 24 Nov 2005 13:05:29 GMT

Hi All,

Could any one of you help me out.In table control when iam enteringa value and pressing enter that is disappearing.how to restict that.

with regards,

kiran i

Re: Table control

RichHeilman — Thu, 24 Nov 2005 13:24:36 GMT

In the MODIFY module, do something like this.



  modify itab
    index itabcon-current_line.
if sy-subrc <> 0.
append itab.
endif.

Regards,

Rich Heilman