По теме из базы знаний
- Заполняем по шаблону (по умолчанию)
- Множественные дополнительные реквизиты в УТ 11.5 (11.4)
- Автоматизация импорта значений в отбор типовых отчетов конфигурации 1С: Бухгалтерия предприятия 3.0
- Обмен со SPOT2D
- Настраиваемые действия при изменении доп. реквизита в открытой форме и условия проверки при записи (2.1 и 3.0))
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Что бы ещё прописать, а то скачет во общим модулям и БСП, данных много и ощутимо долго всё выполняется.......
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВводОстатковВнеоборотныхАктивов2_4ОС.Ссылка КАК Ссылка,
| ВводОстатковВнеоборотныхАктивов2_4ОС.ДатаПринятияКУчетуБУ КАК ДатаПринятияКУчетуБУ,
| ВводОстатковВнеоборотныхАктивов2_4ОС.ДатаПринятияКУчетуНУ КАК ДатаПринятияКУчетуНУ
|ИЗ
| Документ.ВводОстатковВнеоборотныхАктивов2_4.ОС КАК ВводОстатковВнеоборотныхАктивов2_4ОС";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.ДатаПринятияКУчетуНУ='00010101' Тогда
ОбъектДокумент = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
ОбъектДокумент.ОбменДанными.Загрузка = Истина;
Для каждого ТЧ Из ОбъектДокумент.ОС Цикл
Если ТЧ.ДатаПринятияКУчетуНУ<>ТЧ.ДатаПринятияКУчетуБУ Тогда
ТЧ.ДатаПринятияКУчетуНУ=ТЧ.ДатаПринятияКУчетуБУ;
КонецЕсли;
КонецЦикла;
ОбъектДокумент.ОбменДанными.Загрузка = Истина;
ОбъектДокумент.Записать();
КонецЕсли;
КонецЦикла;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот