IAuditFilter.Append

Syntax

Append(Value: IAuditFilter);

Append(Value: Prognoz.Platform.Interop.Metabase.IAuditFilter);

Parameters

Value. Access protocol filter.

Description

The Append method supplements the filter by new conditions.

Example

Executing the example requires the "C:\1.xml" file that contains a filter of access protocol.

Add a link to the Metabase system assembly.

Sub UserProc;
Var
    FilCon: IAuditFiltersContainer;
    FilObj: IAuditFilterObject;
    AF: IAuditFilter;
    New_Filtr: IAuditFilterCondition;
Begin
    FilCon := New AuditFiltersContainer.Create;
    FilCon.LoadFromFile("C:\1.xml");
    FilObj := FilCon.Filters.Add;
    AF := FilObj.Filter;
    New_Filtr := AF.Add;
    New_Filtr.FinishDate := 39814;
    FilObj.Filter.Append(AF);
    FilCon.SaveToFile(FilCon.FileName);
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
Var
    FilCon: IAuditFiltersContainer;
    FilObj: IAuditFilterObject;
    AF: IAuditFilter;
    New_Filtr: IAuditFilterCondition;
Begin
    FilCon := New AuditFiltersContainer.Create();
    FilCon.LoadFromFile("C:\1.xml");
    FilObj := FilCon.Filters.Add();
    AF := FilObj.Filter;
    New_Filtr := AF.Add();
    New_Filtr.FinishDate := 39814;
    FilObj.Filter.Append(AF);
    FilCon.SaveToFile(FilCon.FileName);
End Sub;

After executing the example the filter, supplemented by new conditions, is added to the loaded file of access protocol filter. Then a filter file is saved back into the file.

See also:

IAuditFilter