Имя: Пароль:
1C
1С v8
Форма отчета ПоискДанных
0 Nickolay480
 
26.11.11
18:33
У меня проблема, аналогичная как в этой теме v8: Не могу понять в чем ошибка.


Приступил к Занятию 19. Делаю Отчет: Поиск данных. В модуле формы написал текст, но выдет ошибки:

{Отчет.ПоискДанных.Форма.ФормаОтчета.Форма(26,1)}: Неопознанный оператор<<?>>&НаСервере (Проверка: Сервер)
{Отчет.ПоискДанных.Форма.ФормаОтчета.Форма(1,1)}: Обнаружено логическое завершение исходного текста модуля (Проверка: Сервер)
{Отчет.ПоискДанных.Форма.ФормаОтчета.Форма(26,1)}: Неопознанный оператор<<?>>&НаСервере (Проверка: Тонкий клиент)
{Отчет.ПоискДанных.Форма.ФормаОтчета.Форма(1,1)}: Обнаружено логическое завершение исходного текста модуля (Проверка: Тонкий клиент)

ПОМОГИТЕ НАЙТИ ГДЕ У МЕНЯ В МОДУЛЕ ОШИБКА!!!

Сам Текст Модуля Формы выглядит следующим образом( в учебнике стр 604-607):

&НаКлиенте
Процедура Поиск()    
Искать(0);
КонецПроцедуры

&НаКлиенте
Процедура ПредыдущаяПорция()    
Искать(-1);
КонецПроцедуры

&НаКлиенте
Процедура СледующаяПорция()    
Искать(1);
КонецПроцедуры

&НаКлиенте
Процедура Искать(Направление)    
Если ПустаяСтрока(ПоисковоеВыражение) Тогда      
Предупреждение("Не задана строка поиска");        
Возврат;    
КонецЕсли;      
ИскатьСервер(Направление);
КонецПроцедуры;

&НаСервере
Процедура ИскатьСервер(Направление) Экспорт  
// Создаем список поиска    
СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок();    
СписокПоиска.СтрокаПоиска = ПоисковоеВыражение;
     
Если Направление = 0 Тогда        
СписокПоиска.ПерваяЧасть();    
ИначеЕсли Направление = -1 Тогда        
СписокПоиска.ПредыдущаяЧасть(ТекущаяПозиция);    
ИначеЕсли Направление = 1 Тогда        
СписокПоиска.СледующаяЧасть(ТекущаяПозиция);    
КонецЕсли;
     
РезультатыПоиска.Очистить();        
Для Каждого Результат из СписокПоиска Цикл    
РезультатыПоиска.Добавить(Результат.Значение);        
КонецЦикла;
   
РезультатПоиска = СписокПоиска.ПолучитьОтображение(ВидОтображенияПолнотекстовогоПоиска.HTMLТекст);    
ТекущаяПозиция = СписокПоиска.НачальнаяПозиция();    
ПолноеКоличество = СписокПоиска.ПолноеКоличество();    
Если СписокПоиска.Количество() <> 0 Тогда  
СообщениеОРезультате = "Показаны" + Строка(ТекущаяПозиция+1) + "-" +  Строка(ТекущаяПозиция + СписокПоиска.Количество()) + "Из" +  Строка(ПолноеКоличество);  
Элементы.СледующаяПорция.Доступность = (ПолноеКоличество - ТекущаяПозиция) > СписокПоиска.Количество();  
Элементы.ПредыдущаяПорция.Доступность = ТекущаяПозиция > 0;    
Иначе   СообщениеОРезультате = "Не найдено";  
Элементы.СледующаяПорция.Доступность = Ложь;  
Элементы.ПредыдущаяПорция.Доступность = Ложь;  
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура РезультатПоискаПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)    
ЭлементHTML = ДанныеСобытия.Event.srcElement;  
Если (ЭлементHTML.id = "FullTextSearchListItem") Тогда
     
// Получить имя файла (номер строки списка поиска), содержащегося в гиперссылке.        
НомерВСписке = Число(ЭлементHTML.nameProp);
           
// Получить строку поиска по номеру.        
ВыбраннаяСтрока = РезультатыПоиска[НомерВСписке].Значение;
           
// Открыть форму найденного объекта        
ОткрытьЗначение(ВыбраннаяСтрока);        
СтандартнаяОбработка = Ложь;    
КонецЕсли;
КонецПроцедуры
1 Nickolay480
 
27.11.11
10:04
Помогите пожалуйста, очень нужно..
2 icipher
 
27.11.11
10:28
; после конецпроцедуры не нужна
3 Нуф-Нуф
 
27.11.11
10:34
;
4 Nickolay480
 
27.11.11
10:42
Премного благодарен!! я почему то ее никак не мог заметить,на много раз пересмотрел.
Независимо от того, куда вы едете — это в гору и против ветра!