Пытаюсь свернуть проводки по дебету по счету 19.07. То есть создаю записи и переношу на кредит.
Правильно ли я делаю?:
Правильно ли я делаю?:
Запрос = Новый Запрос("ВЫБРАТЬ
| ХозрасчетныйОстатки.Организация,
| ХозрасчетныйОстатки.Счет КАК Счет,
| ХозрасчетныйОстатки.Субконто2 КАК Поступление,
| ХозрасчетныйОстатки.Субконто3 КАК Реализация,
| ХозрасчетныйОстатки.СуммаОстатокДт КАК СуммаОстатокДт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет В (&СписокСчетовБУ), , ) КАК ХозрасчетныйОстатки
|ГДЕ
| ХозрасчетныйОстатки.КоличествоОстатокДт = 0
| И ХозрасчетныйОстатки.СуммаОстатокДт <> 0");
Запрос.УстановитьПараметр("Период", КонецДня(ДатаКон));
Запрос.УстановитьПараметр("СписокСчетовБУ", СписокСчетовБУ);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
Если СписокСчетовБУ.Количество() > 0 И РезультатЗапроса.Количество() = 0 Тогда
Сообщить("Нет остатков на указанную дату");
Возврат;
КонецЕсли;
Если РезультатЗапроса <> Неопределено И РезультатЗапроса.Количество() > 0 Тогда
Пока РезультатЗапроса.Следующий() Цикл
НовоеДвижение = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Движение = НовоеДвижение.Добавить();
Движение.Период = РезультатЗапроса.Реализация.Дата;
Движение.Организация = РезультатЗапроса.организация;
Движение.СчетКт = РезультатЗапроса.Счет;
Движение.СубконтоКт.СфПолученные = РезультатЗапроса.Поступление;
Движение.СубконтоКт.ДокументыРеализации = РезультатЗапроса.Реализация;
Движение.Сумма = РезультатЗапроса.СуммаОстатокДт;
КонецЦикла;
КонецЕсли;
ПоказатьНайденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Есть или нет результат после выполнения запроса надо проверять методом "Пустой()" и делать выборку из результата после проверки.
Заменить на:
Убрать:
РезультатЗапроса = Запрос.Выполнить().Выбрать();
Заменить на:
РезультатЗапроса = Запрос.Выполнить();
Если Не РезультатЗапроса.Пустой() Тогда
Выборка = РезультатЗапроса.Выбрать();
КонецЕсли
Если Не РезультатЗапроса.Пустой() Тогда
Выборка = РезультатЗапроса.Выбрать();
КонецЕсли
Убрать:
Если РезультатЗапроса <> Неопределено И РезультатЗапроса.Количество() > 0 Тогда
(22) В итоге сделал так:
Но не могу передать значение СубконтоДт.ПрочиеДоходыИРасходы. Оно имеет тип ПланСчетовВидыСубконто.Хозрасчетный. Как это сделать ? Делать новый запрос и передавать этот счёт туда ?
СписокСчетовБУ = ТаблицаСчетовБУ.ВыгрузитьКолонку("СчетКТ");
Запрос = Новый Запрос("ВЫБРАТЬ
| ХозрасчетныйОстатки.Организация,
| ХозрасчетныйОстатки.Счет КАК Счет,
| ВЫРАЗИТЬ(ХозрасчетныйОстатки.Субконто1 КАК Справочник.Контрагенты) КАК Контрагент,
| ХозрасчетныйОстатки.Субконто2 КАК Поступление,
| ХозрасчетныйОстатки.Субконто3 КАК Реализация,
| ХозрасчетныйОстатки.СуммаОстатокДт КАК Сумма
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет В (&СписокСчетовБУ), , ) КАК ХозрасчетныйОстатки
|ГДЕ
| ХозрасчетныйОстатки.СуммаОстатокДт <> 0");
Запрос.УстановитьПараметр("Период", КонецДня(ДатаКон));
Запрос.УстановитьПараметр("СписокСчетовБУ", СписокСчетовБУ);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
Документ = Документы.ОперацияБух.СоздатьДокумент();
ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(Документ, глЗначениеПеременной("глТекущийПользователь"));
Пока РезультатЗапроса.Следующий() Цикл
ДвиженияДокумента = Документ.Движения.Хозрасчетный;
Движение = ДвиженияДокумента.Добавить();
Движение.СчетКт = ПланыСчетов.Хозрасчетный.ПрочиеРасходыНеОблагаемыеЕНВД;
Движение.СчетДт = РезультатЗапроса.Счет;
Движение.СубконтоКт.Контрагенты = РезультатЗапроса.Контрагент;
Движение.СубконтоКт.СФПолученные = РезультатЗапроса.Поступление;
Движение.СубконтоКт.ДокументыРеализации = РезультатЗапроса.Реализация;
Движение.Сумма = РезультатЗапроса.Сумма;
КонецЦикла;
Документ.ПолучитьФорму().Открыть();
ПоказатьНо не могу передать значение СубконтоДт.ПрочиеДоходыИРасходы. Оно имеет тип ПланСчетовВидыСубконто.Хозрасчетный. Как это сделать ? Делать новый запрос и передавать этот счёт туда ?
(24) Мне надо Движение.СубконтоДТ присвоить значение СубконтоДт.ПрочиеДоходыИРасходы. Но не пойму как. Если обращаться напрямую через ПланаВидовХарактеристик... То ругается мол СубконтоДт недоступно для записи.Я так полагаю что дело в типе. Но не пойму как сделать корректно.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот