Beschreibung:
Schließt alle Ansichten außer der derzeit geöffneten Ansicht.
VBScript:
Dim oActiveViews : Set oActiveViews = cRM.CurrentProject.ActiveViews
Dim sCurrentActiveViewName : sCurrentActiveViewName = oActiveViews.ActiveView.Name
Dim nCounter : nCounter = 0
Dim oView
For nCounter = 1 To oActiveViews.Count
Set oView = oActiveViews.Item(nCounter)
If (oView.Name <> sCurrentActiveViewName) Then
Call oActiveViews.CloseView(nCounter)
End If
Set oView = Nothing
Next
Set oActiveViews = Nothing
C#-Script:
ListViews activeViews = cRM.CurrentProject.ActiveViews;
string currentViewName = activeViews.ActiveView.Name;
long index = 0;
foreach (View view in activeViews)
{
index++;
if (view.Name != currentViewName)
{
activeViews.CloseView(index);
}
}
activeViews.Dispose();
TypeScript:
import {
cRM,
View,
ListViews
} from "./sdk/combitCRM.SDK.WindowsClient.v13";
const activeViews: ListViews = cRM.CurrentProject.ActiveViews;
const currentActiveViewName: string = activeViews.ActiveView.Name;
cRM.DialogMessageBox(activeViews.Count.toString(), "Current Active View",0);
for (let i = 0; i < activeViews.Count; i++) {
const view: View = activeViews.Item(i + 1);
if (view.Name != currentActiveViewName) {
view.Close();
}
}