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;