‎2006 Dec 20 5:57 PM
The thing is and i hope i can be clear enough
is that i only need 1 line to be selected that is why in te properties the radio button selected is single select /(NO muiltiselect line)
situation 1. i check 1 line, and then another one if there are both focus. first line is dismark and the second one is mark... CORRECT.
situation 2 i check 1 line and then i scrool down in order to make out of focus the marked line. and then i check another line. if i s crooll again to first line this one still mark.. so i have 2 lines mark.
is this clear?. if not let me know and ill see to make more clear..
thks.
‎2006 Dec 20 6:30 PM
Diego,
To clarify further, in the PAI module - do something like this:
PROCESS AFTER INPUT.
loop at Tc1.
module MoveChosen.
endloop.
MODULE USER_COMMAND_0100.
******************
MODULE MOVECHOSEN INPUT.
if Tc1-chosen = 'X'.
Tc1-chosen = 'X'.
else.
clear Tc1-chosen.
endif.
modify Tc1 index tablecontrol1-current_line.
ENDMODULE. " MOVECHOSEN INPUT
MODULE USER_COMMAND_0100 INPUT.
case sy-ucomm.
when 'ORDER'. " Go to the selected Order
clear sy-ucomm.
Proceed = 'N'.
Perform CheckTc1.
if Proceed = 'N'.
message i000 with 'Please select one line only.'.
exit.
endif.
**************************
In a FORMS Include.
Form checktc1.
thecntr = 0.
loop at tc1.
if tc1-chosen = 'X'.
thecntr = thecntr + 1.
endif.
endloop.
if thecntr = 0
or thecntr = 1.
proceed = 'Y'.
endif.
endform. "CheckTc1
‎2006 Dec 20 6:25 PM
‎2006 Dec 20 6:30 PM
Diego,
To clarify further, in the PAI module - do something like this:
PROCESS AFTER INPUT.
loop at Tc1.
module MoveChosen.
endloop.
MODULE USER_COMMAND_0100.
******************
MODULE MOVECHOSEN INPUT.
if Tc1-chosen = 'X'.
Tc1-chosen = 'X'.
else.
clear Tc1-chosen.
endif.
modify Tc1 index tablecontrol1-current_line.
ENDMODULE. " MOVECHOSEN INPUT
MODULE USER_COMMAND_0100 INPUT.
case sy-ucomm.
when 'ORDER'. " Go to the selected Order
clear sy-ucomm.
Proceed = 'N'.
Perform CheckTc1.
if Proceed = 'N'.
message i000 with 'Please select one line only.'.
exit.
endif.
**************************
In a FORMS Include.
Form checktc1.
thecntr = 0.
loop at tc1.
if tc1-chosen = 'X'.
thecntr = thecntr + 1.
endif.
endloop.
if thecntr = 0
or thecntr = 1.
proceed = 'Y'.
endif.
endform. "CheckTc1
‎2006 Dec 20 7:35 PM
Diego,
Have you resolved your issue?
If so, please reward points accordingly. If not, please clarify your issue further.
Thanks.