Zurück zu Selectionsbildschirm
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
3 Beiträge
•
Seite 1 von 1
3 Beiträge
Seite 1 von 1
Hallo, ich lerne gerade ABAP und habe ein Problem. Hoffe dass mir jmd helfen kann.
Wenn ich das Programm starte komme ich in einen Selectionsbildschirm, indem ich Daten eingeben kann. Wenn ich dann auf Ausführen drücke komme ich auf die nächste Seite (da steht nur Update erfolgreich,..). Und jetzt meine Frage:
Wie schaffe ich es dass ich jetzt wieder auf den ersten Selectionsbildschirm komme? Zum erneut daten anzulegen!
Egal ob mit dem grünen Pfeil (Back, welcher mich ganz in den Editor zurück schmeisst) oder mit einem Button.
Bitte helft mir
Hier mein Code:
REPORT zv11_update_table_single_test.
DATA: lt_rsrparametrizat TYPE TABLE OF rsrparametrizat,
ls_rsrparametrizat TYPE rsrparametrizat,
langu TYPE langu.
SELECTION-SCREEN BEGIN OF SCREEN 500.
PARAMETERS p_param LIKE rsrparametrizat-paramnm.
PARAMETERS p_txt TYPE rstxtlg.
PARAMETERS p_langu LIKE rsrparametrizat-langu OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 500.
CALL SELECTION-SCREEN 500.
SELECT SINGLE *
FROM rsrparametrizat
INTO ls_rsrparametrizat
WHERE langu = p_langu
AND paramnm = p_param
AND objvers = 'A'.
ls_rsrparametrizat-langu = p_langu.
ls_rsrparametrizat-paramnm = p_param.
ls_rsrparametrizat-objvers = 'A'.
ls_rsrparametrizat-txtlg = p_txt.
MODIFY rsrparametrizat FROM ls_rsrparametrizat.
CALL FUNCTION 'DB_COMMIT'.
IF sy-subrc IS INITIAL.
WRITE: 'Update erfolgreich'.
SKIP.
WRITE: / p_param,
p_txt,
p_langu.
ENDIF.
Wenn ich das Programm starte komme ich in einen Selectionsbildschirm, indem ich Daten eingeben kann. Wenn ich dann auf Ausführen drücke komme ich auf die nächste Seite (da steht nur Update erfolgreich,..). Und jetzt meine Frage:
Wie schaffe ich es dass ich jetzt wieder auf den ersten Selectionsbildschirm komme? Zum erneut daten anzulegen!
Egal ob mit dem grünen Pfeil (Back, welcher mich ganz in den Editor zurück schmeisst) oder mit einem Button.
Bitte helft mir
Hier mein Code:
REPORT zv11_update_table_single_test.
DATA: lt_rsrparametrizat TYPE TABLE OF rsrparametrizat,
ls_rsrparametrizat TYPE rsrparametrizat,
langu TYPE langu.
SELECTION-SCREEN BEGIN OF SCREEN 500.
PARAMETERS p_param LIKE rsrparametrizat-paramnm.
PARAMETERS p_txt TYPE rstxtlg.
PARAMETERS p_langu LIKE rsrparametrizat-langu OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 500.
CALL SELECTION-SCREEN 500.
SELECT SINGLE *
FROM rsrparametrizat
INTO ls_rsrparametrizat
WHERE langu = p_langu
AND paramnm = p_param
AND objvers = 'A'.
ls_rsrparametrizat-langu = p_langu.
ls_rsrparametrizat-paramnm = p_param.
ls_rsrparametrizat-objvers = 'A'.
ls_rsrparametrizat-txtlg = p_txt.
MODIFY rsrparametrizat FROM ls_rsrparametrizat.
CALL FUNCTION 'DB_COMMIT'.
IF sy-subrc IS INITIAL.
WRITE: 'Update erfolgreich'.
SKIP.
WRITE: / p_param,
p_txt,
p_langu.
ENDIF.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von a-dead-trousers (Top Expert / 4396 / 223 /
1182
)
»
Hi!
Wenn du den Screen 500 nicht für etwas anderes brauchst, würde ich es so machen:
Wenn du den Screen 500 nicht für etwas anderes brauchst, würde ich es so machen:
Code: Alles auswählen.
...
* SELECTION-SCREEN BEGIN OF SCREEN 500. --> Weg damit
PARAMETERS p_param LIKE rsrparametrizat-paramnm.
PARAMETERS p_txt TYPE rstxtlg.
PARAMETERS p_langu LIKE rsrparametrizat-langu OBLIGATORY.
* SELECTION-SCREEN END OF SCREEN 500. --> Weg damit
* CALL SELECTION-SCREEN 500. --> Weg damit
START-OF-SELECTION. "<-- Rein Damit
SELECT SINGLE *
FROM rsrparametrizat
INTO ls_rsrparametrizat
WHERE langu = p_langu
AND paramnm = p_param
AND objvers = 'A'.
...Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
holderda
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Seite 1 von 1
Vergleichbare Themen
10
Antw.
Antw.
4015
Views
Views
Selectionsbildschirm nach 5 Sekunden überspringen
von dimes » 23.02.2007 14:17 • Verfasst in ABAP® Core
von dimes » 23.02.2007 14:17 • Verfasst in ABAP® Core
5
Antw.
Antw.
1983
Views
Views
6
Antw.
Antw.
2549
Views
Views
3
Antw.
Antw.
1917
Views
Views
2
Antw.
Antw.
2947
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.