topic Screen Refreshment in Application Development and Automation Discussions

Screen Refreshment

Former Member — Wed, 10 May 2006 22:23:41 GMT

Hi All

I have one issue in my report. I display report in a normal screen using SUPPRESS DIALOG. I use HIDE statement to enable AT LINE-SELECTION event. When I double click the report line another window opens as popup. I should be able to enter new value to the selected line items and, when I click OK button in popup the new value have to be updated in the report list. Then when I click Back button in the screen the initial screen (selection screen) have to come.

I could able to update the report list when I change value with popup. But I could not come to selection screen (first screen) from the screen where I display my report list with single BACK button click.

I tried with the following code in USER-COMMAND event of BACK button.

LEAVE TO SCREEN 0

SET SCREEN 1000. LEAVE SCREEN.

CALL TRANSACTION 'XXXX'

None is working.

Anybody faced this same issue?

My actual requirement is same as Tcode: MC40.

Please give me a solution.

Thanks in advance.

Bala

Re: Screen Refreshment

Former Member — Wed, 10 May 2006 23:49:26 GMT

Hi Hari,

Theres an option like this check it out if it works for you.

CALL SELECTION-SCREEN <dynnr> ...

Cheers

Message was edited by: Vijayendra Rao

Re: Screen Refreshment

Former Member — Thu, 11 May 2006 04:17:29 GMT

GOOD

CHECK OUT THIS PROGRAM OF SUPPRESS DIALOG

PROGRAM SAPMSYST MESSAGE-ID 00.

" IMRE OUTPUT

&----

*& Module LILI OUTPUT

&----

text *

----

MODULE LILI OUTPUT.

CALL SCREEN 9876 STARTING AT 10 1 ENDING AT 75 23.

ENDMODULE. " LILI OUTPUT

&----

*& Module LALA OUTPUT

&----

text *

----

MODULE LALA OUTPUT.

TABLES: T000.

DATA: FDIR(70) VALUE '/usr/sap/trans/message/m.',

RECORD(256),

DSN(70).

SUPPRESS DIALOG.

LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.

NEW-PAGE NO-TITLE NO-HEADING.

SET TITLEBAR '123'.

WRITE: / 'The following clients are accessible in the'

, SY-SYSID(3), 'system:'.

WRITE: / ' (Choose one by double clicking on it)'.

SKIP.

SELECT * FROM T000 CLIENT SPECIFIED.

WRITE: / ' ',

T000-MANDT COLOR 2, T000-MTEXT COLOR 2. HIDE T000-MANDT.

ENDSELECT.

CLEAR T000-MANDT.

SKIP 1.

WRITE: / 'Please report any problems to:'.

SKIP 1.

WRITE: / '.......'

COLOR 2.

SKIP 1.

WRITE: / 'System Messages:'.

skip 1.
concatenate fdir sy-sysid(3) into dsn.

open dataset dsn in text mode for input.
if sy-subrc ne 0.
skip 1.
write: / 'Error opening the system message file ' color 6
, sy-subrc.
else.
do.
read dataset dsn into record.
if sy-subrc ne 0.
exit.
endif.
if record(1) ne '#'.
write: / record.
endif.
enddo.
close dataset dsn.
endif.

ENDMODULE. " LALA OUTPUT

&----

*& Event AT LINE-SELECTION

&----

AT LINE-SELECTION.

READ LINE SY-INDEX.

IF T000-MANDT IS INITIAL. EXIT. ENDIF.

RSYST-MANDT = T000-MANDT.

LEAVE SCREEN.

CLEAR T000.

THANKS

MRUTYUN

Re: Screen Refreshment

Former Member — Thu, 11 May 2006 04:27:31 GMT

If you have create a new (secondary) list in the event AT LINE-SELECTION, after pressing BACK the system back to first (primary list).

So you haven't to create a secondary list if you want to back to selection-screen and you can do it setting the system variable SY-LSIND to 0:

AT LINE-SELECTION.

SY-LSIND = SY-LSIND - 1.

WRITE: 'Bla bla.....'.

Max