(РЕШЕНО) Выгрузка в txt без групп и их содержимого

Собственно из темы уже многое понятно, хочу выгрузить в текстовый файл из справочника "Клиенты" всех клиентов по реквизиту Полное наименование, но не хочу трогать группы и содержимое в них, а так же помеченный на удаление. Помогите с кодом?

вот мой

Процедура Выполнить()
   Текст = СоздатьОбъект("Текст");
   СпрКлиенты = СоздатьОбъект("Справочник.Клиенты");
   СпрКлиенты.ВыбратьЭлементы();
   Пока СпрКлиенты.ПолучитьЭлемент() = 1 Цикл
     Если СпрКлиенты.ЭтоГруппа() = 1 Тогда
        Продолжить;
     ИначеЕсли СпрКлиенты.ПометкаУдаления() = 1 Тогда
         Продолжить;
     КонецЕсли;
   Текст.ДобавитьСтроку(СпрКлиенты.ПолноеИмя);
  КонецЦикла;
Текст.Записать("D:\Клиенты.txt");
КонецПроцедуры

Похоже на правду. А что не так?

не так заключается в том что сейчас выгружаются все группы и все в них содержимое

Кажется понял - тебе нужны только те контрагенты, которые на на нулевом уровне, т.е. не лежат в группах.

Процедура Выполнить()
   Текст = СоздатьОбъект("Текст");
   СпрКлиенты = СоздатьОбъект("Справочник.Клиенты");
   СпрКлиенты.ВыбратьЭлементы();
   Пока СпрКлиенты.ПолучитьЭлемент() = 1 Цикл
	 Если СпрКлиенты.ЭтоГруппа() = 1 Тогда
	   Продолжить;
	 ИначеЕсли СпрКлиенты.ПометкаУдаления() = 1 или СпрКлиенты.Уровень()<>0 Тогда
		 Продолжить;
	 КонецЕсли;
   Текст.ДобавитьСтроку(СпрКлиенты.ПолноеИмя);
КонецЦикла;
Текст.Записать("D:\Клиенты.txt");
КонецПроцедуры

Сообщение отредактировал WaRDeR: 20 февраля 2012 - 08:42

Так вообще ничего не выгружает, но почва для размышления появилась

Не помню точно, может нумерация уровней в 7.7 начинается не с 0, а с 1 попробуй:

СпрКлиенты.Уровень()<>1

Fart (20 февраля 2012 - 07:07) писал:

точно, с 1 начинается...Спасибо:)