%Events.OnAdd
$EO=@EventObject
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
@Map.DeselectAll
@Map.SelectLayer ID70026
$TO=@Map.SelectedObject
@Map.DeselectAll
$RestrictionsArea=0
$ParcelArea=@Map.Object[$EO].Parameter[0]
$ParcelArea=%Library.ReplaceComma $ParcelArea
$ParcelArea=@DequoteText $ParcelArea
$RestrictionsArea=0
$MC=@Map.Count
$I=0
%LoopObject
$I=$I+1
$LID=@Map.Object[$I].LayerID
@if $LID<>70008 then @Goto %Continue
$RestrArea=@Map.Object[$I].Parameter[0]
$RestrArea=%Library.ReplaceComma $RestrArea
$RestrArea=@DequoteText $RestrArea
$RestrictionsArea=$RestrictionsArea+$RestrArea
%Continue
@if $I<$MC then @Goto %LoopObject
$WORestrArea=$ParcelArea-$RestrictionsArea
@Map.DeselectAll
@Text[1].Clear
@Text[1].Add Площа ділянки$Tab$ParcelArea
@Text[1].Add Площа під обмеженнями$Tab$RestrictionsArea
@Text[1].Add Площа без обмеженннь$Tab$WORestrArea
$TT=@Text[1].Text
@Map.Object[$TO].TableText $TT
@Map.RefreshObject $TO
@Window.Refresh