AppendFile

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
oRecord	Objekt	Datensatz-Objekt, zu dem ein relationaler Datensatz angehängt werden soll, z. B. Firmen
oRelation	Objekt	Relations-Objekt, in dem der neue relationale Datensatz mit der angehängten Datei eingefügt wird.
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:

Bool

Wert	Beschreibung
True	Neuer relationaler Datensatz mit der eingefügten Datei konnte geschrieben werden.
False	Neuer relationaler Datensatz konnte nicht erstellt werden.

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.ErrorCode = 32) Then

Call cRM.DialogMessageBox("Das Hinzufgen der Datei """ & sFileToAppend & """ konnte nicht erfolgreich durchgeführt werden. Der Schreibzugriff wurde verweigert.", "DocMngr.AppendFile", 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.AppendFile", vbOkOnly)

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 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 durchgefhrt werden. Das Kopieren der Datei ist fehlgeschlagen.", "DocMngr.AppendFile", 0);

}

relation.Dispose();

record.Dispose();

docMngr.Dispose();