Как вычислить сумму одновременно по обеим табличным частям

Форум Программирование Общие вопросы программирования (Dev)

1. sergqwert15 3 15.08.24 16:39 Сейчас в теме

Скажите пожалуйста, как можно вычислить сумму одновременно по обеим табличным частям и Товары и Услуги, а не только по одной ТЧ Товары или Услуги? Конфигурация бухгалтерия(управляемые формы).

Привожу код:

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

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Sashares 35 15.08.24 16:45 Сейчас в теме

Я понимаю, если бы код на другом языке приходилось писать. Но в твоем коде есть сумма по одной ТЧ и сумма по второй ТЧ. Какая сложность написать их рядом, в одной строке? Сложить их?

Циклы в коде не нужны.

3. ReDvAlL 15.08.24 17:17 Сейчас в теме

НаборЗаписей=РегистрыСведений.МаржаПоРеализациям.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Документ.Установить(Источник.Ссылка);

НоваяЗапись=НаборЗаписей.Добавить();
НоваяЗапись.Документ = Источник.Ссылка;
НоваяЗапись.Сумма = Источник.СуммаДокумента - Источник.СуммаСебестоимости - Источник.Товары.Итог("СуммаНДС") - Источник.Услуги.Итог("СуммаНДС");

НаборЗаписей.Записать();

4. user1880116 15.08.24 21:15 Сейчас в теме

Ну вот, сообщество и взяло очередную высоту "как сложить два числа".
Продвижение налицо.

Оставьте свое сообщение

E-mail: