Аналитика

такого шаблона немає в останньому дистрибутиві!

І як кодом користуватись?

Да, действительно этот код из пользовательского шаблона, которого нет в дистрибутиве. Но вы можете использовать этот код в своих шаблонах. Код работает с XML файлами, при запуске модуля отчетов через Сервис>Документы. Можете попробовать с, входящим в дистрибутив, шаблоном CadPlanA4. При запуске модуля отчетов в таком режиме ему передается через буфер обмена расширенный XML, где и содержится список смежников (узел Data/Graphics/Graphic/Neighbours).

Мені із in4 потрібно витягти суміжників в reports.
На шаблони під XML поки що не перехожу - недружить reports з XML, дуже складно все робиться. Під in4 значно простіше.

Шо з цим робити?

Щось схоже:
http://www.geosystema.net/forum/viewtopic.php?p=11902#11902

але багато зайвого, потрібно просто список суміжників із in4

Шевченко Т.Г.
Котляревський І.П.
...

яким чином реалізувати

Викинув зайве

Дякую!!! Спробую...

Прошу помощи у разработчиков с допиливанием кода под задачу подготовки шаблона для договора аренды. Сам не осилил.
За основу был взял ранее тут выкладываемый шаблон заявления. Надо написать код для вставки данных о госакте, количестве поворотных точек участка и разобраться с падежами.
Шаблон под XML. Под in4 все сильно проще, но там нет всех необходимых данных

Вопрос решен.

Підкажіть, що не так
var
ProgramDir:String;
S:String;
RD,RD1: string;
procedure Child1OnBeforePrint(Sender: TfrxComponent);
begin
with Child1, Engine do
begin
RD:=PARAM('RD');
RD1:=StringPart(RD,1,',');
if RD1:='006' then Child1.Visible:=false
end
end;

Ошибка в скрипте 'THEN' expected. Ніяк не можу додуть, як правильно написать.

if RD1='006' then Child1.Visible:=false

Доброго дня підкажіть, як мені підкоригувати код (паскаль):

function PrepareXMLSmejList: string;
var
I, N, FoundI: Integer;
PPath, NbrPath, Nbr: string;
List: TStringList;
begin
Result:='';
// путь к блоку смежных участков
PPath:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/AdjacentUnits';
// кол-во смежников
N:=NodesCount(PPath,'AdjacentUnitInfo');
if N<1 then Exit;
List := TStringList.Create;
try
// сначала получаем названия смежников и заносим их в список
for I:=1 to N do
begin
// путь к текущему смежнику
NbrPath := PPath + '/AdjacentUnitInfo['+IntToStr(I)+']/Proprietor';
if IsNodeExists(NbrPath + '/NaturalPerson') then
// физлицо
Nbr := XPath(NbrPath + '/NaturalPerson/FullName/LastName') + ' ' +
XPath(NbrPath + '/NaturalPerson/FullName/FirstName') + ' ' +
XPath(NbrPath + '/NaturalPerson/FullName/MiddleName') else
// юрлицо
Nbr := XPath(NbrPath + '/LegalEntity/Name');
// проверяем или такой смежник уже есть в списке
// и добавляем только новых
// сравнение строк с учетом регистра!
if not List.Find(Nbr, FoundI) then
List.Add(Nbr);
end;
// формируем строку смежников
for I := 0 to List.Count -1 do
begin
// если это не первая строка, добавляем перенос строки
if Result <> '' then Result := Result + ', ';
Result := Result +{ IntToStr(I + 1) + '. ' + }List[I];
Memo5.Lines.Add(List[I]+', ');
end;
finally
List.Free;
end;
end;

Так, щоб список суміжників був подібним до списку, як в ДМТ шаблоні (А - Б - Прізвище Ім'я По-батькові (пр. А - Б - Іванов Іван Іванович... Г - А - Петров Петро Петрович))...
І важливо щоб не видалялись повторювані суміжники...

І ще підкажіть як в каталозі координат добавити периметр ділянки???

Якщо в дмт-шаблоні є таблиця суміжників, то в генератор звітів передається інформація по суміжникам (див. вміст буфера обміну після відкриття генератора звітів)

Dmitry_Zolotar, нажаль я не знаю як це втілити в життя ... Мені би відкоригувати цей код... Просто, щоб перед кожним суміжником була вставка (пр. А - Б - ...), щоб я потім перелік суміжників міг вивести в діалогове вікно...