@Map.DeselectAll
@Map.SelectLayer id70005
;
;цикл по виділених об’єктах
$NS=0
@Text.Add На карті знайдено такі ділянки:
%StartNS
$NS=@Map.NextSelected $NS
@if $NS=0 then @Goto %EndNS
;Список ПІБ і назв співвласників з/д
$PP=@Map.Object[$NS].Parameter[ID7000520]
$PC=@XML.NodeCount /Proprietors ProprietorInfo $PP
@if $PC<1 then @Goto %Exit
$I=0
$Res=
%Loop
$I=$I+1
$IsLE=@XML.NodeCount ProprietorInfo[$I]/Authentication LegalEntity $PP
@if $IsLE=1 then @Goto %LegalEntity
$LN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $PP
$FN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $PP
$MN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $PP
@if $LN= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$LN $FN $MN
@Goto %Continue
%LegalEntity
$N=@XML.XPath ProprietorInfo[$I]/Authentication/LegalEntity/Name $PP
@if $N= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$N
%Continue
;створюємо параметр ID2014000008
$S=@Map.Parameters.Get ID2014000008
@if $S= then @Map.Parameters.Add 2014000008 5 Назва
;добавляєм параметр ID7000581 в список доступних шару XML : Земельна ділянка
@Map.Object[$NS].Parameter[ID2014000008] $Res
;Этот скрипт показывает кадастровый номер XML- или In4-участка
$CadNumber=
$CadNumber=@Map.Object[$NS].CalculateFormula ParentID7000300ParentID7000301:ParentID7000401:P[ID7000513]
@if $CadNumber= then @Break Что-то пошло не так
;створюємо параметр ID9266061
$S=@Map.Parameters.Get ID9266061
@if $S= then @Map.Parameters.Add 9266061 5 $CadNumber
;добавляєм параметр ID9266061 в список доступних шару XML : Земельна ділянка
@Map.Object[$NS].Parameter[ID9266061] $CadNumber
@if $I<$PC then @Goto %Loop
@if $Res= then @Goto %Exit
;@Dialog.Message $Res $CadNumber
$S=“$Res $CadNumber”
$S=@DequoteText $S
@Text.Add $S
%Exit
@Goto %StartNS
%EndNS
$S=@Text.Text
@Dialog.Message $S