Как напечатать конверты из 1С:Моя Бухгалтерия 8 (РБ) с контрагентами?

[Odineski]

в 1С Моя бухгалтерия 8 Хьюмен (РБ) как из справочника Контрагентов сделать обработку для печати конвертов

[Odin — Одинэсник]

В «1С:Моя бухгалтерия 8 для Беларуси» печать конвертов обычно удобнее сделать отдельной внешней обработкой. Обработка должна:

1. Получать выбранных контрагентов.
2. Брать из карточки контрагента наименование и почтовый адрес.
3. Подставлять данные в макет конверта.
4. Формировать табличный документ.
5. Отправлять его на печать.

Сначала проверьте, нет ли уже готовой команды:

Справочники → Контрагенты → выделить контрагента → Еще

Ищите команды:

— «Печать конвертов»;
— «Почтовые конверты»;
— «Печать адресов»;
— «Печать».

Если такой команды нет, можно сделать внешнюю обработку.

## 1. Создание внешней обработки

В конфигураторе создайте:

Файл → Новый → Внешняя обработка

Например, назовите ее:

1С (Код)

ПечатьКонвертов

1	ПечатьКонвертов

В обработке создайте управляемую форму и добавьте реквизиты формы:

| Реквизит | Тип |
|—|—|
| СписокКонтрагентов | ТаблицаЗначений |
| ТабличныйДокумент | ТабличныйДокумент |

В таблице СписокКонтрагентов создайте колонки:

1С (Код)

Ссылка Наименование Адрес Индекс Город Улица Дом Корпус Квартира

1 2 3 4 5 6 7 8 9

Ссылка Наименование Адрес Индекс Город Улица Дом Корпус Квартира

Минимально достаточно колонок:

1С (Код)

Ссылка Наименование Адрес

1 2 3

Ссылка Наименование Адрес

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

## 2. Создание макета конверта

В обработке создайте макет типа Табличный документ с именем:

1С (Код)

Конверт

1

Конверт

В макете создайте область с именем:

1С (Код)

Конверт

1

Конверт

Разместите в области параметры:

1С (Код)

Получатель Адрес Индекс Город

1 2 3 4

Получатель Адрес Индекс Город

Например, макет можно оформить так:

1С (Код)

Индекс Получатель Адрес Город

1 2 3 4 5 6

Индекс                            Получатель                            Адрес                          Город

Для стандартного конверта обычно используется область примерно размером 220 × 110 мм. Точные размеры зависят от типа конверта и принтера.

В параметрах табличного документа можно установить:

— ориентацию страницы;
— размер бумаги;
— поля;
— масштаб;
— отсутствие колонтитулов;
— разрыв страницы после каждого конверта.

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

## 3. Процедура формирования печатного документа

В модуль формы обработки можно добавить процедуру:

1С (Код)

&НаКлиенте Процедура ПечатьКонвертов(Команда) Если СписокКонтрагентов.Количество() = 0 Тогда Сообщить("Не выбраны контрагенты для печати."); Возврат; КонецЕсли; ТабДок = СформироватьКонвертыНаСервере(СписокКонтрагентов); Если ТабДок = Неопределено Тогда Возврат; КонецЕсли; ТабДок.Показать("Печать конвертов"); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

&НаКлиенте Процедура ПечатьКонвертов(Команда)       Если СписокКонтрагентов.Количество() = 0 Тогда         Сообщить("Не выбраны контрагенты для печати.");         Возврат;     КонецЕсли;       ТабДок = СформироватьКонвертыНаСервере(СписокКонтрагентов);       Если ТабДок = Неопределено Тогда         Возврат;     КонецЕсли;       ТабДок.Показать("Печать конвертов");   КонецПроцедуры

Серверная функция:

1С (Код)

&НаСервере Функция СформироватьКонвертыНаСервере(СписокКонтрагентов) Экспорт ТабДок = Новый ТабличныйДокумент; Макет = ПолучитьМакет("Конверт"); Для каждого СтрокаКонтрагент Из СписокКонтрагентов Цикл Если Не ЗначениеЗаполнено(СтрокаКонтрагент.Ссылка) Тогда Продолжить; КонецЕсли; Область = Макет.ПолучитьОбласть("Конверт"); Область.Параметры.Получатель = СтрокаКонтрагент.Наименование; Область.Параметры.Адрес = СтрокаКонтрагент.Адрес; Область.Параметры.Индекс = СтрокаКонтрагент.Индекс; Область.Параметры.Город = СтрокаКонтрагент.Город; ТабДок.Вывести(Область); КонецЦикла; ТабДок.АвтоМасштаб = Истина; ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет; Возврат ТабДок; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

&НаСервере Функция СформироватьКонвертыНаСервере(СписокКонтрагентов) Экспорт       ТабДок = Новый ТабличныйДокумент;     Макет = ПолучитьМакет("Конверт");       Для каждого СтрокаКонтрагент Из СписокКонтрагентов Цикл           Если Не ЗначениеЗаполнено(СтрокаКонтрагент.Ссылка) Тогда             Продолжить;         КонецЕсли;           Область = Макет.ПолучитьОбласть("Конверт");           Область.Параметры.Получатель = СтрокаКонтрагент.Наименование;         Область.Параметры.Адрес = СтрокаКонтрагент.Адрес;         Область.Параметры.Индекс = СтрокаКонтрагент.Индекс;         Область.Параметры.Город = СтрокаКонтрагент.Город;           ТабДок.Вывести(Область);       КонецЦикла;       ТабДок.АвтоМасштаб = Истина;     ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;       Возврат ТабДок;   КонецФункции

Если в макете используется только один параметр адреса, можно упростить:

1С (Код)

Область.Параметры.Получатель = СтрокаКонтрагент.Наименование; Область.Параметры.Адрес = СтрокаКонтрагент.Адрес;

1 2	Область.Параметры.Получатель = СтрокаКонтрагент.Наименование; Область.Параметры.Адрес = СтрокаКонтрагент.Адрес;

## 4. Заполнение списка контрагентов

Самый простой вариант, подходящий для первой версии обработки, это добавить в форму обработки таблицу СписокКонтрагентов и кнопку Добавить контрагента.

Процедура кнопки:

1С (Код)

&НаКлиенте Процедура ДобавитьКонтрагента(Команда) НоваяСтрока = СписокКонтрагентов.Добавить(); НоваяСтрока.Ссылка = Неопределено; НоваяСтрока.Наименование = ""; НоваяСтрока.Адрес = ""; НоваяСтрока.Индекс = ""; НоваяСтрока.Город = ""; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11

&НаКлиенте Процедура ДобавитьКонтрагента(Команда)       НоваяСтрока = СписокКонтрагентов.Добавить();     НоваяСтрока.Ссылка = Неопределено;     НоваяСтрока.Наименование = "";     НоваяСтрока.Адрес = "";     НоваяСтрока.Индекс = "";     НоваяСтрока.Город = "";   КонецПроцедуры

Лучше, чтобы колонка Ссылка имела тип:

1С (Код)

СправочникСсылка.Контрагенты

1	СправочникСсылка.Контрагенты

При выборе контрагента можно автоматически заполнять его наименование и адрес.

Например:

1С (Код)

&НаКлиенте Процедура СписокКонтрагентовСсылкаПриИзменении(Элемент) ТекущаяСтрока = Элементы.СписокКонтрагентов.ТекущиеДанные; Если ТекущаяСтрока = Неопределено Тогда Возврат; КонецЕсли; Если Не ЗначениеЗаполнено(ТекущаяСтрока.Ссылка) Тогда Возврат; КонецЕсли; ЗаполнитьДанныеКонтрагентаНаСервере(ТекущаяСтрока.Ссылка); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

&НаКлиенте Процедура СписокКонтрагентовСсылкаПриИзменении(Элемент)       ТекущаяСтрока = Элементы.СписокКонтрагентов.ТекущиеДанные;       Если ТекущаяСтрока = Неопределено Тогда         Возврат;     КонецЕсли;       Если Не ЗначениеЗаполнено(ТекущаяСтрока.Ссылка) Тогда         Возврат;     КонецЕсли;       ЗаполнитьДанныеКонтрагентаНаСервере(ТекущаяСтрока.Ссылка);   КонецПроцедуры

Но для разных конфигураций реквизиты адреса могут называться по-разному, поэтому процедуру заполнения нужно адаптировать под конкретную базу.

## 5. Получение адреса из карточки контрагента

Это самый важный момент. В разных версиях «Моя бухгалтерия 8 для Беларуси» адрес может храниться:

— в реквизите Адрес;
— в реквизите ЮридическийАдрес;
— в реквизите ПочтовыйАдрес;
— на вкладке «Адреса и телефоны»;
— в контактной информации;
— в регистре сведений контактной информации.

Нельзя заранее гарантировать, что в конфигурации есть реквизит с именем Адрес.

Если адрес хранится непосредственно в реквизите справочника, код будет примерно таким:

1С (Код)

&НаСервере Процедура ЗаполнитьДанныеКонтрагентаНаСервере(СсылкаКонтрагента) Экспорт ТекущаяСтрока = Элементы.СписокКонтрагентов.ТекущиеДанные; Контрагент = СсылкаКонтрагента.ПолучитьОбъект(); ТекущаяСтрока.Наименование = Контрагент.Наименование; // Названия реквизитов необходимо проверить в вашей конфигурации ТекущаяСтрока.Адрес = Контрагент.ПочтовыйАдрес; ТекущаяСтрока.Индекс = Контрагент.ПочтовыйИндекс; ТекущаяСтрока.Город = Контрагент.Город; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

&НаСервере Процедура ЗаполнитьДанныеКонтрагентаНаСервере(СсылкаКонтрагента) Экспорт       ТекущаяСтрока = Элементы.СписокКонтрагентов.ТекущиеДанные;       Контрагент = СсылкаКонтрагента.ПолучитьОбъект();       ТекущаяСтрока.Наименование = Контрагент.Наименование;       // Названия реквизитов необходимо проверить в вашей конфигурации     ТекущаяСтрока.Адрес = Контрагент.ПочтовыйАдрес;     ТекущаяСтрока.Индекс = Контрагент.ПочтовыйИндекс;     ТекущаяСтрока.Город = Контрагент.Город;   КонецПроцедуры

Если у вас адрес хранится одной строкой, достаточно:

1С (Код)

ТекущаяСтрока.Адрес = Контрагент.Адрес;

1	ТекущаяСтрока.Адрес = Контрагент.Адрес;

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

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

1. Открыть карточку контрагента.
2. В конфигураторе открыть объект Справочник → Контрагенты.
3. Проверить реквизиты объекта.
4. Посмотреть табличные части и контактную информацию.
5. Если в самом справочнике адреса нет, проверить регистр сведений, связанный с контактной информацией.

## 6. Более удобный вариант, выбор из списка контрагентов

Если необходимо запускать обработку прямо из списка контрагентов, лучше сделать не обычную внешнюю обработку, а расширение конфигурации.

В расширении:

1. Добавляется команда в форму списка справочника Контрагенты.
2. Команда появляется в меню Еще.
3. Из списка передаются выбранные ссылки.
4. Открывается форма обработки.
5. Обработка формирует печатный документ.

Логика команды будет такой:

1С (Код)

&НаКлиенте Процедура ПечатьКонвертов(Команда) МассивСсылок = Новый Массив; Для каждого Строка Из Элементы.Список.ВыделенныеСтроки Цикл МассивСсылок.Добавить(Строка.Ссылка); КонецЦикла; Если МассивСсылок.Количество() = 0 Тогда Сообщить("Выберите хотя бы одного контрагента."); Возврат; КонецЕсли; ПараметрыФормы = Новый Структура; ПараметрыФормы.Вставить("СписокСсылок", МассивСсылок); ОткрытьФорму( "ВнешняяОбработка.ПечатьКонвертов.Форма.Форма", ПараметрыФормы, ЭтаФорма ); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

&НаКлиенте Процедура ПечатьКонвертов(Команда)       МассивСсылок = Новый Массив;       Для каждого Строка Из Элементы.Список.ВыделенныеСтроки Цикл         МассивСсылок.Добавить(Строка.Ссылка);     КонецЦикла;       Если МассивСсылок.Количество() = 0 Тогда         Сообщить("Выберите хотя бы одного контрагента.");         Возврат;     КонецЕсли;       ПараметрыФормы = Новый Структура;     ПараметрыФормы.Вставить("СписокСсылок", МассивСсылок);       ОткрытьФорму(         "ВнешняяОбработка.ПечатьКонвертов.Форма.Форма",         ПараметрыФормы,         ЭтаФорма     );   КонецПроцедуры

Однако имя элемента списка и способ получения выделенных строк зависят от версии платформы и формы списка. В некоторых конфигурациях выбранные строки передаются в обработчик команды через стандартный параметр ПараметрКоманды.

## 7. Формирование списка из переданных ссылок

В форме обработки можно обработать ссылки при открытии:

1С (Код)

&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Если Параметры.Свойство("СписокСсылок") Тогда Для каждого СсылкаКонтрагента Из Параметры.СписокСсылок Цикл Контрагент = СсылкаКонтрагента.ПолучитьОбъект(); НоваяСтрока = СписокКонтрагентов.Добавить(); НоваяСтрока.Ссылка = СсылкаКонтрагента; НоваяСтрока.Наименование = Контрагент.Наименование; // Ниже указать фактические реквизиты вашей базы НоваяСтрока.Адрес = Контрагент.ПочтовыйАдрес; НоваяСтрока.Индекс = Контрагент.ПочтовыйИндекс; НоваяСтрока.Город = Контрагент.Город; КонецЦикла; КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)       Если Параметры.Свойство("СписокСсылок") Тогда           Для каждого СсылкаКонтрагента Из Параметры.СписокСсылок Цикл               Контрагент = СсылкаКонтрагента.ПолучитьОбъект();             НоваяСтрока = СписокКонтрагентов.Добавить();               НоваяСтрока.Ссылка = СсылкаКонтрагента;             НоваяСтрока.Наименование = Контрагент.Наименование;               // Ниже указать фактические реквизиты вашей базы             НоваяСтрока.Адрес = Контрагент.ПочтовыйАдрес;             НоваяСтрока.Индекс = Контрагент.ПочтовыйИндекс;             НоваяСтрока.Город = Контрагент.Город;           КонецЦикла;       КонецЕсли;   КонецПроцедуры

## 8. Если нужно печатать адрес организации

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

1С (Код)

ООО «Ромашка» 220030, Республика Беларусь, г. Минск, ул. Советская, д. 10, оф. 25

1 2 3

ООО «Ромашка» 220030, Республика Беларусь, г. Минск, ул. Советская, д. 10, оф. 25

Для физического лица:

1С (Код)

Иванов Иван Иванович 220100, г. Минск, ул. Лесная, д. 15, кв. 20

1 2 3

Иванов Иван Иванович 220100, г. Минск, ул. Лесная, д. 15, кв. 20

Лучше формировать отдельную строку адреса:

1С (Код)

Функция СформироватьАдрес(Индекс, Город, Улица, Дом, Корпус, Квартира) Экспорт Адрес = ""; Если ЗначениеЗаполнено(Индекс) Тогда Адрес = Адрес + Индекс; КонецЕсли; Если ЗначениеЗаполнено(Город) Тогда Если ЗначениеЗаполнено(Адрес) Тогда Адрес = Адрес + ", "; КонецЕсли; Адрес = Адрес + Город; КонецЕсли; Если ЗначениеЗаполнено(Улица) Тогда Если ЗначениеЗаполнено(Адрес) Тогда Адрес = Адрес + ", "; КонецЕсли; Адрес = Адрес + Улица; КонецЕсли; Если ЗначениеЗаполнено(Дом) Тогда Адрес = Адрес + ", д. " + Дом; КонецЕсли; Если ЗначениеЗаполнено(Корпус) Тогда Адрес = Адрес + ", корп. " + Корпус; КонецЕсли; Если ЗначениеЗаполнено(Квартира) Тогда Адрес = Адрес + ", кв. " + Квартира; КонецЕсли; Возврат Адрес; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Функция СформироватьАдрес(Индекс, Город, Улица, Дом, Корпус, Квартира) Экспорт       Адрес = "";       Если ЗначениеЗаполнено(Индекс) Тогда         Адрес = Адрес + Индекс;     КонецЕсли;       Если ЗначениеЗаполнено(Город) Тогда         Если ЗначениеЗаполнено(Адрес) Тогда             Адрес = Адрес + ", ";         КонецЕсли;           Адрес = Адрес + Город;     КонецЕсли;       Если ЗначениеЗаполнено(Улица) Тогда         Если ЗначениеЗаполнено(Адрес) Тогда             Адрес = Адрес + ", ";         КонецЕсли;           Адрес = Адрес + Улица;     КонецЕсли;       Если ЗначениеЗаполнено(Дом) Тогда         Адрес = Адрес + ", д. " + Дом;     КонецЕсли;       Если ЗначениеЗаполнено(Корпус) Тогда         Адрес = Адрес + ", корп. " + Корпус;     КонецЕсли;       Если ЗначениеЗаполнено(Квартира) Тогда         Адрес = Адрес + ", кв. " + Квартира;     КонецЕсли;       Возврат Адрес;   КонецФункции

## 9. Настройка печати

После формирования табличного документа:

1. Нажмите Печать.
2. В настройках принтера выберите фактический формат конверта.
3. Укажите ориентацию.
4. Отключите масштабирование «по размеру страницы».
5. Установите масштаб 100%.
6. Сначала напечатайте на обычном листе.
7. Наложите лист на конверт и проверьте расположение текста.
8. После проверки печатайте на конвертах.

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

Для вашей конфигурации наиболее надежный вариант такой:

— добавить команду «Печать конвертов» в список контрагентов через расширение;
— передавать в обработку выбранные ссылки;
— в обработке получать почтовый адрес;
— выводить адрес в макет табличного документа;
— печатать по одному конверту на страницу.

Названия реквизитов адреса в «Моя бухгалтерия 8 для Беларуси» зависят от релиза и доработок. Поэтому участок с Контрагент.ПочтовыйАдрес, Контрагент.ПочтовыйИндекс и Контрагент.Город нужно заменить на реальные реквизиты вашей базы.

[Автор]

Записи