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

[Олександр123]

А як змінити масштаб ділянки в графічних матеріалах MS Word?

[geopos]

Масштаб підбирається оптимальний автоматично. Чи у Вас є потреба, щоб він був фіксований?

[Олександр123]

ділянку 0.25 га кидає у 1:10000, а потрібно хоча б 1:2000.

[geopos]

key.txt
Помощь - About

[geopos]

По просьбе добавил новые коды угодий.
Замените прикрепленные файлы в папке Lists.

Используйте поле CNArea00 – берет площадь со всех угодий по указанному коду 00. Предварительно переменную нужно регистрировать в коллекции переменных.

Для чего нужно регистрировать поле? Если это окажется трудным, тогда уберу регистрацию
Программа "спрашивает" у Ворда есть ли такое поле, если да, то производиться куча "телодвижений". Дабы оптимизировать ход выполнения программы - лишний раз не сводить площадь по несуществующим угодьям следует выполнить такие шаги:
1. В шаблоне открыть Visual Basic (Alt+F11)
2. В Project Explorer (Ctrl+R) выбрать ThisDocument
3. Вставить этот код

'ПРОЦЕДУРА ДОБАВЛЕНИЯ ПРЕРЕМЕННЫХ
Sub addvar1()

Dim v As Variable

Set v = ActiveDocument.Variables.Add("CNArea02") 'СЮДА ПИШЕМ ПРЕМЕННУЮ. Ставим сюда курсор и нажимаем F5
MsgBox ("Добавлена в " & ActiveDocument.Name & " переменная " & v.Name)
End Sub


'ПРОЦЕДУРА УДАЛЕНИЯ!!! ПРЕРЕМЕННЫХ, если такова больше не нужна!
Sub delvar1()
Dim v As Variant
Dim s As String
v = "CNArea02" 'СЮДА ПИШЕМ ПРЕМЕННУЮ
's = v
ActiveDocument.Variables.Item(v).Delete
MsgBox ("УДАЛЕНА в " & ActiveDocument.Name & " переменная ")
End Sub

[geopos]

Добрый день!

Добавляю понемногу поддержку OpenOffice, смотрите пример ..Templates\_OpenOffice_DEMO. Качайте свежий архив (см. по дате) из шапки.

Это первые шаги в сторону ОО, поэтому пока реализовал работу с полями (Ctrl+F2-Поле пользователя - Формат "Текст") и ранее приделал такую функцию @@[CadNumber], которая работает по принципу "Найти-Заменить". В дальнейшем думаю, поля ее вытеснят и я ее уберу из-за ненадобности.
Позже буду добавлять все ведомости и графику, которые есть в Ворде, так что ждите...

Начиная с Вин7 могут возникнуть проблемы с запуском ОО через данную программу в следствии чего будет выскакивать ошибка Оле-сервера, виной всему контроль учетной записи. Поэтому если это происходить рекомендую добавить ОО права администратора и при установке ОО - поставить "для всех пользователей".

[bil]

Підкажіть, як з кількох ОФ зробити таблицю-список по прізвищам, з адресами, цільовим і .т.д.

[geopos]

Вот пример списка, скопируйте файл в директорию VarScripts и пропишите поле в шаблоне (имя поля должно совпадать с именем файла - {docVariable NMADSTX})

[bil]

Вот пример списка, скопируйте файл в директорию VarScripts и пропишите поле в шаблоне (имя поля должно совпадать с именем файла - {docVariable NMADSTX})

Дякую. Не розібрався, вставляє все в одну ячейку, треба таблицю 5+5=?

[geopos]

Если поместить переменную в ячейку таблицы, то там и будет содержимое поля. Сдается мне у Вас скелет таблицы и хотите разнести по ячейкам построчно переменную. Я не знаток Ворда, но скажу здесь нужно шаманить на VBA. Как один из легких вариантов поставить разделитель знак табуляции вместо запятой, и будет без таблицы, зато ровнехонько по колонкам.. правда не уверен, что такое решение подойдет.

[bil]

Підійде, де поставить табуляцію.
Потім можна буде в ексель вставить

[geopos]

Пробуйте

Відправлено через 3 хвилини 22 секунди:

Потім можна буде в ексель вставить

Честно говоря я против таких решений - делать ручками, разобрался бы, но хочу уже закончить с ведомостями в ОпенОффисе

[bil]

Ну почті, дякую, якщо скопіювати -вставляти в ексель, вставляє все в окремі ячейки, те що треба, от тільки аби одразу в ексель))

[geopos]

Ну почті, дякую, якщо скопіювати -вставляти в ексель, вставляє все в окремі ячейки, те що треба, от тільки аби одразу в ексель))

Вот на досуге решил пощупать VBA. Пример как конвертировать текст с табуляцией в таблицу. Ищет имена закладок, которые начинаются с "bmTextToTable" (ВСТАВКА - Ссылки - Закладка), важно чтобы закладка помещала весь текст (в примере это поле NMADSTX) для будущей таблицы.

[Parcel]

Вот на досуге решил пощупать VBA. Пример как конвертировать текст с табуляцией в таблицу

а для чого?
у ворді ж є вбудована функція конвертування тексту в таблицю

[geopos]

В скрипте именно ее использовал, а нужна она для переменной, которая содержит строки (ФИО, Целевое, Площадь, ..) разделенные табом. Функцию написал, но возникла проблема с выбором события для ее реализации: если New() или DocumentChange - поле при открытии пустое и таблица получается в одну ячейку. Поэтому решил повесить на совесть пользователя DblClick(), хотя и здесь засада - так как текст выбирается по закладке , то в Одиночном режиме копируются дочерные отчеты в главный с одинаковыми именами закладок, что приводит к удалению последних.

[geopos]

Продолжаю внедрять поддержку OpenOffice. Правда пока местами сыровато.. со временем отшлифуется.

Добавил ведомости:
- Каталог координат (у нас его зовут ведомостью вычисления площади, можете менять заголовок);
- Ведомость вычисления площади (настоящая :));
- Ведомость вычисления координат (РТК - считает вектора от ближайшей базовой станции "ControlPoints.txt");
- Ведомость оценки точности (РТК)

Смотрите ..\Templates\ooTables.
Качайте архив со свежой датой.
Чтобы заново не вводить собственные настройки замените экзешник и скопируйте себе ..\Templates\ooTables

[faram]

Доброго дня. Допоможіть, програма не працює на win xp pro

► Показати

й1й111.JPG

!	Повідомлення з: Denver
	Користуйтеся спойлером ► Показати текст для малюнків великого розміру.

[geopos]

Проверил на машине с ХР - работает. Опишите действия возникновения данной ошибки. Также обратите внимание на свежую версию программы.

[faram]

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

► Показати

12.JPG

Причиною є те що на компютері не встановлено програму вордофіс, але встановлений опенофіс? Чи це пов'язано з проблемами в системі ? Буду вдячний за пояснення, дякую.

[geopos]

Вы сами ответили на свой вопрос: у Вас не установлен МС Оффис, выбирайте OO Writer

[geopos]

по замечаниям обновил пользовательский интерфейс программы

[bil]

по замечаниям обновил пользовательский интерфейс программы

мені дак темний був кращий, як назад повернути?

[geopos]

эх! трудно угодить то всем ;)

мені дак темний був кращий, як назад повернути?

Неужели все так плохо стало? Как мне показалось, светлая тема более правильно отображается на ХР.

[bil]

Неужели все так плохо стало? Как мне показалось, светлая тема более правильно отображается на ХР

ну шо ж, хазяїн-барін, буду привикать)))