Table Control

Former Member — Thu, 08 Jun 2006 06:40:03 GMT

Hi all,

Iam new to Module programming .

I have table control that contains 3 input fields .

in one field i need to put search help.

in 2nd i need to validate.

after giving input values .

i need to display output data in remaing fields.

Thanks,Rayeez

Re: Table Control

Former Member — Thu, 08 Jun 2006 06:48:49 GMT

Hi,

check these demo's

DEMO_DYNPRO_TABCONT_LOOP

DEMO_DYNPRO_TABCONT_LOOP_AT

DEMO_DYNPRO_TABLE_CONTROL_1

DEMO_DYNPRO_TABLE_CONTROL_2

RSDEMO_TABLE_CONTROL

RSDEMO02

Regards

vijay

Re: Table Control

venkat_o — Thu, 08 Jun 2006 07:09:50 GMT

Hi rayeezuddin shaik,

1.

Start Screen Flow logic like this.

PROCESS BEFORE OUTPUT.

*----

MODULE status_2000.

PROCESS AFTER INPUT.

FIELD i_hrdata-pernr MODULE check_pernr.

Check_pernr module is for Validatatin

MODULE user_command_2000.

user_command_2000 is for populating other fields

PROCESS ON VALUE-REQUEST .

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

FIELD i_hrdata-docn1 MODULE for_docn1_f4_help.

for_docn1_f4_help is for Search help

&----

text

----

MODULE check_pernr INPUT.

DATA :w_hrdata_1 LIKE i_hrdata .

IF sy-ucomm = 'SAVE' OR

sy-ucomm = 'CHECK' OR

sy-ucomm = 'START'.

READ TABLE i_it0002 WITH KEY mark = 'X'.

IF i_it0002-mark = 'X'.

IF NOT i_hrdata IS INITIAL.

IF NOT i_hrdata-pernr IS INITIAL.

SELECT SINGLE pernr

FROM pa0003

INTO pa0003

WHERE pernr = i_hrdata-pernr.

IF sy-subrc = 0.

MESSAGE e303(me) WITH 'Employee already existed'.

ELSE.

READ TABLE i_hrdata INTO w_hrdata_1

WITH KEY pernr = i_hrdata-pernr.

IF w_hrdata_1-pernr = i_hrdata-pernr.

IF w_hrdata_1-applnno = i_hrdata-applnno.

ELSE.

MESSAGE e303(me)

WITH 'Employee' i_hrdata-pernr 'already assigned to Appln'

w_hrdata_1-applnno .

ENDIF.

ELSE.

IF i_it0002-mark = 'X'.

MESSAGE e303(me)

WITH 'Employee number should not be blank in HR inputs details'.

ENDIF.

ELSE.

MESSAGE e303(me)

WITH 'Employee number should not be blank in HR inputs details'.

ENDIF.

CLEAR w_hrdata_1.

ENDMODULE. " check_pernr INPUT

MODULE for_docn1_f4_help INPUT.

DATA :BEGIN OF i_num OCCURS 0 ,

data(5),

text(20),

END OF i_num.

DATA:l_choice LIKE sy-tabix.

CLEAR i_num[].

CLEAR i_num.

CASE cap_ictyp.

WHEN 'F2'.

i_num-data = 'P1'.