БухИт.ВыбратьСчета();
Пока БухИт.ПолучитьСчет()=1 Цикл
БухИт.ВыбратьСубконто(1);
Пока БухИт.ПолучитьСубконто(1) = 1 Цикл
БухИт.ВыбратьПериоды(1);
Пока БухИт.ПолучитьПериод() = 1 Цикл
Сообщить(" "+БухИт.Счет+" "+БухИт.Субконто(1)+" "+БухИт.КО(1)+" "+БухИт.Операция.Документ);
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецПроцедуры