Поиск по коду справочника по первому символу

[spapin]

Добрый день. Подскажите мне необходимо найти по коду справочника первый символ. Например все элементы справочника, у которых код начинается с "F000..."

[Yura063]

Берете код, если числовой переводите в строку и под условие

Код Выделить Развернуть

Если Найти(Строка(Код),ТоЧтоНадоНайти) = 1 Тогда
    //Тут все что дальше надо, если найдет!
КонецЕсли;
Это все в цикл по всем элементам.

[MuI_I_Ika]

Как то так:

Код Выделить Развернуть

"ВЫБРАТЬ
| Номенклатура.Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Код ПОДОБНО ""F000%"""

[Yura063]

ДА! Совсем забыл про ПОДОБНО!!! )))

[spapin]

Спасибо, сделал так:

Код Выделить Развернуть

ВыборкаЯчеек = Справочники.МестаХранения.Выбрать();
Пока ВыборкаЯчеек.Следующий() Цикл
Объект = ВыборкаЯчеек.ПолучитьОбъект();
код = ВыборкаЯчеек.Код;
   Если Лев(код,1) = ("F") Тогда
Сообщить("Нашёл!!" + код);
Объект.УстановитьПометкуУдаления(Истина,Ложь);
   КонецЕсли;
КонецЦикла;


[Yura063]

Если База на Скуле то лучше воспользуйся советом MuI_I_Ika!

[spapin]

Запрос меньше ресурсов будет потреблять или быстрее будет выполняться?

[Yura063]

Быстрее

[spapin]

Подскажите еще момент как удалить запись регистра сведений(строку)?

Код Выделить Развернуть

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


Тут я удалил просто место хранения

Добавлено: 04 июл 2013, 18:56

Вроде так

Код Выделить Развернуть

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

[GRADUS]

Подскажите еще момент как удалить запись регистра сведений(строку)?

Код Выделить Развернуть

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


Тут я удалил просто место хранения

Добавлено: 04 июл 2013, 18:56

Вроде так

Код Выделить Развернуть

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

Код Выделить Развернуть

НаборЗаписей.Очистить();

Чего чистишь то?