Исполнительная документация в excel файлах

Автоматизация ИД в Excel LuchS Дата: Среда, 06.12.2017, 17:41 | Сообщение # 16 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline Презентую новую версию программы, из нового: — добавлен лист ввода данных для формирования АОСР — добавлен шаблон АОСР в папку шаблоны — правка ошибок Итак мини инструкция для работы с программой.   LuchS Дата: Понедельник, 21.05.2018, 17:03 | Сообщение # 17 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline Добавлен функционал отслеживания использованных материалов в актах АОСР, которые были  проведены по актам входного контроля. Ограничение метода — нельзя использовать в одном АОСР более одного раза один и тот же материал с одинаковым паспортом (основанием), т.к. условие поиска — первое вхождение. Функция находится на листе «БД для входного контроля» и представляет собой строку с кол-вом списываемых всех материалов по всем актам АОСР (если раскрыть скрытые ячейки, то можно будет посмотреть и по каким конкретно АОСР происходило списывание). В случае превышения объем подсвечивается оранжевым цветом в крапинку, в случае совпадения с актом входного контроля — подсвечивается зеленым. Пока что так. Добавлено (20.12.2017, 12:25) ——————————————— Статья на Хабрахабре о макросах используемых в этой программе. https://habrahabr.ru/post/344956/ Добавлено (20.01.2018, 22:38) ——————————————— Что нового: Версия 0.0.5  — Внесены изменения в код макросов и формул на листах, с целью увеличения быстродействия и уменьшения  некоторых ошибок.  — Добавлен новый лист «Реестр», который позволяет собирать информацию по АОСРам и актам входного контроля с приложениями в единую таблицу-заготовку для составления и заполнения итогового реестра. Так же эти данные служат базой для заполнения Раздела 6 ОЖР. Т.к. 20.01.2018г. внутренняя проверка представителей АК Транснефть постановила вносить в Раздел 6 ОЖР не только наименование АОСР, но так же и Актов входного контроля, то выводимый файл для ОЖР составлен с учетом этого замечания. Если Вам необходимо вписать лишь АОСРы просьба сообщить и я выпущу специальную версию программы без учета этого нововведения. Добавлено (21.05.2018, 17:03) ——————————————— Данная версия программы позволяет выводить акты входного контроля по форме ВСН, а так же Журнал входного контроля по форму 12 РД 39-00147105-015-98, АОСР по форме Приказа Ростехнадзора №1128 с изм. (Приказ №470), Еще осуществляется подготовка и вывод информации для заполнения ОЖР (Разделы 3 и 6), а так же выводит Общий реестр АВК и АОСР с приложениями в виде отдельного файла. Версия 0.5.0 — Переработаны шаблоны в сторону удобства и актуальности версий. Шаблон АОСР изменен согласно  последних требований Ростехнадзора (Приказ РОСТЕХНАДЗОРА №470). — Внесена частичная возможность вывода в формате MS Word, так и в формате MS Excel, в частности для  актов Входного контроля, АОСР и журнала Входного контроля. — В журнале Входного контроля сделана возможность частичного заполнения содержимым по аналогии с  актами Входного контроля. Так же теперь очищается форматирование сеткой не используемых строк в  формате Excel. — Изменено оформление листов «Титул», «Данные для проекта», «БД для входного контроля», «БД для АОСР» с целью сделать процесс ввода и обзор данных более удобным. — Исправлены мелкие ошибки, а так же в код встрена проверки на ошибки существования файлов шаблонов  по их местоположению.  — Исправлен и полностью автоматизирован Реестр ИД. Теперь он выводится в файл формата Excel. Установка: Распаковать в отдельную папку. В подпапке «Шаблоны» находятся, шаблоны форм для заполнения. Именно редактируя содержание и форматирование шаблона можно подогнать настройки вывода под свой принтер, требования Заказчика или поменять стили/содержимое. Краткая справка по работе с программой содержится в файле ReadMe.doc   LuchS Дата: Воскресенье, 10.06.2018, 20:39 | Сообщение # 18 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline Так же прилагаю инструкцию по работе с программой Добавлено (10.06.2018, 20:39) ——————————————— Актуальная Версия 0.5.3 Что нового, по сравнению с 0.5.0: — Убрана функция отвечающая за перенос строк и заменена формулой. Таким образом увеличилась отзывчивость работы с Книгой и возрастала скорость обработки информации. — Добавлена переработанная инструкция по работе с программой. — На листе «МСГ» добавлен функционал заголовков. Это необходимо для того, что бы отслеживать и соотносить работы по актам ИД с с позициямиРКЦ/ЛСР. — На листе «МСГ» добавлен функционал просмотра объема работ в выиде выпадающего графика. Функция экспериментальная, т.к. требовательна к мощности процессора. По умолчанию — выключена. — а так же проведена работа над исправлением мелких ошибок и недочетов, что бы сделать работу более комфортной. Данная версия программы позволяет выводить: — Журнал входного контроля по РД 39-00147105-015-98 Форма 12; — Акты входного контроля по форме ВСН 012-88 (Часть II) Форма 3.3 / совместимой б.22 — Акты освидетельствования скрытых работ по форме Приказа Ростехнадзора №1128 с изм. (Приказ №470) — подготовка и вывод информации для заполнения ОЖР (Разделы 3 и 6) — общий реестр АВК и АОСР с сылками на приложения к ауктам в виде отдельного файла. Установка: Распаковать в отдельную папку. Запустить файл в формате MS Excel поддерживающий макросы. Разрешить работу макросов. Справка по работы с программой и нюансов находится в приложенной инструкции. В подпапке «Шаблоны» находятся, шаблоны форм для заполнения. Именно редактируя содержание и форматирование шаблона можно подогнать настройки вывода под свой принтер, требования Заказчика или поменять стили/содержимое. Сообщение отредактировал LuchS — Воскресенье, 10.06.2018, 20:45   LuchS Дата: Четверг, 14.06.2018, 23:43 | Сообщение # 19 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline Актуальная  Версия 0.5.4  Добавлена возможность выбирать из каких работ будут формироваться перечень АОСР. Достаточно выбрать «Да» для согласия или «Нет» для своего несогласия в колонке F листа «МСГ».  — По многочиcленным просьбам дату составления АОСР теперь можно назначить любую удобную для Вас, а не день окончания производства работ в рамках отчетного периода.  — Увеличено количество обрабатываемых строк на листе МСГ с наименованием видов работ с 75 до 200. На текущий момент увеличивать дальше не вижу причин.  — Внесены изменения и дополнения в инструкцию по работе с программой, для приведении в соответствии с работой и особенностями нового функционала.  — а так же проведена работа над исправлением мелких ошибок и недочетов, что бы сделать работу более комфортной. Данная версия программы позволяет выводить: — Журнал входного контроля по РД 39-00147105-015-98 Форма 12; — Акты входного контроля по форме ВСН 012-88 (Часть II) Форма 3.3 / совместимой б.22 — Акты освидетельствования скрытых работ по форме Приказа Ростехнадзора №1128 с изм. (Приказ №470) — подготовка и вывод информации для заполнения ОЖР (Разделы 3 и 6) — общий реестр АВК и АОСР с сылками на приложения к ауктам в виде отдельного файла. Установка: Распаковать в отдельную папку. Запустить файл в формате MS Excel поддерживающий макросы. Разрешить работу макросов. Справка по работы с программой и нюансов находится в приложенной инструкции. В подпапке «Шаблоны» находятся, шаблоны форм для заполнения. Именно редактируя содержание и форматирование шаблона можно подогнать настройки вывода под свой принтер, требования Заказчика или поменять стили/содержимое.   vasiliypvs Дата: Пятница, 15.06.2018, 05:34 | Сообщение # 20 Рядовой Группа: Проверенные Репутация: 0 Статус: Offline Вот еще вариант составления АОСР. Сообщение отредактировал vasiliypvs — Пятница, 15.06.2018, 05:46   Aleksej Дата: Пятница, 15.06.2018, 06:05 | Сообщение # 21 Генералиссимус Сочи Группа: Проверенные Город: Сочи Репутация: 240 Статус: Offline И через мастер слияния из  гид формируем все АОСР.  Также из гид формируется реестр.   LuchS Дата: Пятница, 15.06.2018, 08:41 | Сообщение # 22 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline 2vasiliypvs: В Вашем варианте форма акта АОСР старая, есть впечатление что выпилена часть функционала… или он не доделан. Что касается данным по АОСРам то в скрытых колонках столбцы подписаны, а затем все это слетает. Затем расположение информации в строку… на мой взгляд это снижает удобство читаемости. Понравилась интересная задумка с меню, а так же выбором из списка актов. На текущий момент программа сыра 2Aleksej: Это не всегда нужно, в принципе для Ворда есть вариант через закладки и у меня и у vasiliypvs решение при помощи Закладок, хотя те же таблицы в Ворде можно заполнять обращаясь к ячейке по координатам напрямую.  Вывод в файлы Экселя можно решить через парсинг текста  или через присвоение значениям переменным, это помимо того что можно писать что угодно обращаясь к ячейке адресно.   Aleksej Дата: Пятница, 15.06.2018, 09:28 | Сообщение # 23 Генералиссимус Сочи Группа: Проверенные Город: Сочи Репутация: 240 Статус: Offline LuchS, быстрее всего это не выпилена часть функционала. я через мастер слияния работаю с 2012 года.   LuchS Дата: Пятница, 15.06.2018, 12:23 | Сообщение # 24 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline 2Aleksej: А как вы отслеживаете версии актов? Как определите в чем была ошибка в предыдущем варианте или с какого момента, при цикле переделок ИД закралась ошибка?   Aleksej Дата: Пятница, 15.06.2018, 12:47 | Сообщение # 25 Генералиссимус Сочи Группа: Проверенные Город: Сочи Репутация: 240 Статус: Offline система давняя календарный план-график поставки- акт приемки материалов-данные из бухгалтерии-акты у мастера за два дня до предъявления ТН. Изменения и исправления если есть- в реестре.(таблица эксель) Слияние-печать выделенных листов. Занимает не так много времени. Главное -не упускать   vasiliypvs Дата: Пятница, 15.06.2018, 23:38 | Сообщение # 26 Рядовой Группа: Проверенные Репутация: 0 Статус: Offline LuchS, программа была создана давно,а форма акта АОСР можно в шаблоне поменять. Что касается расположение информации в строку, то она в базу попадает через форму ввода данных,а там ошибки минимизированы. Если какие-то решение понравилось, то почему бы не использовать у себя ведь я и написал как вариант. С миру по нитке и бедному строителю удобную программу.   LuchS Дата: Суббота, 16.06.2018, 15:03 | Сообщение # 27 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline 2vasiliypvs:  Цитата Что касается расположение информации в строку, то она в базу попадает через форму ввода данных,а там ошибки минимизированы. да я не про ошибки, а про наглядность. я тоже начинал с того, что запилил форму ввода для таблицы эксель в качестве БД, и расположил все данные для каждого акта в строку. Но в процессе работы важна наглядность — окрываешь такую таблицу и … пока читаешь состав работ забываешь какой у акта был номер, если у тебя десятки таких актов. В итоге перешел на вертикаль, т.к. стало компактнее, а если слишком много строк — на хороших мониторах есть опция — повернуть монитор на 90градусов. В итоге даже на разрешении 1360х765 в актах АОСР номеракта, название и состав работ располагается рядом, ближе, чем если бы же самая информация записывалась у меня в строку ранее. Цитата С миру по нитке и бедному строителю удобную программу. Спасибо на добром слове. Надо что-то решать с модульностью, пытаться в одной программе учесть все возможные формы для ИД нереально. Конечно можно закрыть пару десятков типов актов, но это вызовет больше путаницы… Пока что я в стадии обдумывания решения как реализовать модульность для такой софтины   v-terem Дата: Вторник, 19.06.2018, 23:05 | Сообщение # 28 Рядовой Киров Группа: Проверенные Город: Киров Репутация: 0 Статус: Offline LuchS, привет! Есть потребность автоматизировать вывод АВР из сметы в EXEL — можешь помочь? Готов заплатить)   Aleksej Дата: Среда, 20.06.2018, 07:04 | Сообщение # 29 Генералиссимус Сочи Группа: Проверенные Город: Сочи Репутация: 240 Статус: Offline LuchS,  Аналогично. Но упрощается тем, что типовые не меняешь.  А если есть реестр актов из календарного плана- вопросов вообще не возникает.   LuchS Дата: Среда, 20.06.2018, 08:45 | Сообщение # 30 Лейтенант Нижний Новгород Группа: Проверенные Город: Нижний Новгород Репутация: 0 Статус: Offline 2v-terem: АВР это Вы проведомость ресурсов, входящих в состав сметы? Но такую штуку давно организуют сами сметные программы, если они у Вас есть. 2Aleksej: мне мыслится так: 1. Связывается календарный график и РКЦ/смета(ы) 2. На основании РКЦ/смет(ы) проводится детализация субработ (состав работ) на каждую из которых нужно минимум 1 какого-либо вида акт(ы)/входит в состав какого-либо акта(ов) 3. На календарном графике проставляются  объемы согласно датам — это парсится в ОЖР и даты актов, согласно отчетных периодов для закрытия 4. И тут мы попадаем в ловушку — как сделать так что бы интерфейс не перегружал пользователя, что бы  была маштабируемость снизу вверх и сверху вниз, что бы можно было выбирать в каких актах будет учитываться субработа…   Страница 2 из 6 « 1 2 3 4 5 6 »

	Согласно п. 4.5 Правил Сметного портала запрещено размещение материалов попадающих под действие Статьи 1259 и Статьи 1270 ГК РФ, на которые распространяются авторские права правообладателя, без согласования с ним. В случае обнаружения материалов нарушающих права правообладателя просим сообщить через форму обратной связи.
	Семушин А.А.

Автоматизация исполнительной документации в excel 2023

Автоматизация исполнительной документации существенно сокращает сроки на ведение ИД. Так же оптимизирует работу инженера и сводит к минимуму допущения ошибок. Команда NefteGazPTO стремится разработать автоматизированные формы исполнительной документации для оптимизации работы по оформлению ИД. В данной статье представлены уже разработанные формы. Разработка форм ведется на платной основе для нас, поэтому и мы предоставляем формы на платной основе, но стоимость для вас существенно меньше (работает принцип складчины). Покупая у нас, вы способствуете развитию полезного проекта NefteGazPTO!

Наши автоматизированные формы отлично зарекомендовали себя в работе! Многие пользователи уже дали обратную связь и поблагодарили разработчиков!

Принцип работы автоматизированных журналов (видео).

Журнал входного контроля качества материалов, форма 12 по РД 39-00147105-015-98 (автоматизированный)

Данный журнал в формате Excel по форме 12, РД 39-00147105-015-98 позволяет автоматически создавать акты о результатах проверки изделий по форме №3.3 ВСН 012-88, часть 2, а также по форме №2.1, СП 392.1325800.2018. Достаточно заполнить журнал и нажать кнопку “Создать акты” и заполненные акты создадутся автоматически в новых вкладках (каждый акт).

