Всем привет. В бухгалтерии 8.2 нужно перебрать справочник контрагентов и найти контрагентов с определенным названием.
Делаю обработку, с реквизитом ЧтоУдалить.
в ней запрос:
        
Спр = Справочники.Контрагенты.Выбрать();
   Пока Спр.Следующий() Цикл
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Организация", "%"  + ЧтоУдалить + "%");
Запрос.Текст =
"ВЫБРАТЬ
|    Контрагенты.Наименование
|ИЗ
|    Справочник.Контрагенты КАК Контрагенты
|ГДЕ
|    Контрагенты.Наименование ПОДОБНО &Организация";
  РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();
      Если  Выборка.Следующий() Тогда
Сообщить(Выборка.Наименование);
     КонецЕсли;
    КонецЦикла;

Он находит то что мне нужно, и одну и туже организацию просто прогоняет по кругу... а дальше искать не идет...
Чтов цикле не правильно?

не пользуйся циклом, выбери все одним запросом

(0) > Помогите зациклить запрос
Уже зациклено без нас

(0)

Этого достаточно:
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Организация", "%"  + ЧтоУдалить + "%");
Запрос.Текст =
"ВЫБРАТЬ
|    Контрагенты.Наименование
|ИЗ
|    Справочник.Контрагенты КАК Контрагенты
|ГДЕ
|    Контрагенты.Наименование ПОДОБНО &Организация";
  РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();
      Если  Выборка.Следующий() Тогда
Сообщить(Выборка.Наименование);
     КонецЕсли;


А верхний цикл не понятно зачем

Одним запросом?

(4) Почитай что такое "Запрос". Зачем его используют, какие данные он возвращает.

Попробывал (0), без цикла одним запросом. он останавливается на первом найденно и дальше искать не идет.

(0) Грех на душу взять просишь?

так напиши вместо
Если Выборка.Следующий()
Пока Выборка.Следующий() Цикл
КонецЦикла;

Нет не грех, а только подсказать. где я тупл...ю

(0) Надо не "Если  Выборка.Следующий() Тогда ...", а "Пока Выборка.Следующий() Цикл ..."

+(10) и эту хрень убери:

Спр = Справочники.Контрагенты.Выбрать();
   Пока Спр.Следующий() Цикл

Drac0  - Правильно!

Сработало!

Спр = Справочники.Контрагенты.Выбрать();
   Пока Спр.Следующий() Цикл
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Организация", "%"  + ЧтоУдалить + "%");
Запрос.Текст =
"ВЫБРАТЬ
|    Контрагенты.Ссылка
|ИЗ
|    Справочник.Контрагенты КАК Контрагенты
|ГДЕ
|    Контрагенты.Наименование ПОДОБНО &Организация";
  РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();
      Если  Выборка.Следующий() Тогда
Сообщить(Выборка.Ссылка.Наименование);
     КонецЕсли;
    КонецЦикла;

Демоны, отойдите от 1С

Вот теперь мне нужно в найденных конрагентах в наименовании (если я ищу все организации с названием ООО ".....") удалить ООО. Каким это оператором делается? :(

(16) уау. Счас начнется.

))

СтрЗаменить(Твоеназвание, "ООО","");

Результат = УдалитьООО(Выборка);

(19) + не забыть записать элемент

vde69 Ставлю
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока  Выборка.Следующий() Цикл
    Сообщить(Выборка.Наименование);
Результат = Удалить.ЧтоУдалить(Выборка);

Выбивает ошибку - Переменная не определена "Удалить"

(22) Обнови конфигурацию до последней, метод просто новый.

(22) )))))
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока  Выборка.Следующий() Цикл
    Сообщить(Выборка.Наименование);
НовоеНаименование = СтрЗаменить(Выборка.Наименование,"ООО","");
Сообщить(НовоеНаименование);

И платформу тоже.

(23) зачем же так жестко. Человек изучает 1с, все мы когда-то с таких вот мелочей начинали

