XMLReport. Складання землевпорядної документації - це ПРОСТО!

[geopos]

Доброго часу любителям автоматизації да і не тільки любителям morgayu !

Уж точно комусь спадало на думку, якось полегшити або автоматизувати робочий процес розробки землевпорядної документації. Дана задача іноді здається не посильною. Адже роботи начебто вже поменшало, але різноманітність вимог (іноді забаганок) від кожного конкретного земуправління побільшало і в кожного свої - назва одного й того самого папірця однакова, а за змістом дивним чином різняться.
Другий вагомий фактор часу - скільки треба клопоту і зусиль, щоб відладити скрипт в шаблоні (добре якщо знати взагалі мову скрипта), не кажу про розробку шаблону з нуля, або скомпонувати потрібну функцію в спеціалізованій програмі для коректної роботи.

Варто зазначити, маючи у своєму арсеналі такі шаблони як приємно стає працювати: око не може нарадуватися. Клац і готовий проект або технічка!
Тому меньше слів, а більше діла. Вказавши вище вказані проблеми, ось користуйтесь на здоров'я.

Програма хоча дружелюбна, але вважаю за необхідне дати посилання на відео для загального ознайомлення.

Для початку користування потрібно внести свої дані виконавця "Пользовательские - Реквизиты пользователя"

08.06.2015
Відтепер (31.05.2015р.) деякий функціонал програми стає платним. Відразу хочу заспокоїти, що можете використовувати вільно й надалі:
- генерацію звітів в MS Word/Open Office;
- генерувати графіку в Digitals;
- власні шаблони MS Word/Open Office та шаблони Digitals, включно всі функції @@[..] .

Платні версії додатково включають:
- складання графічних матеріалів в MS Word;
- робота з перемінними скриптами на мові програмування Pascal;
- запуск власних скриптів користувача з меню "Скрипты -> *.pas" з можливістю приєднання інших модулів в секції uses.

З приводу купівлі звертайтесь в ЛС або пишіть на xmlreport.help[собака]gmail.com

[geopos]

постараюсь разобраться с этим старым динозавром хр

[snaka]

постараюсь разобраться с этим старым динозавром хр

да мне это не принцыпиально
не заморачивайтесь
буду под 7 пробовать

[ВасильТ]

Привіт, при формуванні ТД на встановлення меж, на абрисі прописується Demo, що роблю не так?

[geopos]

Все робите правильно, але деякі функції платні, якщо зацікавить пишіть в лс

[sirenko_s_a]

geopos,
І як завжди наше законодавство дає зміни. Сергію не працюють деякі похідні від КОАТУУ. Внесли зміни до Постанови 1051. Тепер код КОАТУУ не пишемо взагалі в ХМЛ Кадастровій зоні, а пишемо в кадастровій зоні наприклад: "3224610100:01" (десять цифр кода КОУТУУ, потім дві крапки і дві цийри зони) В результаті не підтягує тип документації, бо прив'язана до КОАТУУ, в кадастровому плані ставить дві крапки перед КОАТУУ (це легко виправити, просто даю інформацію де тепер дає помилки facepalm (як ці зміни достали) ), в Списку межових знаків, а саме в назві межового знаку квартал пише не так як нада, а пише наприклад ":01". І збились всі похідні від КОАТУУ особливо Адміністративно-територіальні одиниці. Вийшло оновлення на Діджитал і при збережені програма автоматом КОАТУУ опускає в код зони. Зробіть оновлення, бо не зручно працювати. Дякую!
А тепер особисте: Чи не важко зробити розстановку межових знаків в Діджіталі, бо у Ворді розтягувати номера точок і проміри це просто ЖАХ, а звіт нехай викидає у Ворд. Uchoba Ну як я захотів?

[Markonni]

!	Повідомлення з: Admin
	http://zemres.com/forum/rules#rule3.2

[geopos]

