Виник ряд питань по яким потрібна допомога!
1. Як вивести в текстовий звіт з ХМЛ дані держ акту в родовому відмінку (в називному виводиться без питань).
2. Опис суміжних землекористувача з кадастровими номерами та без, рився в зразках шаблонів, але витягти у власний покищо не виходить (а вже дуже хочеться щоб все було в одному місці) прошу вказати необхідний кусок коду для цього блока.
3.
З того ж ХМЛя коряво витягується знак "№" (відображається в іншому шрифті, що портить зовнішній вигляд звіту, так так звіт так має виглядати симпатично
![Very Happy :D](./images/smilies/icon_biggrin.gif)
)
Dmitry_Zolotar писал(а):
Dmitry_Zolotar писал(а):
RichEdit - трохи "глючна" штука від майкрософт, тому його не використовую. Колись під час розробки шаблону звіту з десятком сторінок усі формули були замінені значеннями та збереглись в шаблон. Роботу над шаблоном довелось починати майже з нуля. До того ж періодично виникають проблеми з дивними шрифтами в RichEdit.
Dmitry_Zolotar писал(а):
Проблема замечена с RichEdit в Reports, в нем постоянно "проскакивает" шрифт "MS Mincho". Digitals XE тут ни при чем, а вот операционная система "виновата". Из-за этой проблемы я лично стараюсь избегать использования RichEdit, использую Memo.
Dmitry_Zolotar писал(а):
Можливо використовувався RichText, а він щось глючить: то якісь екзотичні шрифти з'являються, то розмір файла збільшується на порядок без причини.
Поведінку RichText (Microsoft) в фастрепорті ми поміняти не можем, раджу використовувати тільки MemoView.
4.
Не знайшов зразка коду, який витягує форму власності земельної ділянки, а було б зовсім не зайвим автоматизувати і цей блок.
Цитата:
//форма власності земельної ділянки
OwnershipCode:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/OwnershipInfo/Code');
Code:=SEF(OwnershipCode,'OwnershipCode.txt');(текстовий файл 'OwnershipCode.txt' має бути в папці Lists(Прикріпив нижче))
5. Маємо ще таблицю в звіті під назвою "Перелік обмежень щодо використання земельної ділянки" було б дуже круто заповнювати площі обмежень в ній згідно даних з ХМЛ в автоматичному режимі.
6. Чи можна якось налаштувати програму, щоб звіт зберігався в папку де лежить ХМЛ?
Код який я намагаюсь використовувати для опису суміжників:
// суміжники з кадастровим номером
NigthbourNum:='';
Neighbours3:='';
PPath:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/AdjacentUnits';
N:=NodesCount(PPath,'AdjacentUnitInfo');
NeighbourCount1:=NodesCount(GraphicPath+'/Neighbours','Neighbour');
if NeighbourCount1>0
then begin
for I:=1 to NeighbourCount1 do
begin
NeighbourPath1:=GraphicPath+'/Neighbours/Neighbour['+IntToStr(I)+']';
Letters:=XPath(NeighbourPath1+'/Letters');
NeighbourName1:=XPath(NeighbourPath1+'/Name');
NigthbourNum:=XPath(PPath+'/AdjacentUnitInfo['+IntToStr(I)+']/CadastralNumber');
if length(NigthbourNum)<19
then NigthbourNum:=' кад № неприсвоєний';
if I<>10 then Neighbours3:=Neighbours3+#13#10;
Neighbours3:=Neighbours3+'Від '+StringPart(Letters,2,' ')+' до '+
StringPart(Letters,4,' ')+' '+NeighbourName1+' ('+NigthbourNum+')'+;
end;
end;
//таблиця суміжників (від А до Б)
Neighbours1:='';
Neighbours2:='';
NeighbourCount:=NodesCount(GraphicPath+'/Neighbours','Neighbour');
if NeighbourCount>0
then begin
for I:=1 to NeighbourCount do
begin
NeighbourPath:=GraphicPath+'/Neighbours/Neighbour['+IntToStr(I)+']';
Letters:=XPath(NeighbourPath+'/Letters');
NeighbourName:=XPath(NeighbourPath+'/Name');
{ if I<=4
then begin
if I<>1 then Neighbours1:=Neighbours1+#13#10;}
// Neighbours1:=Neighbours1+StringPart(Letters,4,' ')+' '+NeighbourName;
// end
// else begin
if I<>10 then Neighbours2:=Neighbours2+#13#10;
Neighbours2:=Neighbours2+'Від '+StringPart(Letters,2,' ')+' до '+
StringPart(Letters,4,' ')+' '+NeighbourName;
end;
end;