Beschreibung:
Prüft, ob ein bestimmter Termin die Kategorie "Meeting" besitzt.
VBScript:
Dim oCategories : Set oCategories = cRM.CurrentProject.timemanager.Appointments.ItemByUniqueID(sUniqueAppointmentID).Categories
Dim oCategory
Dim nCount : nCount = 0
Dim bCategoryMeeting : bCategoryMeeting = False
For nCount = 1 To oCategories.Count
Set oCategory = oCategories.Item(nCount)
If (oCategory.Name = "Meeting") Then
bCategoryMeeting = True
End If
Set oCategory = Nothing
Next
Call cRM.DialogMessageBox("Mindestens ein Termin besitzt die Kategorie ""Meeting"" (ID: " & oCategory.ID & ", Symbol: " & oCategory.Symbol & ".", "Categories.Item", vbOkOnly)
Set oCategories = Nothing
C#-Script:
Categories categories = cRM.CurrentProject.TimeManager.Appointments.ItemByUniqueID(uniqueAppointmentID).Categories;
Category category;
bool isCategoryMeeting = false;
for (int i = 1; i <= categories.Count; i++)
{
category = categories.Item(i)
if (category.Name == "Meeting")
{
isCategoryMeeting = true;
}
category.Dispose();
}
cRM.DialogMessageBox("Mindestens ein Termin besitzt die Kategorie \"Meeting\" (ID: " + category.ID + ", Symbol: " + category.Symbol + ".", "Categories.Item", 0);
categories.Dispose();
TypeScript:
import {
Category,
cRM,
Categories
} from "./sdk/combitCRM.SDK.WindowsClient.v13";
const categories : Categories = cRM.CurrentProject.TimeManager.Appointments
.ItemByUniqueID("uniqueAppointmentID")
.Categories;
let categoryMeeting : boolean = false;
let category : Category;
for (let i = 1; i <= categories.Count; i++) {
category = categories.Item(i);
if (category.Name === "Meeting") {
categoryMeeting = true;
}
}
if (categoryMeeting) {
cRM.DialogMessageBox(
'Mindestens ein Termin besitzt die Kategorie "Meeting"',
"Categories.Item",
0
);
}
categories.Dispose();