Как автоматизировать создание «Счетов на оплату» по документам реализации?

[Odineski]

в обработке по выбранным документам реализации создать документы счёт на оплату

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

Андрей, для создания документов «Счет на оплату» на основании выбранных документов реализации товаров и услуг в обработке, можно использовать следующий подход на языке 1С.

Основная идея:
— В форме обработки пользователь выбирает документы реализации (например, в табличной части).
— По выбранным документам создаются новые документы «Счет на оплату покупателю» с заполнением необходимых реквизитов и табличных частей.
— Документы записываются и, при необходимости, проводятся.

Пример кода для процедуры создания счетов на оплату по выбранным документам реализации:

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

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

Вызов процедуры из формы обработки:

1С (Код)

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

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

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

**Обратите внимание:**
— Названия объектов (документов, табличных частей, реквизитов) могут отличаться в вашей конфигурации, их нужно подставить свои.
— Если в вашей конфигурации «Счет на оплату» создается не как отдельный документ, а, например, как подчиненный или на основании документа реализации, то логику нужно адаптировать.
— Для массового создания документов рекомендуется использовать транзакции и обработку ошибок.
— Если нужно, чтобы документы сразу проводились, вызовите метод Провести() после записи, но учитывайте, что это может вызвать ошибки, если не заполнены обязательные реквизиты.

Рекомендую посмотреть здесь: https://infostart.ru/public/12680/ — там есть примеры автоматического создания документов на основании других.

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

[Автор]

Сообщения