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

Публикация № 94690

Разработка - Печать - Печатные формы документов

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

Обновление от 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". Брал в интернете (где точно уже не помню - на авторство и права не претендую! Автору шрифта - большое спасибо

58

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

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

См. также

Специальные предложения

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

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

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

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


А в целом +!
gutentag; +1 Ответить
3. den_vladimir 94 17.10.11 11:18 Сейчас в теме
(2) Спасибо за комментарии - поправлю!
На счет выбора Организации - у меня всегда указана фирма по-умолчанию, вот и не проверил!
4. gutentag 253 18.10.11 11:59 Сейчас в теме
ошибка в бух-2.0:
Не удалось сформировать внешнюю печатную форму!
Ошибка при вызове метода контекста (Прочитать): Файл не обнаружен 'C:\Documents and Settings\adm\Local Settings\Temp\temp.tmp'
5. den_vladimir 94 18.10.11 13:28 Сейчас в теме
тут либо доступа нет (хотя используется каталог временных файлов), либо антивирь сразу чистит, либо я хз! у меня 7-ка проф - работает, как часы!
6. galyausik1 19.10.11 10:46 Сейчас в теме
7. bazcom 23 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С на принтере.
Автору разработки и всем протянувшим руку помощи заранее благодарна!
10. den_vladimir 94 26.10.11 19:05 Сейчас в теме
(8) написал в личку
(9) Спасибо за отзыв!
Я постараюсь адаптировать обработку для наиболее частых и популярных конфигураций.
9. napan 12 26.10.11 12:46 Сейчас в теме
Великолепная обработка, еще бы марки вставлял ))))) Шутка....Понравилась, очень приятная, Автору огромное спасибо!!!
11. 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 94 31.10.11 18:58 Сейчас в теме
возможно антивирь блочит, может с правами траблы... у меня вын 7 проф с включенным UAC и файерволом. все работает!
13. kng67 01.11.11 08:34 Сейчас в теме
Автору большое спасибо!
В дополнительных параметрах обработки поставила ПроверятьШрифт=Нет. Печать пошла. Ура!!!
14. den_vladimir 94 01.11.11 08:41 Сейчас в теме
(13) Очень рад за Вас!
Принимаю пожелания!
15. olesechka 4 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 94 03.11.11 19:24 Сейчас в теме
Постараюсь найти способ как-то обойти эту ошибку - там у меня команда обнаружения системного каталога винды, и помещается она в этот temp файл. видимо системы у людей неадекватно реагируют на него...
А пока выложу просто файл шрифта. Я хотел, чтоб шрифт сам записывался в системе...
olesechka; +1 Ответить
18. Makushimo 154 11.11.11 08:55 Сейчас в теме
Вот это не понятно:
"Добавлена поддержка конфигурации Комплексная Автоматизация. Из-за того, что в конфигурации нет документа "Оказание услуг", этит тип документа был исключен из авторегистрации и теперь его надо добавить вручную. В противном случае в КА в хранилище не загружается сама обработка печати!"

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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