<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.10.16" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2032" PreviewOptions.Zoom="1" PrintOptions.Printer="Ïî óìîë÷àíèþ" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40800,6671715972" ReportOptions.Description.Text="" ReportOptions.LastChange="41417,4625063194" ScriptLanguage="PascalScript" ScriptText.Text="// Ïîçåìåëüíà êíèãà version 1.0                                                                                   &#13;&#10;var&#13;&#10;  MemoCounter:Integer;                         &#13;&#10;  S,S2:String;                      &#13;&#10;  I,N:Integer;                                  &#13;&#10;  DecDelimeter:Char;&#13;&#10;  XMLMode:Boolean;&#13;&#10;  CadNumber,CadNumberClear:String; //Êàäàñòðîâèé íîìåð (ç &#34;:&#34; òà ÷èñòèé)                                                                                          &#13;&#10;  WorkDir:String;            // ðîáî÷à ïàïêà&#13;&#10;  XML573Root:String;         //ïóòü ê êîðíþ XML573&#13;&#10;  NMList:String; Neighbours1:String;    &#13;&#10;  TX:String;&#13;&#10;  AD:String;&#13;&#10;  ChiefPosition,ChiefName,ExecutorPosition,ExecutorName:String; Nambe:String;    &#13;&#10;  ExecName,ExecCity,ExecDate:String;                                                                                    &#13;&#10;  ParcelAddress:String;       &#13;&#10;  MapScale:String;&#13;&#10;       UDKZName:String;&#13;&#10;  UZRNM:String;  &#13;&#10;ÐàäàÐîä :String;&#13;&#10;  ÐàäàÍàç:String;&#13;&#10;  Ãîëîâàñð:String;&#13;&#10;  Çåìëåâï:String;&#13;&#10;  Óïðàâë³ííÿÄàâ:String;&#13;&#10;  Íà÷Óïðàâë³ííÿ:String;&#13;&#10;  ÊÑÏ:String;&#13;&#10;  ÐàéîíÐîäîâ:String;&#13;&#10; Nach:String; ParcelArea:String; SmejC:String;    &#13;&#10; //       &#13;&#10; AdjacentList:TStringList;&#13;&#10; AdjCount:Integer&#13;&#10;function GetXMLName(Path:String):String;&#13;&#10;var LN,FN,MN:String;                                           &#13;&#10;begin&#13;&#10;  Result:='';                               &#13;&#10;  if Path='' then Exit;&#13;&#10;  if not IsNodeExists(Path) then Exit;&#13;&#10;  if IsNodeExists(Path+'/LegalEntity') &#13;&#10;    then Result:=XPath(Path+'/LegalEntity/Name')                                                 &#13;&#10;    else begin&#13;&#10;      LN:=XPath(Path+'/NaturalPerson/FullName/LastName');                  &#13;&#10;      FN:=XPath(Path+'/NaturalPerson/FullName/FirstName');                  &#13;&#10;      MN:=XPath(Path+'/NaturalPerson/FullName/MiddleName');                  &#13;&#10;      Result:=LN+' '+Copy(FN,1,1)+'.'+Copy(MN,1,1)+'.';                                                                                 &#13;&#10;    end;              &#13;&#10;end;          &#13;&#10;procedure AddExplication(ParentPage:TfrxReportPage; ParentMemo:TfrxMemoView);&#13;&#10;var HeaderMemo,BodyMemo,FooterMemo,PageGrid:TList;&#13;&#10;    Log,SL:TStringList;  &#13;&#10;    DecDelimeter:Char;&#13;&#10;    BodyHeight,BodyTop:array of Integer;                                                                                                      &#13;&#10;    HeaderHeight,i,j,k,l,m,n,LeftCol,SumCol:Integer;&#13;&#10;    s1,s2,s3:String;&#13;&#10;    AreaCN:Real;&#13;&#10;    b:Boolean;&#13;&#10;    Areas:array of Real;                                                  &#13;&#10;    w:Integer;&#13;&#10;    Res:Extended;                                                              &#13;&#10;const&#13;&#10;  SuperWideColWidth = 200;&#13;&#10;  WideColWidth      = 150;&#13;&#10;  AverageColWidth   = 100;&#13;&#10;  SlimColWidth      = 65;&#13;&#10;  SuperSlimColWidth = 50;&#13;&#10;  HeaderBandHeight=20;                &#13;&#10;  BodyBandHeight=48;&#13;&#10;  FooterBandHeight=12;                                            &#13;&#10;  ColsFileName='6ZemCols.txt';&#13;&#10;    &#13;&#10;function AnyStrToFloat(S:string):Real;&#13;&#10;var N:string;&#13;&#10;    i:Integer;                                              &#13;&#10;begin&#13;&#10; N:='';              &#13;&#10; for I:=1 to Length(S) do&#13;&#10; if S[I] in ['0'..'9',',','.'] &#13;&#10;   then begin&#13;&#10;     if S[I] in ['0'..'9']&#13;&#10;       then N:=N+S[I]&#13;&#10;       else N:=N+DecDelimeter;                            &#13;&#10;   end;                      &#13;&#10; if N&#60;&#62;'' then Result:=StrToFloat(N) else Result:=0;                                                                                                            &#13;&#10;end;&#13;&#10;&#13;&#10;function GetAreaByCN(N:Integer; CN:string):Real;&#13;&#10;var II:Integer; S:string;                                               &#13;&#10;begin&#13;&#10;  Result:=0;&#13;&#10;  for II:=1 to ChildCount(N) do&#13;&#10;    begin&#13;&#10;      S:=PARAM(-7,N,II);&#13;&#10;      //åñëè ïðîøëè âñå óãîäèÿ, âûõîäèì                                                       &#13;&#10;      if S='20000' then exit;&#13;&#10;      //ïîëó÷àåì çíà÷åíèå ïàðàìåòðà CN                                                                                     &#13;&#10;      S:=PARAM('CN',N,II);&#13;&#10;      if Pos(' ',S)&#60;&#62;0&#13;&#10;        then S:=Copy(S,1,Pos(' ',S)-1);&#13;&#10;      if S=CN then&#13;&#10;        begin&#13;&#10;          //íàéäåíî óãîäèå ñ òðåáóåìûì êîäîì CN                                                                                       &#13;&#10;          S:=PARAM('AL',N,II);&#13;&#10;          //äîáàâëÿåì åãî ïëîùàäü ê ðåçóëüòàòó                                                                                                &#13;&#10;          if S&#60;&#62;'' then Result:=Result+AnyStrToFloat(S);&#13;&#10;        end;                 &#13;&#10;    end;&#13;&#10;end;          &#13;&#10;&#13;&#10;function XMLGetAreaByCN(CN:string):Real;&#13;&#10;var II,NN:Integer; S,S2:string;                                               &#13;&#10;begin&#13;&#10;  Result:=0;&#13;&#10;  S:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/LandsParcel';                &#13;&#10;  NN:=NodesCount(S,'LandParcelInfo');&#13;&#10;  if NN&#60;1 then Exit;&#13;&#10;  for II:=1 to NN do&#13;&#10;    begin&#13;&#10;      S2:=Trim(XPath(S+'/LandParcelInfo['+IntToStr(II)+']/LandCode'));&#13;&#10;      if Length(S2)=1 then S2:='0'+S2;                                                                           &#13;&#10;      if S2=Trim(CN)&#13;&#10;        then Result:=Result+AnyStrToFloat(XPath(S+'/LandParcelInfo['+IntToStr(II)+']/MetricInfo/Area/Size'));&#13;&#10;    end;                                &#13;&#10;end;          &#13;&#10;  &#13;&#10;function GetColByNum(Num:String):Integer; // âîçâðàùàåò èíäåêñ ñòîëáöà Num, åñëè íå íàõîäèò òî -1&#13;&#10;  var i:Integer;&#13;&#10;      s:String;                                                &#13;&#10;begin&#13;&#10;  result:=-1;                                 &#13;&#10;  for i:=1 to SL.Count-1 do&#13;&#10;    begin&#13;&#10;      s:=StringPart(SL[i],1,chr(9));&#13;&#10;      if s[1]='&#38;' then Delete(s,1,1);&#13;&#10;      if Num=s&#13;&#10;        then&#13;&#10;          begin&#13;&#10;            result:=i;&#13;&#10;            Exit;                      &#13;&#10;          end;&#13;&#10;    end;                                            &#13;&#10;end;          &#13;&#10;&#13;&#10;function GetColByNum2(Num:String):Integer; // åñëè íå íàõîäèò Num, òî âîçâðàùàåò èíäåêñ ñòîëáöà ïðàâåå                                                                                                                                           &#13;&#10;  var i:Integer;&#13;&#10;      s:String;                                                &#13;&#10;begin&#13;&#10;  result:=-1;                                 &#13;&#10;  for i:=SumCol to SL.Count-1 do&#13;&#10;    begin&#13;&#10;      s:=StringPart(SL[i],1,chr(9));&#13;&#10;      if s[1]='&#38;' then Delete(s,1,1);&#13;&#10;      if CompareText(Num,s)&#60;0      &#13;&#10;        then&#13;&#10;          begin&#13;&#10;            result:=i-1;            &#13;&#10;            Exit;                      &#13;&#10;          end;&#13;&#10;    end;                                            &#13;&#10;  if result=-1&#13;&#10;    then result:=i;&#13;&#10;end;&#13;&#10;                                       &#13;&#10;function AddMemoToHeader(Col:Integer; Level:Integer):Integer;&#13;&#10;var Num,w,h1,h2,i,j,k,ip:Integer;&#13;&#10;    s1,s2,s3:String;&#13;&#10;    MemoText:TStringList;&#13;&#10;begin&#13;&#10;  HeaderMemo.Add(TfrxMemoView.Create(ParentPage));&#13;&#10;  MemoText:=TStringList.Create;&#13;&#10;  Num:=HeaderMemo.Count-1;&#13;&#10;  with TfrxMemoView(HeaderMemo[Num]) do&#13;&#10;    begin&#13;&#10;      Name:='HDRMemo'+IntToStr(Num)+;                                                             &#13;&#10;      case Level of&#13;&#10;        8:if Col=1&#13;&#10;             then Left:=ParentMemo.Left+LeftCol &#13;&#10;             else Left:=TfrxMemoView(HeaderMemo[Num-1]).Left+TfrxMemoView(HeaderMemo[Num-1]).Width;&#13;&#10;       -2:Left:=TfrxMemoView(HeaderMemo[Col]).Left;&#13;&#10;       -1:Left:=TfrxMemoView(HeaderMemo[Col-1]).Left&#13;&#10;       else&#13;&#10;         Left:=TfrxMemoView(HeaderMemo[Col-1]).Left;//+TfrxMemoView(HeaderMemo[Col-1]).Width                                  &#13;&#10;      end;                         &#13;&#10;      w:=StrToInt(StringPart(SL[Col],3,chr(9)));&#13;&#10;      if Level=8 &#13;&#10;        then begin             &#13;&#10;          case w of&#13;&#10;            1:Width:=SuperWideColWidth;&#13;&#10;            2:Width:=WideColWidth;&#13;&#10;            3:Width:=AverageColWidth;&#13;&#10;            4:Width:=SlimColWidth;&#13;&#10;            5:Width:=SuperSlimColWidth&#13;&#10;            else Width:=w                                   &#13;&#10;          end;&#13;&#10;        end&#13;&#10;        else Width:=TfrxMemoView(HeaderMemo[Col-1]).Width;&#13;&#10;      ParentFont:=True;  &#13;&#10;      h1:=StrToInt(StringPart(SL[Col],6,chr(9)));&#13;&#10;      h2:=StrToInt(StringPart(SL[Col],7,chr(9)));&#13;&#10;      case Level of&#13;&#10;         8:begin&#13;&#10;             s3:=StringPart(SL[Col],1,chr(9));&#13;&#10;             if (s3='Ã') or (s3='Ä') then s3:='';  &#13;&#10;           end;                                                           &#13;&#10;        -1:s3:=StringPart(SL[Col],2,chr(9));  &#13;&#10;        -2:s3:=StringPart(SL[Col],10,chr(9))  &#13;&#10;        else &#13;&#10;          if Level=h1&#13;&#10;            then s3:=StringPart(SL[Col],2,chr(9))&#13;&#10;            else s3:=StringPart(SL[Col],9,chr(9))  &#13;&#10;      end;&#13;&#10;      repeat&#13;&#10;        MemoText.Add(StringPart(s3,1,'^'));&#13;&#10;        ip:=Pos('^',s3);&#13;&#10;        if ip&#60;&#62;0 then Delete(s3,1,ip);&#13;&#10;      until ip=0;&#13;&#10;      case Level of&#13;&#10;       8:begin&#13;&#10;           Top:=ParentMemo.Top+8*HeaderBandHeight;&#13;&#10;           Height:=HeaderBandHeight;&#13;&#10;           Memo.Text:=MemoText.Text;                &#13;&#10;         end;&#13;&#10;      -1:begin&#13;&#10;           Top:=ParentMemo.Top+h1*HeaderBandHeight;&#13;&#10;           Height:=(8-h1)*HeaderBandHeight;&#13;&#10;           Memo.Text:=MemoText.Text;&#13;&#10;         end;&#13;&#10;      -2:begin&#13;&#10;           Top:=ParentMemo.Top+(h1+1)*HeaderBandHeight;&#13;&#10;           Height:=(h2-h1-1)*HeaderBandHeight;&#13;&#10;           Memo.Text:=MemoText.Text;&#13;&#10;           s1:=StringPart(SL[Col],8,chr(9));&#13;&#10;           k:=GetColByNum(s1);&#13;&#10;           Width:=TfrxMemoView(HeaderMemo[k-1]).Left+TfrxMemoView(HeaderMemo[k-1]).Width-Left;&#13;&#10;         end;&#13;&#10;       else&#13;&#10;         if Level=h1&#13;&#10;           then&#13;&#10;             begin&#13;&#10;               Top:=ParentMemo.Top+h1*HeaderBandHeight;                            &#13;&#10;               if Length(StringPart(SL[Col],10,chr(9)))&#62;1 &#13;&#10;                 then Height:=HeaderBandHeight*1&#13;&#10;                 else Height:=HeaderBandHeight*(h2-h1);&#13;&#10;               Memo.Text:=MemoText.Text;  &#13;&#10;               s1:=StringPart(SL[Col],8,chr(9));&#13;&#10;               k:=GetColByNum(s1);&#13;&#10;               Width:=TfrxMemoView(HeaderMemo[k-1]).Left+TfrxMemoView(HeaderMemo[k-1]).Width-Left;////        &#13;&#10;             end&#13;&#10;           else&#13;&#10;             begin&#13;&#10;               if Length(StringPart(SL[Col],10,chr(9)))&#62;1&#13;&#10;                 then&#13;&#10;                   begin&#13;&#10;                     Top:=ParentMemo.Top+(h1+1)*HeaderBandHeight;&#13;&#10;                     Height:=(7-h1)*HeaderBandHeight;&#13;&#10;                     Memo.Text:=s3;&#13;&#10;                   end&#13;&#10;                 else&#13;&#10;                   begin&#13;&#10;                     Top:=ParentMemo.Top+h2*HeaderBandHeight;&#13;&#10;                     Height:=(8-h2)*HeaderBandHeight;&#13;&#10;                     Memo.Text:=s3;&#13;&#10;                   end;                             &#13;&#10;             end;                       &#13;&#10;      end;                                    &#13;&#10;      Visible:=True;&#13;&#10;      Frame.Typ:=ftLeft+ftTop+ftRight+ftBottom;&#13;&#10;      Frame.Style:=fsSolid;&#13;&#10;      Frame.Color:=clBlack;&#13;&#10;      VAlign:=vaCenter;                                              &#13;&#10;      HAlign:=haCenter;&#13;&#10;      case StringPart(SL[Col],5,chr(9)) of&#13;&#10;        'H':Rotation:=0;&#13;&#10;        'V':Rotation:=90&#13;&#10;        else Rotation:=StrToInt(StringPart(SL[Col],5,chr(9)))&#13;&#10;      end;&#13;&#10;      if Level=8 then Rotation:=0;&#13;&#10;      StrechMode:=smDontStrech;&#13;&#10;      if ((Width*Height)/Length(Memo.Text))&#60;45&#13;&#10;        then Font.Size:=Font.Size-1;   //äëÿ ìàëåíüêèõ ÿ÷ååê è äëèííûõ íàäïèñåé óìåíüøàåì øðèôò                                                                                                                                                  &#13;&#10;    end;&#13;&#10;  result:=Num;&#13;&#10;  MemoText.Free;&#13;&#10;end;          &#13;&#10;          &#13;&#10;procedure AddMemoToBody(Row: Integer; Col:Integer);&#13;&#10;var s1,s2,s3,s4:String;&#13;&#10;    ar:Real;&#13;&#10;    i,j,k,l,m,n:Integer;                                &#13;&#10;begin&#13;&#10;  if Col=1&#13;&#10;    then &#13;&#10;       begin&#13;&#10;         BodyHeight[Row-1]:=BodyBandHeight;&#13;&#10;         if Row=1 &#13;&#10;           then BodyTop[Row-1]:=0&#13;&#10;           else BodyTop[Row-1]:=BodyTop[Row-2]+BodyHeight[Row-2];                                                          &#13;&#10;       end;                                         &#13;&#10;  BodyMemo.Add(TfrxMemoView.Create(ParentPage));&#13;&#10;  with TfrxMemoView(BodyMemo[BodyMemo.Count-1]) do&#13;&#10;    begin&#13;&#10;      Name:='BodyMemo'+IntToStr(MemoCounter);&#13;&#10;      Inc(MemoCounter);                                          &#13;&#10;      Left:=TfrxMemoView(HeaderMemo[Col-1]).Left;&#13;&#10;      Top:=BodyTop[Row-1]+ParentMemo.Top+9*HeaderBandHeight;&#13;&#10;      Width:=TfrxMemoView(HeaderMemo[Col-1]).Width;                            &#13;&#10;      Height:=BodyBandHeight;&#13;&#10;      ParentFont:=True;  &#13;&#10;      Frame.Typ:=ftLeft+ftTop+ftRight+ftBottom;&#13;&#10;      HAlign:=haCenter;&#13;&#10;      VAlign:=vaCenter;&#13;&#10;      s1:=SEF(Copy(Param('KZ',Row),1,Pos(' ',Param('KZ',Row))-1),'KZ.txt');&#13;&#10;      S2:=Copy(Param('KZ',Row),1,Pos(' ',Param('KZ',Row))-1);            &#13;&#10;      case StringPart(SL[Col],1,chr(9)) of&#13;&#10;        'À':if XMLMode&#13;&#10;                then Memo.Text:=SEF(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/ProprietorCode'),'KZ.txt')                                            &#13;&#10;                else Memo.Text:=SEF(Param('KZ',Row),'KZ.txt');  &#13;&#10;        'Á':begin              &#13;&#10;              if XMLMode&#13;&#10;                then Memo.Text:=PrepareXMLNMList(',')&#13;&#10;                else Memo.Text:='   '+Param('NM',Row);&#13;&#10;              HAlign:=haLeft;                                              &#13;&#10;            end;                                                      &#13;&#10;        'Â':if XMLMode&#13;&#10;              then Memo.Text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/ProprietorCode')&#13;&#10;              else Memo.Text:=Param('KZ',Row);&#13;&#10;        'Ã':if XMLMode&#13;&#10;              then Memo.Text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/CategoryPurposeInfo/Purpose')  &#13;&#10;              else Memo.Text:=Param('CV',Row);&#13;&#10;        'Ä':begin&#13;&#10;              Font.Size:=Font.Size-2;                                                                                                                         &#13;&#10;              if XMLMode&#13;&#10;                then Memo.Text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/CategoryPurposeInfo/Use')  &#13;&#10;                else Memo.Text:=Param('TX',Row);&#13;&#10;            end;                                                                                                      &#13;&#10;       '02':begin&#13;&#10;              if XMLMode &#13;&#10;                then Memo.Text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/Area/Size')      &#13;&#10;                else begin                                     &#13;&#10;                  Memo.Text:=Param('AS',Row);  &#13;&#10;                  if Areas[(Row-1)*SL.Count+Col]&#60;&#62;AnyStrToFloat(Param('AS',Row))&#13;&#10;                    then Font.Color:=clRed;&#13;&#10;                end;                                                                    &#13;&#10;            end                                                                                            &#13;&#10;        else&#13;&#10;          Memo.Text:=FormatFloat('0.0000',Areas[(Row-1)*SL.Count+Col])    &#13;&#10;      end;                                      &#13;&#10;    end;&#13;&#10;  l:=(Row-1)*SL.Count+Col;              &#13;&#10;end;&#13;&#10;&#13;&#10;procedure HeaderPrint;&#13;&#10;var i,w,h1,h2:Integer; ww:Extended;                                                            &#13;&#10;begin&#13;&#10;  HeaderMemo:=TList.Create;&#13;&#10;  for i:=1 to SL.Count-1 do&#13;&#10;    AddMemoToHeader(i,8);&#13;&#10;  ww:=0;            &#13;&#10;  for i:=1 to SL.Count-1 do&#13;&#10;    ww:=ww+TfrxMemoView(HeaderMemo[i-1]).Width;&#13;&#10;  for i:=1 to SL.Count-1 do&#13;&#10;    begin&#13;&#10;      if i&#60;&#62;1 then TfrxMemoView(HeaderMemo[i-1]).Left:=TfrxMemoView(HeaderMemo[i-2]).Left+TfrxMemoView(HeaderMemo[i-2]).Width;                                                               &#13;&#10;      TfrxMemoView(HeaderMemo[i-1]).Width:=Trunc(TfrxMemoView(HeaderMemo[i-1]).Width*ParentMemo.Width/ww);&#13;&#10;    end;              &#13;&#10;  for i:=1 to SL.Count-1 do&#13;&#10;    begin&#13;&#10;      h1:=StrToInt(StringPart(SL[i],6,chr(9)));&#13;&#10;      h2:=StrToInt(StringPart(SL[i],7,chr(9)));&#13;&#10;      if h1=h2 &#13;&#10;        then AddMemoToHeader(i,-1)&#13;&#10;        else&#13;&#10;          begin&#13;&#10;            AddMemoToHeader(i,h1);&#13;&#10;            AddMemoToHeader(i,h2);&#13;&#10;            if Length(StringPart(SL[i],10,chr(9)))&#62;1&#13;&#10;              then AddMemoToHeader(i,-2);&#13;&#10;          end;                    &#13;&#10;    end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BodyPrint;&#13;&#10;var i,w,N:Integer;                                 &#13;&#10;begin&#13;&#10;  BodyMemo:=TList.Create;&#13;&#10;  if XMLMode &#13;&#10;    then N:=1&#13;&#10;    else N:=ObjCount;                             &#13;&#10;  for i:=1 to N do&#13;&#10;    for j:=1 to SL.Count-1 do                                                                   &#13;&#10;      AddMemoToBody(i,j);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;  DecDelimeter:=Copy(FloatToStr(1/10),2,1);&#13;&#10;  SL:=TStringList.Create;&#13;&#10;  if XMLMode&#13;&#10;    then SL.LoadFromFile(GetProgramDir+'\Templates\6ZemLB.txt')&#13;&#10;    else SL.LoadFromFile(GetProgramDir+'\Templates\'+ColsFileName);&#13;&#10;  //ïîìå÷àåì '&#38;' ñòîëáöû ñî çíà÷åíèÿìè &#60;&#62;0                                                                                                                                                               &#13;&#10;  for k:=SL.Count-1 downto 1 do&#13;&#10;    if Copy(SL[k],1,1)&#60;&#62;'&#38;'&#13;&#10;      then&#13;&#10;        begin&#13;&#10;          AreaCN:=0.0;&#13;&#10;          if XMLMode&#13;&#10;            then AreaCN:=XMLGetAreaByCN(StringPart(SL[k],1,chr(9)))    &#13;&#10;            else&#13;&#10;              for i:=1 to ObjCount do&#13;&#10;                AreaCN:=AreaCN+GetAreaByCN(i,StringPart(SL[k],1,chr(9)));&#13;&#10;          if (AreaCN&#62;0.0) then Insert('&#38;',SL[k],1);&#13;&#10;        end;&#13;&#10;  //ïîìå÷àåì '&#38;' ñòîëáöû-ñóììû ñî çíà÷åíèÿìè &#60;&#62;0                                                                                                                                                      &#13;&#10;  for k:=SL.Count-1 downto 1 do&#13;&#10;    if (StringPart(SL[k],11,chr(9))&#60;&#62;'') and (Copy(StringPart(SL[k],1,chr(9)),1,1)&#60;&#62;'&#38;')                                                           &#13;&#10;      then&#13;&#10;        begin&#13;&#10;          s1:=StringPart(SL[k],11,chr(9));&#13;&#10;          b:=False;&#13;&#10;          j:=0;                        &#13;&#10;          repeat&#13;&#10;            inc(j);&#13;&#10;            s2:=StringPart(s1,j,'+');&#13;&#10;            if s2&#60;&#62;''&#13;&#10;              then&#13;&#10;                begin                                                             &#13;&#10;                  i:=GetColByNum(s2);                                                &#13;&#10;                  b:=Copy(SL[i],1,1)='&#38;';&#13;&#10;                end;                                              &#13;&#10;          until b or (s2='');&#13;&#10;          if b then Insert('&#38;',SL[k],1);                                     &#13;&#10;        end;&#13;&#10;  //óäàëÿåì ëèøíèå ñòîëáöû                                                                                          &#13;&#10;  for k:=SL.Count-1 downto 1 do&#13;&#10;    if Copy(SL[k],1,1)&#60;&#62;'&#38;'&#13;&#10;      then SL.Delete(k)&#13;&#10;      else Delete(SL[k],1,1);&#13;&#10;  //óáèðàåì èç Sum íåèñïîëüçóåìûå ñòîëáöû                                                                                                          &#13;&#10;  for k:=SL.Count-1 downto 1 do&#13;&#10;    if StringPart(SL[k],11,chr(9))&#60;&#62;''&#13;&#10;      then&#13;&#10;        begin&#13;&#10;          s1:=StringPart(SL[k],11,chr(9));&#13;&#10;          s3:='';                          &#13;&#10;          j:=0;                        &#13;&#10;          repeat&#13;&#10;            inc(j);&#13;&#10;            s2:=StringPart(s1,j,'+');&#13;&#10;            if s2&#60;&#62;''&#13;&#10;              then&#13;&#10;                begin                                                             &#13;&#10;                  i:=GetColByNum(s2);&#13;&#10;                  if i&#60;&#62;-1&#13;&#10;                    then&#13;&#10;                      if s3=''&#13;&#10;                        then s3:=s2&#13;&#10;                        else s3:=s3+'+'+s2;                                                               &#13;&#10;                end;                                              &#13;&#10;          until s2='';&#13;&#10;          i:=Pos(chr(9)+s1,SL[k])+1;&#13;&#10;          Delete(SL[k],i,Length(s1));&#13;&#10;          Insert(s3,SL[k],i);                                            &#13;&#10;        end;&#13;&#10;  //Areas - ìàññèâ çíà÷åíèé ïëîùàäåé óãîäèé&#13;&#10;  if XMLMode &#13;&#10;    then l:=SL.Count&#13;&#10;    else l:=SL.Count*ObjCount;&#13;&#10;  SetLength(Areas,l);&#13;&#10;  for i:=0 to l-1 do&#13;&#10;    Areas[i]:=0.0;&#13;&#10;  SumCol:=6;//GetColByNum('02');&#13;&#10;  for k:=SL.Count-1 downto SumCol do&#13;&#10;    begin&#13;&#10;      s1:=StringPart(SL[k],8,chr(9));&#13;&#10;      s2:=StringPart(SL[k],1,chr(9));&#13;&#10;      if s1&#60;&#62;s2&#13;&#10;        then&#13;&#10;          begin&#13;&#10;            i:=GetColByNum2(s1);&#13;&#10;            ip:=Pos(s1,SL[k]);&#13;&#10;            s2:=StringPart(SL[i],1,chr(9));                                        &#13;&#10;            Delete(SL[k],ip,Length(s1));&#13;&#10;            Insert(s2,SL[k],ip);&#13;&#10;          end;                                                      &#13;&#10;    end;&#13;&#10;  //Çàïîëíÿåì ìàññèâ ïëîùàäåé                                                                                                          &#13;&#10;  for k:=SL.Count-1 downto SumCol do&#13;&#10;    begin&#13;&#10;      s1:=StringPart(SL[k],11,chr(9));&#13;&#10;      s2:=StringPart(SL[k],1,chr(9));&#13;&#10;      if s2[1]='&#38;' then Delete(s2,1,1);                                                                           &#13;&#10;      for i:=1 to StrToInt(IIF(XMLMode,1,ObjCount)) do&#13;&#10;        if s1=''&#13;&#10;          then&#13;&#10;            begin                                                 &#13;&#10;              l:=k+(i-1)*SL.Count;&#13;&#10;              if XMLMode&#13;&#10;                then begin&#13;&#10;                  Areas[l]:=XMLGetAreaByCN(s2);&#13;&#10;                end                            &#13;&#10;                else begin&#13;&#10;                  Areas[l]:=GetAreaByCN(i,s2);&#13;&#10;                end;                                              &#13;&#10;            end                                      &#13;&#10;          else&#13;&#10;            begin&#13;&#10;              AreaCN:=0.0;&#13;&#10;              j:=0;                            &#13;&#10;              repeat&#13;&#10;                inc(j);&#13;&#10;                s3:=StringPart(s1,j,'+');&#13;&#10;                if S3&#60;&#62;''&#13;&#10;                  then &#13;&#10;                    begin&#13;&#10;                      l:=GetColByNum(s3)+(i-1)*SL.Count;&#13;&#10;                      AreaCN:=AreaCN+Areas[l];&#13;&#10;                    end;                                                      &#13;&#10;              until s3='';&#13;&#10;              Areas[k+(i-1)*SL.Count]:=AreaCN;                                      &#13;&#10;            end;&#13;&#10;    end;&#13;&#10;  if XMLMode&#13;&#10;    then begin&#13;&#10;      SetLength(BodyTop,1);                                  &#13;&#10;      SetLength(BodyHeight,1);&#13;&#10;    end&#13;&#10;    else begin&#13;&#10;      SetLength(BodyTop,ObjCount);                                  &#13;&#10;      SetLength(BodyHeight,ObjCount);&#13;&#10;    end;              &#13;&#10;  w:=0;&#13;&#10;  for k:=SL.Count-1 downto 1 do&#13;&#10;    begin&#13;&#10;      l:=Round(AnyStrToFloat(StringPart(SL[k],3,chr(9))));&#13;&#10;      case l of&#13;&#10;        1:w:=w+SuperWideColWidth;&#13;&#10;        2:w:=w+WideColWidth;&#13;&#10;        3:w:=w+AverageColWidth;&#13;&#10;        4:w:=w+SlimColWidth;&#13;&#10;        5:w:=w+SuperSlimColWidth&#13;&#10;        else w:=w+l    &#13;&#10;      end;                          &#13;&#10;    end;&#13;&#10;  HeaderPrint;&#13;&#10;  BodyPrint;&#13;&#10;//  FooterPrint;&#13;&#10;  ParentMemo.Visible:=False;                                                        &#13;&#10;end;    &#13;&#10;&#13;&#10;procedure CreateMultiRowTable(Page:TfrxReportPage; Body:TfrxChild; TableName:String; SL:TStringList);&#13;&#10;var Row,N,I,J,MemoHeight:Integer; Cols,MemoList:TList;&#13;&#10;    Ex:Boolean; Memo:TfrxMemoView;&#13;&#10;  function PlaceReturns(S:String):String;&#13;&#10;  var I:Integer;                                                                                          &#13;&#10;  begin&#13;&#10;   Result:='';                           &#13;&#10;   for I:=1 to Length(S) do if S[I]&#60;&#62;'~' then Result:=Result+S[I] else Result:=Result+chr(13)+chr(10);  &#13;&#10;  end;             &#13;&#10;begin&#13;&#10;  Cols:=TList.Create;&#13;&#10;  MemoList:=TList.Create;                          &#13;&#10;  N:=0;&#13;&#10;  repeat&#13;&#10;    inc(N);&#13;&#10;    Ex:=True;                          &#13;&#10;    for I:=0 to Page.AllObjects.Count-1 do&#13;&#10;      if Page.AllObjects[I] is TfrxMemoView then&#13;&#10;        if TfrxMemoView(Page.AllObjects[I]).TagStr=TableName then                                                  &#13;&#10;          if TfrxMemoView(Page.AllObjects[I]).Tag=N&#13;&#10;            then begin&#13;&#10;              Cols.Add(Page.AllObjects[I]);&#13;&#10;              Ex:=False;&#13;&#10;              Break;                          &#13;&#10;            end;&#13;&#10;  until Ex;&#13;&#10;  if Cols.Count&#60;1 then Exit;                                                                            &#13;&#10;  if SL.Count&#60;1 then Exit;&#13;&#10;  if TfrxMemoView(Cols[0]).Height*SL.Count&#62;Body.Height &#13;&#10;    then begin&#13;&#10;      MemoHeight:=Trunc(Trunc(Body.Height) div SL.Count);                                                                                                                    &#13;&#10;      Body.Height:=MemoHeight*SL.Count;&#13;&#10;    end&#13;&#10;    else begin&#13;&#10;      MemoHeight:=Trunc(TfrxMemoView(Cols[0]).Height);                                                 &#13;&#10;      Body.Height:=TfrxMemoView(Cols[0]).Height*SL.Count;                         &#13;&#10;    end;              &#13;&#10;  for Row:=0 to SL.Count-1 do&#13;&#10;    if Row=0&#13;&#10;      then &#13;&#10;        for J:=0 to Cols.Count-1 do&#13;&#10;          begin                                           &#13;&#10;            TfrxMemoView(Cols[J]).Memo.Text:=PlaceReturns(StringPart(SL[Row],J+1,chr(9)));&#13;&#10;            TfrxMemoView(Cols[J]).Height:=MemoHeight;&#13;&#10;            TfrxMemoView(Cols[J]).Top:=0;&#13;&#10;          end                                &#13;&#10;      else begin&#13;&#10;        for J:=0 to Cols.Count-1 do&#13;&#10;          begin&#13;&#10;            Memo:=TfrxMemoView.Create(Body);                                                                &#13;&#10;            Memo.Memo.Text:=PlaceReturns(StringPart(SL[Row],J+1,chr(9)));&#13;&#10;            Memo.Name:=TfrxMemoView(Cols[J]).Name+'Row'+IntToStr(Row);                                                                            &#13;&#10;            Memo.Left:=TfrxMemoView(Cols[J]).Left;                                                                            &#13;&#10;            Memo.Top:=Row*MemoHeight;                                                                            &#13;&#10;            Memo.Width:=TfrxMemoView(Cols[J]).Width;                                                                            &#13;&#10;            Memo.Height:=MemoHeight;                                                                            &#13;&#10;            Memo.Font:=TfrxMemoView(Cols[J]).Font;                                                                            &#13;&#10;            Memo.Frame:=TfrxMemoView(Cols[J]).Frame;&#13;&#10;            Memo.HAlign:=TfrxMemoView(Cols[J]).HAlign;&#13;&#10;            Memo.VAlign:=TfrxMemoView(Cols[J]).VAlign;                                                        &#13;&#10;            Memo.Rotation:=TfrxMemoView(Cols[J]).Rotation;                                                        &#13;&#10;            MemoList.Add(Memo);                                                    &#13;&#10;          end;                                  &#13;&#10;      end;&#13;&#10;  Cols.Free;&#13;&#10;  MemoList.Free;                                  &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;function PrepareXMLNMList(Delimeter:Char):String;&#13;&#10;var I,N:Integer; S,PPath:String;                                                                  &#13;&#10;begin&#13;&#10;  Result:='';&#13;&#10;  PPath:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors';                          &#13;&#10;  N:=NodesCount(PPath,'ProprietorInfo');&#13;&#10;  if N&#60;1 then Exit;&#13;&#10;  for I:=1 to N do&#13;&#10;    if IsNodeExists(PPath+'/ProprietorInfo/Authentication/NaturalPerson')&#13;&#10;      then Result:=Result+&#13;&#10;                XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName')+' '+&#13;&#10;                XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName')+' '+&#13;&#10;                XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName')+IIF(I&#60;&#62;N,Delimeter+' ','')&#13;&#10;      else Result:=Result+XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name')+IIF(I&#60;&#62;N,Delimeter+' ','')                                                                                          &#13;&#10;end;          &#13;&#10;function AnyStrToFloat(S:string):Real;&#13;&#10;var N:string;&#13;&#10;    i:Integer;                                              &#13;&#10;begin&#13;&#10; N:='';              &#13;&#10; for I:=1 to Length(S) do&#13;&#10; if S[I] in ['0'..'9',',','.'] &#13;&#10;   then begin&#13;&#10;     if S[I] in ['0'..'9']&#13;&#10;       then N:=N+S[I]&#13;&#10;       else N:=N+DecDelimeter;                            &#13;&#10;   end;                      &#13;&#10; if N&#60;&#62;'' then Result:=StrToFloat(N) else Result:=0;&#13;&#10;end;&#13;&#10;  &#13;&#10;function GetLandParcel(ParcelNumber:Integer; LPNumber:Integer):Real;&#13;&#10; var Path,S:String;                                                                                                    &#13;&#10;begin&#13;&#10;  Path:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo['&#13;&#10;        +IntToStr(ParcelNumber)+']/LandsParcel/LandParcelInfo['+IntToStr(LPNumber)+']/LandCode';&#13;&#10;  if IsNodeExists(Path)&#13;&#10;    then begin&#13;&#10;      S:=XPath(Path);&#13;&#10;      if S&#60;&#62;'' then Result:=AnyStrToFloat(S) else Result:=0.0;                                      &#13;&#10;    end                        &#13;&#10;    else Result:=0.0;                                       &#13;&#10;end;&#13;&#10;function PrepareExplication(ParcelNumber:Integer; var SL:TStringList):Boolean;&#13;&#10;var Path:String; N:Integer; S,LCode:String;                                                                                                                        &#13;&#10;begin&#13;&#10;  if SL&#60;&#62;nil                          &#13;&#10;    then SL.Clear&#13;&#10;    else SL:=TStringList.Create;&#13;&#10;  Path:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo['+IntToStr(ParcelNumber)+']/LandsParcel';&#13;&#10;  N:=NodesCount(Path,'LandParcelInfo');&#13;&#10;  for I:=1 to N do&#13;&#10;    begin&#13;&#10;      LCode:=XPath(Path+'/LandParcelInfo['+IntToStr(N)+']/LandCode');                                            &#13;&#10;      S:=XPath(Path+'/LandParcelInfo['+IntToStr(N)+']/MetricInfo/Area/Size');&#13;&#10;      AnyStrToFloat(S);                                            &#13;&#10;      SL.Add('');                             &#13;&#10;    end            &#13;&#10;end;&#13;&#10;&#13;&#10;function FormatXMLAddress:String;&#13;&#10;var ST,SN,BN,Settlement,District,Region,Res:String;                             &#13;&#10;begin&#13;&#10;  Res:='';                               &#13;&#10;  ST:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelAddress/StreetType'));&#13;&#10;  SN:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelAddress/StreetType'));                                        &#13;&#10;  BN:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelAddress/Building'));                                        &#13;&#10;  Settlement:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Settlement'));                                        &#13;&#10;  District:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/District'));                                        &#13;&#10;  Region:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Region'));&#13;&#10;  if (ST&#60;&#62;'') and (SN&#60;&#62;'') then Res:=Res+ST+' '+SN;&#13;&#10;  if BN&#60;&#62;'' then Res:=Res+', '+BN;&#13;&#10;  if Settlement&#60;&#62;'' then Res:=Res+', '+Settlement;&#13;&#10;  if District&#60;&#62;'' then Res:=Res+', '+District;&#13;&#10;  if Region&#60;&#62;'' then Res:=Res+', '+Region;&#13;&#10;  if IsNodeExists('InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelLocation/Urban') &#13;&#10;    then Res:=Res+' çà ìåæàìè íàñåëåííîãî ïóíêòà';&#13;&#10;  while Pos(', ',Res)=1 &#13;&#10;    do begin&#13;&#10;      Delete(Res,1,2);&#13;&#10;      Res:=Trim(Res);                                      &#13;&#10;    end;                      &#13;&#10;  Result:=Res;                            &#13;&#10;end;          &#13;&#10;&#13;&#10;procedure Picture1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var FN:String;                               &#13;&#10;begin&#13;&#10;  FN:=XPath('Graphics[1]/Graphic[1]/ImageFilename[1]');                                 &#13;&#10;//  FN:=WorkDir+'\Pictures\LBCP'+CadNumberClear+'.bmp';                     &#13;&#10;  Picture1.LoadFromFile(FN);    &#13;&#10;end;&#13;&#10;     &#13;&#10;begin&#13;&#10;  DecDelimeter:=Copy(FloatToStr(1/10),2,1);&#13;&#10;  MemoCounter:=1000;                          &#13;&#10;  XMLMode:=ObjCount=0;&#13;&#10;  if XMLMode&#13;&#10;    then XML573Root:=IIF(IsNodeExists('InfoPart'),'','EmbeddedXML/UkrainianCadastralExchangeFile/');                                         &#13;&#10;  if XMLMode&#13;&#10;    then begin&#13;&#10;      CadNumber:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/KOATUU')+':'+&#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralZoneNumber')+':'+      &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/CadastralQuarterNumber')+':'+  &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/ParcelID');  &#13;&#10;      CadNumberClear:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/KOATUU')+&#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralZoneNumber')+      &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/CadastralQuarterNumber')+  &#13;&#10;                 XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/ParcelID');  &#13;&#10;    end                                                 &#13;&#10;    else begin&#13;&#10;      CadNumber:=Param('ID106');         &#13;&#10;      CadNumberClear:=Copy(CadNumber,1,10)+Copy(CadNumber,12,2)+Copy(CadNumber,15,3)+Copy(CadNumber,19,4);                                                                                                  &#13;&#10;    end;          &#13;&#10;      &#13;&#10;  RegionID:=Copy(CadNumberClear,1,2);                                                                &#13;&#10;  RayonID:=Copy(CadNumberClear,1,5);                                                                &#13;&#10;  RadaID:=Copy(CadNumberClear,1,8);&#13;&#10;  UZRNM:=File('Setup.ini','RepÍà÷àëüíèê(ÓÇÐ)');             &#13;&#10;  Óïðàâë³ííÿÄàâ:=File('Setup.ini','RepÍàçâàÄ(ÓÇÐ)');                                                         &#13;&#10;  ÐàäàÐîä:=File('Setup.ini','RepÍàçâàÐ(Ñ³ëüðàäà)');  &#13;&#10;  ÐàäàÍàç:=File('Setup.ini','RepÍàçâà(Ñ³ëüðàäà)');&#13;&#10;  Ãîëîâàñð:=File('Setup.ini','RepÍà÷àëüíèê(Ñ³ëüðàäà)');&#13;&#10;  Çåìëåâï:=File('Setup.ini','RepÍàçâà(Çåìëåâïîðÿäíèê)');&#13;&#10;  Íà÷Óïðàâë³íííÿ:=File('Setup.ini','RepÏîñàäà(ÓÇÐ)');        &#13;&#10;  ÊÑÏ:=File('Setup.ini','RepÍàçâà(Íàçâà ÊÑÏ)');&#13;&#10;  ÐàéîíÐîäîâ:=File('Setup.ini','RepÍàçâàÐ(Ðàéîí)');                            &#13;&#10;  RegistratorName:=File('Setup.ini','Ðåºñòðàòîð');&#13;&#10;  Nambe:=File('Setup.ini','Íîìåð äîãîâîðó');      &#13;&#10;  if XMLMode and (XML573Root&#60;&#62;'')  &#13;&#10;    then UDKZName:=XPath('AppDetails/Common_Part/DKZ_Name')&#13;&#10;    else UDKZName:=File('Setup.ini','RepÍàçâà(ÓÇÐ)');              &#13;&#10;  WorkDir:=GetProgramDir;&#13;&#10;  AddExplication(Page1,ExplicationMemo);&#13;&#10;  MapScale:=XPath('Graphics/Graphic/ObjectScale');                                              &#13;&#10;  if XMLMode&#13;&#10;    then begin                                    &#13;&#10;      NMList:=PrepareXMLNMList(',');&#13;&#10;      TX:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/CategoryPurposeInfo/Use');&#13;&#10;      ChiefPosition:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefPosition');&#13;&#10;      ChiefName:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefName/LastName');&#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefName/FirstName'));&#13;&#10;      if S&#60;&#62;'' then ChiefName:=ChiefName+' '+Copy(S,1,1)+'.';                        &#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Chief/ChiefName/MiddleName'));&#13;&#10;      if S&#60;&#62;'' then ChiefName:=ChiefName+' '+Copy(S,1,1)+'.';                        &#13;&#10;      ExecutorPosition:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorPosition');&#13;&#10;      ExecutorName:=XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorName/LastName');&#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorName/FirstName'));&#13;&#10;      if S&#60;&#62;'' then ExecutorName:=ExecutorName+' '+Copy(S,1,1)+'.';                        &#13;&#10;      S:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Executor/ExecutorName/MiddleName'));&#13;&#10;      if S&#60;&#62;'' then ExecutorName:=ExecutorName+' '+Copy(S,1,1)+'.';&#13;&#10;      ParcelAddress:=FormatXMLAddress;&#13;&#10;    end  &#13;&#10;               &#13;&#10;    else begin&#13;&#10;      NMList:=Param('NM');&#13;&#10;      TX:=Param('TX');&#13;&#10;      ChiefPosition:='Ãîëîâíèé ³íæåíåð';&#13;&#10;      ChiefName:=File('setup.ini',ChiefPosition);&#13;&#10;      ExecutorPosition:='Âèêîíàâ';&#13;&#10;      ExecutorName:=File('setup.ini',ChiefPosition);&#13;&#10;      ParcelAddress:=Param('AU');&#13;&#10;       Nach:=Trim(Xpath(XML573Root+'/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/RegionalContacts/DKZRHead'));&#13;&#10;                   &#13;&#10;    end;&#13;&#10;  ExecName:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/CompanyName'));  &#13;&#10;  ExecCity:=Trim(XPath(XML573Root+'AdditionalPart/InfoLandWork/Executor/Address/Settlement'));&#13;&#10;  ParcelArea:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/Area/Size'));      &#13;&#10;  ExecDate:=FormatDateTime('YYYY',Date)+'ð.';&#13;&#10;&#13;&#10;&#13;&#10;  AdjCount:=NodesCount(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/AdjacentUnits','AdjacentUnitInfo');&#13;&#10;SmejC:='';&#13;&#10;J:=3;&#13;&#10; for I:=1 to AdjCount do&#13;&#10; begin&#13;&#10; S:=GetXMLName(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/AdjacentUnits/AdjacentUnitInfo['+IntToStr(I)+']/Proprietor');&#13;&#10; if (Pos('à ðàäà',S)=0) and (Pos('î¿ ðàäè',S)=0) and (Pos('ë³ çàïà',S)=0) and (Pos('ãàëüíîãî êîðèñò',S)=0)&#13;&#10; then &#13;&#10;begin&#13;&#10;J:=J+1;&#13;&#10;SmejC:=SmejC+IntToStr(J+1)+'. Âëàñíèê ñóì³æíî¿ çåìåëüíî¿ ä³ëÿíêè ãð.'+S+#13#10;&#13;&#10;end;&#13;&#10;end;&#13;&#10;  &#13;&#10;  //        &#13;&#10;  AdjacentList:=TStringList.Create;&#13;&#10;{  AdjCount:=NodesCount('Graphics/Graphic/Neighbours','Neighbour');&#13;&#10;  for I:=1 to AdjCount do&#13;&#10;    begin                         &#13;&#10;      AdjacentList.Add(XPath('Graphics/Graphic/Neighbours/Neighbour['+IntToStr(I)+']/Name'));&#13;&#10;    end;}                        &#13;&#10;  AdjCount:=NodesCount(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/AdjacentUnits','AdjacentUnitInfo');&#13;&#10;  for I:=1 to AdjCount do&#13;&#10;    begin&#13;&#10;      S:=GetXMLName(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/AdjacentUnits/AdjacentUnitInfo['+IntToStr(I)+']/Proprietor');&#13;&#10;      if (Pos('à ðàäà',S)=0) and (Pos('î¿ ðàäè',S)=0) and (Pos('ë³ çàïà',S)=0) and (Pos('ãàëüíîãî êîðèñò',S)=0)&#13;&#10;        then AdjacentList.Add('______________'+chr(9)+S);&#13;&#10;    end;&#13;&#10;  CreateMultiRowTable(Page2,Child1,'Adj',AdjacentList);                                                &#13;&#10;end." StoreInDFM="False" PropData="044C65667403800103546F70026808446174617365747301010C2E00000020446174615365743D224F626A446174617365742220446174615365744E616D653D224F626A446174617365742200010C2E00000020446174615365743D22436174446174617365742220446174615365744E616D653D22436174446174617365742200010C3200000020446174615365743D224C61796572446174617365742220446174615365744E616D653D224C61796572446174617365742200010C3200000020446174615365743D22506172616D446174617365742220446174615365744E616D653D22506172616D44617461736574220000095661726961626C65730100055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" Font.Charset="204" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="256" LeftMargin="20" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" Frame.ShadowWidth="1" HGuides.Text="" VGuides.Text="">
    <TfrxPictureView Name="Picture1" Left="-0,18886527" Top="377,59874727" Width="661,41732283" Height="536,69291339" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
    <TfrxMemoView Name="Memo60" Left="0" Top="0" Width="699,21259843" Height="0" Restrictions="31" ShowHint="False" Font.Charset="204" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0,5" ParentFont="False" VAlign="vaCenter" Text=""/>
    <TfrxMemoView Name="ExplicationMemo" Left="-149,66666667" Top="624,55249344" Width="9,41775" Height="226,77165354" ShowHint="False" Font.Charset="204" Font.Color="0" Font.Height="-11" Font.Name="Times New Roman" Font.Style="0" Frame.Width="0,1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Explication"/>
    <TfrxMemoView Name="Memo65" Left="3" Top="49,66666666" Width="693,98825" Height="58,89765" ShowHint="False" Font.Charset="204" Font.Color="0" Font.Height="-19" Font.Name="Times New Roman" Font.Style="1" Frame.Width="0,5" HAlign="haCenter" ParentFont="False" Text="ÐÐšÐ¢&#13;&#10;Ð¿Ñ€Ð¸Ð¹Ð¾Ð¼ÐºÐ¸-Ð¿ÐµÑ€ÐµÐ´Ð°Ñ‡Ñ– Ð¼ÐµÐ¶Ð¾Ð²Ð¸Ñ… Ð·Ð½Ð°ÐºÑ–Ð² Ð½Ð° Ð·Ð±ÐµÑ€Ñ–Ð³Ð°Ð½Ð½Ñ"/>
    <TfrxMemoView Name="Memo68" Left="467,66666667" Top="87,66666667" Width="280,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text="&#34;______&#34; ______________[ExecDate]"/>
    <TfrxMemoView Name="Memo1" Left="1" Top="125" Width="675,48825" Height="280,23098333" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" HAlign="haBlock" ParentFont="False" Text="ÐœÐ¸, Ñ‰Ð¾ Ð½Ð¸Ð¶Ñ‡Ðµ Ð¿Ñ–Ð´Ð¿Ð¸ÑÐ°Ð»Ð¸ÑÑ:&#13;&#10;1. Ð¡ÐµÑ€Ñ‚Ð¸Ñ„Ñ–ÐºÐ¾Ð²Ð°Ð½Ð¸Ð¹ Ñ–Ð½Ð¶ÐµÐ½ÐµÑ€-Ð·ÐµÐ¼Ð»ÐµÐ²Ð¿Ð¾Ñ€ÑÐ´Ð½Ð¸Ðº Ð”ÐÐ’ÐŸ â€œÐ Ñ–Ð²Ð½ÐµÐ³ÐµÐ¾ÐºÐ°Ð´Ð°ÑÑ‚Ñ€â€  Ð”ÐµÐ¼Ñ‡ÑƒÐº Ð¢.Ð’.&#13;&#10;2. Ð†Ð½Ð¶ÐµÐ½ÐµÑ€-Ð·ÐµÐ¼Ð»ÐµÐ²Ð¿Ð¾Ñ€ÑÐ´Ð½Ð¸Ðº Ð”ÐÐ’ÐŸ â€œÐ Ñ–Ð²Ð½ÐµÐ³ÐµÐ¾ÐºÐ°Ð´Ð°ÑÑ‚Ñ€â€ Ð¨ÑƒÐ±ÐµÑ€ Ðž.Ð†.&#13;&#10;3. Ð¡Ð¿ÐµÑ†Ñ–Ð°Ð»Ñ–ÑÑ‚-Ð·ÐµÐ¼Ð»ÐµÐ²Ð¿Ð¾Ñ€ÑÐ´Ð½Ð¸Ðº [Ð Ð°Ð´Ð°Ð Ð¾Ð´] Ñ€Ð°Ð´Ð¸ [Ð—ÐµÐ¼Ð»ÐµÐ²Ð¿]&#13;&#10;4. Ð’Ð»Ð°ÑÐ½Ð¸Ðº Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸ Ð³Ñ€.[FIO(NMList)]&#13;&#10;Ñƒ Ð¿Ñ€Ð¸ÑÑƒÑ‚Ð½Ð¾ÑÑ‚Ñ– Ð²Ð»Ð°ÑÐ½Ð¸ÐºÑ–Ð² (ÐºÐ¾Ñ€Ð¸ÑÑ‚ÑƒÐ²Ð°Ñ‡Ñ–Ð²) ÑÑƒÐ¼Ñ–Ð¶Ð½Ð¸Ñ… Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¸Ñ… Ð´Ñ–Ð»ÑÐ½Ð¾Ðº: &#13;&#10;[SmejC] ÑÐºÐ»Ð°Ð»Ð¸ Ñ†ÐµÐ¹ Ð°ÐºÑ‚ Ð¿Ñ€Ð¾ Ñ‚Ð°ÐºÐµ:&#13;&#10;1.ÐœÐµÐ¶Ñ– Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸ Ð·Ð° ÐºÐ°Ð´Ð°ÑÑ‚Ñ€Ð¾Ð²Ð¸Ð¼ Ð½Ð¾Ð¼ÐµÑ€Ð¾Ð¼ â„–[CadNumberClear], ÑÐºÐ° Ð·Ð½Ð°Ñ…Ð¾Ð´Ð¸Ñ‚ÑŒÑÑ Ð½Ð° Ñ‚ÐµÑ€Ð¸Ñ‚Ð¾Ñ€Ñ–Ñ—  [Ð Ð°Ð´Ð°Ð Ð¾Ð´] Ñ€Ð°Ð´Ð¸ [Ð Ð°Ð¹Ð¾Ð½Ð Ð¾Ð´Ð¾Ð²], Ð¿Ð»Ð¾Ñ‰ÐµÑŽ [ParcelArea]Ð³Ð° , Ð½Ð°Ð´Ð°Ð½Ð¾Ñ— Ð²Ð»Ð°ÑÐ½Ð¸ÐºÑƒ Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸ Ð³Ñ€.[DAP(NMList)] [TX], Ð·Ð°ÐºÑ€Ñ–Ð¿Ð»ÐµÐ½Ñ– Ð² Ð½Ð°Ñ‚ÑƒÑ€Ñ– (Ð½Ð° Ð¼Ñ–ÑÑ†ÐµÐ²Ð¾ÑÑ‚Ñ–) Ð¼ÐµÐ¶Ð¾Ð²Ð¸Ð¼Ð¸ Ð·Ð½Ð°ÐºÐ°Ð¼Ð¸ Ð²ÑÑ‚Ð°Ð½Ð¾Ð²Ð»ÐµÐ½Ð¾Ð³Ð¾ Ð·Ñ€Ð°Ð·ÐºÐ° Ñƒ ÐºÑ–Ð»ÑŒÐºÐ¾ÑÑ‚Ñ– __ ÑˆÑ‚."/>
    <TfrxMemoView Name="Memo2" Left="-0,66666667" Top="377,66666666" Width="680,82158333" Height="49,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="ÐŸÐ›ÐÐ Ð—Ð•ÐœÐ•Ð›Ð¬ÐÐžÐ‡ Ð”Ð†Ð›Ð¯ÐÐšÐ˜&#13;&#10;ÐœÐ°ÑÑˆÑ‚Ð°Ð± 1:[MapScale]"/>
    <TfrxMemoView Name="Memo3" Left="1" Top="931,3369559" Width="676,82158333" Height="126,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" HAlign="haBlock" ParentFont="False" Text="2. Ð’Ð»Ð°ÑÐ½Ð¸Ðº Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸ Ð¿Ñ€ÐµÑ‚ÐµÐ½Ð·Ñ–Ð¹ Ñ‰Ð¾Ð´Ð¾ Ð¼ÐµÐ¶ Ñ‚Ð° ÐºÐ¾Ð½Ñ„Ñ–Ð³ÑƒÑ€Ð°Ñ†Ñ–Ñ— Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸ Ð½Ðµ Ð¼Ð°Ñ”. &#13;&#10;3. Ð’Ð»Ð°ÑÐ½Ð¸ÐºÐ°Ð¼Ð¸ ÑÑƒÐ¼Ñ–Ð¶Ð½Ð¸Ñ… Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¸Ñ… Ð´Ñ–Ð»ÑÐ½Ð¾Ðº Ð¿Ñ€ÐµÑ‚ÐµÐ½Ð·Ñ–Ð¹ Ð´Ð¾ Ñ–ÑÐ½ÑƒÑŽÑ‡Ð¸Ñ… Ð¼ÐµÐ¶ Ð½Ðµ Ð·Ð°ÑÐ²Ð»ÐµÐ½Ð¾. &#13;&#10;4. ÐœÐµÐ¶Ð¾Ð²Ñ– Ð·Ð½Ð°ÐºÐ¸ Ð¿Ñ€ÐµÐ´'ÑÐ²Ð»ÐµÐ½Ñ– Ñ‚Ð° Ð¿ÐµÑ€ÐµÐ´Ð°Ð½Ñ– Ð½Ð° Ð·Ð±ÐµÑ€Ñ–Ð³Ð°Ð½Ð½Ñ Ð³Ñ€.[DAP(NMList)], ÑÐºÐ¸Ð¹(Ð°) Ð¿Ñ€Ð¾ Ð°Ð´Ð¼Ñ–Ð½Ñ–ÑÑ‚Ñ€Ð°Ñ‚Ð¸Ð²Ð½Ñƒ Ð²Ñ–Ð´Ð¿Ð¾Ð²Ñ–Ð´Ð°Ð»ÑŒÐ½Ñ–ÑÑ‚ÑŒ Ð·Ð° Ð·Ð½Ð¸Ñ‰ÐµÐ½Ð½Ñ Ð¼ÐµÐ¶Ð¾Ð²Ð¸Ñ… Ð·Ð½Ð°ÐºÑ–Ð² Ð·Ð³Ñ–Ð´Ð½Ð¾ Ð· Ð¿ÑƒÐ½ÐºÑ‚Ð¾Ð¼ &#34;Ðµ&#34; Ñ‡Ð°ÑÑ‚Ð¸Ð½Ð¸ Ð¿ÐµÑ€ÑˆÐ¾Ñ— ÑÑ‚Ð°Ñ‚Ñ‚Ñ– 211 Ð—ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ð³Ð¾ ÐºÐ¾Ð´ÐµÐºÑÑƒ Ð£ÐºÑ€Ð°Ñ—Ð½Ð¸ Ñ‚Ð° ÑÑ‚Ð°Ñ‚Ñ‚Ñ– 56 ÐšÐ¾Ð´ÐµÐºÑÑƒ Ð£ÐºÑ€Ð°Ñ—Ð½Ð¸ Ð¿Ñ€Ð¾ Ð°Ð´Ð¼Ñ–Ð½Ñ–ÑÑ‚Ñ€Ð°Ñ‚Ð¸Ð²Ð½Ñ– Ð¿Ñ€Ð°Ð²Ð¾Ð¿Ð¾Ñ€ÑƒÑˆÐµÐ½Ð½Ñ Ð¾Ð·Ð½Ð°Ð¹Ð¾Ð¼Ð»ÐµÐ½Ð¸Ð¹(Ð°). "/>
    <TfrxMemoView Name="Memo11" Left="2,66666667" Top="86" Width="82,48825" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-15" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text="Ñ.Ð¢Ð°Ð¹ÐºÑƒÑ€Ð¸"/>
    <TfrxMemoView Name="Memo14" Left="375,333333333333" Top="-46,6666666666667" Width="699,21259843" Height="0" Restrictions="31" ShowHint="False" Font.Charset="204" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.Width="0,5" ParentFont="False" VAlign="vaCenter" Text=""/>
  </TfrxReportPage>
  <TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="16" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxPageHeader Name="PageHeader1" Height="577,55906" Left="0" Top="16" Width="695,43352" Child="Child1">
      <TfrxMemoView Name="Memo4" Left="20" Top="113,10235" Width="695,48825" Height="27,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Times New Roman" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="ÐŸÐžÐ“ÐžÐ”Ð–Ð•ÐÐž:"/>
      <TfrxMemoView Name="Memo5" Left="43,33333333" Top="205,10235" Width="695,48825" Height="364,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text="Ð’Ð»Ð°ÑÐ½Ð¸Ðº Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸                                       _______________      [FIO(NMList)]&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;Ð¡ÐµÑ€Ñ‚Ð¸Ñ„Ñ–ÐºÐ¾Ð²Ð°Ð½Ð¸Ð¹ Ñ–Ð½Ð¶ÐµÐ½ÐµÑ€-Ð·ÐµÐ¼Ð»ÐµÐ²Ð¿Ð¾Ñ€ÑÐ´Ð½Ð¸Ðº&#13;&#10;Ð”ÐÐ’ÐŸ â€œÐ Ñ–Ð²Ð½ÐµÐ³ÐµÐ¾ÐºÐ°Ð´Ð°ÑÑ‚Ñ€â€                                          _______________     Ð”ÐµÐ¼Ñ‡ÑƒÐº Ð¢.Ð’.&#13;&#10;            Ðœ.ÐŸ.&#13;&#10;&#13;&#10;Ð†Ñ–Ð½Ð¶ÐµÐ½ÐµÑ€-Ð·ÐµÐ¼Ð»ÐµÐ²Ð¿Ð¾Ñ€ÑÐ´Ð½Ð¸Ðº &#13;&#10;Ð”ÐÐ’ÐŸ â€œÐ Ñ–Ð²Ð½ÐµÐ³ÐµÐ¾ÐºÐ°Ð´Ð°ÑÑ‚Ñ€â€                                          _______________     Ð”ÐµÐ¼Ñ‡ÑƒÐº Ð¢.Ð’.&#13;&#10;&#13;&#10;&#13;&#10;Ð¡Ð¿ÐµÑ†Ñ–Ð°Ð»Ñ–ÑÑ‚-Ð·ÐµÐ¼Ð»ÐµÐ²Ð¿Ð¾Ñ€ÑÐ´Ð½Ð¸Ðº&#13;&#10;[Ð Ð°Ð´Ð°Ð Ð¾Ð´] Ñ€Ð°Ð´Ð¸               &#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;Ð“Ð¾Ð»Ð¾Ð²Ð° [Ð Ð°Ð´Ð°Ð Ð¾Ð´] Ñ€Ð°Ð´Ð¸                &#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;CÑƒÐ¼Ñ–Ð¶Ð½Ñ– Ð·ÐµÐ¼Ð»ÐµÐºÐ¾Ñ€Ð¸ÑÑ‚ÑƒÐ²Ð°Ñ‡Ñ–:"/>
      <TfrxMemoView Name="Memo6" Left="383,5" Top="429,26901667" Width="393,98825" Height="27,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text="_______________      [Ð—ÐµÐ¼Ð»ÐµÐ²Ð¿]"/>
      <TfrxMemoView Name="Memo7" Left="383,66666667" Top="512,10235" Width="393,98825" Height="27,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text="_______________      [Ð“Ð¾Ð»Ð¾Ð²Ð°ÑÑ€]"/>
      <TfrxMemoView Name="Memo8" Left="4" Top="7,76901667" Width="689,48825" Height="60,89765" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text="5. Ð¦ÐµÐ¹ Ð°ÐºÑ‚ ÑÐºÐ»Ð°Ð´ÐµÐ½Ð¸Ð¹ Ñƒ Ñ‚Ñ€ÑŒÐ¾Ñ… Ð¿Ñ€Ð¸Ð¼Ñ–Ñ€Ð½Ð¸ÐºÐ°Ñ…, Ð¾Ð´Ð¸Ð½ Ð· ÑÐºÐ¸Ñ… Ð´Ð¾Ð´Ð°Ñ”Ñ‚ÑŒÑÑ Ð´Ð¾ Ð²Ñ–Ð´Ð¿Ð¾Ð²Ñ–Ð´Ð½Ð¾Ñ— Ð´Ð¾ÐºÑƒÐ¼ÐµÐ½Ñ‚Ð°Ñ†Ñ–Ñ— Ñ–Ð· Ð·ÐµÐ¼Ð»ÐµÑƒÑÑ‚Ñ€Ð¾ÑŽ, Ð´Ñ€ÑƒÐ³Ð¸Ð¹ Ð¿ÐµÑ€ÐµÐ´Ð°Ñ”Ñ‚ÑŒÑÑ Ð²Ð¸ÐºÐ¾Ð½Ð°Ð²Ñ†ÑŽ Ñ€Ð¾Ð±Ñ–Ñ‚, Ñ‚Ñ€ÐµÑ‚Ñ–Ð¹ - Ð²Ð»Ð°ÑÐ½Ð¸ÐºÑƒ Ð·ÐµÐ¼ÐµÐ»ÑŒÐ½Ð¾Ñ— Ð´Ñ–Ð»ÑÐ½ÐºÐ¸."/>
    </TfrxPageHeader>
    <TfrxChild Name="Child1" Height="411,96877" Left="0" Top="614" Width="695,43352">
      <TfrxMemoView Name="Memo10" Tag="1" Left="385,51206" Top="0" Width="135,17068667" Height="57,89765" ShowHint="False" TagStr="Adj" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text=""/>
      <TfrxMemoView Name="Memo9" Tag="2" Left="523,79561" Top="0" Width="173,85838" Height="57,89765" ShowHint="False" TagStr="Adj" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Times New Roman" Font.Style="0" ParentFont="False" Text=""/>
    </TfrxChild>
  </TfrxReportPage>
</TfrxReport>