NEW + Функция формирования реестра ИД по СП и ВСН!

Обновление 14.04.2023г. (бесплатная рассылка нашим пользователям)

Добавлено:

1. Функция формирования реестра исполнительной документации – форма № 1.2 ВСН 012-88 (Часть 2).
2. Функция формирования реестра исполнительной документации – Форма № 1.2, СП 392.1325800.2018.
3. Повышение стоимости.

---

Журнал входного контроля, приложение И, СП 48.13330.2019 (автоматизированный)

Данный журнал в формате Excel по СП 48.13330.2019, приложение И так же в один клик позволяет автоматически создавать акты о результатах проверки изделий по форме №3.3 ВСН 012-88, часть 2, а также по форме №2.1, СП 392.1325800.2018. Для этого необходимо заполнить журнал и нажать кнопку “Создать акты” и заполненные акты создадутся автоматически в новых вкладках (каждый акт).

NEW + Функция формирования реестра ИД по СП и ВСН!

Обновления автоматизированного ЖВК, приложение И, СП 48.13330.2019

Обновление (рассылка) 17.10.2022г. (В связи с Изменениями №1 к СП 48.13330.2019 «СНиП 12-01-2004 Организация строительства»)

Журнал верификации закупленной продукции по ГОСТ 24297-2013, приложение А (автоматизированный)

Данный журнал в формате Excel по ГОСТ 24297-2013, приложение А аналогично позволяет автоматически создавать акты о результатах проверки изделий по форме №3.3 ВСН 012-88, часть 2, а также по форме №2.1, СП 392.1325800.2018. Для этого необходимо заполнить журнал и нажать кнопку “Создать акты” и заполненные акты создадутся автоматически в новых вкладках (каждый акт).

NEW + Функция формирования реестра ИД по СП и ВСН!

Обновления автоматизированного ЖВК по ГОСТ 24297-2013, приложение А

Обновление 14.04.2023г. (бесплатная рассылка нашим пользователям)

Добавлено:

1. Функция формирования реестра исполнительной документации – форма № 1.2 ВСН 012-88 (Часть 2).
2. Функция формирования реестра исполнительной документации – Форма № 1.2, СП 392.1325800.2018.
3. Повышение стоимости.

Журнал учёта результатов верификации по СТО ГАЗПРОМ ГАЗОРАСПРЕДЕЛЕНИЕ 2.19–2020, Приложение Е (автоматизированный)

---

Данный журнал в формате Excel по СТО ГАЗПРОМ ГАЗОРАСПРЕДЕЛЕНИЕ 2.19–2020, Приложение Е в один клик позволяет автоматически создавать акты верификации по форме Приложение Д, СТО ГАЗПРОМ ГАЗОРАСПРЕДЕЛЕНИЕ 2.19–2020. Для этого необходимо заполнить журнал и нажать кнопку “Создать акты” – заполненные акты создадутся автоматически в новых вкладках (каждый акт).

