Beschreibung:
Erstellt einen neuen Aktivitäten-Datensatz und fügt ein Dokument hinzu. Basis ist hierbei der Aktivitäten-Container der Firmen-Ansicht einer Large-Solution.
VBScript:
Dim oDocMngr : Set oDocMngr = cRM.CurrentProject.DocMngr
Dim oRecord : Set oRecord = cRM.ActiveView.CurrentRecordSet.CurrentRecord
Dim oRelation : Set oRelation = cRM.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
End If
Set oRelation = Nothing
Set oRecord = Nothing
Set oDocMngr = Nothing
C#-Script:
DocMngr docMngr = cRM.CurrentProject.DocMngr;
Record record = cRM.ActiveView.CurrentRecordSet.CurrentRecord;
Relation relation = cRM.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();
TypeScript:
import {
cRM,
DocMngr,
Relation,
Record
} from "./sdk/combitCRM.SDK.WindowsClient.v13";
const docManager : DocMngr = cRM.CurrentProject.DocMngr;
const record : Record = cRM.ActiveView.CurrentRecordSet.CurrentRecord;
const relation : Relation = cRM.ActiveView.Config.Relations.ItemByName("ID.Aktivitäten.CompanyID");
const fileToAppend : string = "C:\\Firmen-Dossier.docx";
const docDescription : string = "docx";
if (docManager.AppendFile(record, relation, fileToAppend, docDescription) === true) {
cRM.DialogMessageBox(
`Die Datei "${fileToAppend}" konnte erfolgreich hinzugefügt werden.`,
"DocMngr.AppendFile", 0
);
} else {
const errorCode : number = docManager.LastError.ErrorCode;
if (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 (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
);
}
}
docManager.Dispose();
record.Dispose();
relation.Dispose();