Code: Alles auswählen.
************************************************************************
** BILDSCHIRMBILD
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK auswahl
WITH FRAME TITLE text-001.
SELECT-OPTIONS zauart FOR aufk-auart.
PARAMETERS: ztrans TYPE c AS CHECKBOX.
SELECT-OPTIONS: zgstrp FOR afko-gstrp.
SELECT-OPTIONS: zgltrp FOR afko-gltrp.
SELECT-OPTIONS: zfevor FOR afko-fevor.
SELECT-OPTIONS: zingpr FOR afih-ingpr.
SELECTION-SCREEN END OF BLOCK auswahl.
************************************************************************
** INITIALIZATION
************************************************************************
INITIALIZATION.
PERFORM set_gui_status.
************************************************************************
** AT USER-COMMAND
************************************************************************
START-OF-SELECTION.
WRITE: 'test'.
END-OF-SELECTION.
AT USER-COMMAND.
WRITE: sy-ucomm.
AT SELECTION-SCREEN OUTPUT.
PERFORM test.
*---------------------------------------------------------------------*
* FORM sy_ucomm_ermitteln *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM test.
CASE sy-pfkey.
WHEN 'DOCS'.
* CS Aufträge
WRITE: 'DOCS'.
WHEN 'DOPP'.
* PP Aufträge
WRITE: 'DOPP'.
WHEN 'BACK'.
LEAVE PROGRAM.
ENDCASE.
ENDFORM.
*---------------------------------------------------------------------*
* FORM set_gui_status *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM set_gui_status.
SET PF-STATUS '0100'.
SET TITLEBAR 'DRUCKT0100'.
ENDFORM.
So wie ich das sehe, hast du kein eigenes Dynpro...sondern nur das Selektionsbild (standard die Nummer 1000)LittleT hat geschrieben:Was könnte es noch sein?
Gruß
LittleT
Code: Alles auswählen.
Evtl. VORarbeiten:
Tables: sscrfields.
DATA functxt TYPE smp_dyntxt.
*******************************
INITIALIZATION.
** 1. Möglichkeit
* CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
* EXPORTING
* p_status = 'irgendeinstatus'
* p_program = 'aus einem anderen Programm'
* TABLES
* p_exclude = i_rsexfcode.
*** 2. Möglichkeit
***SET PF-STATUS 'EIGENE_STATUS'.
*** 3.Möglichkeit:
functxt-icon_id = ICON_SIMULATE.
functxt-quickinfo = 'Anzeigen TEST'.
functxt-icon_text = 'IrgendeinText'.
sscrfields-functxt_01 = functxt.
functxt-icon_id = icon_search.
functxt-quickinfo = 'Stringsuche...'.
functxt-icon_text = 'Scanen...'.
sscrfields-functxt_02 = functxt.
****************************************
*** AUF DEM SELEKTIONS-BILDSCHIRM
........
........
SELECTION-SCREEN: FUNCTION KEY 1,
FUNCTION KEY 2.
*****************************************
At selection-Screen.
CASE sscrfields-ucomm.
WHEN 'FC01'.
When 'FC02'.
when others
endcase.
Code: Alles auswählen.
CASE sy-ucomm.
WHEN 'DOCS'.
* CS Aufträge
WRITE:
'Da müsste ich jetzt in die Docs sein',
'ich komme auch hier rein beim debugen bin ich da',
'aber auf den Bildschirm schreibt er mir nichts :-)',
'wisst ihr woran das liegt?'.
WHEN 'DOPP'.
* PP Aufträge
WRITE: 'DOPP'.
WHEN 'BACK' or 'CANCEL' or 'EXIT'.
LEAVE PROGRAM.
ENDCASE.