Купить Журнал верификации по СТО – создание актов по СТО2.19-2020 (650р.)

---

Обновление журнала входного контроля (по СП 48.13330.2019, РД 39-00147105-015-98, ГОСТ 24297-2013)

Благодаря тем кто приобрёл данный журнал, мы смогли сделать большую модернизацию по улучшению и автоматизации нашего журнала. Основные улучшения указали на скрине ниже, но помимо этого есть много мелких, которые вы оцените в процессе пользования.

БОНУС: Также отличным бонусом для тех кто приобрёл наш журнал, будет рассылка обновлённой формы абсолютно бесплатно!

Автоматические акты скрытых работ по РД-11-02-2006

Автоматизированные АОСР представляют собой журнал в формате Excel с возможностью автоматического создания и заполнения актов скрытых работ. Заполняя автоматизированный журнал АОСР, сокращается затраченное время на заполнение актов, также сводятся к минимуму количество допущенных ошибок, проще заполнять ОЖР и специальные журналы, так как все акты на одной странице, на виду.  Подробнее смотрите в нижерасположенном видео.

Обновление (рассылка) 12.10.2022г.

Журнал_АОСР_AUTO V2.2— Lite

Купить Журнал_АОСР_AUTO V2.2— Lite (1050р.)

После оплаты автоматически будет направлен журнал на указанный Вами Email адрес!

Спешите купить сейчас, так как обновления с новыми функциями рассылаются бесплатно, а с увеличением функций растёт цена журнала.

Автоматические акты скрытых работ + ОЖР + Реестр

В данной дополненной версии автоматизированного журнала в отличии от вышерасположенного есть дополнительные 2 кнопки – «Заполнить ОЖР» и «Заполнить реестр», всего 4 кнопки. При нажатии кнопки «Создать акты» создаются новые заполненные акты скрытых работ на основе журнала. Далее можно заполнить ОЖР 3 и 6 разделы кликнув на кнопку «Заполнить ОЖР», аналогично с реестром (кнопка«Заполнить реестр»). Подробнее смотрите в видео.

Журнал_АОСР+ОЖР+Реестр_AUTO V3.6.1 — Full

Купить Автоматические акты скрытых работ + ОЖР + Реестр (1950р.)

Скачать инструкцию АОСР_AUTO

После оплаты автоматически будет направлен журнал на указанный Вами Email адрес!

Спешите купить сейчас, так как обновления с новыми функциями рассылаются бесплатно, а с увеличением функций растёт цена журнала.

Автоматизированные АОСР по СП 392.1325800.2018 + ОЖР + Реестр

Журнал_АООК_AUTO V3.5.2 — Full

Купить Автоматические АОСР по СП (1490р.)

После оплаты автоматически будет направлен журнал на указанный Вами Email адрес!

Спешите купить сейчас, так как обновления с новыми функциями рассылаются бесплатно, а с увеличением функций растёт цена журнала.

Автоматические акты освидетельствования ответственных конструкций

Журнал_АООК_AUTO V1.1.2

Купить Автоматические АООК (970р.)

После оплаты автоматически будет направлен журнал на указанный Вами Email адрес!

Спешите купить сейчас, так как обновления с новыми функциями рассылаются бесплатно, а с увеличением функций растёт цена журнала.

---

Автоматические акты разбивки осей объекта капитального строительства на местности по РД-11-02-2006

Автоматизированные акты разбивки осей представляют собой журнал в формате Excel с возможностью автоматического создания и заполнения актов по РД-11-02-2006 (Приложение №2). Заполняя автоматизированный журнал, сокращается затраченное время на заполнение актов, также сводятся к минимуму количество допущенных ошибок, так как все акты на одной странице, на виду.

Купить Автоматические акты разбивки осей(1300р.)

---

Автоматические акты скрытых работ для Казахстана по ҚР ҚН 1.03-00-2022 Д-ҚОСЫМШАСЫ – Акт жасырын жұмыстарды куәландыру

Автоматизированные акты скрытых работ представляют собой журнал в формате Excel с возможностью автоматического создания и заполнения актов скрытых работ. Заполняя автоматизированный журнал актов скрытых работ сокращается затраченное время на заполнение актов, также сводятся к минимуму количество допущенных ошибок, проще заполнять ОЖР и специальные журналы, так как все акты на одной странице, на виду.

Для приобретения пишите в контактную форму.

Автоматтандырылған жасырын жұмыс актілері-бұл жасырын жұмыс актілерін автоматты түрде құру және толтыру мүмкіндігі бар Excel форматындағы журнал. Жасырын жұмыстар актілерінің автоматтандырылған журналын толтыра отырып, актілерді толтыруға жұмсалған уақыт қысқарады, жіберілген қателіктер саны да азаяды, ЖЖБ және арнайы журналдарды толтыру оңайырақ, өйткені барлық актілер бір бетте, көріністе.

Сатып алу үшін байланыс формасына жазыңыз.

Купить Автоматические акты разбивки осей(1300р.)

---

Отзывы пользователей

В слайдере ниже мы разместили скрины записей (небольшую часть), которые отправляют нам наши уважаемые пользователи. Мы стараемся, что бы наши пользователи были довольны нашими автоматизированными формами!

Есть вопросы? Пишите в контактную форму ниже или в Telegram: NefteGazPTO

Также если Вас не затруднит, прошу написать в комментариях в данной статье отзыв об использовании в работе данного журнала, возникшие пожелания, замечания.

Зачастую, когда говорят о работе в офисных приложениях, подразумевается использование ПК в качестве печатной машинки и, если честно, то это достаточно дорогая замена физическим механизмам, если не пользоваться возможностями который дает нам ПК. Давайте об этом и поговорим.

Введение.

На мой взгляд ПК появился как инструмент для решение принципа автоматизации рутинных процессов и в этом он чертовски хорош. Кроме того развитие функциональных программ есть история создания инструментов для реализации перевода авральных задач в рутинные действия, как следствие углубление разделения труда. Однако есть области, в т.ч. и документооборота, где на сегодняшний день ПК используется именно как печатная машинка в т.ч. и потому, что серьезных разработок не велось в силу того, что оклады людей сидят в накладных расходах и, как следствие, не велики, что не скажешь о возрастающих объемах документооборота.

Итак, поговорим про строительство, конкретно про составление Исполнительной документации (далее ИД).

Большая часть работ закрывается по форме Акта освидетельствования скрытых работ (утвержденным приказом Федеральной службы по экологическому, технологическому и атомному надзору от 26 декабря 2006 года N 1128 (В редакции, введенной в действие с 6 марта 2016 года приказом Ростехнадзора от 26 октября 2015 года №42. Далее АОСР).

Исходные данные для автоматизации.

По-этому возьмем форму АОСР за основу. Итак, у нас есть шаблон документа, в который заносится следующая информация:

— постфикс номера акта;
— наименование объекта капитального строительства;
— юридические данные об участниках строительства (Застройщик или Заказчик; Лицо, осуществляющее строительство; Лицо, осуществляющее подготовку проектной документации;
Лицо, осуществляющее строительство, выполнившее работы, подлежащие освидетельствованию; иные лица.)
— перечень лиц с наименованием организаций, должностей и приказов подтверждающих их полномочия;
— наименование выполненных работ;
— сроки выполнения работ;
— перечень работ, входящих в выполненные работы;
— ссылки на НТД и разделы проекта/тех.документации;
— ссылки на исполнительные схемы, акты испытаний (если таковые требуются);
— перечень используемых материалов с сылками на документы подтверждающими их соответствие (паспорта, сертификаты и т.п.)

Мысли о принципиальных методах решения задачи

Итак, в первом приближении, можно просто создать наглядную таблицу, в которой назначив соответствующие однотипные поля каждому акту мы получим наглядную портянку схемы выполнения работ на объекте. И в этом нет ничего нового. Итак, нам необходимо связать форму с ячейками в таблицах данных и здесь есть 2 варианта:

1. Слияние с файлом Word
2. Заполнение при помощи макросов шаблона на базе Excel.

Каждый из этих способов имеет свои плюсы и минусы, но т.к. слияние производит замену в реальном времени, то мною было принято решение выбрать второй пункт, который в реальном времени слияние не обеспечивает и каждый раз необходимо будет осуществлять вывод актов, в случае корректировки данных, заново. Это связано с тем, что мне зачастую необходима история моих действий.

Итак, теперь мы упираемся в 2 задачи:

1. Заполнение шаблона на основе табличных данных
2. Какие поля достаточно ввести один раз, какие будет меняться время от времени и какие поля будут отличаться в каждом акте.

Решая задачу №2 мы вынесем на отдельный лист те данные, которые будут едины в рамках объекта/раздела проекта строительства — это:

Спойлер

На текущем листе заполним лишь один раз, а для остальных актов просто проставим ссылки на эти значения:

Спойлер

И поля, которые будут меняться в каждом акте:

Спойлер

Теперь об удобствах, если записать ФИО ответственных лиц, их организацию, приказ о назначении с датой, то при помощи инструмента «проверка данных» можно занести их фамилии в спойлер, а формулой подтягивать их регалии.

=ЕСЛИОШИБКА(ДВССЫЛ(СЦЕПИТЬ("'Данные для проекта'!";АДРЕС((ПОИСКПОЗ(E30;'Данные для проекта'!$G$15:$G$34;0))+14;6)));"-")

Т.е. на листе ‘Данные для проекта’ в диапазоне $G$15:$G$34, в 6м столбце ищем значение в ячейке Е30, и как только находим нехитрым методом преобразуем в адрес, который будет преобразован в ссылку формулами.

Новая проблема уже упирается в длину строки, если использовать шрифт Times New Roman №10, то длина текста, которая будет выводится на печать, не превышает 105 символов. Т.е. мы упираемся в необходимость создавать костыль для переносов. Итак код функции на VBA:

Function PatrOfString(StringOfTable As String, Nnumber As Byte) As String  Dim МассивБлоков(1 To 10) As String Dim i As Integer                      '  Dim j As Integer                      '  Dim k As Integer                      '  Dim p As Integer                      '   For i = 1 To 10     Let МассивБлоков(i) = " " Next i  Let k = 1 Let p = Len(StringOfTable) Let p1 = Len(StringOfTable)  For i = 1 To Round(Len(StringOfTable) / 105) + 1 Step 1            If p > 0 And p < 105 Then             If k <= p1 Then Let МассивБлоков(i) = Mid$(StringOfTable, k, p)         Else             If Mid(StringOfTable, k, 1) = " " Then                If k <= p1 Then Let МассивБлоков(i) = Mid$(StringOfTable, k, 105)                Let p = p - 105                k = k + 105             Else                j = 105 * i                                If j - k >= 105 Then                   j = k + 105                End If                                Do                   j = j - 1                Loop While Mid$(StringOfTable, j, 1) <> " "                 Let МассивБлоков(i) = Mid$(StringOfTable, k, j - k + 1)                Let p = p - (j - k + 1)                Let k = j + 1             End If          End If        Next i  If Nnumber - 1 > 0 Then    If МассивБлоков(Nnumber) = МассивБлоков(Nnumber - 1) Then МассивБлоков(Nnumber) = " " End If   PatrOfString = МассивБлоков(Nnumber)

Т.е. мы сперва забираем текст, потом вырезаем 105 символов, ищем с конца первый символ пробел, как его находим, то закидываем в первую строку массива текст длиной с первого символа, по номер найденного пробела. Затем продолжаем операцию до тех пор пока текст не закончится или не забьется выводной массив. На данном этапе он ограничен памятью в 10 строк. Затем мы выводим по ссылке содержание нужной строки из 1-10. Из минусов решения — забивается память, и для каждого нового запроса осуществляется пересчет заново. Но костыль работает.

Подводные камни использования Excel Power Query и MySQL для автоматизации отчетности

Теперь вывод в типовой шаблон АОСР. Есть опять 2 варианта, либо вручную прописывать сопоставлению столбцу(/строки в случае горизонтально расположенных данных под каждый акт), то это будет долго и ресурсоемко подгонять каждый новый шаблон или изменения под таблицы данных. Потому делаем оптимизацию. Данные на каждый один акт будут располагаться вертикально, а сопоставление управляющей комбинации символов (на латинице, т.к. сами акты сплошь на кириллице) будут строки с информацией в этих актах, таким образом в двойном вложенном цикле поиском в тексте управляющих символов мы сопоставим нужное значение из колонки.

Do             wb.Worksheets("Пример акта входного контроля").Copy after:=Worksheets(Worksheets.Count)             Set новыйЛист = wb.Worksheets(Worksheets.Count)              For x = 1 To 15 Step 1                                                      ' Перебираем столбцы в листе "Пример акта входного контроля"                 For y = 1 To 71 Step 1                                                  ' Перебираем строки в листе "Пример акта входного контроля"                     If Sheets(новыйЛист.Name).Cells(y, 20) = 1 Then                         Let k = CStr(Sheets(новыйЛист.Name).Cells(y, x))                ' Ищем только если в ячейке что-то есть                         If k <> "" Then                             For i = 1 To Кол_воЭл_овМассиваДанных Step 1                                Let k = Replace(k, arrСсылкиДанных(i), Worksheets("БД для входного контроля (2)").Cells(i, НомерСтолбца))                             Next i                         новыйЛист.Cells(y, x) = k                         End If                     End If                 Next y             Next x                                      ' Если Вы захотите добавить новые данные для автозаполнения, продолжайте этот список.             ' Ячейки имеют координаты формата Cells(3, 2), где 3 - пример номера строки, 2 - пример номера столбца             ' Чтобы легко узнавать номер столбца, можно включить стиль ссылок R1C1             ' (Файл -> Параметры -> Формулы -> галочка на поле "Стиль ссылок R1C1")             ' либо задавать координаты в формате Cells(1, "A"), где 1 - пример номера строки, "А" - пример буквенного обозначения столбца                          Rem -= Уточняем имя файла и текущий путь к папке откуда запущен макрос =-             Let ИмяФайла = ИмяФайла + CStr(Worksheets("БД для входного контроля (2)").Cells("1", НомерСтолбца)) + "-"             Let ИмяФайла = ИмяФайла + CStr(Worksheets("БД для входного контроля (2)").Cells("2", НомерСтолбца)) + ".xlsx"             НовыйПуть = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла)              Application.DisplayAlerts = False                                           ' выключаем вывод предупреждений             Sheets(новыйЛист.Name).Copy                                                 ' Копируем текущий лист в новую книгу             ActiveWorkbook.SaveAs Filename:=НовыйПуть, _                 FileFormat:=51             ActiveWindow.Close              Sheets(новыйЛист.Name).Delete                                               ' Удаляем созданный лист             Application.DisplayAlerts = True                                            ' Включаем вывод предупреждений обратно              Let НомерСтолбца = НомерСтолбца + 1                     Loop While НомерСтолбца <= КонечныйНомерСтолбца         End Sub

