По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Конечно знаем. Сделать запрос к регистрам с отбором по регистратору, и обходить его.
Ну или коллекция Движения спасет отца русской демократии.
Ну или коллекция Движения спасет отца русской демократии.
док=Документы.ОперацияБух.НайтиПоНомеру("0А00-001376",Дата("20161231"));
Для Каждого Строка из док.Движения Цикл
Если Строка.СуммаНУКт-Строка.СуммаОперации<>0 Тогда
...
КонецЕсли;
КонецЦикла;Программе не знакомо это слово - "Движения"
Что делаю не так?
(3)
Как сделать правильно? Примерно так:
Что делаю не так?
Я думаю, не учитываете :
Сначала создаем и записываем документ «Операция». Сам документ не содержит никаких проводок. Затем создаем набор записей регистра бухгалтерии и записываем в него проводки, используя документ «Операция» в качестве регистратора.
Как сделать правильно? Примерно так:
Как вариант составил запрос.
Но при его выполнении отладка зависает. Какого?
Но при его выполнении отладка зависает. Какого?
Запрос.Текст =
"ВЫБРАТЬ
| ХозрасчетныйДвиженияССубконто.Регистратор КАК Регистратор,
| ХозрасчетныйДвиженияССубконто.СчетКт КАК СчетКт,
| ХозрасчетныйДвиженияССубконто.СубконтоКт1 КАК СубконтоКт1,
| ХозрасчетныйДвиженияССубконто.СубконтоКт2 КАК СубконтоКт2,
| ХозрасчетныйДвиженияССубконто.СубконтоКт3 КАК СубконтоКт3,
| ХозрасчетныйДвиженияССубконто.Организация КАК Организация,
| ХозрасчетныйДвиженияССубконто.Сумма КАК Сумма,
| ХозрасчетныйДвиженияССубконто.СуммаНУКт КАК СуммаНУКт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто КАК ХозрасчетныйДвиженияССубконто
|ГДЕ
| ХозрасчетныйДвиженияССубконто.Регистратор = &Регистратор
|СГРУППИРОВАТЬ ПО
| ХозрасчетныйДвиженияССубконто.НомерСтроки,
| ХозрасчетныйДвиженияССубконто.Регистратор,
| ХозрасчетныйДвиженияССубконто.СчетКт,
| ХозрасчетныйДвиженияССубконто.СубконтоКт1,
| ХозрасчетныйДвиженияССубконто.СубконтоКт2,
| ХозрасчетныйДвиженияССубконто.СубконтоКт3,
| ХозрасчетныйДвиженияССубконто.Организация,
| ХозрасчетныйДвиженияССубконто.Сумма,
| ХозрасчетныйДвиженияССубконто.СуммаНУКт"; Показать
(4) Можно и таким запросом, но:
1) отбор не в "ГДЕ", а в параметрах ВТ
2) очень желательно добавить отбор по периоду (если допустимо)
3) добавить отбор на "Активность = Истина"
4) группировку убрать или оставить только нужные поля
1) отбор не в "ГДЕ", а в параметрах ВТ
2) очень желательно добавить отбор по периоду (если допустимо)
3) добавить отбор на "Активность = Истина"
4) группировку убрать или оставить только нужные поля
(3) все не так:
док=Документы.ОперацияБух.НайтиПоНомеру("0А00-001376",Дата("20161231"));
ДокОбъект = Док.ПолучитьОбъект();
Движение = ДокОбъект.Движения["Хозрасчетный"];
Движение.Прочитать();
Для Каждого Строка из Движение Цикл
Если Строка.СуммаНУКт-Строка.СуммаОперации<>0 Тогда
...
КонецЕсли;
КонецЦикла; ПоказатьДокОперацияСсылка = ТекДок.Ссылка;
ДатаВДок = ТекДок.Дата;
Проводки = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Проводки.Отбор.Регистратор.Установить(ДокОперацияСсылка);
Проводки.Прочитать();
инд1=1;
Для Каждого пров из Проводки Цикл
Если пров.СчетКт.Код = "91.01" Тогда
БухгалтерскийУчет.УстановитьСубконто(пров.СчетКт, пров.СубконтоКт, "ПрочиеДоходыИРасходы", Объект.ДиР9101);
КонецЕсли;
Если пров.СчетДт.Код = "91.02" Тогда
БухгалтерскийУчет.УстановитьСубконто(пров.СчетДт, пров.СубконтоДт, "ПрочиеДоходыИРасходы", Объект.ДиР9102);
КонецЕсли;
инд1=инд1+1;
КонецЦикла;
//Проводки.ОбменДанными.Загрузка = ИСТИНА;
Проводки.Записать(ИСТИНА); ПоказатьГде Дир это субконто справочник доходы и расходы
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот