Аналитика

; Для XML створення пiдписiв вздовж довгої сторони для дiлянок та сумiжникiв
$Obj=0
%BoundCycle
$Obj=@Map.NextSelected $Obj
@If $Obj=0 Then @Goto %End
$CN=
$Layer=@Map.Object[$Obj].LayerID
@If ($Layer<>70005) And ($Layer<>70010) Then @Goto %Next
@If $Layer=70010 Then @Goto %Neighbour
; кадастровий номер
$CN=@Map.Object[$Obj].CalculateFormula Parent[ID7000300](ID70003)Parent[ID7000301](ID70003):Parent[ID7000401](ID70004):P[ID7000513]
;
$Param=@Map.Object[$Obj].Parameter[ID7000520]
$NM=@XML.XPath ProprietorInfo/Authentication/LegalEntity/Name $Param
@If $NM= Then @Goto %NaturalBND
@Goto %DrawText
%NaturalBND
$I=0
%NaturalCycle
$I=$I+1
$NM1=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $Param
$NM2=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $Param
$NM3=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $Param
@If $NM1= Then @Goto %DrawText
@If $NM= Then $NM=$NM1 $NM2 $NM3 Else $NM=$NM,$NM1 $NM2 $NM3
@Goto %NaturalCycle
;
; Сумiжник
%Neighbour
$Param=@Map.Object[$Obj].Parameter[ID7001003]
$NM=@XML.XPath LegalEntity/Name $Param
@If $NM= Then @Goto %NaturalNB
;
@Goto %DrawText
%NaturalNB
$NM1=@XML.XPath NaturalPerson/FullName/LastName $Param
$NM2=@XML.XPath NaturalPerson/FullName/FirstName $Param
$NM3=@XML.XPath NaturalPerson/FullName/MiddleName $Param
$NM=$NM1 $NM2 $NM3
@Goto %DrawText
;
%DrawText
$NumP=@Map.Parameters.FindByID 8000001
@If $NumP>0 Then @Goto %ShowText
$NumP=@Map.Parameters.Add 8000001 5 FullName
;
%ShowText
; додаємо новий параметр з iменем власника
$Param=@Map.Layers.GetValidParameters ID$Layer
$Param=$Param $NumP
@Map.Layers.SetValidParameters ID$Layer $Param
;
; якщо є кадастровий номер, тодi формуємо змiнну для виводу на екран
@If "$CN"<>"" Then $NM=$NM ($CN)
;
@Map.Object[$Obj].Parameter[ID8000001]=$NM
; виводимо надпис на екран
@Map.Object[$Obj].CreateCaption ID8000001 1 0 1 1 0 0
@Map.RefreshObject $Obj
;
%Next
@Goto %BoundCycle
%End
;