Code: Alles auswählen.
PROCESS BEFORE OUTPUT.
MODULE: PF-TASTE9001.
Code: Alles auswählen.
*---- FÜR DEN SCREEN 9001 --------------------------*
MODULE PF-TASTE9001 output.
SET pf-status 'STANDARD'.
ENDMODULE.
Code: Alles auswählen.
PROCESS AFTER INPUT.
MODULE: PF-ENTER9001.
Code: Alles auswählen.
MODULE PF-ENTER9001.
CASE sy-ucomm.
WHEN 'ENTER'.
CLEAR sy-ucomm.
PERFORM entry_access.
WHEN 'SAVE'.
CLEAR sy-ucomm.
MESSAGE E005(30).
WHEN 'BACK'.
CLEAR sy-ucomm.
CALL SCREEN 9000.
WHEN 'EXIT'.
CLEAR sy-ucomm.
LEAVE PROGRAM.
WHEN 'PRINT'.
CLEAR sy-ucomm.
PERFORM print_access.
ENDCASE.
ENDMODULE.
Code: Alles auswählen.
import sta to int_sta
ctx to int_ctx
fun to int_fun
mtx to int_mtx
doc to int_doc
tit to int_tit
men act adm but pfk set biv
from database eudb(cu) id eudb_key
ignoring structure boundaries.
Hi Charadin,Charadin hat geschrieben:Die Tabelle RSMPTEXTS ist zwar recht gut, aber leider findet man in dieser Tabelle keinen Bezug von Funktionscode zu Dynpro.
Code: Alles auswählen.
IF zmodus = 'ÄNDERN'.
SET PF-STATUS 'AEND'.
ELSEIF zmodus = 'ANZEIGE'.
SET PF-STATUS = 'ANZ'.
ELSE.
SET PF-STATUS = 'ABC'.
ENDIF.
Code: Alles auswählen.
IF zmodus = 'ANZEIGE'.
APPEND 'FK01' to cua_exclude.
APPEND 'SAVE' to cua_exclude.
ENDIF.
SET PF-Status 'TEST' excluding cua_exclude.
womit wir wieder bei der Frage wären:ewx hat geschrieben:...
Das wird also alles nichts!
Gruß,
Enno