Beschreibung:
Liefert die Anzahl der konfigurierten Relationen der Ansicht zurück.
Hinweis: Aus Sicherheitsgründen ist der Zugriff auf Relation Objekte von Ansichten, auf die der aktuelle Benutzer keine Zugriffsrechte besitzt, nicht möglich. Alle diese Relation Objekte werden in der übergeordneten Collection (ListRelations) für die Eigenschaften/Methoden Count und Item nicht angeboten. Bei einem versuchten Direktzugriff per ItemByName wird kein Objekt zurückgegeben – es erfolgt zudem eine Fehlerausgabe auf das Debug-Tool Debwin.
Typ:
Long
Beispiel VBScript:
' Durchläuft alle Relationen der Kontakte-Ansicht und prüft, ob für diese Relationen das Papierkorb-Feature aktiviert wurde
Dim oListRelations : Set oListRelations = cRM.CurrentProject.ViewConfigs.ItemByName("Kontakte").Relations
Dim nRelationCount : nRelationCount = oListRelations.Count
Dim nCounter : nCounter = 0
Dim oRelation
Dim sListCascadeOnDeleteViews : sListCascadeOnDeleteViews = ""
For nCounter = 1 To nRelationsCount
Set oRelation = oListRelations.Item(nCounter)
If (oRelation.CascadeOnDelete = True) Then
If (nCounter = nRelationsCount) Then
sListCascadeOnDeleteViews = sListCascadeOnDeleteViews & oRelation.Name
Else
sListCascadeOnDeleteViews = sListCascadeOnDeleteViews & oRelation.Name & vbCrLf
End If
End If
Set oRelation = Nothing
Next
Set oListRelations = Nothing
If (Len(sListCascadeOnDeleteViews) > 0) Then
Call cRM.DialogMessageBox("Für folgende Relation(en) wurde der kaskadierende Papierkorb aktiviert: " & vbCrLf & sListCascadeOnDeleteViews, "ListRelations", vbOkOnly)
Else
Call cRM.DialogMessageBox("Derzeit wurde bei keiner Relation der kaskadierende Papierkorb aktiviert.", "ListRelations", vbOkOnly)
End If
Beispiel C#-Script:
// Durchläuft alle Relationen der Kontakte-Ansicht und prüft, ob für diese Relationen das Papierkorb-Feature aktiviert wurde
ListRelations relations = cRM.CurrentProject.ViewConfigs.ItemByName("Kontakte").Relations;
System.Collections.Generic.List<string> relationsWithCascadeOnDelete = new System.Collections.Generic.List<string>();
foreach (Relation relation in relations)
{
if (relation.CascadeOnDelete == true)
{
relationsWithCascadeOnDelete.Add(relation.Alias);
}
}
if (relationsWithCascadeOnDelete.Count > 0)
{
cRM.DialogMessageBox("Für folgende Relation(en) wurde der kaskadierende Papierkorb aktiviert: " + System.Environment.NewLine + string.Join(", ", relationsWithCascadeOnDelete.ToArray()), "ListRelations", 0);
}