...це легко виправити, просто даю інформацію де тепер дає помилки (як ці зміни достали....

Дякую, пробуйте
https://drive.google.com/open?id=0BybGd ... HBSZ1FMcEE

[geopos]

Додано функції для роботи зі скриптами, які розширюють можливості одиночного та поіменного режимів.

function getNextParcel(const indPerson: Integer; const indParcel: Integer); overload;
function getNextParcel(const sNM: string; const indParcel: Integer); overload;

Возвращают индекс участка по индексу (IndPerson) или названию (sNM) владельца. Поиск в массиве участков начинается с indParcel + 1. Поэтому в большинстве случаев при первом запуске функции стоит установить indParcel = -1.

Функция актульна для использования в пофамильном режиме в итерации цикла. Она решает задачу: какие участки принадлежат конкретному владельцу. В случае отсутствия, результат функции = -1.

► Показати

Код: Виділити все

// показывает поочередно кад. номер  сортируя по владельцу  
  
uses SysUtils;
var i, x: Integer;
    cads: array of string; // кад. номера из одиночного реж.
    nms: array of string;  // персоны из пофамильного
begin
  cads := GetModeItem('CadNumber', rmParcel);
  nms  := GetModeItem('NM', rmPerson);
 
  for i := 0 to High(nms) do 
  begin
    x := -1;
    repeat
      x := getNextParcel(i, x);
      //x := getNextParcel(nms[i], x);
      if (x > -1) then
        ShowMessage(nms[i] +#32+ cads[x]);         
    until x = -1;
  end;
end.

function getNextPerson(const indParcel: Integer; const indPerson: Integer): Integer;

Возвращает следующего владельца из общего списка, начиная с indPerson+1, земельного участка indParcel. Т.е. функция возвратит всех владельцев, которые относятся к участку. Ее назначение облегчить манипулирование данными персон конкретного участка в одиночном режиме.

Функцию можно вызывать из цикла. Первый вызов нужно инициализировать indPerson = -1.

► Показати

Код: Виділити все

// скрипт поочередно выведет владельца по каждому кад. номеру 

uses SysUtils;
var i,x: Integer;
    NMs: array of string;  // массив владельцев
    Cads: array of string; // массив кадастровых
begin
  NMs := GetModeItem('NM', rmPerson);
  Cads := GetModeItem('CadNumber', rmParcel);
  
  for i := 0 to High(Cads) do 
  begin
    x := -1;
    repeat
      x := getNextPerson(i, x);
      if (x > -1) then
        ShowMessage(Cads[i] +#32+ NMs[x]);         
    until x = -1;
  end;
end.

Ниже полноценный скрипт с применением указанных функций

► Показати

Код: Виділити все

uses SysUtils;
var i,x: Integer;
cads, nms: array of string;
rMode: TReportMode;
begin
  nms := GetModeItem('NM', rmPerson); // <-  массив строк с названиями владельцов
  cads := GetModeItem('CadNumber', rmParcel);// <-  массив строк кадастровых номеров

  rMode := GetReportMode();
  // установка размера глобальной переменной _RESULT
  case rMode of 
    rmGroup: SetLength(_RESULT, Length(cads)); // Здесь всегда - SetLength(_RESULT, 1);, потом подкорректируем
    rmParcel: SetLength(_RESULT, Length(cads));
    rmPerson: SetLength(_RESULT, Length(nms));
    else // rmAdditional - этого не произойдет, но все же...
      Exit();  
  end;

  // формируем список кадастровых номеров по владельцах...
  // пофамильный режим
if (rMode = rmPerson) then
  for i := 0 to High(nms) do
  begin
    _RESULT[i] := nms[i] + ': ';
    x := -1;
    repeat
      x := getNextParcel(i, x); // можно использовать перегруженную версию getNextParcel(nms[i], x) - надежно, но медленнее;  
      if (High(cads) < x) then  // проверяем корректность работы getNextParcel  
        raise Exception.Create ('ошибка функции getNextParcel, неправильный indPerson');
      if (x > -1) then
        _RESULT[i] := _RESULT[i] +#32+ cads[x];
    until x = -1;
  end;

  // режим по участку
  if (rMode = rmParcel) or (rMode = rmGroup) then
    for i := 0 to High(cads) do
    begin
      _RESULT[i] := cads[i] + ': ';
      x := -1;
      repeat
        x := getNextPerson(i, x);
        if (x > -1) then
          _RESULT[i] := _RESULT[i] + #32 + nms[x]; 
      until (x = -1);
    end;

  // Групповой режим. Он обработан как rmParcel. Осталось привести в нужный вид _RESULT
  if (rMode = rmGroup) then
  begin
    for i := 1 to high(_RESULT) do
      _RESULT[0] := _RESULT[0] +'; '+ _RESULT[i];
    // Убираем лишнее: _RESULT в Групповом режиме всегда длина массива равна 1.
    SetLength(_RESULT, 1);
  end; 
end.

P.s. Интересная вещь: когда копирую отсюда скрипт пишет ошибку при запуске. Поэтому прикрепляю текстовый файлик со скриптами.

[thom yorke]

На Гдрайві, 2 архіви. Завантажив обидва. .exe запустився тільки з другого (Debug). Перший не потрібен?
UPD: розібрався в лозіці. В першому архіві - остання версія .exe файлу

[geopos]

Розпаковуєте цей архів
Цим робите заміну (новіший екзешник) архів 2

[geopos]

Добавлена возможность брать опись смежеств в блоке <AdditionalInfo> (настройки -> Программные... -> ... AdditionalInfo ). В связи с этим возникает вопрос: как быть с внесенными в данный блок записями? Ведь все пишут каждый раз по-разному - большинство сразу вписывает "от А до Б..., " (тем более вариантов может быть много...), некоторые пропускают. Поэтому программа сама сможет определить что ей делать (вкл. Ставить "от А до Б" - [авто]).

Еще одна возможность (наглядно отображена на прикрепленном скрине) и касается она генерации акта межевых знаков. Много раз замечал, что указывают только поворотные точки участка, т.е. на прямой их опускают. Поэтому в окне меж. знаков укажите с каким шагом (через [x], желательно > 3,4) включить точку, и разницу в градусах расхождений направлений линий. Т.е. если даже указанный шаг перескакивает ваш меж. знак, тогда будет проверятся условие на расхождение направлений.

► Показати

landmark_selection.jpg

[bil]

а нумерація знаків в такому випадку залишається, тобто після 1 іде 3, 2-ий випадає?? чи переномерує автоматично.

[geopos]

а нумерація знаків в такому випадку залишається, тобто після 1 іде 3, 2-ий випадає?? чи переномерує автоматично

Назва меж. знаків буде випадати. Можна зробити, щоб була по порядку, але буде безлад у вікні меж. знаків: при включенні/виключенні меж. знака назви будуть скакати туди-сюди. Тим паче якщо користувач іменував їх сам, мабуть він буде сердиться на цей рахунок.

Або як варіант можна придумати перемикач або кнопку, яка називала активні мз порядковими іменами.

[geopos]

1 . Перероблений опис межевих знаків (_DEMOGRAPHICS -> LandMarks*.dot*)
2. У вікні меж. знаків додана кнопка, яка перейменовує меж. знаки по порядку, ігноруючи виключені.

[sirenko_s_a]

geopos,
Доброго дня! Дайте посилання на екзешнік.

[geopos]

Доброго дня! Дайте посилання на екзешнік.

https://drive.google.com/open?id=0BybGd ... TZGRUtMQkU

Можна добавити в закладку
https://drive.google.com/open?id=0BybGd ... 214U2cyWTg

[sirenko_s_a]

Можна добавити в закладку

Дякую, а то буває шукаю і голову Вам морочу.

Сергію гляньте, бо видає вірус

► Показати

Вірус.jpg

[geopos]

Сергію гляньте, бо видає вірус

Ого-о! Дякую за сигнал!
Ввечері проаналізую, можливо Delphi підхватила якусь заразу.

Відправлено через 27 хвилини 2 секунди:
проскановано
https://www.virustotal.com/ru/file/8c42 ... 479736548/
Я згодом ще раз перевірю в себе.

[Softvok]

1 . Перероблений опис межевих знаків (_DEMOGRAPHICS -> LandMarks*.dot*)
2. У вікні меж. знаків додана кнопка, яка перейменовує меж. знаки по порядку, ігноруючи виключені.

Здравствуйте. Обновил на новую версию, отлично работает. Хотелось бы видеть такие нововведения:
1. Чтоб при формировании отчета, а также в настройках межевых знаков - число месяц и год брались именно те, что указаны в самом моем хмл файле. А то приходиться вручную редактировать в настройках (2016.12-003-00004 ->2016.11-003-00004). то же и в сгенерированном отчете ворда - дату брать с хмл файла. Возможно вывести данный функционал на чекбокс в окне настроек Межевых знаков (то есть "Брать текущую дату" или "Использовать дату с хмл файла").
2. Раз уж появилась кнопка "Додана кнопка, яка перейменовує меж. знаки по порядку, ігноруючи виключені." - то стоит сделать чтоб она также делала перенумерацию не только последних знаков, но и всех предыдущих (то есть если у меня стоит 2016.12-003-00004, и я хочу поменять везде 12 на 11, то при нажатии везде станет ->2016.11-003-00004. Так же с годом, кварталом и т.д.). Благодарю!

[geopos]

Хотелось бы видеть такие нововведения

подтягивание даты из файла сделаю позже, глаза уже слипаются.

---

Добавлена возможность переименования межевого знака по порядку - /опционально/ последнего блока цифр (00001), /опциально/ активные. Далее, функция Найти -> Заменить - /опционально/ активные.

► Показати

rename_replace.jpg

[sirenko_s_a]

подтягивание даты из файла сделаю позже, глаза уже слипаются.

Дякую! Також іноді міняв вручну дати. Це було не часто і тому не турбував. От якби зробили ЕТАЛОН документації і графічних матеріалів, то розробникам було б набагато легше, а не кожний раз замовники продукту вимагають чи просять доробити якусь функцію, бо якийсь ди*іл дав відмову!!!

[geopos]

Дата в названии межевых знаков.
Ответа нет, поэтому сделал свои варианты:
- свой текст
- Today - текущая дата
- FileDate - находиться в блоке <ServiceInfo>
- DraftingDate - в блоке <TechnicalDocumentationInfo>

Как на прикрепленном рисунке, если сменить тип даты в МЗ, сперва нужно очистить список (корзина), а затем обновить.
Аналогичные действия нужно проделать, если ранее в текущем сеансе работы з программой генерировали схему МЗ.
Дело в том что кнопка "обновить" оставляет имена МЗ если они совпадают с текущим участком. Т.е. последние МЗ сохрянятся в оперативной памяти и удалятся после завершения программы.

п.с. Отправляю сообщение, вылетает ошибка сервера с сообщением message failed.. . Обновляю страницу и вижу свое сообщение. Правда предыдущее мое сообщение съело.

[Softvok]

Здравствуйте. Скачал новое обновление. Вроде как все работает, но возникли небольшие проблемы. Раньше, до обновления, когда запускалось окно настроек Межевых знаков - то в списке МЗ все знаки были на автомате отмечены галочками, и в окне "Использовать угодья" - также везде стояла галочка по угодью 007.01 и были автоматом выбраны углы домов, тоесть ведены номера этих точек. Сейчас же, при запуске, отметачается галочками только первый МЗ, иногда шестой. Остальные не отмечены и в них не указано к каким точкам угодий привязывать. Прилагаю скрин

► Показати

Дата.jpg

!	Повідомлення з: Admin
	http://zemres.com/forum/rules#rule2.5

[geopos]

Это потому что у Вас стоит фильтр точек на каждую 5.

Сделал чтобы не зависимо от включенный или выключенный МЗ ставились видимые угодья.
Подправил "Вкл. поворотн. точку > ". Работает со всеми тремя фильтрами: все, каждую х, контрольные точки. Значение отличное от 0 - значит функция включена.

Спасибо!

Не по темі

Вы еще по шапке получили от админа.

[thom yorke]

Мені здається чи програма плутає захід і схід?