ПоДоговору=v7.CreateObject("БухгалтерскиеИтоги");
ПоДоговору.ИспользоватьСубконто(v7.EvalExpr("ВидыСубконто.Контрагенты"));
ПоДоговору.ИспользоватьСубконто(v7.EvalExpr("ВидыСубконто.Договоры"));
ПоДоговору.ВключатьСубсчета(1);
Если ПоДоговору.ВыполнитьЗапрос(ДатаПереноса2, ДатаПереноса2) = 0 Тогда
Предупреждение("Запрос не выполнен!");
КонецЕсли;
ПоДоговору.ВыбратьСчета();
Пока ПоДоговору.ПолучитьСчет() = 1 Цикл
Если ПоДоговору.Счет.ЭтоГруппа()=0 Тогда
Продолжить;
КонецЕсли;
ПоДоговору.ВыбратьСубконто(1);
Пока ПоДоговору.ПолучитьСубконто(1) = 1 Цикл // Контрагенты
ПоДоговору.ВыбратьСубконто(2);
Пока ПоДоговору.ПолучитьСубконто(2) = 1 Цикл //Договора
(2) И что? Перенесут, когда увидят... Тут некоммерческий ресурс, денег на модераторов 24/7 нет. Требовать оперативности в пределах минуты не стоит, а то можно и в бан улететь...