ClassId(Index: Integer): Integer;
Index - index of a class. The ClassCount property determines number of classes.
The ClassId property determines a class of an object for that protocol records are displayed in access protocol. The class is determined by the MetabaseObjectClass enumeration.
Sub UserProc;
Var
FilCon: IAuditFiltersContainer;
Objs: IAuditFilterObjects;
Obj: IAuditFilterObject;
Con: IAuditFilterCondition;
Fil: IAuditFilter;
Begin
FilCon := New AuditFiltersContainer.Create;
FilCon.Load;
Objs := FilCon.Filters;
Obj := Objs.FindById("FILTER").Edit;
Fil := Obj.Filter;
Con := Fil.Item(0);
Con.ClassCount := 2;
Con.ClassId(0) := MetabaseObjectClass.KE_CLASS_PROCEDURALREPORT;
Con.ClassId(1) := MetabaseObjectClass.KE_CLASS_EXPRESSREPORT;
Obj.Save;
FilCon.SaveToFile(FilCon.DefaultFileName);
End Sub UserProc;
After executing this example the property if filter condition is changed: show records of access protocol for objects classes "Regular repost" and "Express report".
See also: