$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$Header=@Concat №,$Tab,КВЦПЗ(код),$Tab,КВЦПЗ(назва),$Tab,Кадастровий номер,$Tab,Форма власності,$Tab,Площа ділянки,$Tab,001,$Tab,002,$Tab,002.01,$Tab,002.02
$Header=@Concat $Header,$Tab,002.03,$Tab,003,$Tab,004,$Tab,005,$Tab,006,$Tab,007,$Tab,007.01,$Tab,007.02
$Header=@Concat $Header,$Tab,008,$Tab,009,$Tab,010,$Tab,011,$Tab,012,$Tab,013,$Tab,014,$Tab,015,$Tab,015.02 02,$Tab,015.03 03
@Text[2].Clear
@Text[2].Add $Header
$Papka=@Dialog.SelectFolder Виберіть папку з файлами XML для звіту
@Text[1].FolderListTree *.xml $Papka
$FC=@Text[1].Count
$I1=0
$J=0
%Loop1
$I1=$I1+1
$J=$J+1
$FN=@Text[1].Line[$I1]
@FileOpen $FN
$In4Map=@ActivateMap
@Map.DeselectAll
@Map.SelectLayer id70005
$EO=@Map.SelectedObject
$CP=@Map.Object[$EO].Parameter[ID7000510]
$CPCode=@StringPart 1 $CP
$CPName=@Calc Replace("$CP","$CPCode","",0,0)
$CPName=@DequoteText $CPName
$KN=@Map.Object[$EO].CalculateFormula Parent[ID7000300](ID70003):Parent[ID7000301](ID70003):Parent[ID7000401](ID70004):P[ID7000513]
$FV=@Map.Object[$EO].Parameter[ID7000512]
$FVName=@StringPart 2 $FV
$ParcelArea=@Map.Object[$EO].Parameter[ID7000516]
$ParcelArea=%Library.ReplaceComma $ParcelArea
$I=0
$CN001=0
$CN002=0
$CN00201=0
$CN00202=0
$CN00203=0
$CN003=0
$CN004=0
$CN005=0
$CN006=0
$CN007=0
$CN00701=0
$CN00702=0
$CN008=0
$CN009=0
$CN010=0
$CN011=0
$CN012=0
$CN013=0
$CN014=0
$CN015=0
$CN01502=0
$CN01503=0
;
$C001=0
$C002=0
$C00201=0
$C00202=0
$C00203=0
$C003=0
$C004=0
$C005=0
$C006=0
$C007=0
$C00701=0
$C00702=0
$C008=0
$C009=0
$C010=0
$C011=0
$C012=0
$C013=0
$C014=0
$C015=0
$C01502=0
$C01503=0
$C=@Map.Count
%Loop
$I=$I+1
$LID=@Map.Object[$I].LayerID 
@if $LID<>70009 then @Goto %Continue
$CN=@Map.Object[$I].Parameter[ID7000901]
$LandCode=@StringPart 1 $CN
$LandCode=@StringPart 1.$CN
$LandCodePlus=@StringPart 1 $CN
$LandArea=@Map.Object[$I].Parameter[ID7000903]
$LandArea=%Library.ReplaceComma $LandArea
@if $LandCode=001 then $CN001=$LandArea else $CN001=0
@if $LandCode=002 then $CN002=$LandArea else $CN002=0
@if $LandCodePlus=002.01 then $CN00201=$LandArea else $CN00201=0
@if $LandCodePlus=002.02 then $CN00202=$LandArea else $CN00202=0
@if $LandCodePlus=002.03 then $CN00203=$LandArea else $CN00203=0
@if $LandCode=003 then $CN003=$LandArea else $CN003=0
@if $LandCode=004 then $CN004=$LandArea else $CN004=0
@if $LandCode=005 then $CN005=$LandArea else $CN005=0
@if $LandCode=006 then $CN006=$LandArea else $CN006=0
@if $LandCode=007 then $CN007=$LandArea else $CN007=0
@if $LandCodePlus=007.01 then $CN00701=$LandArea else $CN00701=0
@if $LandCodePlus=007.02 then $CN007002=$LandArea else $CN00702=0
@if $LandCode=008 then $CN008=$LandArea else $CN008=0
@if $LandCode=009 then $CN009=$LandArea else $CN009=0
@if $LandCode=010 then $CN010=$LandArea else $CN010=0
@if $LandCode=011 then $CN011=$LandArea else $CN011=0
@if $LandCode=012 then $CN012=$LandArea else $CN012=0
@if $LandCode=013 then $CN013=$LandArea else $CN013=0
@if $LandCode=014 then $CN014=$LandArea else $CN014=0
@if $LandCode=015 then $CN015=$LandArea else $CN015=0
@if $LandCodePlus=015.02 then $CN01502=$LandArea else $CN01502=0
@if $LandCodePlus=015.03 then $CN01503=$LandArea else $CN01503=0
$C001=$C001+$CN001
$C002=$C002+$CN002
$C00201=$C00201+$CN00201
$C00202=$C00202+$CN00202
$C00203=$C00203+$CN00203
$C003=$C003+$CN003
$C004=$C004+$CN004
$C005=$C005+$CN005
$C006=$C006+$CN006
$C007=$C007+$CN007
$C00701=$C00701+$CN00701
$C007002=$C00702+$CN00702
$C008=$C008+$CN008
$C009=$C009+$CN009
$C010=$C010+$CN010
$C011=$C011+$CN011
$C012=$C012+$CN012
$C013=$C013+$CN013
$C014=$C014+$CN014
$C015=$C015+$CN015
$C01502=$C01502+$CN01502
$C01503=$C01503+$CN01503
%Continue
@if $I<$C then @Goto %Loop
;
@ActivateMap $In4Map
@FileClose
$S=@Concat $J,$Tab,$CPCode,$Tab,$CPName
$S=@Concat $S,$Tab,$KN,$Tab,$FVName,$Tab,$ParcelArea,$Tab,$C001,$Tab,$C002,$Tab,$C00201,$Tab,$C00202,$Tab,$C00203
$S=@Concat $S,$Tab,$C003,$Tab,$C004,$Tab,$C005,$Tab,$C006,$Tab,$C007,$Tab,$C00701,$Tab,$C007002,$Tab,$C008,$Tab,$C009
$S=@Concat $S,$Tab,$C010,$Tab,$C011,$Tab,$C012,$Tab,$C013,$Tab,$C014,$Tab,$C015,$Tab,$C01502,$Tab,$C01503
@Text[2].Add $S
@if $I1<$FC then @Goto %Loop1
@Dialog.Message Оброблено $J XML і звіт зкопійовано в буфер обміну
@Text[2].Copy