Selectionsbildschirm verbessern

Computer: Software & Programmierung JavaScript & Script-Sprachen
#1

hallo zusammen:

ich habe folgende Programm geschrieben:
Data : it_fluege TYPE TABLE OF spfli,
wa_flug type spfli.
START-OF-SELECTION.
parameter pa_ges type spfli-carrid.
CALL FUNCTION ‚Z_2062_GET_FLUEGE‘
EXPORTING

CARRID = pa_ges
IMPORTING
LISTE = it_fluege
EXCEPTIONS

NOT_FOUND = 1
NO_AUTH = 7

.
CASE sy-subrc.
WHEN 1.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno.

when 7.

write : ‚bitte Fehler korrigieren‘.

endcase.

FORMAT COLOR COL_HEADING.
WRITE: /‚Verbindung‘, 12 ‚Abflugsort‘, 35(17) ‚Ankunftsort‘.

uline.
FORMAT COLOR COL_normal.
loop at it_fluege into wa_flug.

MESSAGE s000 with pa_ges.
ULINE AT 1(51).

WRITE: / ‚|‘, wa_flug-connid, ‚|‘, (12) wa_flug-cityfrom, 20 ‚|‘, 30 wa_flug-cityto, 51 ‚|‘.

WRITE: / ‚|‘, 8 ‚|‘, wa_flug-countryfr UNDER wa_flug-cityfrom, 20 ‚|‘,
wa_flug-countryto UNDER wa_flug-cityto, 51 ‚|‘.

HIDE wa_flug.

ULINE AT 1(51).
HIDE wa_flug.

endloop.

End-OF-SELECTION.

AT LINE-SELECTION.

if sy-lsind = 1 and sy-lilli > 5 .
MESSAGE s001 with pa_ges.
FORMAT COLOR COL_HEADING.

WRITE: / ‚Abflugzeit‘, 15 ‚Ankunftzeit‘, 30 ‚Flugzeit‘, 45(20) ‚Entfernung‘.
uline.
FORMAT COLOR COL_normal.

MESSAGE s001 with pa_ges.
ULINE 1(65).
WRITE: / ‚|‘, wa_flug-deptime, 14 ‚|‘, wa_flug-arrtime, 28 ‚|‘, wa_flug-fltime, 42 ‚|‘, wa_flug-distance, ’ ', wa_flug-distid, 65 ‚|‘.

endif.

nun muss ich den selectionsbildschirm verbessern mit eine Drucktaste ‚eintrag löschen‘, dies soll den Inhalt des Parameterfeldes zurücksetzen, und eine zusätzliche text’ Willkommen zum selectionsbildschirm des testprogramms’

hat jemand Ideen wie man das im obigen Programm ergänzen kann?

beste grüsse.

#2

Hallo markech, da kann ich leider nicht weiter helfen.

Gruß
JörgV

#3

Leider kann ich dir hier nicht aushelfen.
Ich kenne ABAP nicht.
Gruss daniele

#4

Hallo,

  1. du kannst mit den Selection-Screen Button arbeiten: SELECTION-SCREEN: FUNCTION KEY 1.

…
wa_flug TYPE spfli.
PARAMETER pa_ges TYPE spfli-carrid.

CONSTANTS: gc_fc01 TYPE sscrfields-ucomm VALUE ‚FC01‘.
Tables sscrfields.
SELECTION-SCREEN: FUNCTION KEY 1.
INITIALIZATION.
sscrfields-functxt_01 = ‚Eintrag löschen‘.

AT SELECTION-SCREEN.
if sscrfields-ucomm = gc_fc01.
clear: pa_ges. "löschen Parameter
endif.

START-OF-SELECTION.

#5

hallo vielen dank für deine Antwort, die Frgae ja wie soll ich das in meinem flug code ergänzen.

andere frage ich soll auch ein text ‚‚Willkommen zum selectionsbildschirm des testprogramms‘‘ in selectionsbildschirm einfügen, habe zwar probiert ohne Erfolg eine Idee vielleicht?

#6

Hallo,

  1. im Report ergänzen siehe >>>>>

Data : it_fluege TYPE TABLE OF spfli,
wa_flug type spfli.

PARAMETER pa_ges TYPE spfli-carrid. ">>>Verschoben gleich nach der Definition und nicht im Start-of-Selektion

* >>>>> Beginn der neue Source >>>>
CONSTANTS: gc_fc01 TYPE sscrfields-ucomm VALUE ‚FC01‘.
Tables sscrfields.
SELECTION-SCREEN: FUNCTION KEY 1.
INITIALIZATION.
sscrfields-functxt_01 = ‚Eintrag löschen‘.

AT SELECTION-SCREEN.
if sscrfields-ucomm = gc_fc01.
clear: pa_ges. "löschen Parameter
endif.
* >>>>> Ende der neue Source >>>>

START-OF-SELECTION.
*Paramter >>>> nach oben verlagert…

  1. Zu „Willkommen“ vielleicht mit --> set TITLEBAR
    hat nur bei mir auf die schnelle nicht funktioniert.
    oder nur eine Message ausgeben?
#7

danke , war sehr hilfreich.