PAI auslösen bei Auswahl von Radio-Button

[Carmen214]

Hallo allerseits,

hab eine ganz banale und einfache Sache, aber wie es manchmal so ist happerts es an so Kleinigkeiten.

Habe folgende Teil-Aufgabenstellung: Beim der Auswahl eines Radiobuttons im Selektionsscreen(Dynpro1000) sollen 3 Parameters-Felder ausgeblendet werden.
Bei der Auswahl eines weiteren ein anderes Feld.

Das zweite funktioniert schon ich werte im PBO den radiobutton der standardmäßig auf X gesetzt st.

Sobald ich versuche auf dem Selektionsscreen durch die Auswahl des anderen Radiobuttons PAI auszulösen funktioniert es nicht. Warum wird kein PAI ausgelöst?? Weiß einer ein Lösung

Hier der Code:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. "Definition Selektionsscreen
2. SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
3.  
4.    PARAMETERS:
5.    p_werks   TYPE zplm_ser_kenn_w-werks MODIF ID wms,
6.    p_matnr   TYPE mara-matnr MODIF ID wms,
7.    p_sernr   TYPE zplm_sernr MODIF ID wms,
8. *  p_aez     TYPE equz-tidnr OBLIGATORY.
9.    p_aez     TYPE tcc09-revlv MODIF ID wms.
10.  
11.    PARAMETERS p_aufnr   TYPE CAUFVD-AUFNR MODIF ID wms.
12.  
13.  
14. SELECTION-SCREEN END OF BLOCK a1.
15.  
16.  
17. SELECTION-SCREEN BEGIN OF BLOCK a3 WITH FRAME TITLE text-005.
18.   PARAMETERS: p_ausw1 RADIOBUTTON GROUP r1 MODIF ID rg1 DEFAULT 'X',
19.               p_ausw2 RADIOBUTTON GROUP r1 MODIF ID rg1.
20. SELECTION-SCREEN END OF BLOCK a3.
21.  
22. AT SELECTION-SCREEN ON RADIOBUTTON GROUP r1.
23.  
24. LOOP AT SCREEN.
25.  
26.     IF ( screen-group1 = 'WMS' AND p_ausw2 = 'X' ).
27.       CASE screen-name.
28.         WHEN 'P_MATNR'.
29.           screen-input = 0.
30.           MODIFY SCREEN.
31.         WHEN 'P_SERNR'.
32.           screen-input = 0.
33.           MODIFY SCREEN.
34.         WHEN 'P_WERKS'.
35.           screen-input = 0.
36.           MODIFY SCREEN.
37.         WHEN 'P_AEZ'.
38.           screen-input = 0.
39.           MODIFY SCREEN.
40.         WHEN 'P_AUFNR'.
41.           screen-input = 1.
42.           MODIFY SCREEN.
43.       ENDCASE.
44.     ELSEIF ( screen-group1 = 'WMS' AND p_ausw1 = 'X' ).
45.       CASE screen-name.
46.         WHEN 'P_MATNR'.
47.           screen-input = 1.
48.           MODIFY SCREEN.
49.         WHEN 'P_SERNR'.
50.           screen-input = 1.
51.           MODIFY SCREEN.
52.         WHEN 'P_WERKS'.
53.           screen-input = 1.
54.           MODIFY SCREEN.
55.         WHEN 'P_AEZ'.
56.           screen-input = 1.
57.           MODIFY SCREEN.
58.         WHEN 'P_AUFNR'.
59.           screen-input = 0.
60.           MODIFY SCREEN.
61.       ENDCASE.
62.     ENDIF.
63.   ENDLOOP.
64.  
65.  

GeSHi ©

[Carmen214]

Hallo habs gerade selbst gelöst,

dem ersen Radiobutton der Radiobutton group hat nur user coman gefehlt hier:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. PARAMETERS: p_ausw1 RADIOBUTTON GROUP r1 MODIF ID rg1 DEFAULT 'X' USER-COMMAND r1,
2.  

GeSHi ©

Und damit läufts.