В дистрибутиві Digitals є ДМТ-пакет XML Госaкт.dmt, який, як я розумію працює як з ин-4 так і з ХМЛ. З ХМЛ файлами працює нормально, з ин4 пише невірний хмл файл. Як в цьому шаблоні перейти до ин4 режиму. Дуже потрібно. Взявши його за основу, добавив ин4 ділянку з промірами і площею. Після редагування фр3, поудаляв все крім загрузки растрового файлу. Ін4 ділянка загружається, пробую прописувати якісь параметри, наприклад [param(‘tx’)] - не витягуються з ділянки. Допоможіть, якщо можна. Прикріпляю пакет ДМТ. З програмування так собі.
XML Госaкт.dmt.zip (15.3 KB)
Для ин4 есть Сервис-Документы-Госакт(зеленый) лицевая/обратная. XMLГосакт работает только с XML.
P.S. Все шаблоны из Сервис-Документы со значком генератора отчетов работают только с XML.
Тоді друге вирішення проблеми. Чи можливо запустити ДМТ шаблон, сформований документ обмежений рамкою записати в папочку “Pictures” в растровому форматі, ім’я буде формуватись за параметром “-P[6]” чи якось по другому, за допомогою скрипта чи як, а потім вже запустити репортс, із цієї папочки підгрузить растрове зображення. Якщо можливо, то як?
Скрипт формирует документ из DMT-шаблона для помеченного ин4-участка в активной карте, далее сохраняет документ в растр Digitals/Pictures/Plan.bmp и вызывает генератор отчетов с шаблоном Digitals/Templates/TemplName.fr3
$SO=@Map.SelectedObject
@if $SO=0 then @Break Пометьте объект
$LID=@Map.Object[$SO].LayerID
@if $LID<>20000 then @Break Пометьте IN4-участок
$SM=@ActivateMap
Документы | CP
$DM=@ActivateMap
@Dialog.WaitBox Отредактируйте документ и нажмите продолжить
@ActivateMap $DM
$PP=@ProgramPath
@Map.SaveToTIF 300 24 $PP/Pictures/Plan.bmp
@CloseMap $DM
@ActivateMap $DM
@ReportGenerator 0
@Run $PP/Reports.exe -template$PP/Templates/Letter.fr3
Загрузка растра в генераторе отчетов:
-добавьте в шаблон объект TfrxPictureView
-установите его размеры такими же как и рамка карты в дмт-шаблон для сохранения масштаба
-добавьте объекту обработчик события OnBeforePrint
-в тело обработчика впишите строку загрузки растра
получится должно
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
Picture1.LoadFromFile(GetProgramDir+‘/Pictures/Plan.bmp’);
end;