Как перенести Master-бэнд на другую страницу?

Комментарии

• gpi

  November 2007 отредактировано 00:08

  Перед печатью бэнда с названием проверяйте оставшееся место Engine.FreeSpace и если оно меньше высоты заголовка группы и мастердата, то делайте Engine.NewPage
• ivan_melnik

  December 2007 отредактировано 00:08

  Спасибо! Помогло
• ivan_melnik

  December 2007 отредактировано 00:08

  Оказывается такой способ не работает, если размер мастердаты увеличился
• gpi

  December 2007 отредактировано 00:08

  Тогда попробуйте использовать событие OnAfterCalcHeight
• ivan_melnik

  December 2007 отредактировано 00:08

  Это событие правильно определяет только размер заголовка, так как вызывается для него, а бэнд находится ниже, поэтому его высота не считается Вызов OnAfterCalcHeight для нижнего бэнда не переносит заголовок...
• infom

  December 2007 отредактировано 00:08

  У вас имеется Engine.FreeSpace - место сколько осталось на странице, и высота текущего банда, т.е. можно точно определить поместиться ли только данная группа или ещё и мастердата.
• ivan_melnik

  December 2007 отредактировано 00:08

  infom
  Вы не совсем меня поняли...
  
  Объясню подробнее:
  
  есть MasterData и DetailData, оба растягиваемые
  

  if Engine.FreeSpace < MasterData5.Height + DetailData2.Height Then Engine.NewPage;
  

  на событии OnAfterCalcHeight у MasterData5, то ширина DetailData2.Height ещё не посчитана (проверял не раз), а на событии OnAfterCalcHeight у DetailData2, Engine.NewPage не перенесет MasterDat'у...
• infom

  December 2007 отредактировано 00:08

  ivan_melnik написал: »

  Если проверять

  if Engine.FreeSpace < MasterData5.Height + DetailData2.Height Then Engine.NewPage;
  

  на событии OnAfterCalcHeight у MasterData5, то ширина DetailData2.Height ещё не посчитана (проверял не раз), а на событии OnAfterCalcHeight у DetailData2, Engine.NewPage не перенесет MasterDat'у...

  Вполне логично что не подсчитана.
  Есть два варианта решения этой проблемы:
  1. Делать отчет двухпроходным, запоминать зав первый проход высоты компонентов, а вторым проходом уже делать расположение.
  2. Посчитать высоту DetialData когда у неё одна строка на тестовом примере, допустим получиться у вас 40. И предложенную вами формулу преобразовать в следующую:

  if Engine.FreeSpace > MasterData5.Height+40  Then Engine.NewPage;
  

  
  Мне как-то приятнее использовать второй вариант, но если высоты детейлов у вас сильно различаются, то только первый вариант.
  
  Хотя есть одно маленькое замечание, почему бы вам не использовать GroupHeader, на скринах явно видно что вы просто группируете, по подразделению, используйте для этого GroupHeader, у которого свойство KeepTogether отлично бы справилось с вашей проблемой.
• Морик

  October 2008 отредактировано 00:08

  infom написал: »

  Делать отчет двухпроходным, запоминать зав первый проход высоты компонентов, а вторым проходом уже делать расположение.

  
  Можно подробнее куда запоминать и на какие события вешать проверку. У меня 5 уровней данных и на всех надо отследить эти переносы.
• Морик

  October 2008 отредактировано 00:08

  написал: »

  Можно подробнее куда запоминать и на какие события вешать проверку. У меня 5 уровней данных и на всех надо отследить эти переносы.

  
  

  if engine.FinalPass = true then
      if engine.freespace < DetailData1.Height+SubdetailData1.Height+databand41.height+PageFooter1.Height then
      engine.newpage;
  

  
  не срабатывает. Фриспейс всегда больше....как будто дочерние бенды не заполнены данными, хотя второй проход.
  
  Как это разруливается правильно?