Задача:
Реализовать корректную печать для раздела проекты для выделенного в реестре проекта
Подробнее о проблеме описано тут
Для построения выборки нам потребуется рекурсивный запрос, с помощью базовых компонентов SQ Terrasoft'a у меня такой придумать не получилось так как синтаксис CTE начинается со слова with. Решение - создать ADO Dataset, где можно написать любой запрос
1. Создаем ADO Dataset, пишем Connection string, задаем сам запрос :

WITH MyProject
AS
(
SELECT tbl_Project.*, 0 AS Level
 FROM tbl_Project
WHERE ID = :ID
UNION ALL
SELECT p.*, Level+1
 FROM tbl_Project p
INNER JOIN MyProject AS mp
        ON p.ParentID = mp.id
)
SELECT
                MyProject.ID,
                MyProject.ParentID,
                MyProject.Name,
                MyProject.EstimatedStartDate,          
                MyProject.EstimatedDueDate,            
                ContactOwner.Name AS OwnerName,
                ProjectState.Name AS StateName,
        Level
                FROM
                MyProject,
                tbl_Contact AS ContactOwner,
                tbl_ProjectState AS ProjectState
WHERE MyProject.OwnerID = ContactOwner.ID
AND ProjectState.ID = MyProject.StateID
ORDER BY MyProject.SortOrder

Колонки которые вынесены в последнем запросе нужно создать руками, также необходимо создать параметр ID с типом уникального идентификатора
Настройки Dataset'a следующие
1

2. Кнопка в реестре раздела [Проекты], передача параметра ID записи в отчет:

function btnPrintProjectOnClick(Control) {
                var SelectedIDs = GetProjectSelectedIDsArray();
                var Dataset = Services.GetNewItemByUSI('adods_PrintProject');
                var Report = Services.GetNewItemByUSI('fr_PrintProject');
                        if (!IsEmptyValue(SelectedIDs[0]))
                        {
                        SetAttribute(Report,'ProjectIDtoPrint',SelectedIDs[0]);
                ShowReport(Report);
                }
                else
                        MessageBox('Не выбран ни один проект');
}

ShowReport c скрипта scr_ReportUtils

3. Сама печатная форма
Получение параметров

function fr_PrintProjectOnPreview(ReportPreviewer) {
 var DatasetNameStr = "adods_PrintProject"; //датасет в котором мы хотим делать фильтрацию (необходимо помнить о том, что у отчета может быть несколько датасетов)
 var str = ReportPreviewer.DatasetUSIList.CommaText; //в строчке ReportPreviewer.DatasetUSIList.CommaText передаются USI датасетов, через запятую
 var ReportDatasetUSI =  str.substr(str.indexOf(DatasetNameStr), DatasetNameStr.length);
 var Dataset = ReportPreviewer.DatasetByUSI(ReportDatasetUSI);
 
                var ProjectIDtoPrint = GetAttribute(ReportPreviewer.Report,'ProjectIDtoPrint');
                Dataset.Parameters.ItemsByName('ID').Value = ProjectIDtoPrint;                                
}

К параметру ID в ADO Dataset получаем доступ так:

                Dataset.Parameters.ItemsByName('ID').Value = ...;

3. Сам отчет

var
 oldCurXBand: Extended;    
 oldBandWidth: Extended;    

procedure ProjectNameOnBeforePrint(Sender: TfrxComponent);
begin
 oldCurXBand := ProjectName.Left;
 oldBandWidth := ProjectName.Width;                      
ProjectName.Left := ProjectName.Left + 20 * Project.Value('Level');                                            
ProjectName.Width := ProjectName.Width - 20 * Project.Value('Level');                                            
end;

procedure ProjectNameOnAfterPrint(Sender: TfrxComponent);
begin
ProjectName.Left := oldCurXBand;
ProjectName.Width := oldBandWidth;                  
end;

begin

end.

Идея отступа взята с FastReport. Отчёты с деревьями, все остальное в статье у меня не заработало, даже на тестовых таблицах с совпадающими типами + в статье есть ошибки. Реализовано лучше с Документации по методам FR берем
Left (Integer) - Координата Х левого верхнего угла объекта.
Width (Integer) - Ширина объекта.
Отступаем по x нужную длину и кушаем это число с ширины бэнда. Выходит более красивее чем прыгающий бэнд.
Результат :
2

p.s Пожелания по улучшению:
1.Использовать текущие данные подключения для получения данных с ADO Dataset

Нравится

Поделиться

2 комментария

Отличная инструкция :smile: +1 лайк!

Спасибо!

Показать все комментарии