Аналитика http://geosystema.net/forum/ |
|
Формирорвание отчета в Reports http://geosystema.net/forum/viewtopic.php?f=1&t=295 |
Страница 42 из 49 |
Автор: | petrogeo [ 13 дек 2015 13:34 ] | ||
Заголовок сообщения: | Re: Формирорвание отчета в Reports | ||
klaid писал(а): petrogeo писал(а): Добрий день. допоможіть будь-ласка зробити шаблон для репорта з XML-файла. зразок додаю, того що потібно. Не розумію як добавити таблицю експлікації та прописати її заповнення. Дякую, за допомогу! P.S. цей планчик я створив з IN4-файла. Вложение: Вложение (А4) .jpg больше недоступно. нашо придумувати велосипед, в шаблонах є кадастровий план "CadPlanA4.dmt" А як змінити експлікацію угідь, підкажіть будь-ласка, з автозаповненням з XML-файла. а то в мене якась стандартна і я не знаю як замість її прописати свою в Репорті. Приклад додаю, того що в мене виходить в Репорті.
|
Автор: | Dmitry_Zolotar [ 14 дек 2015 09:36 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
для коректного заповнення експлікації по ф.6-зем, потрібно використовувати коди угідь, такі як в цій формі. |
Автор: | GeKo [ 12 янв 2016 10:52 ] | ||
Заголовок сообщения: | Re: Формирорвание отчета в Reports | ||
Чому при такому коді, коли є два власника (в репортсі) не видає ні одного (пусте поле //ПІБ_______________________________________ begin NMList:=''; PPath:='EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors'; N:=NodesCount(PPath,'ProprietorInfo'); if N<1 then Exit; for I:=1 to N do if IsNodeExists(PPath+'/ProprietorInfo/Authentication/NaturalPerson') then NMList:=NMList+ XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName')+' '+ XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName')+' '+ XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName')+IIF(I<>N,Delimeter+' ','') else NMList:=NMList+XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name')+IIF(I<>N,Delimeter+' ','') end;
|
Автор: | Poltavan [ 25 янв 2016 16:12 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Привіт колеги. Хочу створити шаблон для формування списку межових знаків з такою таблицею у Reports чи прямо у Digitals №п/п | тип знаку | № знаку в електр. вигляді | опис знаку Причому колонка | № знаку в електр. вигляді | має бути заповнена у такому вигляді : рік-місяць-кад.квартал-№п/п, наприклад: №п/п | тип знаку | № знаку в електр. вигляді | опис знаку 1 | ІІІ | 2016-01-004-00001 | дерев'яний кілок Хтось може стикався з такою проблемою, поділіться знаннями. Дякую. |
Автор: | S@SH [ 04 фев 2016 13:24 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Poltavan писал(а): У Репортсі не пройде, бо графічно ділянку витянути туди не вийде. Потрібно тільки через *.dmt шаблон |
Автор: | GeKo [ 09 мар 2016 12:18 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
PPath:='EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors'; N:=NodesCount(PPath,'ProprietorInfo'); if N<1 then Exit; for I:=1 to N do if IsNodeExists(PPath+'/ProprietorInfo/Authentication/NaturalPerson')then Namme:=Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName'))+'_'+ Copy(Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName')),1,1)+'_'+ Copy(Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName')),1,1)+'_'+IIF(I<>N,',','') else Namme:=Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name'))+'_'+IIF(I<>N,',',''); Чому тут при двох власниках і більше видає мені тільки останнього??? |
Автор: | Dmitry_Zolotar [ 09 мар 2016 14:55 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Namme:=''; PPath:='EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors'; N:=NodesCount(PPath,'ProprietorInfo'); if N<1 then Exit; for I:=1 to N do if IsNodeExists(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson')then Namme:=Namme+Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName'))+'_'+ Copy(Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName')),1,1)+'_'+ Copy(Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName')),1,1)+'_'+IIF(I<>N,',','') else Namme:=Namme+Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name'))+'_'+IIF(I<>N,',',''); |
Автор: | GeKo [ 09 мар 2016 16:00 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Dmitry_Zolotar, дякую за допомогу, але виникла інша проблема... В функції SetReportName при двох власниках (тільки якщо юридична та фізична особи разом) звіт (репортс) взагалі не зберігається... Можете надати приклад використання функції SetReportName??? І умова в IIF(I<>N,',','') чогось виконується навпаки??? function NNazva:String; var RayonnID,Ploshcha,Dott,Koma,Rozmir,Unittt,Rozm,Vykor,Namme,PPath,LnN,FnN,MnN,NpP,Nazzva:String; begin begin RayonnID:=Copy(CadNumberClear,1,5); if RayonnID='46203' then RayonnID:='певний район1_' else if RayonnID='46206' then RayonnID:='певний район2_' else if RayonnID='46221' then RayonnID:='певний район3_' else RayonnID:='_'; end; begin Ploshcha:=''; Koma:=','; Dott:='.'; Rozmir:=XPath('EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/Area/Size'); FoF:=Pos(Dott,Rozmir); Delete(Rozmir,FoF,1); Ploshcha:=Rozmir; Insert(Koma,Ploshcha,FoF); Ploshcha:=Ploshcha; Unittt:=Trim(XPath('EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/ParcelMetricInfo/Area/MeasurementUnit')); Rozm:=Ploshcha+'_'+Unittt; end; begin Vykor:=XPath('EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/CategoryPurposeInfo/Purpose'); if Vykor='02.01' then Vykor:='ОЖБ_' else if Vykor='01.03' then Vykor:='ОСГ_' else if Vykor='01.01' then Vykor:='ПАЙ_' else if Vykor='01.05' then Vykor:='САД_' else Vykor:='_'; end; begin Namme:=''; PPath:='EmbeddedXML/UkrainianCadastralExchangeFile/InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors'; N:=NodesCount(PPath,'ProprietorInfo'); if N<1 then Exit; for I:=1 to N do if IsNodeExists(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson')then Namme:=Namme+Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName'))+'_'+ Copy(Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName')),1,1)+'_'+ Copy(Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName')),1,1)+'_'+IIF(I<>N,',','') else Namme:=Namme+Trim(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name'))+'_'+IIF(I<>N,',',''); end; begin Nazzva:=RayonnID+'КП_'+Namme+Vykor+Rozm; end; Result:=Nazzva; end; SetReportName(NNazva); |
Автор: | Dmitry_Zolotar [ 10 мар 2016 09:48 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Надішліть шаблон на help@vingeo.com, без шаблону тяжко розібратись. |
Автор: | shyrko [ 10 мар 2016 17:28 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Є такий код: var N,I:Integer; S,SN:String; const CyrLetters='АБВГДЄЕЖЗІИЙКЛМНОПРСТУФХватит'; NotCitizen='землі,вул.,вулиця, пров.,провулок, ради, сільради, міськради,ТОВ,ВАТ,ДП,НВП,ПрАТ,АТ,фірма,підприєм'; //"Безусые" смежники NeighborsWithoutMustardes=False; function Foo(S:String):String; var SP:String; I:Integer; begin Result:='межа проходить по суміжності із землями '+S; I:=0; repeat inc(I); SP:=StringPart(NotCitizen,I,','); if (Pos(SP,S)>0) then Exit; until SP=''; Result:='межа проходить по суміжності із землями гр. '+S; end; function PartCount(S:String; Delimiter:Char):Integer; var SP:String; begin Result:=0; repeat inc(Result); SP:=StringPart(S,Result,Delimiter); until SP=''; dec(Result); end; begin Names:=Param('ID50033'); // заменить ID параметра N:=PartCount(Names,','); for I:=1 to N do begin SN:=Foo(StringPart(Names,I,',')); if I<>N then Memo1.Lines.Add('від '+Copy(CyrLetters,i,1)+' до '+Copy(CyrLetters,i+1,1)+' - '+SN+';') //заменить Memo1 else Memo1.Lines.Add('від '+Copy(CyrLetters,i,1)+' до А - '+SN+'.'); //заменить Memo1 end; end. Якщо в списку суміжників є наприклад "Землі загального користування (вулиця)", то видає "межа проходить по суміжності із землями землі загального користування (вулиця)". Допоможіть переписати код, щщоб забиралось слово "землі" |
Автор: | Dmitry_Zolotar [ 10 мар 2016 22:18 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
shyrko писал(а): Якщо в списку суміжників є наприклад "Землі загального користування (вулиця)", то видає "межа проходить по суміжності із землями землі загального користування (вулиця)". Допоможіть переписати код, щщоб забиралось слово "землі" begin if Pos('землі ', S)=1 then Delete(S,1,6); Result:='межа проходить по суміжності із землями '+S; |
Автор: | mixey_dubno [ 28 мар 2016 22:05 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Доброго вечора! Стикнувся з такою проблемою.. скопіював усі дані і настройки діджітал (з роботи) і поставив у себе вдома. Коли формую документацію з ХМЛ через репорт вибиває помилку "canvas does not allow drawing" коли переглядаю сформований документ, на робочому компютері такого немає, що це таке і як з ним боротись? ДЯкую) |
Автор: | Виталий [ 22 июн 2016 11:52 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Подскажите пожалуйста. Можно ли сделать шаблон выкопировки в генераторе отчетов? (только изобрадение карты) |
Автор: | faram [ 12 авг 2016 11:37 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Добрый день. Подскажите как правильно прописывать параметр в шаблонах Reports. Допустим, я хочу добавить параметр из слоя "Ділянка для паювання (№-124 id-20030 имя-NM !!!ПІБ фізичної або назва юридичної особи, які є землевласн) " в digitals у которого есть информация про землепользователя, в шаблон Reports на титульную страницу и желательно с сокращением инициалов. Пожалуйста помогите понять принцип работы, что бы можно было подтягивать параметры как в шаблонах digitals. |
Автор: | Артем Сорокін [ 12 авг 2016 18:52 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Пользуюсь Digitals прибл. 6 лет в землеустройстве и геодезии. Но вот ни как не могу себя заставить разобраться как работает Reports. В файл какого формата необходимо забивать данные, редактирование шаблонов, вывод на печать и т.д. Уважаемые пользователи сделайте кто ни будь понятный гайд, видео или презентацию. P.S. Лень двигатель прогресса. |
Страница 42 из 49 | Часовой пояс: UTC + 2 часа |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |