Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 29 мар 2024 03:10

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




Начать новую тему Ответить на тему  [ Сообщений: 725 ]  На страницу Пред.  1 ... 36, 37, 38, 39, 40, 41, 42 ... 49  След.
Автор Сообщение
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 01 май 2015 17:13 
Специалист
Специалист

Зарегистрирован:
04 янв 2015 17:12
Сообщения: 41
Dmitry_Zolotar, подумав я над вашою порадою, але з таким кодом:
Resultt:='';
PPath:=XPath('Graphics/Graphic/Neighbours');
N:=NodesCount(PPath,'Neighbour');
if N<1 then Exit;
List := TStringList.Create;
try
for I:=1 to N do
begin
NbrPath := PPath + '/Neighbour['+IntToStr(I)+']/Name';
end;
for I := 0 to List.Count -1 do
begin
if Resultt <> '' then Resultt := Resultt + ', ';
Resultt := Resultt +{ IntToStr(I + 1) + '. ' + }List[I];
Memo7.Lines.Add(List[I]+', ');
end;
finally
List.Free;
end;
в мене вибиває така помилка (див. малюнок)...
Це одне, але мені потрібно не скорочені імена та по-батькові а повністю!!!


Вложения:
BYL3Tog_980.jpg
BYL3Tog_980.jpg [ 21.28 Кб | Просмотров: 11182 ]
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 01 май 2015 17:22 
Специалист
Специалист

Зарегистрирован:
04 янв 2015 17:12
Сообщения: 41
Підкажіть, як мені зробити так, що масштаб автоматично змінювався в репортсі, після того, як я поміняв його в дмт частині під час створення якогось графічного документа, (через спеціальна вставка > в іншому масштабі)?... В репортсі в мене є код (Масштаб 1:[MapScale])


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 10 май 2015 23:30 
Специалист
Специалист

Зарегистрирован:
16 фев 2009 23:04
Сообщения: 10
Треба допомога, а в програмуванні я "0")))

Методом научного тику пробую зробити адресу земельних ділянок для двох участків:
_________________________________________________________
//Адреса земельної ділянки на дві ділянки
AdresaZD:='';
AdresaZD2:='';
AD1:=Param('AD',1);
AD2:=Param('AD',2);
if AD1=AD2 then
begin
if GetV(1,AD1)<>'-'
then begin
if GetV(1,AD1)<>(Rada+' рада') then AdresaZD:=AdresaZD+GetV(1,AD1);
if GetV(2,AD1)<>'-' then AdresaZD:=AdresaZD+', '+GetV(2,AD1);
if GetV(3,AD1)<>'-' then AdresaZD:=AdresaZD+', '+GetV(3,AD1);
if GetV(4,AD1)<>'-' then AdresaZD:=AdresaZD+', '+GetV(4,AD1)
end;
if AdresaZD<>''
then AdresaZD:=' '+AdresaZD+', '+RayonROP+', '+RegionROP
else AdresaZD:=' на території '+RadaROP+' ради '+RayonROP+' '+RegionROP;
TXAD:= AdresaZD;
end
else begin
if GetV(1,AD1)<>'-'
then begin
if GetV(1,AD1)<>(Rada+' рада') then AdresaZD:=AdresaZD+GetV(1,AD1);
if GetV(2,AD1)<>'-' then AdresaZD:=AdresaZD+', '+GetV(2,AD1);
if GetV(3,AD1)<>'-' then AdresaZD:=AdresaZD+', '+GetV(3,AD1);
if GetV(4,AD1)<>'-' then AdresaZD:=AdresaZD+', '+GetV(4,AD1)
end;
if AdresaZD<>''
then AdresaZD:=' '+AdresaZD+', '+RayonROP+', '+RegionROP
else AdresaZD:='';
if GetV(1,AD2)<>'-'
then begin
if GetV(1,AD2)<>(Rada+' рада') then AdresaZD2:=AdresaZD2+GetV(1,AD2);
if GetV(2,AD2)<>'-' then AdresaZD2:=AdresaZD2+', '+GetV(2,AD2);
if GetV(3,AD2)<>'-' then AdresaZD2:=AdresaZD2+', '+GetV(3,AD2);
if GetV(4,AD2)<>'-' then AdresaZD2:=AdresaZD2+', '+GetV(4,AD2)
end;
if AdresaZD2<>''
then AdresaZD2:=' '+AdresaZD2+', '+RayonROP+', '+RegionROP
else AdresaZD2:=' на території '+RadaROP+' ради '+RayonROP+' '+RegionROP;
TXAD:= AdresaZD+' та '+AdresaZD2;
end;
_____________________________________________________________
Результат:
[TXAD] - видає адреси двох ділянок, + якщо адреса співпадає, то вписує тільки один раз
[AdresaZD] - видає адресу першої земельної ділянки
[AdresaZD2] - нічого не видає?? ЧОМУ??? Що я зробив не так?

