SubReport

Комментарии

• -=Serg=-

  March 2006 отредактировано 06:30

  Что-то не понял. А если на одной странице будет несколько строк MasterData, то какая ориентация должна быть у страницы?
• Bot

  March 2006 отредактировано 06:30

  В зависимости от параметра. Если это Г, то горизонтальная, если В, то вертикальная. При этом должна создаться новая страница.
• -=Den=-

  March 2006 отредактировано 06:30

  Во время формирования отчета изменить ориентацию нельзя, но можно менять ориентацию страниц сформированного отчета.
  Попробуйте сделать так:
  1) Передатиь в скрипт список в котором помечать ориентацию страници.
  2) из Delphi поменять ориентацию страниц сформированного отчета

  var
  i:integer;
  Page:TfrxReportPage;
  begin
  frxReport1.PrepareReport();
  for i := 0 to frxReport1.PreviewPages.Count -1 do
  begin
  Page := frxReport1.PreviewPages.Page[i];
  if СПИСОК_ОРИЕНТАЦИИ_СТРАНИЦ = 'Г'   then
  begin
  Page.Orientation := poPortrait;
  frxReport1.PreviewPages.ModifyPage(i,Page);
  end
  else
  begin
  Page.Orientation := poLandscape;
  frxReport1.PreviewPages.ModifyPage(i,Page);
  end;
  end;
  frxReport1.ShowPreparedReport();
  end;
  

  Положение объектов на странице остается прежним.
  
  
• Bot

  March 2006 отредактировано March 2006

  Не получается. Может быть потому что отчёт двухпроходной?

  i: integer;
  Page: TfrxReportPage;
  Memo: TfrxMemoView;
  frxReport1.PrepareReport(true);
  for i:=0 to frxReport1.PreviewPages.Count-1 do
       begin
       Page:=frxReport1.PreviewPages.Page[i];
       Memo:=frxReport1.FindObject('Memo57') as TfrxMemoView;
       if Memo.Value='П618-298-1' then
          begin
          Page.Orientation:=poPortrait;
          frxReport1.PreviewPages.ModifyPage(i,Page);
          end
       else
          begin
          Page.Orientation:=poLandscape;
          frxReport1.PreviewPages.ModifyPage(i,Page);
          end;
       end;
          frxReport1.ShowPreparedReport;
  
• -=Den=-

  March 2006 отредактировано 06:30

  Создайте массив и заполните его в отчете, через FindObject не получится.
  Под 'СПИСОК_ОРИЕНТАЦИИ_СТРАНИЦ' я имел в виду массив или список передаваемый и заполняемый в скрипте.
• Bot

  March 2006 отредактировано 06:30

  При наполнении списка выдаёт, что неверный тип данных или поле в MasterData отсутствует.

  написал:

  List.Add(IntToStr(<<frxDBDataset1."RESUNIT_OUT">,MasterData1>));
  Inc(i);
• -=Den=-

  March 2006 отредактировано 06:30

  А где создаете и заполняите?
• Bot

  March 2006 отредактировано 06:30

  В скрипте отчёта
• -=Den=-

  March 2006 отредактировано 06:30

  Покажите код скрипта.
• Bot

  March 2006 отредактировано 06:30

  написал:

  procedure GroupHeader1OnAfterPrint(Sender: TfrxComponent);
  begin
        List.Add(IntToStr(<<frxDBDataset1."RESUNIT_OUT">,MasterData1>));
        Inc(i);
  end;
  
  procedure frxReport1OnStartReport(Sender: TfrxComponent);
  begin
  List := TStringList.Create;
  end;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
  i:=0;
  end;
  
  procedure frxReport1OnStopReport(Sender: TfrxComponent);
  begin
        List.Free;
  end;

  
  Вот если бы можно было сразу несколько готовых отчётов загрузить в один через что-то типа LoadFromFile, то все мои проблемы решились бы сразу
• -=Den=-

  March 2006 отредактировано 06:30

  А так:

  procedure GroupHeader1OnAfterPrint(Sender: TfrxComponent);
  begin
        List.Add(VarToStr(<frxDBDataset1."RESUNIT_OUT">));
        Inc(i);
  end;
  

  Список лучше уничтожать после закрытия отчета, а не в OnStopReport.
• Bot

  March 2006 отредактировано 06:30

  Получилось, спасибо. А как к нему теперь через Делфи обратиться?
• -=Den=-

  March 2006 отредактировано 06:30

  В Delphi:

  Var
  List:TstringList;
  begin
  frxReport1.PrepareReport();
  List := Pointer(Integer(frxReport1.Script.Variables['List']));
  List[i];
  

  Не забудте убрать List.Free в скрипте.