IsEmpty: Boolean;
Метод IsEmpty возвращает True если колонтитул пуст.
Sub UserProc;
Var
MB: IMetabase;
Expr: IEaxAnalyzer;
Header: IEaxHeader;
Begin
MB := MetabaseClass.Active;
Expr := MB.ItemById("EXPRESS_REPORT").Bind As IEaxAnalyzer;
Header := Expr.Header;
If Header.IsEmpty Then
s := "Empty";
Else
s := "Don't Empty";
End If;
End Sub UserProc;
После выполнения примера в переменной «s» будет содержаться «Empty» если верхний колонтитул пуст. Идентификатор экспресс-отчета - EXPRESS_REPORT.
См. также: