gifts2017

Печать почтовых конвертов из документов и справочников.

Опубликовал Владимир Денисов (den_vladimir) в раздел Печать - Печатные формы документов

Долго искал что-то подобное, но не нашел!
Печать почтовых конвертов из документов и справочников!

Обновление от 03.11.2011

Вложил в архив файл шрифта.

Часто возникающая ошибка:

Ошибка при проверке файла КаталогВременныхФайлов()+"temp.tmp"

Решение

Изменен алгоритм проверки файла шрифта - без записи временных файлов.

Обновление от 29.10.2011

Добавлена поддержка конфигурации Управление Торговлей ред.10.3

Обновление от 28.10.2011

Добавлена поддержка конфигурации Комплексная Автоматизация. Из-за того, что в конфигурации нет документа "Оказание услуг", этит тип документа был исключен из авторегистрации и теперь его надо добавить вручную. В противном случае в КА в хранилище не загружается сама обработка печати!

Исправлены найденные ошибки и недочеты.

В планах: включить поддержку УТ 10.3. Возможно включить УНФ и УТ 11.

Обновление от 25.10.2011

Форматирование адреса по рекомендованным правилам написания адреса на конвертах.

Увеличил размер шрифта написания адресов и корреспондентов.

Исправление мелких ошибок и недочетов.

Обновление от 17.10.2011

Исправлены выявленные ошибки

Выпуск от 16.10.2011

Печатная форма предназначены для печати конвертов прямо из документов БП.2.0

Поддерживаемые документы и справочники:

  • Реализация товаров и услуг
  • Поступление товаров и услуг
  • Оказание услуг (в конфигурации Бухгалтерия предприятия 2.0 документ необходимо добавить вручную из-зи особенности с интеграцией с другими конфигурацими)
  • Справочник: Контрагенты
  • Справочник: Физические лица

В обработке есть бинарный макет с файлом штрифта Индекса как на обычных конвертах, при первом запуске обрабокта делает проверку наличия этого шрифта в системном каталоге шрифтов. Если файл не находится - в каталог шрифтов копируется сам шрифт. На системах Windows Vista/7 или с органиченным доступов - необходимо в первый раз запустить под полными правами системы!

Обработка уже имеет перечень самых распространенных размеров конвертов

 

  • Конверт DL (11см х 22см)
  • Конверт C5 (16,2см х 22,9см)
  • Конверт B6 (17,6см х 25см)
  • Конверт Monarch (9,84 х 19,5см)
  • Конверт N10 (10,48см х 24,13см)

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

Так же можно использовать дополнительные параметры печатной формы

Допустимые имена параметром  и значени

  • ПроверятьШрифт (Булево) Да - будет каждый раз проверять наличие шрифта, Нет - работает без проверки
  • ИмяМакета (Строка) - переменная в которой будет содержаться имя макета коверта чтобы каждый раз не выбирать
    • Возможные значения
      • КонвертDL
      • КонвертC5
      • КонвертB6
      • КонвертMonarch
      • КонвертN10

Так же можно настраивать отборы и соответствующие макеты стандартными средствами конфигурации!

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

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

Для контрагентов -  фактический адрес

Для физических лиц - адрес информирования.

 

Если будите сохранять бинарный макет шрифта вручную - имя шрифта "ZIPcode.ttf". Брал в интернете (где точно уже не помню - на авторство и права не претендую! Автору шрифта - большое спасибо

Скачать файлы

Наименование Файл Версия Размер
Печатная форма для печати почтовых конвертов 503
.zip 21,05Kb
03.11.11
503
.zip 21,05Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Георгий Перминов (Georgsius) 16.10.11 22:34
Спасибо, буду теперь встраивать в свою конфигурацию.
2. Катерина Шах (e-katerina) 17.10.11 09:16
Открыла обработку, как внешний файл.

Выбрала контрагента из справочника -> выполнить и появляется вот такая ошибка:
{ВнешняяОбработка.ПечатьКонверта.МодульОбъекта(7)}: Значение не является значением объектного типа (Свойство)
Если ДополнительныеПараметры.Свойство("ПроверятьШрифт") Тогда
Хорошо бы добавить проверку:
Если ТипЗнч(ДополнительныеПараметры) = Тип("Структура") Тогда
        Если ДополнительныеПараметры.Свойство("ПроверятьШрифт") Тогда

----------------
Функция ВыбратьОрганизацию() опечатка :)
ВыборанныйЭлемент = СписокОрганизаций.ВыборатьЭлемент("Выберете организацию-отправителя");
----------------
Процедура КнопкаВыполнитьНажатие(Кнопка)
Печать().Показать();

Не корректно, если функция Печать() возвращает Неопределено, лучше бы как-то так:
	ТабДок = Печать();
	Если ТабДок<>Неопределено Тогда
		ТабДок.Показать();
	КонецЕсли;
...Показать Скрыть


А в целом +!
3. Владимир Денисов (den_vladimir) 17.10.11 11:18
(2) Спасибо за комментарии - поправлю!
На счет выбора Организации - у меня всегда указана фирма по-умолчанию, вот и не проверил!
4. Igоr Sаulеviсh (gutentag) 18.10.11 11:59
ошибка в бух-2.0:
Не удалось сформировать внешнюю печатную форму!
Ошибка при вызове метода контекста (Прочитать): Файл не обнаружен 'C:\Documents and Settings\adm\Local Settings\Temp\temp.tmp'
5. Владимир Денисов (den_vladimir) 18.10.11 13:28
тут либо доступа нет (хотя используется каталог временных файлов), либо антивирь сразу чистит, либо я хз! у меня 7-ка проф - работает, как часы!
6. Галя (galyausik1) 19.10.11 10:46
7. Jon bazcom (bazcom) 25.10.11 11:22
Спасибо за публикацию. Уже пару раз пригодилась!
8. Наталия Киселева (kng67) 26.10.11 10:50
Помогите, пожалуйста, разобраться.
1С 8.2 Комплексная автоматизация.

Добавила обработку, как дополнительную внешнюю печатную форму.

Установила ч/з Изменить параметры: ПроверитьШрифт=Нет, ИмяМакета=КонвертDL

Выдает ошибку: Поле объекта не обнаружено (ОСНОВНАЯОРГАНИЗАЦИЯ)

Если: ПроверитьШрифт=Да, то выдает другую ошибку: Ошибка при вызове метода контекста (Прочитать): Файл не обнаружен 'D:\Documents and Settings\admin\Local Settings\Temp\temp.tmp'

Такая обработка очень нужна! Руководитель добивается, чтобы секретарь не подписывала конверты ручкой, а печатала из 1С на принтере.
Автору разработки и всем протянувшим руку помощи заранее благодарна!
9. napan Noname (napan) 26.10.11 12:46
Великолепная обработка, еще бы марки вставлял ))))) Шутка....Понравилась, очень приятная, Автору огромное спасибо!!!
10. Владимир Денисов (den_vladimir) 26.10.11 19:05
(8) написал в личку
(9) Спасибо за отзыв!
Я постараюсь адаптировать обработку для наиболее частых и популярных конфигураций.
11. Natalia Mankina (NMankina) 28.10.11 15:32
Запускаю обработку, и выдает ошибку:
{ВнешняяОбработка.ПечатьКонверта.МодульОбъекта(25)}: Ошибка при вызове метода контекста (Прочитать)
Текст.Прочитать(КаталогВременныхФайлов()+"temp.tmp");
по причине:

по причине:
Файл не обнаружен 'C:\Documents and Settings\...\Local Settings\Temp\1\temp.tmp'

в чем причина? Может, что не так делаю?
работаем в терминальном режиме, конфигурация Бухгалтерия предприятия, редакция 2.0 (2.0.27.10)
12. Владимир Денисов (den_vladimir) 31.10.11 18:58
возможно антивирь блочит, может с правами траблы... у меня вын 7 проф с включенным UAC и файерволом. все работает!
13. Наталия Киселева (kng67) 01.11.11 08:34
Автору большое спасибо!
В дополнительных параметрах обработки поставила ПроверятьШрифт=Нет. Печать пошла. Ура!!!
14. Владимир Денисов (den_vladimir) 01.11.11 08:41
(13) Очень рад за Вас!
Принимаю пожелания!
15. Олеся Пронина (olesechka) 03.11.11 13:44
Ошибка при вызове метода контекста (Прочитать): Файл не обнаружен 'C:\Documents and Settings\...\Local Settings\Temp\temp.tmp


Что делать?
У меня 1С:Предприятие 8.2 (8.2.14.532)
Помогите пожалуйста...
16. Наталия Киселева (kng67) 03.11.11 14:25
(15)Была таже ошибка. В дополнительных параметрах обработки поставила ПроверятьШрифт=Нет. Ошибка исчезла.
17. Владимир Денисов (den_vladimir) 03.11.11 19:24
Постараюсь найти способ как-то обойти эту ошибку - там у меня команда обнаружения системного каталога винды, и помещается она в этот temp файл. видимо системы у людей неадекватно реагируют на него...
А пока выложу просто файл шрифта. Я хотел, чтоб шрифт сам записывался в системе...
olesechka; +1 Ответить
18. Максим Кузнецов (Makushimo) 11.11.11 08:55
Вот это не понятно:
"Добавлена поддержка конфигурации Комплексная Автоматизация. Из-за того, что в конфигурации нет документа "Оказание услуг", этит тип документа был исключен из авторегистрации и теперь его надо добавить вручную. В противном случае в КА в хранилище не загружается сама обработка печати!"

что нужно добавить и куда "вручную" чтобы на КА8 не проверял документ ОказаниеУслуг.
пока что я просто закоментировал две строки кода в функции Печать где идет обращение к документу ОказаниеУслуг

Далее при печати из справочника Контрагенты пишет "У организации не указан индекс"
хотя в справочнике организхации у всех "Почтовый адрес" заполнен с индексами.

В общем работает только из документа "РеализацияТоваровИУслуг".

Идея на 5+. только подшлифовать чутка.

И подскажи как доделать чтобы на КА 8 работало?
19. Владимир Денисов (den_vladimir) 11.11.11 14:11
(18)
Makushimo пишет:
что нужно добавить и куда "вручную" чтобы на КА8 не проверял документ ОказаниеУслуг.
пока что я просто закоментировал две строки кода в функции Печать где идет обращение к документу ОказаниеУслуг

Ничего не надо комментировать - обработка и так работает нормально. Я проверял со всеми объектами конфигурации, с которыми заявлен функционал.
Makushimo пишет:
Далее при печати из справочника Контрагенты пишет "У организации не указан индекс"
хотя в справочнике организхации у всех "Почтовый адрес" заполнен с индексами.

