// Заполним колонки. Код и Наименвание - особые, поэтому заполним отдельно.
   Элементы.НоваяКолонка("Элемент"             ,"Справочник");
   Элементы.НоваяКолонка("Код"                 ,"Строка"    ,,,                     ,10,,?(МДСправочник.ТипКода="Текстовый",1,2));
   Элементы.НоваяКолонка("Наименование"        ,"Строка"    ,,, "Найденные элементы",50);
   
   // Добавим дополнительные колонки (если есть)
   СчетчикЦикла = 0;
   Для СчетчикЦикла = 3 По СписокРеквизитовПоиска.РазмерСписка() Цикл  // код и наименование уже добавили
       ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
       Представление = МДСправочник.Реквизит(ТекРеквизит).Представление();  
       Длина         = МДСправочник.Реквизит(ТекРеквизит).Длина;
       Элементы.НоваяКолонка(ТекРеквизит       ,"Строка"    ,,, Представление       ,Длина);

в глоб модуле
Процедура глПоискПоПодстроке(Конт, СписокПолей = "") Экспорт
   СписокПараметров = СоздатьОбъект("СписокЗначений");
   СписокПараметров.ДобавитьЗначение(Конт.Вид(), "Вид");
   СписокПараметров.ДобавитьЗначение(СписокПолей,"СписокПолей");
   ОткрытьФормуМодально("Обработка.ВыборИзСправочникаПоПодстроке", СписокПараметров);
   Если ТипЗначенияСтр(СписокПараметров)="Справочник" Тогда
       Если СписокПараметров.Вид() = Конт.Вид() Тогда
           Если Конт.Форма.РежимВыбора() = 1 Тогда
               Конт.Форма.ВыполнитьВыбор(СписокПараметров);
           Иначе
               Конт.АктивизироватьОбъект(СписокПараметров);
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры // глПоискПоПодстроке()
на кнопке ПОиск (в справочнике товар фор-ла глПоискПоПодстроке(Контекст,"ЦенаРозничная")
ЧТО НУЖНО ПОМЕНЯТЬ?

Обработка.ВыборИзСправочникаПоПодстроке

Дружище, а точнее что нужно внести ?

Если обычный реквизит все работает - Good. Только начинаю менять на периодический - НеизвестныйОбьект

Ребята, помогите. Может это немного и геморойно, но для ВАС СПЕЦОВ - раз плюнуть!

(3)
1.Добавить период в запрос, чтоб периодический реквизит справочника на конечную дату искал ...
2.По умолчанию, ищет данный реквизит во ВСЕХ справочниках, т.е твой реквизит должен быть во всех справочниках в пределах конфигурации ...соответственно, самое тупое - проверять на Вид() справочника, и если нужный тебе - переделать текст запроса ... вот и всё.

+5 Блин, про все виды справочников это прогнал , просто добавь период в текст запроса :)

+6 И Это, цена у тебя , разве реквизит справочника Товар ??? Не путаешь? ...

Нифига всеравно пишет НеизвестныйОбьект. Просто он не может прочитать этот долбаный периодический реквизит!

Ну да цену товара я забиваю в справочник (Приходной накладной)

(8) Открой справочник Товар (или как там он у тебя зовётся ?) в дереве метаданных и посмотри, есть ли у него реквизит Цена ..., если есть то вставь на форму реквизит типа Дата, задай ему идентификатор ВыбДата, в ПриОткрытии напиши
ВыбДата = РабочаяДата(); ... в тексте запроса -
|Период с ВыбДата по ВыбДата; .... всё собственно

+10 Токма сдается мне, что Цена - реквизит справочника Цены, подчиненного Номенклатуре ..., ежели конфа типовая ...

И всеравно ЦенаРозничная - НеизвестныйОбьект

И что посоветуете делать?

(12) Конечно, она видать не Реквизит справочника Номенклатура, а подчиненного справочника какого-нить ... Чего за конфа то?

Ничего подобного ЦенаРозничная  реквизит справочника- Товар

(15) И чего изменил то хоть в Обработка.ВыборИзСправочникаПоПодстроке ? ... Период туды воткнул? ...

(15) Чёт не помню я типовых конф, у которых в Номенклатуре Цена - реквизит элемента, даж в типовой бухии - подчинённый справочник

Добавил!
Процедура ПоискПоПодстроке()
   
   Элементы.УдалитьСтроки();
   РеквизитПоиска = СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СписокРеквизитовПоиска.ТекущаяСтрока()));
   Запрос = СоздатьОбъект("Запрос");
   
   ТекстЗапроса ="
   |Период с ВыбДата по ВыбДата;
   |ТекущийЭлемент = Справочник.*.ТекущийЭлемент;" +
   РеквизитПоиска + " = Справочник.*." + РеквизитПоиска + ";
   |Группировка ТекущийЭлемент Без Упорядочивания Без Групп;
   |Условие(Найти(ВРег(" + РеквизитПоиска + "),ВРег(ПодСтрокаПоиска))>0);
   |Без итогов;";          
   
   ТекстЗапроса=СтрЗаменить(ТекстЗапроса,"*",ВидСправочника);
   
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

   Инд=0;
   Состояние("Обработано ");
   Пока Запрос.Группировка() = 1 Цикл
       Инд=Инд+1;
       Если Инд%100=0 Тогда
           Состояние("Обработано "+Инд);
       КонецЕсли;
       
       ТекЭлемент = Запрос.ТекущийЭлемент;
       Элементы.НоваяСтрока();
       Элементы.Элемент      = ТекЭлемент;
       
       // Заполним колонки
       СчетчикЦикла = 0;
       Для СчетчикЦикла = 1 По СписокРеквизитовПоиска.РазмерСписка() Цикл
           ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
           Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(ТекЭлемент.ПолучитьАтрибут(ТекРеквизит)));
       КонецЦикла;
       
   КонецЦикла;
   
   Состояние("Обработано "+Инд);
   
   Форма.Открыть.Доступность(?(Элементы.КоличествоСтрок()>0,1,0));
   Форма.Выбрать.Доступность(?(Элементы.КоличествоСтрок()>0,1,0));
   
   // попытаемся найти подстроку в списке
   Поз    = СписокВведенныхПодстрок.НайтиЗначение(ПодСтрокаПоиска);
   Если Поз > 0 Тогда
       // сместим значение в начало списка
       СписокВведенныхПодстрок.СдвинутьЗначение(1 - Поз, Поз);
   Иначе
       // добавим подстроку в начало списока
       СписокВведенныхПодстрок.ВставитьЗначение(1, ПодСтрокаПоиска);
       
       Пока СписокВведенныхПодстрок.РазмерСписка() > 15 Цикл
           СписокВведенныхПодстрок.УдалитьЗначение(СписокВведенныхПодстрок.РазмерСписка());
       КонецЦикла;
           
   КонецЕсли;
   
КонецПроцедуры // ПоискПоПодстроке()


Процедура ОбработкаВыбора()
   
   Если Элементы.КоличествоСтрок() > 0 Тогда
       
       Если Элементы.ТекущаяСтрока() = 0 Тогда      
           Элементы.ТекущаяСтрока(1);
       КонецЕсли;
       
       Если Форма.РежимВыбора()=0 Тогда      
           Если Форма.МодальныйРежим()=1 Тогда
               Форма.Параметр=Элементы.Элемент;   // В модальном режиме выбранное значение передается через параметр формы
           КонецЕсли;
           Форма.Закрыть();
       Иначе
           Форма.ВыполнитьВыбор(Элементы.Элемент);
       КонецЕсли;
   КонецЕсли;
   
КонецПроцедуры // ОбработкаВыбора()


//
Процедура ПоКнопкеОткрыть()
   Если Элементы.ТекущаяСтрока()>0 Тогда      
       ОткрытьФорму(Элементы.Элемент);
   КонецЕсли;
КонецПроцедуры // ПоКнопкеОткрыть()



Процедура ПриОткрытии()  
   ВыбДата=РабочаяДата();
         
   СписокПараметров = Форма.Параметр;
   
   Если ПустоеЗначение(СписокПараметров) = 1 Тогда
       Предупреждение("Данная обработка вызывается из других процедур конфигурации",60);
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;
   
   // Считаем параметры
   ВидСправочника  = СписокПараметров.Получить("Вид");
   СписокПолей     = СокрЛП(СписокПараметров.Получить("СписокПолей"));
   ПодСтрокаПоиска = СокрЛП(СписокПараметров.Получить("ПодстрокаПоиска"));
   
   МДСправочник = Метаданные.Справочник(Строка(ВидСправочника));
   Если МДСправочник.Выбран()=0 Тогда
       Предупреждение("Не задан справочник", 60);
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;
   
   //Сформируем список реквизитов для поиска
   СписокРеквизитовПоиска.УдалитьВсе();
   СписокРеквизитовПоиска.ДобавитьЗначение("Код");
   СписокРеквизитовПоиска.ДобавитьЗначение("Наименование");
   Если ПустоеЗначение(СписокПолей) = 0 Тогда // есть доп. поля поиска
       Разделитель = ",";
       Поз = Найти(СписокПолей, Разделитель);
       Пока 0 < Поз Цикл    
           ТекРеквизит   = СокрП(Лев(СписокПолей, Поз-1));
           Представление = МДСправочник.Реквизит(ТекРеквизит).Представление();  
           СписокРеквизитовПоиска.ДобавитьЗначение(ТекРеквизит, Представление);
           СписокПолей = СокрЛ(Сред(СписокПолей, Поз+1));
           Поз = Найти(СписокПолей, Разделитель);
       КонецЦикла;
       
       // Последний не добавили
       ТекРеквизит = СписокПолей;
       Представление = МДСправочник.Реквизит(ТекРеквизит).Представление();  
       СписокРеквизитовПоиска.ДобавитьЗначение(ТекРеквизит, Представление);
   КонецЕсли;

   // Заполним колонки. Код и Наименвание - особые, поэтому заполним отдельно.
   Элементы.НоваяКолонка("Элемент"             ,"Справочник");
   Элементы.НоваяКолонка("Код"                 ,"Строка"    ,,,                     ,10,,?(МДСправочник.ТипКода="Текстовый",1,2));
   Элементы.НоваяКолонка("Наименование"        ,"Строка"    ,,, "Найденные элементы",50);
   //Элементы.НоваяКолонка("ЦенаРозничная"            ,"Строка");
   
   // Добавим дополнительные колонки (если есть)
   СчетчикЦикла = 0;
   Для СчетчикЦикла = 3 По СписокРеквизитовПоиска.РазмерСписка() Цикл  // код и наименование уже добавили
       ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
       Представление = МДСправочник.Реквизит(ТекРеквизит).Представление();  
       Длина         = МДСправочник.Реквизит(ТекРеквизит).Длина;
       Элементы.НоваяКолонка(ТекРеквизит       ,"Строка"    ,,, Представление       ,Длина);
   КонецЦикла;
   
   Элементы.ВидимостьКолонки("Элемент",0);
   
   // Восстановим прошлое значение поиска
   СписокРеквизитовПоиска.ТекущаяСтрока(Макс(1, ВосстановитьЗначение("НомерРеквизитаПоиска" + ВидСправочника)));
   Форма.Заголовок(МДСправочник.Представление() + " (поиск элементов по подстроке)", 0);
   
   Если МДСправочник.СпособРедактирования="ВСписке" Тогда
       Форма.Открыть.Видимость(0);
   КонецЕсли;
   
   // Если передали подстроку, то пытаемся сразу найти
   Если ПустоеЗначение(ПодСтрокаПоиска) = 0  Тогда
       ПоискПоПодстроке();      
       Если Элементы.КоличествоСтрок()= 1 Тогда // искали один элемент и уже нашли, форму можно не открвать
           ОбработкаВыбора();
           СтатусВозврата(0);
           
       ИначеЕсли Элементы.КоличествоСтрок() > 1 Тогда    // нашли больше одного
           Активизировать("Элементы");
       КонецЕсли;
   КонецЕсли;
   
   СписокВведенныхПодстрок    = ВосстановитьЗначение("СписокПодстрокПоиска");
   Если ТипЗначенияСтр(СписокВведенныхПодстрок) <> "СписокЗначений" Тогда
       СписокВведенныхПодстрок = СоздатьОбъект("СписокЗначений");
   КонецЕсли;
   
КонецПроцедуры // ПриОткрытии()

//******************************************************************************
// Предопределенная процедура.
//
Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр)
   Перем ВыбПодстрока;
   
   Если "ПодСтрокаПоиска" = ИдентЭлемДиалога Тогда
       ФлагСтандОбр    = 0;
       
       Если СписокВведенныхПодстрок.ВыбратьЗначение(ВыбПодстрока, , , , 2) = 1 Тогда
           ПодСтрокаПоиска    = ВыбПодстрока;
       КонецЕсли;
   КонецЕсли;
   
КонецПроцедуры // ПриНачалеВыбораЗначения()


Процедура ПриЗакрытии()
   
   // Сохраним номер реквизита поиска
   СохранитьЗначение("НомерРеквизитаПоиска" + ВидСправочника, СписокРеквизитовПоиска.ТекущаяСтрока());
   СохранитьЗначение("СписокПодстрокПоиска", СписокВведенныхПодстрок);
   
КонецПроцедуры // ПриЗакрытии()

ты бы еще глобальный модуль сюда запостил

Не работает ? Тогда так Напиши...результат - сюда:

Процедура ПоискПоПодстроке()
  Сообщить(ВидСправочника);
  Сообщить(РеквизитПоиска);
  Сообщить(Метаданные.Справочник(ВидСправочника).Реквизит(РеквизитПоиска).Выбран());

Сообщить(РеквизитПоиска<<?>>);
{Обработка.ВыборИзСправочникаПоПодстроке.Форма.Модуль(12)}: Переменная не определена (РеквизитПоиска)
Сообщить(Метаданные.Справочник(ВидСправочника).Реквизит(РеквизитПоиска<<?>>).Выбран());
{Обработка.ВыборИзСправочникаПоПодстроке.Форма.Модуль(13)}: Переменная не определена (РеквизитПоиска)

(21) Круто. Продолжай в этом духе ...

(21) Все сообщить запихай внутрь Процедура ПоискПоПодстроке() ...
и еще добавь
Сообщить(ВыбДата);

Товар
Наименование
10.12.07
0

(24) Молодца! Только не видно, что реквизит Поиска у тебя ЦенаРозничная  ....

Я добавил и все равно не работает
   СписокРеквизитовПоиска.УдалитьВсе();
   СписокРеквизитовПоиска.ДобавитьЗначение("Код");
   СписокРеквизитовПоиска.ДобавитьЗначение("Наименование");  
   СписокРеквизитовПоиска.ДобавитьЗначение("ЦенаРозничная");

просто пустая колонка и ВСЕ!

Гм

В форме списка справочника Товар кнопка с формулой  глПоискПоПодстроке(Контекст,"ЦенаРозничная"); Далее пиши сюда , что сообщает (20)

Вот что в глоб. модуле
Процедура глПоискПоПодстроке(Конт, СписокПолей = "") Экспорт

   СписокПараметров = СоздатьОбъект("СписокЗначений");
   СписокПараметров.ДобавитьЗначение(Конт.Вид(), "Вид");
   СписокПараметров.ДобавитьЗначение(СписокПолей,"СписокПолей");
   ОткрытьФормуМодально("Обработка.ВыборИзСправочникаПоПодстроке", СписокПараметров);

   Если ТипЗначенияСтр(СписокПараметров)="Справочник" Тогда
       Если СписокПараметров.Вид() = Конт.Вид() Тогда
           Если Конт.Форма.РежимВыбора() = 1 Тогда
               Конт.Форма.ВыполнитьВыбор(СписокПараметров);
           Иначе
               Конт.АктивизироватьОбъект(СписокПараметров);
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;

КонецПроцедуры // глПоискПоПодстроке()

(30) Света ? (29) читала? ...

Ребята не судите строго, я эту обработку взял с 1cproclub. Но откуда ж я знал что там такие ГРАМОТЕИ выкладивают свои шедевры. Хотел под себя немного переделать,  а тут такие БОКА

(32) Болеете ? Это всё есть в ЛЮБОЙ стандартной конфе ...
Тебя 20 раз просят сделать одно и тоже - ПРОВЕРИТЬ, есть ли реквизит в справочнике, или нет.

конечно есть. Когда я убираю галочку ПЕРИОДИЧЕСКИЙ - ВСЕ РАБОТАЕТ. Только ставлю ее обратно - БОЛТ!

Показывай, для начала, что сообщает (20) когда "болт"

да ничего не сообщает просто пустая колонка

Не могу понять, что еще ему надо этому поиску?

(37) Так, для начала:
           СчетчикЦикла = 0;
           Для СчетчикЦикла = 1 По СписокРеквизитовПоиска.РазмерСписка() Цикл
               ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
               Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(ТекЭлемент.ПолучитьАтрибут(ТекРеквизит)));
               Если (ТекРеквизит = РеквизитПоиска)И(ТекРеквизит<>"Наименование")И(ТекРеквизит<>"Код") Тогда
                   Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(Запрос.ПолучитьАтрибут(ТекРеквизит)));
               КонецЕсли;
           КонецЦикла;

Поменял, работает так же!

(39) Как вызываешь обработку ?
Реквизит заполнен ? На какую дату ?

Обработку вызываю через ПоискПоПодстроке()
Дату установил согласно рекомендации

   ТекстЗапроса ="
   |Период с ВыбДата по ВыбДата;
   |ТекущийЭлемент = Справочник.*.ТекущийЭлемент;" +

(41) В форме списка справочника Товар, повесь кнопку, в формулу кнопки -
глПоискПоПодстроке(Контекст,"ЦенаРозничная") ... Так сделал то хоть?

Это все у меня было еще изначально

Ты  понимаеш, загвоздка в этом долбаном периодеском реквизите. ведь если галочку убрать то все работает. Сам не пойму где собака зарыта

(44) Мне не лень , я проверил - всё работает ....
Можно даже ПериодНе указывать - вернёт на ТА тогда ...

+46 .. на вот, http://slil.ru/25225208

:) так вот скачал. И нифига. Цена Розничная НеизвестныйОбъект. И что делать?

Ни хрена не пойму. Это уже ОЧЕНЬ ДАЖЕ ИНТЕРЕСНО

Справочник - Товар
РЕквизит - ЦенаРозничная
Дополнительно:
- Неотрицательный- галочка
- Периодический - галочка
- Изменяется документами- галочка
- ручное изменение- галочка
- использовать: для элемента

(50) Либо синтаксическая ошибка, либо ЦенаРозничная не реквизит справочника Товар.
Иного не дано ...

(51) Кинь мд-ник в архиве поглядеть .. на http://slil.ru/

Аська у тебя есть?

(53) Нет ... так выкладывай ...

файл 1,5 метра, а у меня нет на отдачу слабый. посмотрим получится ли

лови http://slil.ru/25225566

(56) Ну и ? И всё работает! http://i006.radikal.ru/0712/2c/072e70df58be.jpg

Не понял. а рекизит ЦенаРозничная - перидический? Тогда вообще я НИХРЕНА НЕ ПОЙМУ. КАКОГО ... у меня не работает?

Так хххх :) поиск должен быть по имени или по коду!!!!

По цене у меня тоже работает!!! :)

(58) Смотри сам : http://i035.radikal.ru/0712/e2/6b584afca04f.jpg
А чего у тебя там - хз ..:)

Ты в поиске напиши Вася

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

Мамкина НОРКА - Заработало. ОГРОМНЫЙ  Р Е С П Е К Т!