Code: Alles auswählen.
MODULE user_command_100 INPUT.
CASE save_ok.
WHEN 'SUB5'.
* message 'Hello' type 'E'.
* IF anz1 = space.
* anz1 = 'X'.
LOOP AT SCREEN.
IF screen-name = 'AREA1'.
screen-invisible = 1.
modify screen.
ENDIF.
ENDLOOP.
CLEAR save_ok.
CLEAR ok_code.
WHEN 'SUB1'.
number1 = '0110'.
WHEN 'SUB2'.
number1 = '0120'.
CLEAR field1.
WHEN 'SUB3'.
number2 = '0130'.
WHEN 'SUB4'.
number2 = '0140'.
CLEAR field2.
ENDCASE.
ENDMODULE. "user_command_100 INPUT
Ich habe das auch mal so probiert, aber es hat nicht funktioniert. Du müßtest den LOOP AT SCREEN im PBO des SUB-SCREENS machen und dort alle Elemente ausblenden. Oder du machst den SUBSCREEN-Aufruf dynamisch und legst dir einen neuen leeren SUBSCREEN an.Bajdu hat geschrieben:Ich möchte ein Subscreen mit der Hilfe eine Pusbutton ausblenden einblenden.
Aber das code macht nichts. Warum?
Probier mal screen-active = '0'.Bajdu hat geschrieben:ich versuchte so.
screen-invisible = 1.
Beim mir gehtseberhard hat geschrieben:Hallo,
Mit Loop at Screen funktionierts nicht
Code: Alles auswählen.
* Subscreen 100
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: p1(10) TYPE c,
p2(10) TYPE c,
p3(10) TYPE c.
SELECTION-SCREEN END OF SCREEN 100.
* Subscreen 200
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: q1(10) TYPE c,
q2(10) TYPE c,
q3(10) TYPE c.
SELECTION-SCREEN END OF SCREEN 200.
* Subscreen 300, wir nicht angezeigt
SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
SELECTION-SCREEN COMMENT /1(50) text.
SELECTION-SCREEN END OF SCREEN 300.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
TAB (20) button1 USER-COMMAND push1 DEFAULT SCREEN 100,
TAB (20) button2 USER-COMMAND push2 DEFAULT SCREEN 200,
TAB (20) button3 USER-COMMAND push3 DEFAULT SCREEN 300,
END OF BLOCK mytab.
INITIALIZATION.
button1 = 'Selection Screen 1'.
button2 = 'Selection Screen 2'.
button3 = 'Selection Screen 3'.
text = 'Dieser Tab soll nicht angezeigt werden.'.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ 'BUTTON3'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.