Адрес должен быть забит не произвольным способом! В идеале из КЛАДРа! В обработке идет проверка поля индекса из РегистраСведений.КонтактнаяИнформация. Там Поле0, вроде, это индекс! Если у Вас адрес забит произвольным способом - обработка работать не будет! Если адрес заполнен по правилам - пришлите плз скрин окна адресной информации (важные моменты, если хотите, можно заштриховать) или скрин окна регистра сведений - я постараюсь разобраться с стуацией
20. Марина Меньшикова (МариМе) 25.11.11 07:44
У нас тоже при печати пишет "У организации не задан индекс" Заполнено все из КЛАДР. Может я обработку не верно подцепила? Какой порядок действий должен быть?
21. Владимир Денисов (den_vladimir) 25.11.11 08:24
22. Марина Меньшикова (МариМе) 25.11.11 12:38
УТ 10.3 релиз (10.3.12.3) платформа 8.2
23. Владимир Денисов (den_vladimir) 26.11.11 18:30
(22) Я тестировал на версии 10.3.13. там все нормально проходило!
24. Сергей Павлов (greyboy666) 08.12.11 13:41
К новому году надо клиентов поздравить. спасибо, супер обработка, очень помогло.
25. Алексей (АлексейН) 12.12.11 09:41
Обалденная обработка, отдам бухгалтеру, а то ей корреспонденцию (конверты) руками подписывает.
Огромное спасибо.
26. Максим Горбачев (Tangram) 22.12.11 14:09
Отличная обработка! Спасибо!
27. Igоr Sаulеviсh (gutentag) 31.12.11 00:03
В типовой бух-2.0 форма не выводит на печать поле "Населенный пункт" получателя.(у отправителя не проверял)
-----
Имхо лучше бы добавить возможность вывода адреса как он представлен/виден в поле "почтовый адрес" - пусть не корректно, зато всем понятно.Имхо.
28. Igоr Sаulеviсh (gutentag) 31.12.11 00:03
В остальном - Спасибо - вещь полезная ! :)
29. Дмитрий Титов (dtitov) 11.01.12 14:56
Большое спасибо за обработку. Очень помогла. С удовольствием плюсую!!!
30. Igоr Sаulеviсh (gutentag) 12.01.12 00:40
(0) Афтор-р-р у Вас ОшиПки В Обработк-е-е-е-е-е-е-е-е-е-е-е-е-е-е:
строку 381 заменить на
ПредставлениеАдресаОрганизации2 = СокрЛП(КонтактныеДанныеОраганизации.Поле4+

ПредставлениеАдресаОрганизации2 = СокрЛП(КонтактныеДанныеОраганизации.Поле5+", "+КонтактныеДанныеОраганизации.Поле4+

строку 425 заменить на
ПредставлениеАдресаКонтрагента2 = КонтактныеДанныеКонтрагента.Поле4+

ПредставлениеАдресаКонтрагента2 = КонтактныеДанныеКонтрагента.Поле5+", "+КонтактныеДанныеКонтрагента.Поле4+
// и тогда исчезнут ошибки указанные в посте (27) для Бух-2.0. Ну вовсяком случае у меня исправилось :)
31. Максим Сухов (MaxS) 16.01.12 11:28
Перед большим индексом должны быть черточки, т.е. код нужно поправить:
ОбластьМакетаКонверт.Параметры.ИндексПолучательБольшой = "-" + ИндексКому;

Макет КонвертC5 пришлось подогнать к состоянию, похожему на оригинал.

А в целом, спасибо за обработку. Пользуюсь ;)
Прикрепленные файлы:
КонвертC5.mxl
32. Максим Сухов (MaxS) 16.01.12 12:27
Даже не знаю где спросить. ;) 24 листа формата А4. В каком конверте отправить, чтобы не нарушить почтовые правила? И сколько нужно конвертов? Вес получился примерно 125 грамм.
33. Владимир Денисов (den_vladimir) 16.01.12 14:29
(31) MaxS, большое спасибо! Вставлю!
34. Владимир Денисов (den_vladimir) 16.01.12 14:30
35. Алексей (АлексейН) 16.01.12 15:38
Автору огромное СПАСИБО.
36. Cbr (Cbr) 29.03.12 19:37
Очень полезно, спасибо автору.
37. Татьяна Жданова ('njz) 09.04.12 14:42
Уважаемый автор!
У меня Предприятие 8.2. Бухгалтерия для Украины 1.2.
Ваща обработка не хочет работать , выдает такое сообщение:
{ВнешняяОбработка.ПечатьКонверта.МодульОбъекта(88)}: Значение не является значением объектного типа (Пустая)
Если Организация.Пустая() Тогда

Посоветуйте, пожалуйста, что можно сделать.
belousovata@yandex.ru

Заранее благодарна.
38. Владимир Денисов (den_vladimir) 09.04.12 17:22
(37) Мне необходим хотя бы образец конфигурации... под конфу для Украины я не затачивал...
39. nataon (nataon) 29.05.12 10:25
Плюс автору, полезная обработка
40. НАТАЛЬЯ НАТАЛЬЕВНА (SALE40) 14.11.12 16:09
Помогите пожалуйста УТ 10,3 выдает ошибку
{ВнешняяОбработка.ПечатьКонверта.МодульОбъекта(329)}: Ошибка при вызове метода контекста (Выполнить)
РезультатЗапроса = Запрос.Выполнить();
по причине:
по причине:
{(13, 23)}: Поле не найдено "КонтактнаяИнформация.ТипДома"
КонтактнаяИнформация.<<?>>ТипДома,
41. ivdic (ivdic) 15.02.13 17:05
Как насчет управляемых форм.. Оч. нужно для документооборота
42. Alexey K (kanalex) 25.04.13 11:53
Выдает ошибку в конфигурации Бух. КОРП 2.0
{ВнешняяОбработка.ПечатьКонверта.МодульОбъекта(88)}: Значение не является значением объектного типа (Пустая)
Если Организация.Пустая() Тогда
43. Михаил Сединкин (mms76) 10.09.13 11:21
Не выводится населенный пункт в поле Получатель, если в адресе город, то выводится нормально.
44. Михаил Сединкин (mms76) 10.09.13 11:31
Заменил код в модуле обработки:
ПредставлениеАдресаКонтрагента2 = ?(НЕ ПустаяСтрока(КонтактныеДанныеКонтрагента.Поле4),", "+КонтактныеДанныеКонтрагента.Поле4,"")+
									?(НЕ ПустаяСтрока(КонтактныеДанныеКонтрагента.Поле5),", "+КонтактныеДанныеКонтрагента.Поле5,"")+
									?(НЕ ПустаяСтрока(КонтактныеДанныеКонтрагента.Поле3),", "+КонтактныеДанныеКонтрагента.Поле3,"")+
									?(НЕ ПустаяСтрока(КонтактныеДанныеКонтрагента.Поле2),", "+КонтактныеДанныеКонтрагента.Поле2,"");
...Показать Скрыть
45. Артём Рогов (ben_art) 10.09.13 12:21
А для ЗУПа работать будет ?
46. Татьяна Вамзачем (tadem) 11.10.13 09:05
вобщем у меня в комлексной говорит что не видит индекса. Хотя точно занесен через КЛАДр. Что делать?
47. Павел Зайцев (pzu) 25.02.14 09:55
УТ 10.3
при формировании конверта ошибка
------------
{ВнешняяОбработка.ПечатьКонверта.МодульОбъекта(297)}: Поле объекта не обнаружено (ИндивидуальныйПредприниматель)
ОбъектКонтактнойИнформации = Объект.ИндивидуальныйПредприниматель;
-----
нет такого поля в справочнике на самом деле. Что имелось ввиду?
48. Макас (makas) 29.03.14 01:32
Обработка перестала работать в последних релизах БП 2.0(когда 1С сменила наименование адресных полей) - пишет, что
не указан адрес


49. Владимир Денисов (den_vladimir) 03.04.14 12:04
Уже давно не обновлял обработку. Постараюсь подправить под текущие реалии
50. Макас (makas) 09.04.14 01:22
(49) den_vladimir,
я исправил глюк в свей программе(из-за неправильного обмена БП-УТ контактная информация былв доступна/видима только под пляски бубна) Обработка заработала - ОК!
51. Юленька (s_uu) 26.05.14 22:40
Добрый день, для УТ-11 заработала??
52. tazmag tazmag (tazmag) 04.07.14 15:14
Прикольная штука, надо попробовать!
53. Марат (marat10) 22.02.15 13:09
под УТ 11.1 8.3 обработку нет ли в планах выпустить?
54. Владимир Денисов (den_vladimir) 22.02.15 13:24
В данный момент занимаюсь разработкой аналогичной обработки для БП 3.0, если большой разницы работы с адресами в БП и УТ нет - значит и под УТ будет =)
55. Максим Воржев (max_vorzhev) 27.03.15 12:26
Под УПП 1.3 пишет что обработка будет работать не корректно. Предлагает обратиться к разработчику)
56. Solo * (Solo1) 25.02.16 14:07
А можно сделать так, чтобы распознавался произвольным образом забитый адрес? Зачем нужно обязательно его из КЛАДРа забивать?
57. Владимир Денисов (den_vladimir) 27.02.16 10:11
(56) Solo1, произвольный адрес на то и произвольный, что его невозможно универсально распознать. Кто-то напишет его одним образом, другой другим...
58. Владимир Денисов (den_vladimir) 27.02.16 10:17
Давно не занимался этой обработкой. Спасибо всем, кто комментировал, находил ошибки и использует эту обработку.
Я обещал сделать аналогичную обработку для конфигураций на базе БСП, но пока никак не получается выкроить время. Надеюсь, что время все таки найду.
На счет изменения наименований реквизитов адресного регистра - постараюсь все таки исправить и выложить.
59. Владимир Денисов (den_vladimir) 29.09.16 08:38
Разработка остановилась на полпути.
В версии БП 3.0 (3.0.44.94) появилась своя обработка печати почтовых конвертов.
Я попробую дописать свою с каруселями и официантками, но не прошу ждать чудес - работы валом, а эта разработка ведется в свободное от работы время.