Selection Screen

Selection Screen

Hallo Leute,

Folgende Thematik: In meinem Report muss in meinem Eingabe Feld etwas eingegeben werden. Wenn nichts eingegeben wird, dann kommt eine Fehlermeldung und der Benutzer sollte wieder in den Selection Screen zurück kommen, was mein Report aber zurzeit nicht macht.

* Es sollte auf jeden Fall auf ein Objekt eingeschränkt werden.
IF so_progn IS INITIAL.
MESSAGE lv_txt TYPE 'W' DISPLAY LIKE 'E'.
Call Screen 100.
ELSE.

Mein Call Screen stimmt schon mal leider nicht, aber ich weiß auch nicht wie ich es so programmieren kann das es wieder in den Selection Screen stehen bleibt. Ein Kollege von mit hat mir sowas wie Set Cursor Field gesagt aber auch mit dem Befehl bekomm ich es leider nicht hin -.-

Re: Selection Screen

Würde ansich auch reichen allerdings kann ich die Fehlermeldung von Obligatory bearbeiten das meine eigene Fehlermeldung erscheint?

Re: Selection Screen

Versuch es mal im Event "AT SELECTION SCREEN ON s_progn" (vor START-OF-SELECTION).

Re: Selection Screen

burggartenkind hat geschrieben: ↑

02.08.2019 07:58

qyurryus hat geschrieben: ↑

02.08.2019 07:53

Versuch es mal im Event "AT SELECTION SCREEN ON s_progn" (vor START-OF-SELECTION).

AT SELECTION-SCREEN ON so_progn.

START-OF-SELECTION.

IF so_progn IS INITIAL.
SET CURSOR FIELD 'SO_PROGN'.
MESSAGE lv_txt TYPE 'W' DISPLAY LIKE 'E'.
ELSE.

meinst du es so herum?

Weil dann bekomm ich zwar die Error Message Displayed aber nicht die so_progn -.-

Re: Selection Screen

qyurryus hat geschrieben: ↑

02.08.2019 08:11

Code: Alles auswählen.

AT SELECTION-SCREEN ON so_progn.

IF so_progn IS INITIAL.
SET CURSOR FIELD 'SO_PROGN'.
MESSAGE lv_txt TYPE 'W' DISPLAY LIKE 'E'.
ENDIF.

START-OF-SELECTION.
. . .

Habs jetzt so umgestellt aber bekommen noch immer nicht die Message displayed -.-

Re: Selection Screen

qyurryus hat geschrieben: ↑

02.08.2019 08:33

Habs mal schnell getestet. Bei mir wird der Cursor auf das Feld gesetzt und die Message angezeigt.
DAg01mmVsA.png

REPORT zgr_scmon_eval.

TYPES: BEGIN OF ty_tadir,
object LIKE tadir-object,
obj_name LIKE tadir-obj_name,
END OF ty_tadir.

DATA: lt_scmon_prog TYPE TABLE OF scmon_prog WITH HEADER LINE,
lt_tadir TYPE TABLE OF ty_tadir,
alv TYPE REF TO cl_salv_table,
lv_txt TYPE string.


DATA: BEGIN OF ls_scmon_procprog,
progid LIKE scmon_prog-progid,
object LIKE scmon_prog-object,
obj_name LIKE scmon_prog-obj_name,
trigid LIKE scmon_proc-trigid,
END OF ls_scmon_procprog.

DATA: BEGIN OF ls_scmon_subdata,
trigid LIKE scmon_data-trigid,
subid LIKE scmon_data-subid,
sliceid LIKE scmon_data-sliceid,
roottype LIKE scmon_sub-roottype,
END OF ls_scmon_subdata.

DATA: BEGIN OF ls_object,
object LIKE scmon_prog-object,
obj_name LIKE scmon_prog-obj_name,
END OF ls_object.

DATA: lt_object LIKE TABLE OF ls_object,
lt_scmon_subdata LIKE TABLE OF ls_scmon_subdata,
lt_scmon_procprog LIKE TABLE OF ls_scmon_procprog.

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) TEXT-p01.
SELECT-OPTIONS: so_progn FOR lt_scmon_prog-obj_name NO INTERVALS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK block1.

lv_txt = 'Bitte auf ein Objekt einschränken'.

AT SELECTION-SCREEN ON so_progn.

IF so_progn IS INITIAL.
SET CURSOR FIELD 'SO_PROGN'.
MESSAGE lv_txt TYPE 'W' DISPLAY LIKE 'E'.
ENDIF.

START-OF-SELECTION.

das is mein Coding bis zu START-OF- SELECTION vielleicht siehst du hier noch irgendwo einen fehler?

Re: Selection Screen

in o.g. Beispiel ist "lv_txt" leer zum Zeitpunkt "AT SELECTION-SCREEN ON so_progn." Daher auch keine Message.
dann wird die auch angezeigt. Aber wie mein Vorschreiber schon anmerkte: Wozu dieser Aufwand? Mach es so einfach wie möglich.