Открыть другой файл отчета и не только...

Комментарии

• gpi

  February 2007 отредактировано 07:55

  Смотрите пример InteractiveReport
  По поводу IIF: [IIF(<query1."docid"> = 1, 'Номер 1', 'Номер 2')]

  написал:

  И еще. Хинты можно выводить или нет? В превью при наведении на мемо. Можно Description для этого юзать.

  При клике на мемо можно выводить сообщение, если повесить обработчик на OnPreviewClick
• aleut

  February 2007 отредактировано February 2007

  Ничего в этом репорте подобного нет. Примеры вообще слабые. Как окошко выводить я знаю. Речь идет о выедении текста в мемо в зависимости от значения поля БД.
  
  Я говорю не о СООБЩЕНИЯХ, а о ХИНТАХ.
  
• gpi

  February 2007 отредактировано 07:55

  написал:

  Ничего в этом репорте подобного нет

  Речь идёт об отдельном демо InteractiveReport
  п. 1 один к одному, ну а для п. 2 во втором TfrxReport сформировать отчёт и добавить его к первому отчёту

  написал:

  Речь идет о выделении текста в мемо в зависимости от значения поля БД.

  Для этого и используется функция IIF
  Именно хинтов в предварительном просмотре FR вроде бы нет.
• aleut

  February 2007 отредактировано 07:55

  а где эту дему взять?
  п1 - открытие отчета?
  
  по IIF желательно пример
• gpi

  February 2007 отредактировано 07:55

  написал:

  а где эту дему взять?

  в папке Demos

  написал:

  по IIF желательно пример

  [IIF(<query1."docid"> = 1, 'Номер 1', 'Номер 2')]
• aleut

  February 2007 отредактировано 07:55

  написал:

  Речь идёт об отдельном демо InteractiveReport

  
  Там вызов идет во первых из кода программы, а во вторых отчет уже лежит на форме. А мне надо непосредственно из отчета запускать новый отчет, закрывая существующий. По логике, в том, кто создает при уничтожении возникнет ошибка.
  
  Поэтому вопрос остается открытый. AlexTZ, подключайся
• gpi

  February 2007 отредактировано 07:55

  Из программы можно сделать так:

  procedure TForm1.MainReportClickObject(View: TfrxView;
    Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
  begin
    if View.Name = 'Memo8' then
    begin
      DetailQuery.Close;
      DetailQuery.ParamByName('custno').Text := View.TagStr;
      MainReport.LoadFromFile('C:\1.fr3');
      MainReport.ShowReport;
    end;
  end;
  

  Из скрипта

  procedure Memo8OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
  begin
       Report.LoadFromFile('C:\1.fr3');
       ReportVar:=TfrxMemoView(Sender).Text;     
       Report.ShowReport;                         
  end;
  

  Скриптовая переменная ReportVar должна быть описана в программе
  MainReport.Script.Variables:='';
  В скрипте загружаемого отчёта нужно присвоить параметру запроса значение ReportVar и открыть запрос