Schema definieren 

  1. Sie können eine der beiden folgenden Alternativen wählen:
    2.

    · Sie wählen die entsprechende Aktivität aus dem Customizing der jeweiligen Anwendung

    · Sie benutzen die Transaktion NACE im Expertenmodus. Im folgenden ist diese Alternative beschrieben.

  2. Markieren Sie Ihre Anwendung und wählen Sie Bearbeiten ® Schemata.
  3. Im Änderungsmodus wählen Sie Bearbeiten ® neue Einträge. In der Navigation Steuerung ordnen Sie Ihrem Schema Nachrichtenarten zu.
  4. Sie können für eine Nachrichtenart eine ABAP-Bedingung als Ausstiegskriterium verwenden. Neue Bedingungen definieren Sie mit der Transaktion V/27.

    5. Ist die Bedingung erfüllt, dann sucht das System nicht nach Nachrichten dieser Nachrichtenart. Analog können Sie Bedingungen in Zugriffsfolgen definieren.

  5. Sichern Sie Ihre Angaben.

Die folgende Abbildung zeigt, daß für Auftragsnachrichten das Schema V10000 vereinbart ist. Im Customizing der Anwendung wird definiert, wann dieses Schema angewendet wird.

 

Die folgende Abbildung zeigt die im Schema V10000 vereinbarten Nachrichtenarten. Für die weiteren Erläuterungen ist die Nachrichtenart BA00 (Auftragsbestätigung) maßgebend. Die im Schema angegebenen Zähler sind für die Nachrichtenfindung ohne Bedeutung, da immer das gesamte Schema abgearbeitet wird.

 

Für jede Nachrichtenart kann neben den Konditionszugriffen eine komplexe Bedingung programmiert werden. Für die Auftragsbestätigung ist dies die Bedingung 2, d.h. es wird überprüft, ob der Verkaufsbeleg vollständig ist oder nicht. Eine Nachricht wird nur erzeugt, wenn der Beleg vollständig ist.

Das Coding lautet:

1 form_kobed_002.
2 * Falls Verkaufsbeleg vollständig ist, soll Nachricht erzeugt werden
3 sy-subrc = 0.
4 if komkbv1-uvall ne 'C'.
5 sy-subrc = 4.
6 exit.
7 endif.
8 if komkbv1-costa ne space and
9 komkbv1-costa ne 'C'.
10 sy-subrc = 4.
11 exit.
12 endif.
13 if not komkbv1-lifsk is initial.
14 if komkbv1-lifsk ne tvls-lifsp.
15 select single * from tvls where lifsp = komkbv1-lifsk.
16 endif.
17 if sy-subrc = 0 and
18 tvls-spedr ne space.
19 sy-subrc = 4.
20 exit.
21 endif.
23 * Kein Druck, wenn Kreditsperre sitzt
24 if komkbv1-cmgst ca 'BC'.
25 sy-subrc = 4.
26 exit.
27 endif.
28 endform.