ClassBeforeSave

betrifft

Die Klassenfunktion ClassBeforeSave wird für jedes Objekt aufgerufen, während ein Objektbaum über die Attributfunktion ObjectTreeSerialize eines TCE-Objektes gespeichert wird. In dieser Funktion können dann eventuell notwendige Anpassungen vorgenommen werden.

 

Syntax

ClassBeforeSave(Bag)

Rückgabewert

Kein

Parameter

 

Verwendung

Name

Typ

Übergabe

Beschreibung

 

Erforderlich

Bag

TCEServer.PropertyBag

ByRef

PropertyBag-Objekt zum Speichern zusätzlicher Daten, welche dann in der Klassenfunktion ClassAfterLoad beim erneuten Einladen ausgewertet werden können.

 

 

Beispiel:

Klassenfunktion ClassBeforeChange in der Klasse Product:

 

Private Function ClassBeforeSave(ByRef Bag As TCEServer.PropertyBag) As Void

   Bag.WriteProperty("Version", 2)

End Function

 

Klassenfunktion ClassAfterLoad in der Klasse Product:

 

Private Function ClassAfterLoad(ByRef Bag As TCEServer.PropertyBag) As Void

   If Bag.ReadProperty("Version", 1) = 1 Then

      Roboter := NoValue

   End If

End Function

 

Ergebnis:

Wird ein Objekt der Klasse Product geladen, dessen Version noch auf 1 steht, wird das Merkmal Roboter geleert.