Beschreibung:

Gibt den Kommentar eines Aktivitäten-Datensatzes aus. Basis ist hierbei der Aktivitäten-Container der Kontakte-Ansicht einer Large-Solution.

VBScript:

Dim oContainers : Set oContainers = cRM.ActiveView.CurrentInputForm(2).Containers

Dim oContainer : Set oContainer = oContainers.ItemByName("ID.Aktivitäten.ContactID#{B3C0768A-5599-44B5-B4F2-7D31A6C10EC5}")

Dim oCurrentRecord : Set oCurrentRecord = oContainer.CurrentRecord

Dim sComment : sComment = CStr(oCurrentRecord.GetContentsByName("Comment"))

Call cRM.DialogMessageBox("Kommentar: " & sComment, "Container.CurrentRecord", vbOkOnly)

Set oCurrentRecord = Nothing

Set oContainer = Nothing

Set oContainers = Nothing

C#-Script:

ListContainers containers = cRM.ActiveView.CurrentInputForm(2).Containers;

Container container = containers.ItemByName("ID.Aktivitäten.ContactID#{ADD84570-956B-4079-8DE4-2B992DB3AEFE}");

Record containerRecord = container.CurrentRecord;

string comment = containerRecord.GetContentsByName("Comment");

cRM.DialogMessageBox("Kommentar: " + comment, "Container.CurrentRecord", 0);

containerRecord.Dispose();

container.Dispose();

containers.Dispose();

TypeScript:

import {

    Container,

    cRM,

    ListContainers,

    Record

} from "./sdk/combitCRM.SDK.WindowsClient.v13";

const containers : ListContainers = cRM.ActiveView.CurrentInputForm(2).Containers;

const container : Container = containers.ItemByName(

    "ID.Aktivitäten.ContactID#{B3C0768A-5599-44B5-B4F2-7D31A6C10EC5}"

);

const currentRecord : Record = container.CurrentRecord;

const comment : string = (currentRecord.GetContentsByName("Comment"));

cRM.DialogMessageBox(

    `Kommentar: ${comment}`,

    "Container.CurrentRecord",

    0

);

currentRecord.Dispose();

container.Dispose();

containers.Dispose();