Процедура Сформировать ()
Сч = СоздатьОбъект ("Счет.Основной");
Сч.ВыбратьСчета ();
Пока Сч.ПолучитьСчет () = 1 Цикл
Сообщить (Сч.Код);
КонецЦикла;
КонецПроцедуры