Как в УТ 3 добавить создание первичного документа при свертке базы?

[Odineski]

Как сделать так чтобы обработка свертка информационной базы в Управлении Торговли 3 заполняла в поле Расчетный документа первичный документ? Или подскажи как переписать эту обработку чтобы создавала первичный документ если его нет

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

В 1С:Управление Торговлей 3 (УТ 11/УТ 10.3) при свертке базы (например, при вводе начальных остатков или переносе данных) поле «Расчетный документ» в табличной части «Расчеты с партнерами» часто должно ссылаться на «Первичный документ» — документ, который отражает первичные данные (например, реализацию, оплату и т.п.).

Чтобы автоматизировать заполнение этого поля и создавать «Первичный документ», если его нет, нужно доработать обработку свертки следующим образом:

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

2. Создание первичного документа при отсутствии
Если первичный документ не найден, создавайте новый документ нужного типа (например, «Реализация товаров и услуг», «Оплата поставщику» и т.п.) с заполнением обязательных реквизитов и табличных частей.

3. Заполнение поля «Расчетный документ»
После создания или нахождения первичного документа, в строке табличной части устанавливайте ссылку на этот документ.

—

### Примерный алгоритм и код (BSL):

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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

// Процедура обработки строки табличной части Процедура ОбработатьСтроку(СтрокаТЧ) // Попытка найти существующий первичный документ ПервичныйДокумент = НайтиПервичныйДокумент(СтрокаТЧ); Если ПервичныйДокумент = Неопределено Тогда // Создаем новый первичный документ ПервичныйДокумент = СоздатьПервичныйДокумент(СтрокаТЧ); ПервичныйДокумент.Записать(); КонецЕсли; // Заполняем поле РасчетныйДокумент СтрокаТЧ.РасчетныйДокумент = ПервичныйДокумент.Ссылка; КонецПроцедуры   // Функция поиска первичного документа по параметрам строки Функция НайтиПервичныйДокумент(СтрокаТЧ) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 |   ПервичныеДокументы.Ссылка |ИЗ |   Документ.РеализацияТоваровУслуг КАК ПервичныеДокументы |ГДЕ |   ПервичныеДокументы.Контрагент = &Контрагент |   И ПервичныеДокументы.Дата = &Дата |   И ПервичныеДокументы.СуммаДокумента = &Сумма"; Запрос.УстановитьПараметр("Контрагент", СтрокаТЧ.Контрагент); Запрос.УстановитьПараметр("Дата", СтрокаТЧ.ДатаРасчетногоДокумента); Запрос.УстановитьПараметр("Сумма", СтрокаТЧ.Сумма); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Если Выборка.Следующий() Тогда Возврат Выборка.Ссылка; Иначе Возврат Неопределено; КонецЕсли; КонецФункции   // Функция создания первичного документа Функция СоздатьПервичныйДокумент(СтрокаТЧ) Док = Документы.РеализацияТоваровУслуг.СоздатьДокумент(); Док.Дата = СтрокаТЧ.ДатаРасчетногоДокумента; Док.Контрагент = СтрокаТЧ.Контрагент; Док.Организация = СтрокаТЧ.Организация; // Заполнить другие обязательные реквизиты // Заполнить табличную часть товарами или услугами, если нужно // Например: // НоваяСтрока = Док.Товары.Добавить(); // НоваяСтрока.Номенклатура = ...; // НоваяСтрока.Количество = ...; // НоваяСтрока.Цена = ...; Возврат Док; КонецФункции

—

### Важные моменты:

— Тип первичного документа зависит от типа операции (реализация, оплата, возврат и т.п.). Нужно предусмотреть логику выбора типа документа.
— При создании первичного документа обязательно заполните все обязательные реквизиты, иначе запись не пройдет.
— Если в вашей обработке свертки используется табличный документ или другой объект, адаптируйте код под структуру данных.
— Для ускорения поиска первичных документов можно использовать индексы или дополнительные критерии.
— Если первичный документ должен содержать ссылку на старую систему (например, номер и дата из старой базы), заполните соответствующие реквизиты.

—

### Рекомендую посмотреть здесь:

— Пример автоматического создания первичных документов при вводе начальных остатков в 1С:ERP (логика схожа)
https://infostart.ru/1c/articles/1170920/

— Как сделать ввод на основании с проверкой существования документа
https://infostart.ru/1c/articles/278216/

— Пример заполнения и проведения документов программно
https://infostart.ru/1c/articles/185636/

—

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

[Автор]

Сообщения