Нет.

Применяется В: ReportListener, объект.

Метод DoStatus обеспечивает независимое соединение с объектом ReportListener. Ваш программный модуль продолжает выполняться после активации в программном модуле указанного метода DoStatus, который активирует установленный в данный момент пользовательский интерфейс выполняемого Отчета. Если вы нуждаетесь в блокировании или удалении с экрана управляющих Контролов выполняемого в данный момент Отчета, Метод ClearStatus - выполняет необходимые Операции очистки пользовательского Интерфейса.

Размещение необходимого вам программного Кода, который обеспечит управление элементами Отчета должен выполнить ваш программный Код в Методе DoStatus. Например, в базовом классе ReportListener стандартная команда типа WAIT NOWAIT используется для выполнения стандартных интерфейсных функций при выполнении Рассматриваемого Отчета. В указанной интерпретации: данный метод ClearStatus эквивалентен выполнению стандартной команды: WAIT CLEAR. Представленный в стандартной поставке VFP Фундаментальный Класс обеспечивает необходимый пользовательский интерфейс, однако: рассматриваемый в данном разделе Метод позволяет вам построить собственные механизмы управления выполнением Отчетов с использованием класса ReportListener.

Обратите внимание
Ваш программный код должен обеспечивать анализ значения свойства: QuietMode, которое определяет выполнение стандартных методов базового класса ReportListener. Дополнительную информацию смотрите в разделе: DoStatus, метод.

Вы можете вызывать указанные Методы: DoStatus и ClearStatus в любое время, даже если указанный Отчет не активен и не выполняется. В представленном далее фрагменте программного Кода базовый объект ReportListener дополняется расширенным функционалом, обеспечивающим выполнение метода DoStatus в промежутках между выполнением рассматриваемого Отчета. Если Отчет уже выполняется, то выполняется очистка ранее созданных Элементов Управления, отображаемых на Экране, которые были созданы в предыдущем Сеансе Отчета.

Копировать Код

LOCAL oListener oListener = CREATEOBJECT("messagingReportListener") oListener.DoStatus() REPORT FORM ? OBJECT oListener oListener.DoStatus() REPORT FORM ? OBJECT oListener oListener.DoStatus() DEFINE CLASS messagingReportListener AS ReportListener iReportRuns = 0 ListenerType = 1 PROCEDURE BeforeReport() THIS.iReportRuns = This.iReportRuns + 1 THIS.ClearStatus() DODEFAULT() ENDPROC PROCEDURE DoStatus(cMessage) IF EMPTY(cMessage) NODEFAULT DODEFAULT("You have run " + ; TRANSFORM(THIS.iReportRuns) + " report(s) so far!") ENDIF ENDPROC ENDDEFINE

Описание

Другие ссылки