Программа формирование бланка

[Погрешностер 52]

Может кому сгодится программа для формирования свидетельств о поверке, как РСИ так и Эталонов

работает корректно если установить шрифт, имеется в архиве, просто скопируйте его в папку C:\Windows\Fonts перед открытием файла "Супер свидетельства"

может спросить про макросы - разрешить и сохранить. Еще может некорректно рисовать линии, когда откроете поймете, предусмотрел их калибровку, почему то на разных ПК по разному их рисует

может быть и так, что линия её правая часть уйдет вверх или вниз, на листе "Калибровка..." в таблице отступ сверху (справа) установите "0"

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

После нажатия на кн. Печать, данные сохраняются на лист save

лист специалисты перебить по аналогии, первый столбец начальник, 2-й поверители, третий обязательно строка с фамилией поставьте номер отдела так программно задумано, для правильного отбора

НЕ ДОБАВЛЯТЬ И НЕ УДАЛЯТЬ СТРОКИ

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

планирую впихнуть еще и извещение о непригодности

особую благодарность форуму http://www.excelworld.ru/tests

Супер свидетельство.rar

Изменено 4 Ноября 2015 пользователем Погрешностер

[Радик Мавлявиев 195]

Красиво!

Я правильно понимаю - это свидетельство надо заполнить руками, затем при печати данные из свидетельства будут сохранены в журнал?

Однако, мне удобнее было научить программу заполнять бланк свидетельства данными из журнала. Журнал может содержать и другие данные, не заносимые в свидетельство. Из того же журнала можно вытягивать данные в извещение, сертификат, протокол, ежемесячный отчет, выполнение...

Данные вытягивает простая формула СМЕЩ. Если использовать в качестве аргумента формулы "смещение по строкам" ссылку, то можно заполнить данными из произвольной строки журнала. Если запустить макрос, который будет распечатывать и увеличивать на единицу величину смещения, то скорость вывода свидетельств будет ограничена только возможностями принтера.

[Погрешностер 52]

Красиво!

Я правильно понимаю - это свидетельство надо заполнить руками, затем при печати данные из свидетельства будут сохранены в журнал?

Однако, мне удобнее было научить программу заполнять бланк свидетельства данными из журнала. Журнал может содержать и другие данные, не заносимые в свидетельство. Из того же журнала можно вытягивать данные в извещение, сертификат, протокол, ежемесячный отчет, выполнение...

Данные вытягивает простая формула СМЕЩ. Если использовать в качестве аргумента формулы "смещение по строкам" ссылку, то можно заполнить данными из произвольной строки журнала. Если запустить макрос, который будет распечатывать и увеличивать на единицу величину смещения, то скорость вывода свидетельств будет ограничена только возможностями принтера.

Все, что угодно, я сделал данную программу для себя и если кому интересно её развить, дерзайте, и делитесь...

другие решения, упрощение или изменение кода мне тоже будет интересно, я не ас в VBA и поэтому выложено на обсуждение

[Логинов Владимир 811]

А почему дата действительно до на 1 день меньше?

[Погрешностер 52]

А почему дата действительно до на 1 день меньше?

В соответствии с постановлением 1815...

[efim 1 745]

Еще и бумага м/б такой

[Логинов Владимир 811]

В соответствии с постановлением 1815...

где там такое написано?

[Логинов Владимир 811]

Согласно

Гражданский кодекс

Глава 11. ИСЧИСЛЕНИЕ СРОКОВ

Статья 190. Определение срока

Установленный законом, иными правовыми актами, сделкой или назначаемый судом срок определяется календарной датой или истечением периода времени, который исчисляется годами, месяцами, неделями, днями или часами.

Срок может определяться также указанием на событие, которое должно неизбежно наступить.

Статья 191. Начало срока, определенного периодом времени

Течение срока, определенного периодом времени, начинается на следующий день после календарной даты или наступления события, которыми определено его начало.

Статья 192. Окончание срока, определенного периодом времени

1. Срок, исчисляемый годами, истекает в соответствующие месяц и число последнего года срока.

К сроку, определенному в полгода, применяются правила для сроков, исчисляемых месяцами.

2. К сроку, исчисляемому кварталами года, применяются правила для сроков, исчисляемых месяцами. При этом квартал считается равным трем месяцам, а отсчет кварталов ведется с начала года.

3. Срок, исчисляемый месяцами, истекает в соответствующее число последнего месяца срока.

Срок, определенный в полмесяца, рассматривается как срок, исчисляемый днями, и считается равным пятнадцати дням.

Если окончание срока, исчисляемого месяцами, приходится на такой месяц, в котором нет соответствующего числа, то срок истекает в последний день этого месяца.

4. Срок, исчисляемый неделями, истекает в соответствующий день последней недели срока.

