Погрешностер 52 Опубликовано 4 Ноября 2015 Жалоба Поделиться Опубликовано 4 Ноября 2015 (изменено) Может кому сгодится программа для формирования свидетельств о поверке, как РСИ так и Эталонов работает корректно если установить шрифт, имеется в архиве, просто скопируйте его в папку C:\Windows\Fonts перед открытием файла "Супер свидетельства" может спросить про макросы - разрешить и сохранить. Еще может некорректно рисовать линии, когда откроете поймете, предусмотрел их калибровку, почему то на разных ПК по разному их рисует может быть и так, что линия её правая часть уйдет вверх или вниз, на листе "Калибровка..." в таблице отступ сверху (справа) установите "0" отступ практически везде нормальный, скорей всего придется подстраивать высоту по вертикали. В общем после изменений значений надо будет снимать защиту с листа и удалять неправильно созданные линии, и так пока не настроите. дальше лист можно будет скрыть. После нажатия на кн. Печать, данные сохраняются на лист save лист специалисты перебить по аналогии, первый столбец начальник, 2-й поверители, третий обязательно строка с фамилией поставьте номер отдела так программно задумано, для правильного отбора НЕ ДОБАВЛЯТЬ И НЕ УДАЛЯТЬ СТРОКИ Будут вопросы пишите, надеюсь найдутся умельцы со своим кодом, может что подправите... планирую впихнуть еще и извещение о непригодности особую благодарность форуму http://www.excelworld.ru/tests Супер свидетельство.rar Изменено 4 Ноября 2015 пользователем Погрешностер Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Радик Мавлявиев 195 Опубликовано 4 Ноября 2015 Жалоба Поделиться Опубликовано 4 Ноября 2015 Красиво! Я правильно понимаю - это свидетельство надо заполнить руками, затем при печати данные из свидетельства будут сохранены в журнал? Однако, мне удобнее было научить программу заполнять бланк свидетельства данными из журнала. Журнал может содержать и другие данные, не заносимые в свидетельство. Из того же журнала можно вытягивать данные в извещение, сертификат, протокол, ежемесячный отчет, выполнение... Данные вытягивает простая формула СМЕЩ. Если использовать в качестве аргумента формулы "смещение по строкам" ссылку, то можно заполнить данными из произвольной строки журнала. Если запустить макрос, который будет распечатывать и увеличивать на единицу величину смещения, то скорость вывода свидетельств будет ограничена только возможностями принтера. Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 4 Ноября 2015 Автор Жалоба Поделиться Опубликовано 4 Ноября 2015 Красиво! Я правильно понимаю - это свидетельство надо заполнить руками, затем при печати данные из свидетельства будут сохранены в журнал? Однако, мне удобнее было научить программу заполнять бланк свидетельства данными из журнала. Журнал может содержать и другие данные, не заносимые в свидетельство. Из того же журнала можно вытягивать данные в извещение, сертификат, протокол, ежемесячный отчет, выполнение... Данные вытягивает простая формула СМЕЩ. Если использовать в качестве аргумента формулы "смещение по строкам" ссылку, то можно заполнить данными из произвольной строки журнала. Если запустить макрос, который будет распечатывать и увеличивать на единицу величину смещения, то скорость вывода свидетельств будет ограничена только возможностями принтера. Все, что угодно, я сделал данную программу для себя и если кому интересно её развить, дерзайте, и делитесь... другие решения, упрощение или изменение кода мне тоже будет интересно, я не ас в VBA и поэтому выложено на обсуждение Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Логинов Владимир 825 Опубликовано 4 Ноября 2015 Жалоба Поделиться Опубликовано 4 Ноября 2015 А почему дата действительно до на 1 день меньше? Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 5 Ноября 2015 Автор Жалоба Поделиться Опубликовано 5 Ноября 2015 А почему дата действительно до на 1 день меньше? В соответствии с постановлением 1815... Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
efim 1 745 Опубликовано 5 Ноября 2015 Жалоба Поделиться Опубликовано 5 Ноября 2015 Еще и бумага м/б такой Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Логинов Владимир 825 Опубликовано 5 Ноября 2015 Жалоба Поделиться Опубликовано 5 Ноября 2015 В соответствии с постановлением 1815... где там такое написано? Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Логинов Владимир 825 Опубликовано 5 Ноября 2015 Жалоба Поделиться Опубликовано 5 Ноября 2015 Согласно Гражданский кодексГлава 11. ИСЧИСЛЕНИЕ СРОКОВ Статья 190. Определение срока Установленный законом, иными правовыми актами, сделкой или назначаемый судом срок определяется календарной датой или истечением периода времени, который исчисляется годами, месяцами, неделями, днями или часами. Срок может определяться также указанием на событие, которое должно неизбежно наступить. Статья 191. Начало срока, определенного периодом времени Течение срока, определенного периодом времени, начинается на следующий день после календарной даты или наступления события, которыми определено его начало. Статья 192. Окончание срока, определенного периодом времени 1. Срок, исчисляемый годами, истекает в соответствующие месяц и число последнего года срока. К сроку, определенному в полгода, применяются правила для сроков, исчисляемых месяцами. 2. К сроку, исчисляемому кварталами года, применяются правила для сроков, исчисляемых месяцами. При этом квартал считается равным трем месяцам, а отсчет кварталов ведется с начала года. 3. Срок, исчисляемый месяцами, истекает в соответствующее число последнего месяца срока. Срок, определенный в полмесяца, рассматривается как срок, исчисляемый днями, и считается равным пятнадцати дням. Если окончание срока, исчисляемого месяцами, приходится на такой месяц, в котором нет соответствующего числа, то срок истекает в последний день этого месяца. 4. Срок, исчисляемый неделями, истекает в соответствующий день последней недели срока. Если поверяли сегодня и межповерочный интервал 1 год, то дата поверки 05.11.2016, значит действительно с 06.11.2016 по 5.11.2016 (включительно) Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 5 Ноября 2015 Автор Жалоба Поделиться Опубликовано 5 Ноября 2015 В соответствии с постановлением 1815... где там такое написано? Я думаю не стоит забивать эту ветку поиском истины по поводу даты поверки, нам установили так, так мы и делаем, на это есть по моему другая тема все таки хочется пообщаться по поводу данной программы... Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Логинов Владимир 825 Опубликовано 5 Ноября 2015 Жалоба Поделиться Опубликовано 5 Ноября 2015 (изменено) Хотя да, наверное вы правы, дату нужно считать с события, а это событие поверка. Соответственно 05.11.15 по 04.11.16 включительно Программа неплохая Изменено 5 Ноября 2015 пользователем Логинов Владимир Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
vesy 9 Опубликовано 12 Ноября 2015 Жалоба Поделиться Опубликовано 12 Ноября 2015 (изменено) Если поверяли сегодня и межповерочный интервал 1 год, то дата поверки 05.11.2016, значит действительно с 06.11.2016 по 5.11.2016 (включительно) а есть высокосный год - тогда даты должны быть одинаковы, но это после февраля - это учитывается? и после высокосного года тогда минус 2 дня Хотя да, наверное вы правы, дату нужно считать с события, а это событие поверка. Соответственно 05.11.15 по 04.11.16 включительно в приложении свидетельства написано "действительно до". "До" подразумевает не включать данную дату. Может оставить как и раньше день в день. Изменено 12 Ноября 2015 пользователем vesy Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 11 Декабря 2015 Автор Жалоба Поделиться Опубликовано 11 Декабря 2015 (изменено) Кое, что добавил и изменил внешние факторы больше позиций сохранения Супер свидетельство.rar Изменено 11 Декабря 2015 пользователем Погрешностер Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Vokai 2 Опубликовано 15 Января 2016 Жалоба Поделиться Опубликовано 15 Января 2016 (изменено) Огромное СПАСИБО!!! Юрий Владимирович за супер свидетельство. Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками Изменено 15 Января 2016 пользователем Vokai Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
evGeniy 1 039 Опубликовано 15 Января 2016 Жалоба Поделиться Опубликовано 15 Января 2016 Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками А вы её к госреестру подцепите Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Vokai 2 Опубликовано 16 Января 2016 Жалоба Поделиться Опубликовано 16 Января 2016 Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками А вы её к госреестру подцепите каким образом Гос.реестр в PDF формате, был бы xls другое дело Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
evGeniy 1 039 Опубликовано 16 Января 2016 Жалоба Поделиться Опубликовано 16 Января 2016 каким образом Гос.реестр в PDF формате, был бы xls другое дело Я в свое время находил в инете. Можно попросить и кого "Метрконтроль" есть из SQL в Ексель выгрузить, там дело 10 минут Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 17 Января 2016 Автор Жалоба Поделиться Опубликовано 17 Января 2016 (изменено) Огромное СПАСИБО!!! Юрий Владимирович за супер свидетельство. Мы уже всем отделом оценили. Жалко только что базу СИ приходится забивать руками Есть вариант скопировать данные из локального справочника "Метроконтроль" предварительно включив нужные фильтры... и после вставить в лист но уж средства поверки сам бог велел руками... Изменено 17 Января 2016 пользователем Погрешностер Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
GAN_86 0 Опубликовано 28 Января 2016 Жалоба Поделиться Опубликовано 28 Января 2016 Есть возможность изменить шрифт ? Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 29 Января 2016 Автор Жалоба Поделиться Опубликовано 29 Января 2016 (изменено) Можно конкретней, что не устраивает? Применяемый шрифт ebrima наиболее оптимальный, и если заметили то у него большое межстрочное расстояние, вот только из за этого он был выбран, так как он накладывается на нарисованные линии и вставленный под линии текст, но в принципе можете поэкспериментировать, подвигать линии, и посмотреть что получится, ну и расскажете и покажите всем нам... Очень жду дополнений и каких то др. решений. Главное не удаляйте и не добавляйте строки, все собьется. снимаете защиту с листа и вперед... для просмотра кода программы: правой кнопкой мыши по ярлычку листа и там выбрать "Исходный текст" так вы попадете в редактор VBA... Сейчас, пока сложно со свободным временем на доработку и усовершенствование, но в будущем обязательно, что ни будь еще добавлю Изменено 29 Января 2016 пользователем Погрешностер Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
АлесяМурейко 1 Опубликовано 7 Мая 2016 Жалоба Поделиться Опубликовано 7 Мая 2016 Большое спасибо, как раз в этом нуждалась) Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 7 Ноября 2016 Автор Жалоба Поделиться Опубликовано 7 Ноября 2016 (изменено) Есть измерения к программе 1 теперь автоматически подчеркивает в Свидетельстве: периодическая или первичная 2 дата поверки, внизу бланка теперь корректно отображается (длинный формат) по работе и настройке данной программы под Ваш принтер в начале поста http://metrologu.ru/index.php?showtopic=20359&view=findpost&p=147579 прочитайте все внимательно, и не забудьте про установку шрифта дальше планирую воткнуть бланк Извещения... А4_СУПЕР_СВИДЕТЕЛЬСТВО_97.zip Изменено 7 Ноября 2016 пользователем Погрешностер Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Rusel_spb 0 Опубликовано 14 Мая 2019 Жалоба Поделиться Опубликовано 14 Мая 2019 Большое спасибо за программу. Скажите пожалуйста, а она только а А4 печатает? Нет возможности оформлять свидетельства форматом А5? Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Погрешностер 52 Опубликовано 14 Мая 2019 Автор Жалоба Поделиться Опубликовано 14 Мая 2019 (изменено) Измените масштаб на 50 %, посмотрите может пойдет сейчас уже давно другая программа более расширенная, делает все бланки для СИ, РЭ, извещение, калибровку, обр. сторону для каждого, протокол (не расчетную часть), сохраняет все данные по выписанным бланкам и уже со всеми новыми нововведениями по 1815 от февраля Изменено 14 Мая 2019 пользователем Погрешностер Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Mikl91 2 Опубликовано 1 Июня 2019 Жалоба Поделиться Опубликовано 1 Июня 2019 А вопрос совместного доступа к файлу не подскажете как решили? Программа замечательная, но если у каждого своя копия обновлять неудобно. Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
balirkar 0 Опубликовано 14 Июня 2019 Жалоба Поделиться Опубликовано 14 Июня 2019 В 15.05.2019 в 02:54, Погрешностер сказал: Измените масштаб на 50 %, посмотрите может пойдет сейчас уже давно другая программа более расширенная, делает все бланки для СИ, РЭ, извещение, калибровку, обр. сторону для каждого, протокол (не расчетную часть), сохраняет все данные по выписанным бланкам и уже со всеми новыми нововведениями по 1815 от февраля просим в студию Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
32 сообщения в этой теме
Рекомендуемые сообщения
Присоединиться к обсуждению
Вы можете ответить сейчас, а зарегистрироваться позже. Если у вас уже есть аккаунт, войдите, чтобы ответить от своего имени.