Дааа! Я только изучаю (((((

(26) Дык пятнично же!
(27) В переборе выборки получай объект, меняй наименование через СтрЗаменить, и записывай объект.
Тебе же надо именно в элементах справочника изменить наименования? Или просто выводить скорректированные наименования?

Просто поменять наименование (Допустим убрать ИП, или ООО, или ЗАО а оставить только название без этих ИП ЗАО ООО
)

(28) > В переборе выборки получай объект
Не все так просто. Если выборка идет в порядке наименований, то возможно будут обработаны не все элементы.

Надо установить в порядке кодов.

(24) +

ДокОбъект = Выборка.Ссылка.ПролучитьОбъект();
ДокОбъект.Наименование = НовоеНаименование ;
ДокОбъект .Записать()

Вот делаю вот так вот, вроде все пробегается, захожу в справочник а все контрики все равно стоят с ИП ООО ЗАО



РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока  Выборка.Следующий() Цикл
   Сообщить(Выборка.Наименование);
    НовоеНаименование = СтрЗаменить(Выборка.Наименование, ЧтоУдалить,"");
КонецЦикла;

(29) Учти, что СтрЗаменить поменяет одно на другое без разбору. Если у тебя будет ЗАО "Заоблачный мир", то получишь в итоге "блачный мир".

(32) а почему не записал ДокОбъект .Записать()? ничего меняться и не будет без записи

(32) см. в (31)

(33) так нам надо просто удалить первые три или первые два символа, не надо последовательность символов удалять, тогда он и будет прогонять всю строку и будет так как Вы описали

+(33) Если регистр конечно совпадет. Мало ли, но теоретически можно попортить.

(36) Тогда уж искать позицию первого пробела и выделять часть справа от него.

(33)  Нужно удалить только первые буквы в названии (ООО или ЗАО или ИП) Это я куазываю в элементе обработки "ЧтоУдалить"

(38)согласен или так

(33)  Если ты прав то это будет капец..

(41) тогда лучше используй (36) или (38)

(39)
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока  Выборка.Следующий() Цикл
   СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();  
   Наименование = СокрЛП(СпрОбъект.Наименование);
   ПозицияПробела = Найти(Наименование," ");
   Длина = СтрДлина(Наименование);
   НовоеНаименование = Сред(Наименование,ПозицияПробела+1,Длина-ПозицияПробела);
   СпрОбъект.Наименование = НовоеНаименование;
   СпрОбъект.Записать();
КонецЦикла;

Пробую вот так вот


РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока  Выборка.Следующий() Цикл
    Сообщить(Выборка.Наименование);
НовоеНаименование = СтрЗаменить(Выборка.Наименование, ЧтоУдалить,"");
ДокОбъект = Выборка.Ссылка.ПролучитьОбъект();
   ДокОбъект.Наименование = НовоеНаименование ;
                         ДокОбъект .Записать();                 
                КонецЦикла;



Выбивает ошибку:
{Обработка.РедактированиеКонтрагентов.Форма.Форма.Форма(44)}: Поле объекта не обнаружено (Ссылка)
                                    ДокОбъект = Выборка.Ссылка.ПролучитьОбъект();

(44) Ты в запросе выбираешь ссылку? Как в тексте запроса в (14)

(45) Ща будет вопрос "Зачем в запросе выбирать ссылку, если нужно изменить только наименование?" и вы все повеситесь. :))

Не такого вопроса не будет

(25) и самое главное - прокладку. между стулом и клавиатурой.
(26) человек не то что программировать вообще не умеет, у него с логикой элементарной явные проблемы.

Вот весь код. Но все равно ошибка

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Организация", ЧтоУдалить + "%");
Запрос.Текст =
"ВЫБРАТЬ
|    Контрагенты.Ссылка
|ИЗ
|    Справочник.Контрагенты КАК Контрагенты
|ГДЕ
|    Контрагенты.Наименование ПОДОБНО &Организация";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока  Выборка.Следующий() Цикл
Сообщить(Выборка.Ссылка);
НовоеНаименование = СтрЗаменить(Выборка.Ссылка, ЧтоУдалить,"");
ДокОбъект = Выборка.Ссылка.ПролучитьОбъект();
ДокОбъект.Наименование = НовоеНаименование;  
ДокОбъект.Записать();          
КонецЦикла;

Ошибка
{Обработка.РедактированиеКонтрагентов.Форма.Форма.Форма(22)}: Метод объекта не обнаружен (ПролучитьОбъект)
                                   ДокОбъект = Выборка.Ссылка.ПролучитьОбъект();

(49) как ты пишешь/читаешь???
Метод объекта не обнаружен (ПролучитьОбъект)!!!
что это за метод???

(49)
надо писать

ЗахватитьОбъект();


(31)  Так мне посоветовал

ЗахватитьОбъект();   Та же самая ошибка - Метод объекта не обнаружен

(53) Пролучить? Рентгентом?

))))) ААААААА

(52) В наше время никому верить нельзя.
Доверься синтакс-помощнику, и да прибудет с тобой Сила!

вот я позорищееее!! ааа.а.а.а.а..а.а.)))) Спаибо всем Ребят!!!

Вот она, пятничная ветка!!!

Да да! Сегодня надо нахрюкаться )) капеццц.. вот она невнимательность... а ха хаахах

п..ц парень нашел повод, смотри не промахнить и в этом.

Чистова смоти лучше иил еще другие уроки

Да. Чистова смотрю!.

(56) я вообще просто через каждые 2 буквы при написании кода жму ctrl+space

(63) Я тоже, но с Выборка.Ссылка не сработает ((

Сработала! Он ищет и удаляет

(63)Ну слава Богу! Теперь ждем следующей ветки "Как восстановить ошибочно удаленную информацию"

)))) Я сделал БЭКАПППП!!!!))))

(67) Вале-ера, да ты просто мегачел!

(67) человечище

))) "гвозди бы делать из этих людей..."