І ще одне питання, як зробити на 3 ділянки, 4 Ділянки?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 10 май 2015 23:36 
Специалист
Специалист

Зарегистрирован:
16 фев 2009 23:04
Сообщения: 10
[StrToInt(PARAM(-8,0))-1] - кількість поворотних точок..
А Як зробити в пофамільному шаблоні щоб видавало окремо на 1-ділянку, 2-ділянку... n-ділянку і Їхню суму.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 11 май 2015 01:12 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
remixxiwe писал(а):
[StrToInt(PARAM(-8,0))-1] - кількість поворотних точок..
А Як зробити в пофамільному шаблоні щоб видавало окремо на 1-ділянку, 2-ділянку... n-ділянку і Їхню суму.

[StrToInt(PARAM(-8,1))-1] - 1-ша ділянка
[StrToInt(PARAM(-8,2))-1] - 2-га ділянка
[StrToInt(PARAM(-8,1))+StrToInt(PARAM(-8,2))-2] - сума

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 11 май 2015 09:04 
Специалист
Специалист

Зарегистрирован:
16 фев 2009 23:04
Сообщения: 10
Цитата:
[StrToInt(PARAM(-8,1))-1] - 1-ша ділянка
[StrToInt(PARAM(-8,2))-1] - 2-га ділянка
[StrToInt(PARAM(-8,1))+StrToInt(PARAM(-8,2))-2] - сума


Дякую, все працює!!!!

А як щодо питання про адресу земельної ділянки на два участка? Буду дуже вдячний...


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 12 май 2015 08:05 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
remixxiwe писал(а):
Результат:
[TXAD] - видає адреси двох ділянок, + якщо адреса співпадає, то вписує тільки один раз
[AdresaZD] - видає адресу першої земельної ділянки
[AdresaZD2] - нічого не видає?? ЧОМУ??? Що я зробив не так?


AdresaZD2 - порожня, бо "якщо адреса співпадає, то вписує тільки один раз"

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 12 июн 2015 22:05 
Специалист
Специалист

Зарегистрирован:
04 янв 2015 17:12
Сообщения: 41
Підкажіть будь-ласка, хто знається на програмуванні, що я тут зробив не правильно???, бо мені видає помилку...

function FormatAddresss:String;
var StT,SnN,BnN,BkK,Settlementt,Districtt,Regionn,PPath,Adresssa:String;
begin
Adresssa:='';
Path:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelLocation';
StT:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetType'));
SnN:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/StreetName'));
BnN:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Building'));
BkK:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/ParcelAddress/Block'));
Settlementt:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Settlement'));
Districtt:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/District'));
Regionn:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/Region'));
if IsNodeExists(PPath + '/Urban')then begin
if Regionn<>'' then Adresssa:=Adresssa+Regionn;
if Districtt<>'' then Adresssa:=Adresssa+', '+Districtt;
if Settlementt<>'' then Adresssa:=Adresssa+', '+Settlementt;
if StT='вулиця' then StT:='вул.' else
if StT='площа' then StT:='пл.' else
if StT='провулок' then StT:='пров.' else
if StT='проспект' then StT:='просп.';
if (StT<>'') and (SnN<>'') then Adresssa:=Adresssa+', '+#13#10+StT+' '+SnN;
if BnN<>'' then Adresssa:=Adresssa+', '+BnN;
if BkK<>'' then Adresssa:=Adresssa+', '+BkK;
end
else begin
Adresssa:=Adresssa+Regionn+', '+Districtt+','+#13#10+'на території '+File('Setup.ini','RepНазваР(Сільрада)');
end;


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 14 июн 2015 21:53 
Специалист
Специалист

