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

ivan_melnik

На скрине видно, что название осталось на предыдущей странице. Как его перенести на следующую?
Если устанавливать свойство keeptogether=true, то большие наборы данных (т.е. если пунктов в отделе много) переносятся на новую страницу, оставляя много места на предыдущей...

gpi

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

ivan_melnik

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

ivan_melnik

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

gpi

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

ivan_melnik

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

infom

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

ivan_melnik

infom
Вы не совсем меня поняли...

Объясню подробнее:

есть MasterData и DetailData, оба растягиваемые

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

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

infom

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 отлично бы справилось с вашей проблемой.

Морик

infom написал: »

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

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

Морик

написал: »

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

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

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

Как это разруливается правильно?