Как в смежниках шаб. XMLгосакт добавить "земельна ділянка "

Старий форум
1

Как в шаблоне для печати госактов из XML-файлов в смежниках добавить перед физлицами и юрлицами “земельна ділянка”
Чтобы выводило:
Від Б до В земельна ділянка Яненко Є.П.

2

В коде шаблона BlueAct.fr3 замените строку
Neighbours1:=Neighbours1+StringPart(Letters,4,’ ‘)+’ '+NeighbourName;
на строку
Neighbours1:=Neighbours1+StringPart(Letters,4,’ ‘)+’ земельна ділянка '+ROP(NeighbourName);

а строку
Neighbours2:=Neighbours2+StringPart(Letters,2,’ ‘)+’ - ‘+StringPart(Letters,4,’ ‘)+’ '+NeighbourName;
замените на
Neighbours2:=Neighbours2+StringPart(Letters,2,’ ‘)+’ - ‘+StringPart(Letters,4,’ ‘)+’ земельна ділянка '+ROP(NeighbourName);

3

Спасибо
Появился новый ньюанс!

Сейчас выводит
Опис меж
Б земельна ділянка Луб Є.С.
В земельна ділянка Яхненко Є.П.
Г земельна ділянка Пісарової М.А.
Д земельна ділянка Землі Зміївської райдержадміністрації
Д - А земельна ділянка Землі загального користування Зміївської райдержадміністрації

в строке Г-Д, Д-A появилась не желательная дописка Д земельна ділянка Землі Зміївської райдержадміністрації
В блоке описания смежников:
Землі Зміївської райдержадміністрації
Землі загального користування Зміївської райдержадміністрації
Подскажите как в шаблоне избавится от “земельна ділянка” перед землі

4

Тогда замените на эти строки:
Neighbours1:=Neighbours1+StringPart(Letters,4,’ ‘)+’ ‘+IIF(Pos(‘землі’,NeighbourName)=0,‘земельна ділянка ‘,’’)+ROP(NeighbourName);
Neighbours2:=Neighbours2+StringPart(Letters,2,’ ‘)+’ - ‘+StringPart(Letters,4,’ ‘)+’ '+IIF(Pos(‘землі’,NeighbourName)=0,‘земельна ділянка ‘,’’)+ROP(NeighbourName);

если в строке смежника есть слово “землі”, то "земельна ділянка " не добавляется.

5

Спасибо

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

6
7

строки

[code] //номер дома
if Building <> ‘’ then
begin
if Result <> ‘’ then Result := Result + ', ';
Result := Result + Building + Block;
end;

//квартира
if BuildingUnit <> ‘’ then
begin
if Result <> ‘’ then Result := Result + ', ';
Result := Result + BuildingUnit;
end;
[/code]
заменить на

[code] //номер дома
if Building <> ‘’ then
begin
if Result <> ‘’ then Result := Result + ', ';
Result := Result + 'буд. '+Building;
end;

//корпус
if Building <> ‘’ then
begin
if Result <> ‘’ then Result := Result + ', ';
Result := Result +‘корп.’+Block;
end;

//квартира
if BuildingUnit <> ‘’ then
begin
if Result <> ‘’ then Result := Result + ', ';
Result := Result + ‘кв.’+BuildingUnit;
end;[/code]

8

Спасибо
Появился новый ньюанс!
корп. появляется даже тогда когда нет данны в XML

Примерc. Шелудьківка, пров. Мічурина, буд. 8, корп.

9

точно вкралась ошибка копипасты
//корпус
if Block <> ‘’ then
begin
if Result <> ‘’ then Result := Result + ', ';
Result := Result +‘корп.’+Block;
end;

10

Уже работает, спасибо :slight_smile:

11

Нашел еще ошибочку, в смежниках не выводит слово “до”

Как выводит сейчас
Опис меж
Б земельна ділянка Луб Є.С.
В земельна ділянка Яхненко Є.П.
Г земельна ділянка Пісарової М.А.
Д Землі Зміївської райдержадміністрації
Д - А Землі загального користування Зміївської райдержадміністрації
Как должно быть
Опис меж
до Б земельна ділянка Луб Є.С.
до В земельна ділянка Яхненко Є.П.
до Г земельна ділянка Пісарової М.А.
до Д Землі Зміївської райдержадміністрації
Д до А Землі загального користування Зміївської райдержадміністрації

12

“до” идет в паре с “від”, а бланком слово “від” не предусмотрено
потому считаю правильным печатать “А - Б землі …”, а не “А до Б землі …”

13

Тогда может стоит добавить “-” как в нижней строке

Как должно быть
Опис меж
- Б земельна ділянка Луб Є.С.
- В земельна ділянка Яхненко Є.П.
- Г земельна ділянка Пісарової М.А.
- Д Землі Зміївської райдержадміністрації
Д - А Землі загального користування Зміївської райдержадміністрації

14

Neighbours1:=Neighbours1+’ до ‘+StringPart(Letters,4,’ ‘)+’ ‘+IIF(Pos(‘землі’,NeighbourName)=0,‘земельна ділянка ‘,’’)+ROP(NeighbourName);
…
Neighbours2:=Neighbours2+StringPart(Letters,2,’ ‘)+’ до ‘+
StringPart(Letters,4,’ ‘)+’ '+IIF(Pos(‘землі’,NeighbourName)=0,‘земельна ділянка ‘,’’)+ROP(NeighbourName);
…

либо

Neighbours1:=Neighbours1+’ - ‘+StringPart(Letters,4,’ ‘)+’ ‘+IIF(Pos(‘землі’,NeighbourName)=0,‘земельна ділянка ‘,’’)+ROP(NeighbourName);
…
Neighbours2:=Neighbours2+StringPart(Letters,2,’ ‘)+’ - ‘+
StringPart(Letters,4,’ ‘)+’ '+IIF(Pos(‘землі’,NeighbourName)=0,‘земельна ділянка ‘,’’)+ROP(NeighbourName);
…

15

Подскажите, как из XML “вытянуть” площадь Обмежень.