Поиск документов

[kidman]

Подскажите как организовать поиск документа по комментарию...
(через внешнюю обработку конечно же -))
Например: найти Док по комментарию и удалить его....

[Kivals]

Код:

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

[kidman]

че то не хоччет работать....(а зачем сроку в нижний регистр переводить)...я так понял к регистру чувствителен....-)

[Kivals]

Именно чтобы сделать регистронезависимым поиск.
Если тебе надо с учетом регистра - тогда не надо НРег().
_Как_ именно не работает?

[kidman]

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

[Kivals]

Что - даже ошибки не выдает?
Док.ВыбратьДокументы();

Предположение:
возможно у тебя перепутаны русские и английские буквы
например: в комментарии у тебя написанно англискими, а ищешь - русскими. Или наоборот. Или только какая-то одна буква так не совпадает...
попробуй поискать строку, которая точно есть в комментариях: скопировать из документа и вставить в код

[kidman]

Не с языком все правильно...
а Док.ВыбратьДокументы();- все равно не работает....пробовал....

[kidman]

Блин все работает....все из-за не внимательность...
Спасибо за помощь!!!!

[kidman]

 ::)Блин все работает.....просто не внимательность замучала...чешется
Спасибо за помощь....-)