Beschreibung:
Fügt einen neuen relationalen Datensatz mit einer Datei hinzu. Die Datei wird in das erste gefundene Dokumentenfeld der relationalen Ansicht geschrieben. Alle weiteren Felder werden ignoriert.
Dokumentenfelder: (eingebettete) Datei, (eingebettete) Grafik oder DMS Dokument.
Parameter:
|
Parametername |
Typ |
Beschreibung |
|
sViewName |
String |
Name der Ansicht, zu der ein relationaler Datensatz angehängt werden soll, z. B. Firmen |
|
sRecordID |
String |
Datensatz-ID, zu der ein relationaler Datensatz angehängt werden soll. |
|
sRelationToken |
String |
Relation, zu der ein neuer relationaler Datensatz mit der angehängten Datei eingefügt werden soll, z. B. ID.Aktivitäten.ContactID |
|
sFile |
String |
Datei, welche hinzugefügt werden soll (gesamter Pfad + Dateiname). |
|
sDocDescriptionCfg |
String |
Dateiendung der zu verwendeten Dokumentenkonfiguration oder mit | getrennte Dokumentenkonfigurationsbezeichnung, welche in der Konfiguration der Dokumentenverwaltung angeben wurde, z. B. msg oder msg|E-Mails |
Rückgabewert:
Record
|
Wert |
Beschreibung |
|
Record |
Gültiges Record-Objekt. Kann mit If oObject Is Nothing Then überprüft werden. |
|
NULL |
Ungültiges Record-Objekt. Der relationale Datensatz mit der angefügten Datei konnte nicht erstellt werden. |
Wichtig: Das zurückgelieferte Record-Objekt muss unbedingt wieder freigeben werden (Set oObject = Nothing setzen), um den Speicher freizugeben!
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 sViewName : sViewName = cRM.CurrentProject.ActiveViews.ActiveView.Config.Name
Dim sRecordID : sRecordID = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSet.CurrentRecord.GetContentsByName("ID")
Dim sRelationToken : sRelationToken = "ID.Aktivitäten.CompanyID"
Dim sFileToAppend : sFileToAppend = "C:\Firmen-Dossier.docx"
Dim sDocDescription : sDocDescription = "docx"
Dim oRecordAppended : Set oRecordAppended = oDocMngr.AppendFileExt2(sViewname, sRecordID, sRelationToken, sFileToAppend, sDocDescription)
If (Not oRecordAppended Is Nothing) Then
If (cRM.DialogMessageBox("Die Datei """ & sFileToAppend & """ konnte erfolgreich hinzugefügt werden. Soll dieser Datensatz jetzt angezeigt werden?", "DocMngr.AppendFileExt2", vbYesNoCancel) = vbYes) Then
Call cRM.CurrentProject.OpenNewViewByName("Aktivitäten", "SetFilterDirectSQL:SELECT ""ID"" FROM ""Activities"" WHERE ""Activities"".""ID"" = 0x" & oRecordAppended.GetContentsByName("ID"))
Else
Call cRM.CurrentProject.ActiveViews.ActiveView.Update()
End If
Else
If (oDocMngr.LastError.ErrorCode = 32) Then
Call cRM.DialogMessageBox("Das Hinzufügen der Datei """ & sFileToAppend & """ konnte nicht erfolgreich durchgeführt werden. Der Schreibzugriff wurde verweigert.", "DocMngr.AppendFileExt2", vbOkOnly)
ElseIf (oDocMngr.LastError.ErrorCode = 33) Then
Call cRM.DialogMessageBox("Das Hinzufgen der Datei """ & sFileToAppend & """ konnte nicht erfolgreich durchgeführt werden. Das Kopieren der Datei ist fehlgeschlagen.", "DocMngr.AppendFileExt2", vbOkOnly)
End If
End If
Set oRecordAppended = 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;
string viewName = cRM.CurrentProject.ActiveViews.ActiveView.Config.Name;
string recordID = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSet.CurrentRecord.GetContentsByName("ID");
string relationToken = "ID.Aktivitäten.CompanyID";
string fileToAppend = @"C:\Firmen-Dossier.docx";
string docDescription = "docx";
Record recordAppended = docMngr.AppendFileExt2(viewName, recordID, relationToken, fileToAppend, docDescription);
if (recordAppended != null)
{
if (cRM.DialogMessageBox("Die Datei \"" + fileToAppend + "\" konnte erfolgreich hinzugefügt werden. Soll dieser Datensatz jetzt angezeigt werden?", "DocMngr.AppendFileExt", 3) == 6)
{
cRM.CurrentProject.OpenNewViewByName("Aktivitäten", "SetFilterDirectSQL:SELECT \"ID\" FROM \"Activities\" WHERE \"Activities\".\"ID\" = 0x" + recordAppended.GetContentsByName("ID"));
}
else
{
cRM.CurrentProject.ActiveViews.ActiveView.Update();
}
}
else
{
if (docMngr.LastError.ErrorCode == 32)
{
cRM.DialogMessageBox("Das Hinzufügen der Datei \"" + fileToAppend + "\" konnte nicht erfolgreich durchgefhrt 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);
}
}
recordAppended.Dispose();
docMngr.Dispose();