Зарегистрирован:
04 янв 2015 17:12
Сообщения: 41
До розробників!!!
Де міститься інформація про змінений масштаб (правка > спеціальна вставка >в іншому масштабі) (приклад: кадастровий план мені видало в 2000 масштабі але, я його зробив в 1000 (вирізав (2000), вставив (1000))....
В ХМЛ шаблоні я інформацію про масштаб закинув в Репортс частину (fr3)...
В репортсі є код MapScale:=XPath('Graphics/Graphic/ObjectScale'), але він видає старий масштаб, той, що незмінений (з прикладу - 2000)


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 15 июн 2015 08:47 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
XPath('Graphics/Graphic/ObjectScale') - масштаб об'єкта при формуванні документа, якщо ви міняли масштаб після формування, то ці дані не потраплять в генератор звітів

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 15 июн 2015 19:39 
Специалист
Специалист

Зарегистрирован:
04 янв 2015 17:12
Сообщения: 41
Dmitry_Zolotar, я знаю, що з таким кодом він не потрапляє, але має ж десь міститися інформація про змінений масштаб??? Тоді звідки при другому повторі дій при зміні масштабу через спеціальну вставку мені вибиває попередній масштаб, який я вибирав (при першій дії там порожньо)... Звідкісь програма знає, що я перед тим вибирав саме такий масштаб...
Хоча б скажіть, щоб я не мучився, реально якось внести змінений масштаб в репортс чи ні???


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 15 июн 2015 21:45 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
Ви не с тої сторони заходите, потрібно підлаштувати об'єкт-ділянку в шаблоні так, щоб не потрібно було змінювати масштаб. Зробіть в дмт-шаблоні ділянку ширшою.

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 03 авг 2015 08:25 
Специалист
Специалист

Зарегистрирован:
04 янв 2015 17:12
Сообщения: 41
Доброго дня!!!
Підкажіть будь-ласка як мені записати код (паскаль), щоб в діалоговому вікні через ComboBox виводилось значення, (записати текст в items не підходить, бо інформація має братися з умови через КОАТУУ)
Такий код простий склав, але видає помилку
Distrt:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/District'));
if Distrt='Певний район' then ItemIndexx:='Прізвище І.П.'
else ItemIndexx:='-';
ComboBox4.ItemIndex:=ItemIndexx;


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 03 авг 2015 10:14 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
GeKo писал(а):
Доброго дня!!!
Підкажіть будь-ласка як мені записати код (паскаль), щоб в діалоговому вікні через ComboBox виводилось значення, (записати текст в items не підходить, бо інформація має братися з умови через КОАТУУ)
Такий код простий склав, але видає помилку
Distrt:=Trim(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelLocationInfo/District'));
if Distrt='Певний район' then ItemIndexx:='Прізвище І.П.'
else ItemIndexx:='-';
ComboBox4.ItemIndex:=ItemIndexx;

if Distrt='Певний район'
then ComboBox4.Text:='Прізвище І.П.'
else ComboBox4.Text:='-';

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 12 авг 2015 12:29 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Чи можливо об'єкт Richtext підгрузти із фіалу за допомогою функції LoadFromFile?


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 725 ]  На страницу Пред.  1 ... 36, 37, 38, 39, 40, 41, 42 ... 49  След.

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


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 102


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

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