Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

at line selection query

Former Member
0 Likes
783

hello experts!

i have a question regarding at line selection...

i have a report let say my report generate a 24 pages display.

at the last page(page 24) it display the summary.

for example my last page contains this details:

Managers 52

supervisors 20

example i double click the word MANAGER during at line select

it will display the 52 names of manager same page under the word MANAGER. my problem is

when i click the word manager it jumps to page 12 so i have to

scroll down again to page 24....

how can i fix this...

please help...

AT LINE-SELECTION.

SY-LSIND = SY-LSIND - 1.

CLEAR: LV_TEXT1, LV_TEXT2, LV_TEXT3, LV_TEXT4,

WA_LINE1, WA_LINE2, WA_LINE3, WA_LINE4.

READ CURRENT LINE FIELD VALUE CTRL_SUM1-TEXT INTO LV_TEXT1.

READ CURRENT LINE FIELD VALUE CTRL_SUM2-TEXT INTO LV_TEXT2.

READ CURRENT LINE FIELD VALUE CTRL_SUM3-TEXT INTO LV_TEXT3.

READ CURRENT LINE FIELD VALUE SUM_CHANGE-TEXT INTO LV_TEXT4.

IF NOT LV_TEXT1 IS INITIAL.

READ TABLE CTRL_SUM1 INTO WA_LINE1 WITH KEY TEXT = LV_TEXT1

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE1 FROM WA_LINE1.

IF SY-SUBRC NE 0.

APPEND WA_LINE1 TO MARK_LINE1.

ENDIF.

ELSEIF NOT LV_TEXT2 IS INITIAL.

READ TABLE CTRL_SUM2 INTO WA_LINE2 WITH KEY TEXT = LV_TEXT2

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE2 FROM WA_LINE2.

IF SY-SUBRC NE 0.

APPEND WA_LINE2 TO MARK_LINE2.

ENDIF.

ELSEIF NOT LV_TEXT3 IS INITIAL.

READ TABLE CTRL_SUM3 INTO WA_LINE3 WITH KEY TEXT = LV_TEXT3

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE3 FROM WA_LINE3.

IF SY-SUBRC NE 0.

APPEND WA_LINE3 TO MARK_LINE3.

ENDIF.

ELSEIF NOT LV_TEXT4 IS INITIAL.

READ TABLE SUM_CHANGE INTO WA_LINE4 WITH KEY TEXT = LV_TEXT4

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE4 FROM WA_LINE4.

IF SY-SUBRC NE 0.

APPEND WA_LINE4 TO MARK_LINE4.

ENDIF.

ENDIF.

SET SCREEN 7007.

LEAVE SCREEN

5 REPLIES 5
Read only

NAeda
Contributor
0 Likes
742

Hi,

What is the logic you have written at at line selection?

give me the piece of code, so we can analyse.

rgds

Aeda

Read only

Former Member
0 Likes
742

Hi,

Just post the code where you have written AT LINE SELECTION....Will check

Regards

Abhii

Read only

0 Likes
742

AT LINE-SELECTION.

SY-LSIND = SY-LSIND - 1.

CLEAR: LV_TEXT1, LV_TEXT2, LV_TEXT3, LV_TEXT4,

WA_LINE1, WA_LINE2, WA_LINE3, WA_LINE4.

READ CURRENT LINE FIELD VALUE CTRL_SUM1-TEXT INTO LV_TEXT1.

READ CURRENT LINE FIELD VALUE CTRL_SUM2-TEXT INTO LV_TEXT2.

READ CURRENT LINE FIELD VALUE CTRL_SUM3-TEXT INTO LV_TEXT3.

READ CURRENT LINE FIELD VALUE SUM_CHANGE-TEXT INTO LV_TEXT4.

IF NOT LV_TEXT1 IS INITIAL.

READ TABLE CTRL_SUM1 INTO WA_LINE1 WITH KEY TEXT = LV_TEXT1

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE1 FROM WA_LINE1.

IF SY-SUBRC NE 0.

APPEND WA_LINE1 TO MARK_LINE1.

ENDIF.

ELSEIF NOT LV_TEXT2 IS INITIAL.

READ TABLE CTRL_SUM2 INTO WA_LINE2 WITH KEY TEXT = LV_TEXT2

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE2 FROM WA_LINE2.

IF SY-SUBRC NE 0.

APPEND WA_LINE2 TO MARK_LINE2.

ENDIF.

ELSEIF NOT LV_TEXT3 IS INITIAL.

READ TABLE CTRL_SUM3 INTO WA_LINE3 WITH KEY TEXT = LV_TEXT3

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE3 FROM WA_LINE3.

IF SY-SUBRC NE 0.

APPEND WA_LINE3 TO MARK_LINE3.

ENDIF.

ELSEIF NOT LV_TEXT4 IS INITIAL.

READ TABLE SUM_CHANGE INTO WA_LINE4 WITH KEY TEXT = LV_TEXT4

ABKRS = HIDE_ABKRS.

DELETE TABLE MARK_LINE4 FROM WA_LINE4.

IF SY-SUBRC NE 0.

APPEND WA_LINE4 TO MARK_LINE4.

ENDIF.

ENDIF.

SET SCREEN 7007.

LEAVE SCREEN

Read only

0 Likes
742

SCREEN 700:

PROCESS BEFORE OUTPUT.

MODULE STATUS_7007.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_7007.

MODULE STATUS_7007:

SET PF-STATUS 'MAIN'.

SUPPRESS DIALOG.

LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.

PERFORM EXPLAINER.

IF NOT ( TAB_ABKRS[] IS INITIAL ).

PERFORM NEW_SUMMARY.

  • SCROLL LIST INDEX 1 TO PAGE SY-CPAGE LINE SY-STARO.

ENDIF.

PERFORM END_REPORT.

Read only

Former Member
0 Likes
742

solved already