ВидСубконто = "Торговый офис";
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
//Ит.ИспользоватьПланСчетов(ВыбранныйПланСчетов());
Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения, ВидСубконто, 1);
Ит.ВыполнитьЗапрос(НачДата, КонДата, "41.2",,, 1,, "С");
Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения);
Пока Ит.ПолучитьСубконто(ВидыСубконто.МестаХранения) = 1 Цикл
Сообщить(Ит.СНД());
КонецЦикла;