Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 25 июн 2018 18:02

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 287 ]  На страницу Пред.  1 ... 16, 17, 18, 19, 20
Автор Сообщение
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 02 мар 2018 12:53 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 156
Откуда: м.Рівне
Доброго дня. Підкажіть, що не так в коді.
//Місце розташування земельної ділянки
ParcelLocation:='';
if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelLocation/Urban')
then begin
if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress')
then begin
if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Settlement')
then ParcelLocation:=ParcelLocation+XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Settlement');
if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetType')
and IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetName')
then begin
ParcelLocation:=ParcelLocation+', '+sef(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetType'),'XMLToIn4StreetTypes.txt')+
XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetName');
if ParcelLocation<>''
then begin
if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Building')
then ParcelLocation:=ParcelLocation+', '+XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Building');
if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Block')
then ParcelLocation:=ParcelLocation+', корп.'+XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Block');
end;
end;
end;
AdresaZD:=ParcelLocation+' '+RayonROP+' '+RegionROP;
AdresaZD1:='в '+AdresaZD;
AdresaZD2:=Region+', '+Rayon+', '+ParcelLocation;
AdresaZDTIT:='в '+ParcelLocation+#13#10+RayonROP+#13#10+RegionROP;
end
else begin
ParcelLocation:='на території '+radarop+'ради (за межами населених пунктів) '+RayonROP+' '+RegionROP;
AdresaZD:=ParcelLocation;
AdresaZD1:=ParcelLocation;
AdresaZD2:=Region+', '+Rayon+', '+Rada+' рада (за межами населених пунктів)';
AdresaZDTIT:='на території '+radarop+'ради '+#13#10+'(за межами населених пунктів)'+#13#10+RayonROP+#13#10+RegionROP;
end;


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 02 мар 2018 13:35 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 235
Откуда: м.Львiв
shyrko писал(а):
Доброго дня. Підкажіть, що не так в коді.

яка помилка, який результат очiкуєте? що пiд вiдладчиком?
Пiсля перевiрки /ParcelAddress Ви виходите, хоча параметер /Settlement є в iншому тезi, вищому. Ну i т.д.

Код:
//Місце розташування земельної ділянки
XML573Root:=IIF(IsNodeExists('InfoPart'),'','EmbeddedXML/UkrainianCadastralExchangeFile/');
S:='Setup.ini';
cadnum:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralZoneNumber');   
RegionID   := Copy(cadnum,1,2);
RayonID    := Copy(cadnum,1,5);
//Область
Region     := Trim(File(S,'RepНазва(Область)'));
RegionROP  := Trim(File(S,'RepНазваР(Область)'));                           
//Район                     
Rayon      := Trim(File(S,'RepНазва(Район)'));
RayonROP   := Trim(File(S,'RepНазваР(Район)'));                           
// Рада
Rada       := Trim(File(S,'RepНазва(Сільрада)'));
   
ParcelLocation:='';
if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelLocation/Urban') then begin
   if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Settlement') then
      ParcelLocation:=ParcelLocation+XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Settlement');
   if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress') then begin
      if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetType')
         and IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetName') then begin
            ParcelLocation:=ParcelLocation+', '+sef(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetType'),'XMLToIn4StreetTypes.txt')+
               XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetName');
            if ParcelLocation<>'' then begin
               if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Building') then
                  ParcelLocation:=ParcelLocation+', '+XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Building');
                  if IsNodeExists(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Block') then
                     ParcelLocation:=ParcelLocation+', корп.'+XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Block');
            end;
      end;
   end;
   AdresaZD:=ParcelLocation+' '+RayonROP+' '+RegionROP;
   AdresaZD1:='в '+AdresaZD;
   AdresaZD2:=Region+', '+Rayon+', '+ParcelLocation;
   AdresaZDTIT:='в '+ParcelLocation+#13#10+RayonROP+#13#10+RegionROP;
end else begin
   ParcelLocation:='на території '+radarop+'ради (за межами населених пунктів) '+RayonROP+' '+RegionROP;
   AdresaZD:=ParcelLocation;
   AdresaZD1:=ParcelLocation;
   AdresaZD2:=Region+', '+Rayon+', '+Rada+' рада (за межами населених пунктів)';
   AdresaZDTIT:='на території '+radarop+'ради '+#13#10+'(за межами населених пунктів)'+#13#10+RayonROP+#13#10+RegionROP;
end;

_________________
Простіше написати неправильну програму, ніж зрозуміти правильну


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 287 ]  На страницу Пред.  1 ... 16, 17, 18, 19, 20

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 7


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB