[необходимо зарегистрироваться для просмотра ссылки]
не моя. качнул где то. но иногда пользуюсь.
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбКонтрагент, 1, 0);
Ит.ИспользоватьПланСчетов(ПланыСчетов.Основной);
Ит.ВключатьСубсчета(0, 0);
Ит.Опции(0, 0);
Ит.ВыполнитьЗапрос(НачДата, КонДата, "361", "", , 3, 1);