Beschreibung:
Gibt eine Relation entsprechend dem übergebenen Namen 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.
Parameter:
|
Parametername |
Typ |
Beschreibung |
|
Name |
String |
Name der Relation im Format ID.Aktivitäten.ContactID (Primärschlüsselfeld.Relationsalias.Fremschlüsselfeld). |
Rückgabewert:
Relation
Beispiel VBScript:
' Erstellt einen neuen Aktivitäten-Datensatz und fügt ein Dokument hinzu. Basis ist hierbei der Aktivitäten-Container der Firmen-Ansicht einer combit_Large-Solution
Dim oDocMngr : Set oDocMngr = cRM.CurrentProject.DocMngr
Dim oRecord : Set oRecord = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSet.CurrentRecord
Dim oRelation : Set oRelation = cRM.CurrentProject.ActiveViews.ActiveView.Config.Relations.ItemByName("ID.Aktivitäten.CompanyID")
Dim sFileToAppend : sFileToAppend = "C:\Firmen-Dossier.docx"
Dim sDocDescription : sDocDescription = "docx"
If (oDocMngr.AppendFile(oRecord, oRelation, sFileToAppend, sDocDescription) = True) Then
Call cRM.DialogMessageBox("Die Datei """ & sFileToAppend & """ konnte erfolgreich hinzugefügt werden.", "DocMngr.AppendFile", vbOkOnly)
Else
If (oDocMngr.LastError = 32) Then
Call cRM.DialogMessageBox("Das Hinzufügen der Datei """ & sFileToAppend & """ konnte nicht erfolgreich durchgeführt werden. Der Schreibzugriff wurde verweigert.", "DocMngr.AppendFile", vbOkOnly)
ElseIf (oDocMngr.LastError = 33) Then
Call cRM.DialogMessageBox("Das Hinzufügen der Datei """ & sFileToAppend & """ konnte nicht erfolgreich durchgeführt werden. Das Kopieren der Datei ist fehlgeschlagen.", "DocMngr.AppendFile", vbOkOnly)
End If
End If
Set oRelation = Nothing
Set oRecord = Nothing
Set oDocMngr = Nothing
Beispiel C#-Script:
// Erstellt einen neuen Aktivitäten-Datensatz und fügt ein Dokument hinzu. Basis ist hierbei der Aktivitäten-Container der Firmen-Ansicht einer combit_Large-Solution
DocMngr docMngr = cRM.CurrentProject.DocMngr;
Record record = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSet.CurrentRecord;
Relation relation = cRM.CurrentProject.ActiveViews.ActiveView.Config.Relations.ItemByName("ID.Aktivitäten.CompanyID");
string fileToAppend = @"C:\Firmen-Dossier.docx";
string docDescription = "docx";
if (docMngr.AppendFile(record, relation, fileToAppend, docDescription) == true)
{
cRM.DialogMessageBox("Die Datei \"" + fileToAppend + "\" konnte erfolgreich hinzugefügt werden.", "DocMngr.AppendFile", 0);
}
else
{
if (docMngr.LastError.ErrorCode == 32)
{
cRM.DialogMessageBox("Das Hinzufügen der Datei \"" + fileToAppend + "\" konnte nicht erfolgreich durchgeführt werden. Der Schreibzugriff wurde verweigert.", "DocMngr.AppendFile", 0);
}
else if (docMngr.LastError.ErrorCode == 33)
{
cRM.DialogMessageBox("Das Hinzufügen der Datei \"" + fileToAppend + "\" konnte nicht erfolgreich durchgeführt werden. Das Kopieren der Datei ist fehlgeschlagen.", "DocMngr.AppendFile", 0);
}
}
relation.Dispose();
record.Dispose();
docMngr.Dispose();