Dmitry_Zolotar писал(а):
...Є вже готова процедура для побудови таблиц, без використання бендів даних, вона є в приложенному файлі.
В принципі, в коді вказаного шаблона, висота рядка таблиці зменшується якщо висота таблиці більша ніж висота дочірнього бенда (з розрахунку того, що звіт на одну сторінку). Якщо таблиця формується кодом, навряд чи вдасться використати властивість
StartNewPage для бенда
Зараз в мене код формує таблицю без бендів
Вложение:
_імені.JPG [53.72 Кб]
Скачиваний: 0
При такому розміщенні таблиці (починаючи з верху аркуша) забезпечується вихід документа на одному аркуші, але якщо рядків таблиці більше
Підкажіть, будь-ласка, яким чином вставити розрив сторінки (кодом скрипта). Чи обов'язково в бенд, чи можна в мемо
А далі - продовжувати формувати таблицю на другій сторінці
Ще одне питання:
Код:
procedure CreateMultiRowTable(Page:TfrxReportPage; Body:TfrxReportPage; TableName:String; SL:TStringList);
VysRobPol:=Body.PaperHeight-Body.BottomMargin-Body.TopMargin-TfrxMemoView(Cols[0]).Top
Вираховується висота від нижнього поля сторінки до верхнього краю першого рядка таблиці, але властивості аркуша .PaperHeight та .BottomMargin, .TopMargin повертають результат в сантиметрах на папері, а
TfrxMemoView(Cols[0]).Top - координати по осі Y верхнього краю першого рядка таблиці мабуть в пікселях. Якою функцією привести до одних одиниць
І останнє:
Memo.DisplayFormat.Kind:=TfrxMemoView(Cols[J]).DisplayFormat.Kind; присвоює значення властивості мемо Kind - fkNumeric (число), та Memo.DisplayFormat.FormatStr:=TfrxMemoView(Cols[J]).DisplayFormat.FormatStr; присвоює значення властивості FormatStr - %2.2f (два знаки після коми). Що тільки не пробував: функція StrToInt() дає невідповідність. Як форматувати числові значення в таблиці звіту
Наразі форматування працює: PlaceReturns(Format('%2.2f',[StrToFloat(StringPart(SL[Row],J+1,chr(9)))])) але якщо в кожному стовпчику інший формат - використати Case... End Case
Шановний Dmitry_Zolotar, допоможіть, будь-ласка, вирішити ці питання, буду вдячний.
Якщо треба буде - ось що підхімічив: файл TextRep.ini - в теку GetProgramDir+'\Templates', і сам шаблон