Dynprofeld dynamisch eingabebereit

[Bettina1710]

Hallo,
ich stehe vor einem Problem.
Ich habe ein Dynrpo mit 4 Feldern (Feld1, Feld2, Feld3, Feld4)

Feld1 und Feld2 sind eingabebereit.
Nachdem in Feld1 etwas eingegeben wurde, sollen nach einer Logik Feld3 oder Feld4 eingabebereit sein. Möglichst ohne vorherige Betätigung der Enter-Taste.

Hat hier jemand eine Lösung für solch ein Problem?

Danke!

[Josie2243]

Möglichst ohne vorherige Betätigung der Enter-Taste.

Es muss schon eine Aktion auf dem Dynpro angestoßen werden um zu erst durch PAI und dann dein gesuchter Bereich: PBO zulaufen. Im PBO mittels LOOP AT SCREEN kannst du über screen-input = 1 oder 0, die Eingabefähigkeit der Fleder setzten.

Bei Checkboxen und Radiobutton kann ein User-Command angebunden werden, der automatisch angestoßen wird, wenn das Element ausgewählt wird. Bei "freien" Feldern ist dies nicht möglich.

[Lennie3901]

Falls die Eingabemöglichkeiten in Feld 1 beschränkt sind, lohnt es sich über Listboxen nachzudenken, dort wäre ein automatischer Refresh möglich.

[Ilja583]

Oder ganz frech mittels Timerevent (im Sekundentakt schauen und) falls nötig einen PAI automatisch triggern.

[Jim3723]

hi *,

hat jetzt leider gar nix mit dem thema an sich zu tun, nur mit dem posting von black_adept.

auch wenn es nach seltsamer programmierung anmutet, timerevent sagt mir überhaupt nichts, interessieren würde es mich aber trotzdem
kannst du das mal ein wenig genauer formulieren?

danke im voraus!

[ewx]

Das mutet nicht nur so an, es IST seltsam!!
Besonders für den Anwender, wenn gerade sein Feld bestückt und dann ein paar Zeichen nicht übernommen werden, weil der OK-Code gerade prozessiert wird. Und dann eine Steuertabelle dazu programmiert wird, in der jeder Anwender individuell einstellen kann, nach wievielen Sekunden die Aktion ausgeführt werden soll *lach*
http://tricktresor.de/content/index.php ... 05&aID=428

[Ilja583]

@ewx: Komisch, dass grade du meinen tollen Vorschlag so kommentierst *lach*

@peterpaulandmary.
Ich hab dir mal ein Beispielprogramm angehängt. Ist zwar ohne Dynpro sondern nur Listausgabe - aber das Prinzip ist dasselbe.
Es gibt da ein Eingabefeld und wenn du dort die Nummer eines existierenden Mandanten eingibst wird dieser gelöscht.

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

1. REPORT LINE-SIZE 1000.
2.  
3. TABLES: t000.
4.  
5. DATA: hideflag  TYPE flag,
6.       new_mandt TYPE sy-mandt,
7.       linno     TYPE sylinno.
8.  
9. DATA: cl_timer TYPE REF TO cl_gui_timer.
10.  
11. *----------------------------------------------------------------------*
12. *       CLASS lcl_event_receiver DEFINITION
13. *----------------------------------------------------------------------*
14. CLASS lcl_event_receiver DEFINITION.
15.   PUBLIC SECTION.
16.     CLASS-METHODS: handle_finished FOR EVENT finished OF cl_gui_timer.
17. ENDCLASS.                    "lcl_event_receiver DEFINITION
18.  
19. *----------------------------------------------------------------------*
20. *       CLASS lcl_event_receiver IMPLEMENTATION
21. *----------------------------------------------------------------------*
22. CLASS lcl_event_receiver IMPLEMENTATION.
23.   METHOD handle_finished.
24. *    BREAK-POINT.
25.     READ LINE linno.
26.     new_mandt = sy-lisel+4(3).
27.     DO.
28.       IF sy-index = linno.
29.         EXIT.
30.       ENDIF.
31.       CLEAR hideflag.
32.       READ LINE sy-index.
33.       CHECK hideflag = 'X'.
34.       IF t000-mandt = new_mandt.
35.         sy-lisel(1) = '*'.
36.       ELSE.
37.         sy-lisel(1) = ' '.
38.       ENDIF.
39.       modify line sy-index.
40.     ENDDO.
41. *    CALL METHOD cl_gui_cfw=>set_new_ok_code
42. *      EXPORTING
43. *        new_code = 'PICK'.
44.     cl_timer->interval = 1.
45.     CALL METHOD cl_timer->run
46.       EXCEPTIONS
47.         error  = 1
48.         OTHERS = 2.
49.   ENDMETHOD.                    "handle_finished
50. ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
51.  
52.  
53. END-OF-SELECTION.
54.   hideflag = 'X'.
55.   SELECT * FROM t000.
56.     WRITE:/ space,t000.
57.     HIDE: hideflag,t000.
58.   ENDSELECT.
59.   CLEAR hideflag.
60.  
61.   CLEAR t000.
62.  
63.   WRITE:/ '-->',t000-mandt INPUT ON,'<--'.
64.   linno = sy-linno.
65.  
66.  
67.   CREATE OBJECT cl_timer.
68.   cl_timer->interval = 1.                                   " 1 Sekunde
69.  
70.   CALL METHOD cl_timer->run.
71.   SET HANDLER lcl_event_receiver=>handle_finished FOR cl_timer.

GeSHi ©

[ewx]

@ewx: Komisch, dass grade du meinen tollen Vorschlag so kommentierst *lach*

Frechheit!!