Если поверяли сегодня и межповерочный интервал 1 год, то дата поверки 05.11.2016, значит действительно с 06.11.2016 по 5.11.2016 (включительно)

[Погрешностер 52]

В соответствии с постановлением 1815...

где там такое написано?

Я думаю не стоит забивать эту ветку поиском истины по поводу даты поверки, нам установили так, так мы и делаем, на это есть по моему другая тема

все таки хочется пообщаться по поводу данной программы...

[Логинов Владимир 811]

Хотя да, наверное вы правы, дату нужно считать с события, а это событие поверка. Соответственно 05.11.15 по 04.11.16 включительно

Программа неплохая

Изменено 5 Ноября 2015 пользователем Логинов Владимир

[vesy 9]

Если поверяли сегодня и межповерочный интервал 1 год, то дата поверки 05.11.2016, значит действительно с 06.11.2016 по 5.11.2016 (включительно)

а есть высокосный год - тогда даты должны быть одинаковы, но это после февраля - это учитывается? и после высокосного года тогда минус 2 дня

Хотя да, наверное вы правы, дату нужно считать с события, а это событие поверка. Соответственно 05.11.15 по 04.11.16 включительно

в приложении свидетельства написано "действительно до". "До" подразумевает не включать данную дату. Может оставить как и раньше день в день.

Изменено 12 Ноября 2015 пользователем vesy

[Погрешностер 52]

Кое, что добавил и изменил

внешние факторы

больше позиций сохранения

Супер свидетельство.rar

Изменено 11 Декабря 2015 пользователем Погрешностер

[Vokai 2]

Огромное СПАСИБО!!! Юрий Владимирович за супер свидетельство. Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками

Изменено 15 Января 2016 пользователем Vokai

[evGeniy 1 028]

Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками

А вы её к госреестру подцепите

[Vokai 2]

Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками

А вы её к госреестру подцепите

каким образом Гос.реестр в PDF формате, был бы xls другое дело

[evGeniy 1 028]

каким образом Гос.реестр в PDF формате, был бы xls другое дело

Я в свое время находил в инете. Можно попросить и кого "Метрконтроль" есть из SQL в Ексель выгрузить, там дело 10 минут

[Погрешностер 52]

Огромное СПАСИБО!!! Юрий Владимирович за супер свидетельство. Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками

Есть вариант скопировать данные из локального справочника "Метроконтроль" предварительно включив нужные фильтры... и после вставить в лист

но уж средства поверки сам бог велел руками...

Изменено 17 Января 2016 пользователем Погрешностер

[GAN_86 0]

Есть возможность изменить шрифт ?

[Погрешностер 52]

Можно конкретней, что не устраивает?

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

Главное не удаляйте и не добавляйте строки, все собьется.

снимаете защиту с листа и вперед...

для просмотра кода программы: правой кнопкой мыши по ярлычку листа и там выбрать "Исходный текст" так вы попадете в редактор VBA...

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

Изменено 29 Января 2016 пользователем Погрешностер

[АлесяМурейко 1]

Большое спасибо, как раз в этом нуждалась)

[Погрешностер 52]

Есть измерения к программе

1 теперь автоматически подчеркивает в Свидетельстве: периодическая или первичная

2 дата поверки, внизу бланка теперь корректно отображается (длинный формат)

по работе и настройке данной программы под Ваш принтер в начале поста http://metrologu.ru/index.php?showtopic=20359&view=findpost&p=147579

прочитайте все внимательно, и не забудьте про установку шрифта

дальше планирую воткнуть бланк Извещения...

А4_СУПЕР_СВИДЕТЕЛЬСТВО_97.zip

Изменено 7 Ноября 2016 пользователем Погрешностер

[Rusel_spb 0]

Большое спасибо за программу.

Скажите пожалуйста, а она только а А4 печатает?

Нет возможности оформлять свидетельства форматом А5?

[Погрешностер 52]

Измените масштаб на 50 %, посмотрите может пойдет

сейчас уже давно другая программа более расширенная, делает все бланки для СИ, РЭ, извещение, калибровку, обр. сторону для каждого, протокол (не расчетную часть), сохраняет все данные по выписанным бланкам

и уже со всеми новыми нововведениями по 1815 от февраля

Изменено 14 Мая 2019 пользователем Погрешностер

[Mikl91 2]

А вопрос совместного доступа к файлу не подскажете как решили? Программа замечательная, но если у каждого своя копия обновлять неудобно.

[balirkar 0]

В 15.05.2019 в 02:54, Погрешностер сказал:

Измените масштаб на 50 %, посмотрите может пойдет

сейчас уже давно другая программа более расширенная, делает все бланки для СИ, РЭ, извещение, калибровку, обр. сторону для каждого, протокол (не расчетную часть), сохраняет все данные по выписанным бланкам

и уже со всеми новыми нововведениями по 1815 от февраля

просим в студию