<?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="40805.73279375" ReportOptions.Description.Text="" ReportOptions.LastChange="41537.6278461574" ScriptLanguage="PascalScript" ScriptText.Text="const ParcelExtPath='InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo';&#13;&#10;             &#13;&#10;var &#13;&#10;  XMLMode:Boolean;&#13;&#10;  XML573RootPath:String;&#13;&#10;  Memos:TList;&#13;&#10;  Memo:TfrxMemoView;&#13;&#10;  I,J,N:Integer;&#13;&#10;  SL:TStringList;&#13;&#10;  ParcelMONNumber,PointsPath:String;                                                  &#13;&#10;  &#13;&#10;{function UniqueName(var Object: TfrxComponent):Boolean;&#13;&#10;begin&#13;&#10;  Object.Name:=                                                   &#13;&#10;  Result:=                         &#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+1)&#62;Body.Height &#13;&#10;    then begin&#13;&#10;      MemoHeight:=Trunc(Trunc(Body.Height) div (SL.Count+1));                                                                                                                    &#13;&#10;      Body.Height:=MemoHeight*(SL.Count+1);&#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+1);                         &#13;&#10;    end;              &#13;&#10;  for Row:=0 to SL.Count 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-1],J+1,chr(9)));&#13;&#10;            Memo.Name:=TfrxMemoView(Cols[J]).Name+'Row'+IntToStr(Row-1);                                                                            &#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;begin&#13;&#10;  XMLMode:=ObjectCount=0;&#13;&#10;  XML573RootPath:='EmbeddedXML';                                                   &#13;&#10;  ParcelMONumber:=XPath('EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/MapObjectNumber');&#13;&#10;  PointsPath:='Map/Objects/Object['+ParcelMONumber+']/Points/';&#13;&#10;  N:=NodesCount(PointsPath,'Point');&#13;&#10;  SL:=TStringList.Create;&#13;&#10;  for I:=1 to N do&#13;&#10;    begin&#13;&#10;      S:=XPath(PointsPath+'Point['+IntToStr(I)+']/N');  &#13;&#10;      S:=S+chr(9)+XPath(PointsPath+'Point['+IntToStr(I)+']/I');  &#13;&#10;      S:=S+chr(9)+XPath(PointsPath+'Point['+IntToStr(I)+']/A');  &#13;&#10;      S:=S+chr(9)+XPath(PointsPath+'Point['+IntToStr(I)+']/L');  &#13;&#10;      S:=S+chr(9)+XPath(PointsPath+'Point['+IntToStr(I)+']/X');  &#13;&#10;      S:=S+chr(9)+XPath(PointsPath+'Point['+IntToStr(I)+']/Y');&#13;&#10;      SL.Add(S);                            &#13;&#10;    end;&#13;&#10;  CreateMultiRowTable(Page1,Child1,'Table',SL);                                                                                                &#13;&#10;  SL.Free;                    &#13;&#10;{  Memo:=TfrxMemoView.Create;&#13;&#10;  Memo.Name:=UniqueName(Counter);                                                        &#13;&#10;  Memos.Lines.Add(Memo);&#13;&#10;  Memo.Parent:='Child1';&#13;&#10;  RowCount:=0; Quit:=false;                                                                 &#13;&#10;  while not Quit do&#13;&#10;    begin&#13;&#10;      if not IsNodeExists(XML573RootPath+'External')&#13;&#10;        then begin&#13;&#10;          StopReport();                                                           &#13;&#10;        end                &#13;&#10;        else begin&#13;&#10;          Exit:=True;                                                               &#13;&#10;        end                &#13;&#10;    end;}                &#13;&#10;end.&#13;&#10;  " StoreInDFM="False" PropData="044C65667403800103546F70026808446174617365747301010C2E00000020446174615365743D224F626A446174617365742220446174615365744E616D653D224F626A446174617365742200010C2E00000020446174615365743D22436174446174617365742220446174615365744E616D653D22436174446174617365742200010C3200000020446174615365743D224C61796572446174617365742220446174615365744E616D653D224C61796572446174617365742200010C3200000020446174615365743D22506172616D446174617365742220446174615365744E616D653D22506172616D44617461736574220000095661726961626C65730100055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10.5833333333333" RightMargin="10.5833333333333" TopMargin="10.5833333333333" BottomMargin="10.5833333333333" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxPageHeader Name="PageHeader1" Height="20" Left="0" Top="831.4966" Width="713.701248333334" PrintOnFirstPage="False">
      <TfrxMemoView Name="Memo9" Tag="1" Left="0" Top="0" Width="112" Height="20" ShowHint="False" TagStr="Table" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="1"/>
      <TfrxMemoView Name="Memo11" Tag="2" Left="112" Top="0" Width="120" Height="20" ShowHint="False" TagStr="Table" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="2"/>
      <TfrxMemoView Name="Memo12" Tag="3" Left="232" Top="0" Width="120" Height="20" ShowHint="False" TagStr="Table" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="3"/>
      <TfrxMemoView Name="Memo13" Tag="4" Left="352" Top="0" Width="120" Height="20" ShowHint="False" TagStr="Table" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="4"/>
      <TfrxMemoView Name="Memo15" Tag="5" Left="472" Top="0" Width="120" Height="20" ShowHint="False" TagStr="Table" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="5"/>
      <TfrxMemoView Name="Memo16" Tag="6" Left="592" Top="0" Width="120" Height="20" ShowHint="False" TagStr="Table" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="6"/>
    </TfrxPageHeader>
    <TfrxReportTitle Name="ReportTitle1" Height="103" Left="0" Top="18.89765" Width="713.701248333334" Child="Child1">
      <TfrxMemoView Name="Memo1" Align="baWidth" Left="0" Top="0" Width="713.701248333334" Height="34" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Каталог координат&#13;&#10;меж земельної ділянки"/>
      <TfrxMemoView Name="Memo2" Align="baWidth" Left="0" Top="34" Width="713.701248333334" Height="16" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="Кадастровий номер: [CadNum]"/>
      <TfrxMemoView Name="Memo3" Left="0" Top="63" Width="112" Height="40" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="№ п/п"/>
      <TfrxMemoView Name="Memo4" Left="112" Top="63" Width="120" Height="40" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Внутрішній кут"/>
      <TfrxMemoView Name="Memo6" Left="232" Top="63" Width="120" Height="40" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Дирекційний кут"/>
      <TfrxMemoView Name="Memo7" Left="352" Top="63" Width="120" Height="40" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Довжина лінії"/>
      <TfrxMemoView Name="Memo8" Left="472" Top="63" Width="240" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Координати"/>
      <TfrxMemoView Name="Memo5" Left="472" Top="83" Width="120" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="X"/>
      <TfrxMemoView Name="Memo10" Left="592" Top="83" Width="120" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Y"/>
    </TfrxReportTitle>
    <TfrxChild Name="Child1" Height="666" Left="0" Top="143.62214" Width="713.701248333334">
      <TfrxMemoView Name="Memo22" Left="0" Top="0" Width="112" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="1"/>
      <TfrxMemoView Name="Memo23" Left="112" Top="0" Width="120" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="2"/>
      <TfrxMemoView Name="Memo24" Left="232" Top="0" Width="120" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="3"/>
      <TfrxMemoView Name="Memo25" Left="352" Top="0" Width="120" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="4"/>
      <TfrxMemoView Name="Memo26" Left="472" Top="0" Width="120" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="5"/>
      <TfrxMemoView Name="Memo27" Left="592" Top="0" Width="120" Height="20" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="6"/>
    </TfrxChild>
    <TfrxReportSummary Name="ReportSummary1" Height="93" Left="0" Top="910.86673" Width="713.701248333334">
      <TfrxMemoView Name="Memo28" Left="0" Top="0" Width="185" Height="41" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Frame.Width="0.5" ParentFont="False" VAlign="vaCenter" Text="Склав:&#13;&#10;Перевірив:"/>
    </TfrxReportSummary>
  </TfrxReportPage>
</TfrxReport>
