Beispiel 2

Beschreibung:

Zählt die Anzahl an privaten Aufgaben im aktuellen Projekt.

VBScript:

Dim nCount : nCount = 0

Dim nCountAllToDos : nCountAllToDos = cRM.CurrentProject.timemanager.ToDos.Count

Dim nCountAllPrivateToDos : nCountAllPrivateToDos = 0

Dim oToDo

For nCount = 1 To nCountAllToDos

    Set oToDo = cRM.CurrentProject.timemanager.ToDos.Item(nCount)

    If (oToDo.Private = True) Then

        nCountAllPrivateToDos = nCountAllPrivateToDos + 1

    End If

    Set oToDo = Nothing

Next

Call cRM.DialogMessageBox("Bei der Gesamtanzahl von " & CStr(nCountAllToDos) & " Aufgaben, gibt es " & CStr(nCountAllPrivateToDos) & " private Einträge.", "ToDos.Item", vbOkonly)

C#-Script:

long counterPrivateToDos = 0;

foreach (ToDo todo in cRM.CurrentProject.TimeManager.ToDos)

{

    if (todo.Private == true)

    {

        counterPrivateToDos++;

    }

}

cRM.DialogMessageBox("Bei der Gesamtanzahl von " + cRM.CurrentProject.TimeManager.ToDos.Count.ToString() + " Aufgaben, gibt es " + counterPrivateToDos + " private Einträge.", "ToDos.Item", 0);

TypeScript:

import { cRM } from "./sdk/combitCRM.SDK.WindowsClient.v13";

let counterPrivateToDos = 0;

for (const todo of cRM.CurrentProject.TimeManager.ToDos)

{

    if (todo.Private === true)

    {

        counterPrivateToDos++;

    }

}

cRM.DialogMessageBox("Bei der Gesamtanzahl von " + cRM.CurrentProject.TimeManager.ToDos.Count.toString() + " Aufgaben, gibt es " + counterPrivateToDos + " private Einträge.", "ToDos.Item", 0);