Event "nach Terminraster Aktualisierung"

Der Event "nach Terminraster Aktualisierung" wird in folgenden Situationen aufgerufen:

ein Datensatz in der Dab410 angelegt
ein Datensatz in der Dab410 geändert
ein Datensatz aus der Dab410 gelöscht

Es dient u.a. zur Prüfung und Optimierung der Einkaufsplanung

Dieser Event darf nicht benutzt werden, um die Tabelle Dab410 anzupassen.

Parameter	Typ	Beschreibung
oDab410	TbeStandardTable	Nummer des Events
lDeleted	Boolean	true - Der Event wurde vor den Entfernung der aktuellen Zeile von oDab410 gestartet false - Der Event wurde nach einem Aktualisierung der aktuellen Zeile in oDab410 gestartet

Rückgabewert

keine

Beispiel

CODE

| nEvtNo:P1, oDab410:P2, lDelete:P3,
  aMsg |
//################################################################################
// Event wird nach Terminraster-Aktualisierung ausgelöst.
//
// oDab410 - Aktuell geänderte Zeile in der Tabelle Terminraster. Nur lesend.
// lDelete - Nur lesend.
//    True  = Die Zeile wird gelöscht
//    False = Die Zeile wurde hinzugefügt/geändert
//
// Rückgabe: keine
// ACHTUNG bei der Anpassung der Werte oder Navigieren der oDab410 sind
// die Auswirkungen ggf. nicht überschaubar und könnten bestimmte Prozesse kaputt machen!
//################################################################################

if not Upper(ClassName(GetAppMainForm())) = 'TFORMSUPPAUTOPLAN' then // nicht im Automatische Einkaufsplanung durchführen
  aMsg := 'Terminraster-Aktualisierung: ' + Trim(oDab410:ARTNR),
  aMsg := aMsg + ' Termin: KW.' + Token(AsString('KW', oDab410),'.',2) + '.' + Token(AsString('KW', oDab410),'.',1),

  If lDelete then
    aMsg := aMsg + ' entfernt',
  endif,

  If (oDab410:BESTELLT <> 0) or (oDab410:BES_PVPLAN <> 0) then
    aMsg := aMsg + ' Zugang ' + ArrToStr({oDab410:BESTELLT ,oDab410:BES_PVPLAN}),
  endif,

  If (oDab410:RUECKSTAND <> 0) or (oDab410:RUE_VK <> 0) or (oDab410:RUE_PROD <> 0) or (oDab410:RUE_VK_OA <> 0) or (oDab410:RUE_PVPLAN <> 0) then
    aMsg := aMsg + ' Abgang ' + ArrToStr({oDab410:RUECKSTAND, oDab410:RUE_VK, oDab410:RUE_PROD, oDab410:RUE_VK_OA, oDab410:RUE_PVPLAN}),
  endif,

  Meld(aMsg),
endif,