НайтиСсылки()

[Larin]

нужно перебирать элементы в справочнике Товары, если нет ссылки, то удалять. Я делал так, но удаляет не все элементы, а некоторую часть. И теперь ваще не находит элементов без ссылок

Процедура УдалениеЭлементовСправочника()
   МояТаблица=СоздатьОбъект("ТаблицаЗначений");
   МойСписок=СоздатьОбъект("СписокЗначений");
    Спр=СоздатьОбъект("Справочник.Товары");
Спр.ВыбратьЭлементы();
      
Пока Спр.ПолучитьЭлемент()>1 Цикл
      
      МойСписок=Спр.ТекущийЭлемент;
       
   НайтиСсылки(МойСписок,МояТаблица);
   УдалитьОбъекты(МойСписок, 1, МояТаблица);
   

КонецЦикла;

КонецПроцедуры

 

[Pro]

<!--QuoteBegin-Larin+5:08:2005, 23:09 -->
<span class="vbquote">(Larin @ 5:08:2005, 23:09 )</span><!--QuoteEBegin-->нужно перебирать элементы в справочнике Товары, если нет ссылки, то удалять. Я делал так, но удаляет не все элементы, а некоторую часть. И теперь ваще не находит элементов без ссылок

Процедура УдалениеЭлементовСправочника()
       МояТаблица=СоздатьОбъект("ТаблицаЗначений");
       МойСписок=СоздатьОбъект("СписокЗначений");
        Спр=СоздатьОбъект("Справочник.Товары");
Спр.ВыбратьЭлементы();
            
Пока Спр.ПолучитьЭлемент()>1 Цикл
            
             МойСписок=Спр.ТекущийЭлемент;
              
       НайтиСсылки(МойСписок,МояТаблица);
       УдалитьОбъекты(МойСписок, 1, МояТаблица);
      

КонецЦикла;

 КонецПроцедуры

[snapback]23040" rel="nofollow" target="_blank[/snapback]​

[/quote]

Правельней наверно будет так, но я не проверял...

Процедура УдалениеЭлементовСправочника()
   МояТаблица=СоздатьОбъект("ТаблицаЗначений");
   МойСписок="";
   Спр=СоздатьОбъект("Справочник.Товары");
   Спр.ВыбратьЭлементы();
   Пока Спр.ПолучитьЭлемент()=1 Цикл
      МойСписок=Спр.ТекущийЭлемент;
      НайтиСсылки(МойСписок,МояТаблица);
      Если МояТаблица.КоличествоСтрок()>0 Тогда
         Спр.ТекущийЭлемент().Удалить(1);
      КонецЕсли;
   КонецЦикла;
КонецПроцедуры

 

[Larin]

да нет так не работает. но я уже сам сделал