GET/SET Cursor
6 Beiträge
•
Seite 1 von 1
6 Beiträge
Seite 1 von 1
Hallo,
ich habe folgendes Problem:
Nach einer Eingabe auf meinem Dynpro und der Bestätigung der ENTER-Taste soll der Cursor ein Feld weiter auf dem Dynpro springen.
Ich habe an GET/SET Cursor gedacht.
Allerdings scheitere ich an der Realisierung.
Würde mich über Hilfe freuen.
ich habe folgendes Problem:
Nach einer Eingabe auf meinem Dynpro und der Bestätigung der ENTER-Taste soll der Cursor ein Feld weiter auf dem Dynpro springen.
Ich habe an GET/SET Cursor gedacht.
Allerdings scheitere ich an der Realisierung.
Würde mich über Hilfe freuen.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo,
da nach ENTER das PAI bzw. PBO durchlaufen wird, musst du einfach im PBO (wie du auch schon beschrieben hast, mit SET CURSOR arbeiten).
Folgendes Coding zb. im PBO:
ok_code => ENTER sollte Blank sein
A, B, C sind die Bezeichnungen der Dynpro-Felder
field ist ein Hilfsfeld
MODULE status_9000 OUTPUT.
IF ok_code = ''.
CASE field.
WHEN ''.
SET CURSOR FIELD 'A'.
field = 'A'.
WHEN 'A'.
SET CURSOR FIELD 'B'.
field = 'B'.
WHEN 'B'.
SET CURSOR FIELD 'C'.
field = 'C'.
WHEN 'C'.
SET CURSOR FIELD 'A'.
field = 'A'.
ENDCASE.
ENDIF.
ENDMODULE. " STATUS_9000 OUTPUT
lg jo
da nach ENTER das PAI bzw. PBO durchlaufen wird, musst du einfach im PBO (wie du auch schon beschrieben hast, mit SET CURSOR arbeiten).
Folgendes Coding zb. im PBO:
ok_code => ENTER sollte Blank sein
A, B, C sind die Bezeichnungen der Dynpro-Felder
field ist ein Hilfsfeld
MODULE status_9000 OUTPUT.
IF ok_code = ''.
CASE field.
WHEN ''.
SET CURSOR FIELD 'A'.
field = 'A'.
WHEN 'A'.
SET CURSOR FIELD 'B'.
field = 'B'.
WHEN 'B'.
SET CURSOR FIELD 'C'.
field = 'C'.
WHEN 'C'.
SET CURSOR FIELD 'A'.
field = 'A'.
ENDCASE.
ENDIF.
ENDMODULE. " STATUS_9000 OUTPUT
lg jo
Beitrag
von black_adept (Top Expert / 4103 / 128 /
945
)
»
Hallo Gotti,
wenn du ohne CASE aukommen möchtest schau doch mal in folgendes Demoprogramm .
Ist zwar für einen Selektionsscreen, damit man es schneller ausprobieren kann - aber analog kannst du ja auch AT SELECTION-SCREEN und AT SELECTION-SCREEN OUTPUT durch PAI und PBO respektive ersetzen.
wenn du ohne CASE aukommen möchtest schau doch mal in folgendes Demoprogramm .
Ist zwar für einen Selektionsscreen, damit man es schneller ausprobieren kann - aber analog kannst du ja auch AT SELECTION-SCREEN und AT SELECTION-SCREEN OUTPUT durch PAI und PBO respektive ersetzen.
Code: Alles auswählen.
REPORT.
DATA: current_cursor(40),
next_cursor(40),
set_next TYPE flag.
PARAMETERS: t1,
t2,
t3,
t4,
t5.
AT SELECTION-SCREEN.
GET CURSOR FIELD current_cursor.
AT SELECTION-SCREEN OUTPUT.
CLEAR: set_next,
next_cursor.
LOOP AT SCREEN.
CHECK screen-input = 1. " Eingabefeld
IF next_cursor IS INITIAL. " Rotierend bei letztem Eintrag
next_cursor = screen-name.
ENDIF.
IF set_next = 'X'.
next_cursor = screen-name.
EXIT.
ENDIF.
CHECK screen-name = current_cursor.
set_next = 'X'.
ENDLOOP.
SET CURSOR FIELD next_cursor.
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
1504
Views
Views
2
Antw.
Antw.
2219
Views
Views
6
Antw.
Antw.
3725
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
CL_GUI_ALV_GRID - Zeilen auf Read-Only / Editierbar schalten
vor 4 Tagen von a-dead-trousers 5 / 1772
vor 4 Tagen von a-dead-trousers 5 / 1772
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
CL_GUI_ALV_GRID - Zeilen auf Read-Only / Editierbar schalten
vor 4 Tagen von a-dead-trousers 5 / 1772
vor 4 Tagen von a-dead-trousers 5 / 1772