Помогите советом

Комментарии

• gpi

  August 2007 отредактировано 06:12

  Выложите шаблон отчёта и готовый отчёт fp3
• Geraf

  August 2007 отредактировано 06:12

  шаблон выглядит следующим образом (см. ниже). Это то как он должен выглядеть на печати (вернее как необходимо было сделать). Просто получается что информация по одному сотрудинку нужно печатать на полтора листа, следующего сотрудника на следующих полтора листа.....
  
  

  gpi написал: »

  Выложите шаблон отчёта и готовый отчёт fp3

  Этот шаблон уже , к сожалению, потерян.
• gpi

  August 2007 отредактировано 06:12

  Если Вы хотите, чтобы информация по второму сотруднику выводилась на второй странице, то установите MasterData1.AllowSplit=True
• malor

  April 2009 отредактировано 06:12

  Как можно программно выставить данную опцию "Start New Page" ?
  Охота получать такой вывод отчета только при при выполнении некоторых условий.
• Marionka

  April 2009 отредактировано 06:12

  ....................
  var
    isNewPage : boolean;
  ....................
  if isNewPage then
    MasterData2.StartNewPage := True
  else
    MasterData2.StartNewPage = False;
  

  или
  

  ...........................
    MasterData2.StartNewPage := isNewPage;
  
• malor

  April 2009 отредактировано 06:12

  Marionka написал: »

  ....................
  var
    isNewPage : boolean;
  ....................
  if isNewPage then
    MasterData2.StartNewPage := True
  else
    MasterData2.StartNewPage = False;
  

  или
  

  ...........................
    MasterData2.StartNewPage := isNewPage;
  

  В клиентской программе будет кое-что проверяться и в зависимости от такой проверки мне нужно будет присвоить значение переменной isNewPage (выражаясь в терминах приведенного Марионкой кода).
  Как мне из своей программы передать необходимую информацию в скрипт? (чтоб там уже сделать нужное присвоение переменной isNewPage). Какие механизмы существуют для решения подобной задачи ?
• Marionka

  April 2009 отредактировано 06:12

  у компонента TfrxReport есть событие OnGetValue

  procedure TForm.frxReport1GetValue(const VarName: String;
    var Value: Variant);
  begin
    if AnsiUpperCase(VarName) = 'ISNEWPAGE' then
    begin
      // проверяем что нужно и присваиваем переменной Value значение, 
     //которое будет анализироваться в скрипте шаблона
      Value := True;
    end;
  

  
  в скрипте

  if <ISNEWPAGE> then
    MasterData2.StartNewPage := True
  else
    MasterData2.StartNewPage = False;