Вывалиться из отчёта.....

andreymx

Есть у нас на Фасте системка:
общий модуль по входным параметрам читает *.fr3 из нужной папочки и запускается.
в отчётах созданы объекты типа TFrxDOAQuery с текстом запроса и связанными переменными.
в самом отчёте на старте происходит привязка переменных и чтение данных.
так вот, надо реализовать следующее: если после определённых предпроверок мы решили, что данных нет, необходимо закрыть и отчёт (не формировать его), и поймать это событие и закрыть сам модуль
1. Как это лучше реализовать?
2. В каком месте отчёта лучше выполнить предпроверку?

---

С уважением, Андрей

andreymx

спрошу по-другому: как из отчёта закрыть превью?

gpi

В программе

procedure TForm1.FormShow(Sender: TObject);
begin
      frxreport1.AddFunction('function EXITREP()');
end;

function TForm1.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
begin
     if MethodName='EXITREP' then frxReport1.PreviewForm.Close;
end;

В скрипте

if .... then EXITREP();

andreymx

спасибо, вроде работает