Примітивно й недосконало , та працює принаймні. Не ганьбіть сильно. Буде час, вдосконалю. Я лише вчуся.
@Map.SelectLayer ID70010 (помічаємо суміжники)
$111=@Map.SelCount (рахуємо їх кількість)
$222=1 (для початку циклу)
$11=<AdditionalInfoBlock><AdditionalInfo> (відкриваючий тег додаткової інф.)
$22=</AdditionalInfo></AdditionalInfoBlock>(закриваючий тег додаткової інф.)
[ Параметры.Первый ] (переходимо на перший з суміжників)
%metka (початок циклу)
@if $222>$111 then @Break ГОТОВО else (умова завершення циклу, порівнює заг. кількість із номером оброблюваного суміжника)
$2=@Map.Selected.GetParameter ID7001003 (беремо дані із назви суміжника)
$5=/Proprietor (шляхи для @XML.XPath)
$1=/Proprietor/LegalEntity/Name (шляхи для @XML.XPath)
$55=@XML.NodeCount $5 LegalEntity $2 (перевіряємо чи суміжник юр. особа)
$L=/Proprietor/NaturalPerson/FullName/LastName (шляхи для @XML.XPath)
$F=/Proprietor/NaturalPerson/FullName/FirstName (шляхи для @XML.XPath)
$M=/Proprietor/NaturalPerson/FullName/MiddleName (шляхи для @XML.XPath)
$LN=@XML.XPath $L $2 (Прізвище)
$FN=@XML.XPath $F $2 (Ім’я)
$MN=@XML.XPath $M $2 (по-батькові)
$FN=@Calc copy("$FN",1,1) (відрізаємо від імені першу літеру)
$FN=@DequoteText $FN
$MN=@Calc copy("$MN",1,1) (відрізаємо від по-батькові першу літеру)
$MN=@DequoteText $MN
@if $55>0 then $3=@XML.XPath $1 $2 else $3=землі гр. $LN $FN. $MN. (як юр особа, інакше як фіз. особа)
$3=@DequoteText $3
@Map.Selected.SetParameter ID7001004 $11$3$22 (додаткова інформація= Початок+значення+Кінець)
$222=$222+1 (продовження циклу)
[ Параметры.Следующий ] (перехід на наступного суміжника)
@goto metka (перехід на початок циклу)
Якщо суміжник юр. особа то в додатковій інформації повністю дублюється, тобто "землі запасу сільської ради" в назві суміжника продублюється і в додаткові інформації.
Фізична особа в результаті = "землі гр. Іванов І. І." (не відміняє).
Якщо власників у суміжної ділянки більше одного - скрипт не працює, поки що. Просуваюся в цьому напрямку.
Вход
FAQ
Поиск
