Спр = СоздатьОбъект("Справочник.Контрагенты");
	Спр.ИспользоватьДату(РабочаяДата());
	Спр.ПорядокКодов();
	Спр.ВыбратьЭлементы();
	
	сч= 0 ;
	Пока Спр.ПолучитьЭлемент() =  1   Цикл
		Если (Спр.ПометкаУдаления() =  1 ) ИЛИ (Спр.ЭтоГруппа() =  1 ) Тогда
		    Продолжить;
		КонецЕсли;
		
		сч=сч+ 1 ;
		
		ИНН = Спр.ИНН;
		Телефоны = Спр.Телефоны;
		Наименование= Спр.Наименование;
		ПолнНаименование = Спр.ПолнНаименование;
		
//		Таб.ВывестиСекцию("Строка");

        Состояние(сч);
		
	КонецЦикла;