kostya77 @ Сегодня, 10:49
,
У меня оборотка для 15 счета - субконто "склады" и "инвестиции":
БухИтоги.ВыбратьСубконто(1,,,,,"код");
Пока БухИтоги.ПолучитьСубконто(1) = 1 Цикл
БухИтоги.ВыбратьСубконто(2,,,,,"код");
Пока БухИтоги.ПолучитьСубконто(2) = 1 Цикл
Если (БухИтоги.Субконто(2).ЭтоГруппа() = 1) Тогда
Иначе
Инв = БухИтоги.Субконто(2).Наименование;
ЕдИзм = БухИтоги.Субконто(2).БазЕдиница; //ЕдиницаПоУмолчанию;
ПечКолво = БухИтоги.СКД(3);
Сальдо = БухИтоги.СКД();
Таб.ВывестиСекцию("Инвестиция");
Если ДвижениеДок = 1 Тогда
БухИтоги.ВыбратьСчета();
Пока БухИтоги.ПолучитьСчет()=1 Цикл
БухИтоги.ВыбратьПериоды();
Пока БухИтоги.ПолучитьПериод() = 1 Цикл
Если ((БухИтоги.ДО(1)<>0) ИЛИ (БухИтоги.КО(1)<>0)) Тогда
Док = БухИтоги.Операция.Документ;
Сумма = Формат(БухИтоги.Операция.Сумма,"Ч12.2");
Таб.ВывестиСекцию("Док");
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Сообщение отредактировал denis84 - 22.07.24, 11:06