Ну и последний момент на данном этапе — мы упираемся в производительность системы и при большом кол-ве актов их вывод будет занимать часы. Дабы ускорить процесс я использую следующий вариант: Копирую содержимое листа с данными в новый лист макросом, он получает в своем имени циферку (2), затем запускается еще один макрос, ускоряющий Excel, но отключающий ряд функционала:

'Ускоряем Excel путём отключения всего "тормозящего"  Public Sub AccelerateExcel()     'Больше не обновляем страницы после каждого действия   Application.ScreenUpdating = False     'Расчёты переводим в ручной режим   Application.Calculation = xlCalculationManual     'Отключаем события   Application.EnableEvents = False     'Не отображаем границы ячеек   If Workbooks.Count Then       ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False   End If     'Отключаем статусную строку   Application.DisplayStatusBar = False     'Отключаем сообщения Excel   Application.DisplayAlerts = False    End Sub

А после вывода всех данных из форм я прогоняю аналогичный макрос где тем же самым переменным присваиваю значение true и удаляю дублирующий лист, что бы не мешался.

Эта статья особенно актуальна для инженеров ПТО, т. к. позволит автоматизировать свой труд по заполнению актов скрытых работ, используя пакет приложений Microsoft Office. Если вы не инженер ПТО, то ничего страшного, т. к. описанная здесь методика полезна в решении самых разных задач, где нужно заполнить большое количество бланков.

Скачать бланк акта скрытых работ в формате word.

Итак, у нас есть пустой акт скрытых работ в файле MS Word (назовем его «Фм-1 в/о Ж/2.doc»):

Для начала заполним все те поля, которые в ходе работы не будут меняться.

Те поля, которые будут меняться я пометил красным цветом. Это будет выглядеть так:

Далее открываем MS Excel, и создаем таблицу, в шапке которой указываем название меняющихся полей (которые мы пометили красным цветом):

Заполним несколько строчек данной таблицы по общему журналу работ, например, в моем случае для фундамента Фм-1 в/о Ж/2:

Сохраняем таблицу, например: «Фм-1 в/о Ж/2.xls».

Далее возвращаемся в документ word и открываем «пошаговый мастер слияния»:

Вкладка «Рассылки» -> «Кнопка Начать слияние» -> Пункт «Пошаговый мастер слияния…»

В мастере слияния, в качестве типа документа выбираем «письма», нажимаем «Далее. Открытие документа».

Слияние выполняется в 6 этапов:

1 этап. Тип документа — выбираем «Письма».

2 этап. Выбор документа — оставляем «Текущий документ».

3 этап. Выбор получателей — оставляем «Использование списка». Существующий список — нажимаем «Обзор» и выбираем нашу таблицу «Фм-1 в/о Ж/2.xls»., выделяем наш лист, получатели слияния — оставляем по умолчанию — ок. Переходим к следующему этапу.

4 этап. Выделяем меняющееся поле (одно из тех что отмечены красным), например, пусть это будет «число».

На панели слияние нажимаем «Другие элементы…» и выбираем соответствующее поле — «число». —> Вставить.

Не обращайте внимание на то что название поля слишком велико и некрасиво сползает.

Этот этап повторяем для каждого нашего изменяющегося поля.

Этап 5. Просмотр писем. Данные из таблицы Excel вставились в наш акт. Кнопками << и >> можно переключать строки из табл. Excel, тем самым просматривая разные акты.

Этап 6. Завершение слияния. Закрываем мастер слияния.

Переключать записи можно и с панели «Просмотр результатов».

Очевидные плюсы такого метода работы:

1) Не нужно хранить сотни актов в разных файлах, тратя время на их редактирование.

2) В таблице очень удобно можно просмотреть хронологию работ.

3) Довольно быстрое внесение изменений в записи.

4) Быстрая замена бланка акта, допустим неправильно написали фамилию мастера, пару щелчков и изменение будет внесено во всех актах одновременно.

5) Удобная и быстрая печать.

Скачать примеры из статьи.

Зачастую, когда говорят о работе в офисных приложениях, подразумевается использование ПК в качестве печатной машинки и, если честно, то это достаточно дорогая замена физическим механизмам, если не пользоваться возможностями который дает нам ПК. Давайте об этом и поговорим.

Введение.

На мой взгляд ПК появился как инструмент для решение принципа автоматизации рутинных процессов и в этом он чертовски хорош. Кроме того развитие функциональных программ есть история создания инструментов для реализации перевода авральных задач в рутинные действия, как следствие углубление разделения труда. Однако есть области, в т.ч. и документооборота, где на сегодняшний день ПК используется именно как печатная машинка в т.ч. и потому, что серьезных разработок не велось в силу того, что оклады людей сидят в накладных расходах и, как следствие, не велики, что не скажешь о возрастающих объемах документооборота.

Итак, поговорим про строительство, конкретно про составление Исполнительной документации (далее ИД).

Большая часть работ закрывается по форме Акта освидетельствования скрытых работ (утвержденным приказом Федеральной службы по экологическому, технологическому и атомному надзору от 26 декабря 2006 года N 1128 (В редакции, введенной в действие с 6 марта 2016 года приказом Ростехнадзора от 26 октября 2015 года №42. Далее АОСР).

Исходные данные для автоматизации.

По-этому возьмем форму АОСР за основу. Итак, у нас есть шаблон документа, в который заносится следующая информация:

— постфикс номера акта;
— наименование объекта капитального строительства;
— юридические данные об участниках строительства (Застройщик или Заказчик; Лицо, осуществляющее строительство; Лицо, осуществляющее подготовку проектной документации;
Лицо, осуществляющее строительство, выполнившее работы, подлежащие освидетельствованию; иные лица.)
— перечень лиц с наименованием организаций, должностей и приказов подтверждающих их полномочия;
— наименование выполненных работ;
— сроки выполнения работ;
— перечень работ, входящих в выполненные работы;
— ссылки на НТД и разделы проекта/тех.документации;
— ссылки на исполнительные схемы, акты испытаний (если таковые требуются);
— перечень используемых материалов с сылками на документы подтверждающими их соответствие (паспорта, сертификаты и т.п.)

Мысли о принципиальных методах решения задачи

Итак, в первом приближении, можно просто создать наглядную таблицу, в которой назначив соответствующие однотипные поля каждому акту мы получим наглядную портянку схемы выполнения работ на объекте. И в этом нет ничего нового. Итак, нам необходимо связать форму с ячейками в таблицах данных и здесь есть 2 варианта:

1. Слияние с файлом Word
2. Заполнение при помощи макросов шаблона на базе Excel.

Каждый из этих способов имеет свои плюсы и минусы, но т.к. слияние производит замену в реальном времени, то мною было принято решение выбрать второй пункт, который в реальном времени слияние не обеспечивает и каждый раз необходимо будет осуществлять вывод актов, в случае корректировки данных, заново. Это связано с тем, что мне зачастую необходима история моих действий.

Итак, теперь мы упираемся в 2 задачи:

1. Заполнение шаблона на основе табличных данных
2. Какие поля достаточно ввести один раз, какие будет меняться время от времени и какие поля будут отличаться в каждом акте.

Решая задачу №2 мы вынесем на отдельный лист те данные, которые будут едины в рамках объекта/раздела проекта строительства — это:

На текущем листе заполним лишь один раз, а для остальных актов просто проставим ссылки на эти значения:

И поля, которые будут меняться в каждом акте:

Теперь об удобствах, если записать ФИО ответственных лиц, их организацию, приказ о назначении с датой, то при помощи инструмента «проверка данных» можно занести их фамилии в спойлер, а формулой подтягивать их регалии.

=ЕСЛИОШИБКА(ДВССЫЛ(СЦЕПИТЬ("'Данные для проекта'!";АДРЕС((ПОИСКПОЗ(E30;'Данные для проекта'!$G$15:$G$34;0))+14;6)));"-")

Т.е. на листе ‘Данные для проекта’ в диапазоне $G$15:$G$34, в 6м столбце ищем значение в ячейке Е30, и как только находим нехитрым методом преобразуем в адрес, который будет преобразован в ссылку формулами.

Новая проблема уже упирается в длину строки, если использовать шрифт Times New Roman №10, то длина текста, которая будет выводится на печать, не превышает 105 символов. Т.е. мы упираемся в необходимость создавать костыль для переносов. Итак код функции на VBA:

Function PatrOfString(StringOfTable As String, Nnumber As Byte) As String

Dim МассивБлоков(1 To 10) As String
Dim i As Integer                      ' 
Dim j As Integer                      ' 
Dim k As Integer                      ' 
Dim p As Integer                      ' 

For i = 1 To 10
    Let МассивБлоков(i) = " "
Next i

Let k = 1
Let p = Len(StringOfTable)
Let p1 = Len(StringOfTable)

For i = 1 To Round(Len(StringOfTable) / 105) + 1 Step 1
  
        If p > 0 And p < 105 Then
            If k <= p1 Then Let МассивБлоков(i) = Mid$(StringOfTable, k, p)
        Else
            If Mid(StringOfTable, k, 1) = " " Then
               If k <= p1 Then Let МассивБлоков(i) = Mid$(StringOfTable, k, 105)
               Let p = p - 105
               k = k + 105
            Else
               j = 105 * i
               
               If j - k >= 105 Then
                  j = k + 105
               End If
               
               Do
                  j = j - 1
               Loop While Mid$(StringOfTable, j, 1) <> " "

               Let МассивБлоков(i) = Mid$(StringOfTable, k, j - k + 1)
               Let p = p - (j - k + 1)
               Let k = j + 1
            End If
         End If
      
Next i

If Nnumber - 1 > 0 Then
   If МассивБлоков(Nnumber) = МассивБлоков(Nnumber - 1) Then МассивБлоков(Nnumber) = " "
End If
 
PatrOfString = МассивБлоков(Nnumber)

Т.е. мы сперва забираем текст, потом вырезаем 105 символов, ищем с конца первый символ пробел, как его находим, то закидываем в первую строку массива текст длиной с первого символа, по номер найденного пробела. Затем продолжаем операцию до тех пор пока текст не закончится или не забьется выводной массив. На данном этапе он ограничен памятью в 10 строк. Затем мы выводим по ссылке содержание нужной строки из 1-10. Из минусов решения — забивается память, и для каждого нового запроса осуществляется пересчет заново. Но костыль работает.

Теперь вывод в типовой шаблон АОСР. Есть опять 2 варианта, либо вручную прописывать сопоставлению столбцу(/строки в случае горизонтально расположенных данных под каждый акт), то это будет долго и ресурсоемко подгонять каждый новый шаблон или изменения под таблицы данных. Потому делаем оптимизацию. Данные на каждый один акт будут располагаться вертикально, а сопоставление управляющей комбинации символов (на латинице, т.к. сами акты сплошь на кириллице) будут строки с информацией в этих актах, таким образом в двойном вложенном цикле поиском в тексте управляющих символов мы сопоставим нужное значение из колонки.

Do
            wb.Worksheets("Пример акта входного контроля").Copy after:=Worksheets(Worksheets.Count)
            Set новыйЛист = wb.Worksheets(Worksheets.Count)

            For x = 1 To 15 Step 1                                                      ' Перебираем столбцы в листе "Пример акта входного контроля"
                For y = 1 To 71 Step 1                                                  ' Перебираем строки в листе "Пример акта входного контроля"
                    If Sheets(новыйЛист.Name).Cells(y, 20) = 1 Then
                        Let k = CStr(Sheets(новыйЛист.Name).Cells(y, x))                ' Ищем только если в ячейке что-то есть
                        If k <> "" Then
                            For i = 1 To Кол_воЭл_овМассиваДанных Step 1
                               Let k = Replace(k, arrСсылкиДанных(i), Worksheets("БД для входного контроля (2)").Cells(i, НомерСтолбца))
                            Next i
                        новыйЛист.Cells(y, x) = k
                        End If
                    End If
                Next y
            Next x
                        
            ' Если Вы захотите добавить новые данные для автозаполнения, продолжайте этот список.
            ' Ячейки имеют координаты формата Cells(3, 2), где 3 - пример номера строки, 2 - пример номера столбца
            ' Чтобы легко узнавать номер столбца, можно включить стиль ссылок R1C1
            ' (Файл -> Параметры -> Формулы -> галочка на поле "Стиль ссылок R1C1")
            ' либо задавать координаты в формате Cells(1, "A"), где 1 - пример номера строки, "А" - пример буквенного обозначения столбца
            
            Rem -= Уточняем имя файла и текущий путь к папке откуда запущен макрос =-
            Let ИмяФайла = ИмяФайла + CStr(Worksheets("БД для входного контроля (2)").Cells("1", НомерСтолбца)) + "-"
            Let ИмяФайла = ИмяФайла + CStr(Worksheets("БД для входного контроля (2)").Cells("2", НомерСтолбца)) + ".xlsx"
            НовыйПуть = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла)

            Application.DisplayAlerts = False                                           ' выключаем вывод предупреждений
            Sheets(новыйЛист.Name).Copy                                                 ' Копируем текущий лист в новую книгу
            ActiveWorkbook.SaveAs Filename:=НовыйПуть, _
                FileFormat:=51
            ActiveWindow.Close

            Sheets(новыйЛист.Name).Delete                                               ' Удаляем созданный лист
            Application.DisplayAlerts = True                                            ' Включаем вывод предупреждений обратно

            Let НомерСтолбца = НомерСтолбца + 1
            
       Loop While НомерСтолбца <= КонечныйНомерСтолбца
       
End Sub

Ну и последний момент на данном этапе — мы упираемся в производительность системы и при большом кол-ве актов их вывод будет занимать часы. Дабы ускорить процесс я использую следующий вариант: Копирую содержимое листа с данными в новый лист макросом, он получает в своем имени циферку (2), затем запускается еще один макрос, ускоряющий Excel, но отключающий ряд функционала:

'Ускоряем Excel путём отключения всего "тормозящего"
 Public Sub AccelerateExcel()
 
  'Больше не обновляем страницы после каждого действия
  Application.ScreenUpdating = False
 
  'Расчёты переводим в ручной режим
  Application.Calculation = xlCalculationManual
 
  'Отключаем события
  Application.EnableEvents = False
 
  'Не отображаем границы ячеек
  If Workbooks.Count Then
      ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False
  End If
 
  'Отключаем статусную строку
  Application.DisplayStatusBar = False
 
  'Отключаем сообщения Excel
  Application.DisplayAlerts = False
 
 End Sub

А после вывода всех данных из форм я прогоняю аналогичный макрос где тем же самым переменным присваиваю значение true и удаляю дублирующий лист, что бы не мешался.