Initialer Aufruf mehrer Dynpros erkennen

Getting started ... Alles für einen gelungenen Start.
3 Beiträge • Seite 1 von 1
3 Beiträge Seite 1 von 1

Initialer Aufruf mehrer Dynpros erkennen

Beitrag von pohlmann-schwarza (ForumUser / 91 / 0 / 0 ) »
Hallo Leute,
ich versuche den initialen Aufruf mehrerer Dynpros zu erkenen.
Beim ersten Dynpro in der Kette funktioniert das wunderbar mittels: swl_widisp_get_init. Wende ich das Makro aber auf das zweite Dynpro an
sagt erkennt er den ersten Aufruf nicht.
Mein Code:

Code: Alles auswählen.

* INITIALS
DATA: init_flag3           LIKE sy-input,
           init_flag4           LIKE sy-input.

*-----------------------------------------------------------------------*
MODULE status_0400 OUTPUT.
  SET PF-STATUS 'SCREEN_100'.

  PERFORM d100_initial.
ENDMODULE.                             " status_0400  OUTPUT

*&---------------------------------------------------------------------*
*&      Form  D100_INITIAL
*&---------------------------------------------------------------------*
*       Spezielle Anweisungen beim Initialem Aufruf von Dynpro 400
*----------------------------------------------------------------------*
FORM d100_initial.

  swl_widisp_get_init init_flag1.
  CHECK init_flag1 IS INITIAL.
  
* Anweisungen...
ENDFORM.                    " D100_INITIAL


*-----------------------------------------------------------------------*
MODULE status_0200 OUTPUT.
  SET PF-STATUS 'SCREEN_200'.

  PERFORM d200_initial.
ENDMODULE.                             " status_0400  OUTPUT

*&---------------------------------------------------------------------*
*&      Form  D200_INITIAL
*&---------------------------------------------------------------------*
*       Spezielle Anweisungen beim Initialem Aufruf von Dynpro 400
*----------------------------------------------------------------------*
FORM d200_initial.

  swl_widisp_get_init init_flag2.
  CHECK init_flag2 IS INITIAL.
  
* Anweisungen...
ENDFORM.                    " D200_INITIAL

Viele Grüße
Michael

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Beitrag von ewx (Top Expert / 4854 / 313 / 644 ) »
Bei dem Quellcode

Code: Alles auswählen.

FUNCTION SWL1_USER_WIDISP_GET_INIT.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  EXPORTING
*"     VALUE(INIT) TYPE  XFELD
*"----------------------------------------------------------------------

  INIT = INIT_USERSTRIP.
  INIT_USERSTRIP = CROSS.

ENDFUNCTION.
kann auch nix anderes passieren.
Das ist wohl nicht dafür gedacht, wofür du es verwendest...
Du brauchst ja auch nur im PBO ein

Code: Alles auswählen.

if screen_100_called is initial. screen_100_called = 'X'. endif.
einzubauen, dann hast du deine Funktionalität.

Beitrag von babap (Expert / 681 / 1 / 1 ) »
Hallo,

in diesem Fall helfen sicherlich 2 globale Variablen

Code: Alles auswählen.

data:
G_FIRST_TIME_301 value 'X',
G_FIRST_TIME_302 value 'X'.
Dann nachschauen, ob das Bild noch "jungfräulich" ist.

Code: Alles auswählen.

IF NOT G_FIRST_TIME_301 is INITIAL.
*
... mach was beim ersten mal
*
ENDIF.
und als letzte Verarbeitung in jedem Bild wird es mit einem freundlihen CLEAR als "bearbeitet" markiert.

Code: Alles auswählen.

CLEAR G_FIRST_TIME_301
Und dann das gleiche für das zweite oder dritte Bild.

Gruß
babap

Seite 1 von 1

Vergleichbare Themen

6
Antw.
3163
Views
Aufruf der TA SE91/ Überspringen des 1. Dynpros
von sarastro99 » 30.07.2008 18:30 • Verfasst in ABAP® für Anfänger
5
Antw.
3395
Views
Problem bei Aufruf eines Dynpros mit Call Transaction
von Wejbora » 06.03.2006 14:51 • Verfasst in Dialogprogrammierung
14
Antw.
14620
Views
Append mehrer Zeilen mit VALUE #
von Romaniac » 09.01.2018 18:14 • Verfasst in ABAP® Core
2
Antw.
2148
Views
Selektion mehrer Excel-Sheets
von Ludo » 20.01.2005 14:50 • Verfasst in ABAP® Core
2
Antw.
2076
Views
Mehrer Änhänge per Mail verschicken
von godevilgo » 28.04.2006 15:08 • Verfasst in ABAP® Core

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

ABAP - Mail so10 Text
vor einer Stunde von PeterPaletti 2 / 44
selection-screen comment mit icon
vor 5 Stunden von DeathAndPain 9 / 1122
Chat GPT - Erfahrungen?
vor 3 Tagen von DeathAndPain 33 / 6809

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

ABAP - Mail so10 Text
vor einer Stunde von PeterPaletti 2 / 44
selection-screen comment mit icon
vor 5 Stunden von DeathAndPain 9 / 1122
Chat GPT - Erfahrungen?
vor 3 Tagen von DeathAndPain 33 / 6809

Unbeantwortete Forenbeiträge

SD_PRINT_TERMS_OF_PAYMENT
vor 4 Tagen von Manfred K. 1 / 915
BUSOBJEKT zu CMIS PHIO ermitteln
vor 3 Wochen von snooga87 1 / 2724