ОписаниеОпевещения то работает то не работает

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. aleksandrjurevich 22.10.14 14:19 Сейчас в теме

Здравствуйте! У меня такая штопорная ситуация. В ниже приведенном коде то работает то не работает ОписаниеОповещения. Проявляется это вот как. Когда первый раз нажимаешь на клавишу "Переименовать" все нормально работает. Но если сначала нажать "Создать", система определит, что создавать не нужно и так все есть, можно переименовать, я выбираю "Переименовать", и тогда система аварийно завершается "Подождите пожалуйста идет сохранение информации об ошибке...". Это мозговыносящее зрелище именуемое особенностью платформы? Версия 1С:Предприятие 8.3 (8.3.4.389). Конфа сама себя писала :) Или особенность в запаренном мозге разработчика?
P.SSS: Если процедура указанная в ОбработкеОповещения объявлена с директивой компиляции НаСервере то в момент обращения системы к ОбработкеОповещения вылазиет ошибка времени выполнения. И в пользовательском режиме сообщение, что не найден экспортируемый метод имя которого указано в ОбработкеОповещения :). С какого он должен быть экспортируемым? Но даже если Экспорт поставить ситуация не решается, может система хочет чтобы процедура была экспортируемая и объявленная в модуле ОБЪЕКТА КОМАНДЫ :))) Вариантов нет:)

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
	СписокДействийДляВыбораПользователя = Новый СписокЗначений;
	СписокДействийДляВыбораПользователя.Добавить("Посмотреть", "Посмотреть имя шаблона");
	СписокДействийДляВыбораПользователя.Добавить("Создать", "Создать шаблон");
	СписокДействийДляВыбораПользователя.Добавить("Переименовать", "Переименовать шаблон");
	СписокДействийДляВыбораПользователя.Добавить("Удалить", "Удалить Шаблон");
	
	ДопПараметры = Новый Структура("Ссылка, ИмяРеквизита, СписокДействийДляВыбораПользователя");
	ДопПараметры.Ссылка = ПараметрыВыполненияКоманды.Источник.Объект.Ссылка;
	ДопПараметры.ИмяРеквизита = ПараметрыВыполненияКоманды.Источник.ТекущийЭлемент.Имя;
	ДопПараметры.СписокДействийДляВыбораПользователя = СписокДействийДляВыбораПользователя;
	
	
	Описание = Новый ОписаниеОповещения("ОбработкаВыбораПользователя", ЭтотОбъект, ДопПараметры);  
	ПоказатьВопрос(Описание, "Что вы хотите сделать?", СписокДействийДляВыбораПользователя);
	
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаВыбораПользователя (ДанныеВыбора, ПолученныеДопПараметры)
	Если ДанныеВыбора = "Посмотреть" Тогда
		
		ПоказатьЗначение(, ОбщийСервер.НайденныйШаблон (ПолученныеДопПараметры));
		
	ИначеЕсли ДанныеВыбора = "Создать" Тогда
		ИмяШаблона = ОбщийСервер.НайденныйШаблон (ПолученныеДопПараметры);
		
		Если ИмяШаблона = Неопределено Тогда
			
			Описание = Новый ОписаниеОповещения("СоздатьШаблон", ЭтотОбъект, ПолученныеДопПараметры);
			ПоказатьВводЗначения(Описание,,"Введите имя шаблона", Тип("Строка"));
			
		Иначе
			Описание = Новый ОписаниеОповещения("ОбработкаВыбораПользователя", ЭтотОбъект, ПолученныеДопПараметры);  
			ПоказатьВопрос(Описание, " Создать невозможно! Шаблон для данного реквизита задан! Имя шаблона: ["+ ИмяШаблона +"]", ПолученныеДопПараметры.СписокДействийДляВыбораПользователя);
			
		КонецЕсли;
		
	ИначеЕсли ДанныеВыбора = "Переименовать" Тогда
		ИмяШаблона = ОбщийСервер.НайденныйШаблон (ПолученныеДопПараметры);
		
		Если ИмяШаблона = Неопределено Тогда
			Описание = Новый ОписаниеОповещения("ОбработкаВыбораПользователя", ЭтотОбъект, ПолученныеДопПараметры);  
			ПоказатьВопрос(Описание, "Переименовать невозможно! Шаблон для данного реквизита не задан!", ПолученныеДопПараметры.СписокДействийДляВыбораПользователя);
			
		Иначе	
			Описание = Новый ОписаниеОповещения("ПереименоватьШаблон", ЭтотОбъект, ПолученныеДопПараметры);
			ПоказатьВводСтроки(Описание, ИмяШаблона,"Введите имя шаблона");
			
		КонецЕсли;
	
	ИначеЕсли ДанныеВыбора = "Удалить" Тогда
		
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура СоздатьШаблон (ВведенныеДанные, ДополнительныеПараметры)
	ПоказатьЗначение(, ОбщийСервер.СоздатьШаблон(ВведенныеДанные, ДополнительныеПараметры));
КонецПроцедуры

&НаКлиенте
Процедура ПереименоватьШаблон (ВведенныеДанные, ДополнительныеПараметры)
	 
КонецПроцедуры

Показать

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

3. Boneman 301 22.10.14 14:31 Сейчас в теме

(1) aleksandrjurevich,
как минимум в описании оповещении указывается, дословно, "Содержит имя экспортируемой процедуры модуля, которая будет вызвана.
"
ключевое слово - Экспортируемой.

4. aleksandrjurevich 22.10.14 14:41 Сейчас в теме

(3) Boneman, О да в СП написано! Меня это мало убеждать стало :) Дело в том, что

&НаКлиенте
Процедура ПереименоватьШаблон (ВведенныеДанные, ДополнительныеПараметры)
     
КонецПроцедуры

объявлено без ключевого слова Экспорт. Но при выборе из Процедура ОбработкаКоманды срабатывает. И без этого загадочного слова.
Ну а если Экспорт указан ничего не меняется. Отрубается и все!

5. Boneman 301 22.10.14 14:51 Сейчас в теме

(4) aleksandrjurevich,
не знаю.
реально работающий код.
Если процедура не экспортная - она ее не находит, выдает ошибку.

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

&НаКлиенте
Процедура ПослеЗакрытияВопросаЗаполнитьПоляИсточника(Результат, Параметры) Экспорт
	Если Результат = КодВозвратаДиалога.Нет тогда
		Возврат;
	КонецЕсли;
	ПоляИсточника.Очистить();
	ТупоЗаполнитьПоляИсточника();
КонецПроцедуры

Показать

Попробуй обновить платформу.
У меня 3.5

6. aleksandrjurevich 22.10.14 17:45 Сейчас в теме

(5) Boneman, У меня так работает! Но перестанет работать вот так: Попробую обновиться. Спс.

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

&НаКлиенте
Процедура ПослеЗакрытияВопросаЗаполнитьПоляИсточника(Результат, Параметры) Экспорт
	Если Результат = КодВозвратаДиалога.Да Тогда
		Режим = РежимДиалогаВопрос.ОКОтмена;
        Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопросаЗаполнитьПоляИсточника", ЭтаФорма, Параметры);
        ПоказатьВопрос(Оповещение,"Вы уверены?", Режим, 0);
		
	ИначеЕсли Результат = КодВозвратаДиалога.ОК Тогда
		Описание = Новый ОписаниеОповещения("ПроцедураЕщеОдна", ЭтаФорма, Параметры);
		ПоказатьВводСтроки(Описание, "Ля-ля-ля","Что хотите то введите!");
		
	КонецЕсли;
		
    Если Результат = КодВозвратаДиалога.Нет тогда
        Возврат;
		
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ПроцедураЕщеОдна(Результат, Параметры) Экспорт

КонецПроцедуры;

Показать

2. aleksandrjurevich 22.10.14 14:23 Сейчас в теме

Еще если в модуле формы обработки указать в ОписанииОповещения имя процедуры, то система будет искать процедуру в модуле формы (т.к. это и указано) только с директивой компиляции НаСервере, если процедура объявлена с директивой НаКлиенте появляется сообщения об том что такая процедура не найдена.

7. caponid 22.10.14 18:08 Сейчас в теме

Проблема в том, что обработка оповещения вызывается рекурсивно

8. aleksandrjurevich 22.10.14 21:33 Сейчас в теме

(7) caponid, Нее. Выше код. Самый первый, что в первом сообщении. Например там тоже так сказать рекурсивный вызов когда заходишь в ветку "Создать", так можно уйти в транс нажимая на Создать, но система не отрубается. Точнее иногда все таки отрубается. Но не всегда. Тык-тык-тык и бывает отрубается.

9. adhocprog 1141 04.12.15 18:08 Сейчас в теме

(0) Удалось решить проблему?

10. aleksandrjurevich 05.12.15 21:00 Сейчас в теме

(9) adhocprog, Да :) Как давно это было! Но только не в модуле общей команды. Чтобы этот код работал, я, вынес его в общий модуль и обращаюсь к нему из обработчика команды управляемой формы. Для этого чуть пришлось подправить параметры Процедуры ОбработкаКоманды. И все полетело (в хорошем смысле этого слова :).

11. Xershi 1545 09.12.16 13:35 Сейчас в теме

(9) возникла такая же ошибка.
Это из-за:

<Модуль> (обязательный)

Тип: УправляемаяФорма; КомандаКомандногоИнтерфейса; ОбщийМодуль.
Программный модуль, процедура которого будет вызвана.
При использовании типа УправляемаяФорма будет вызван метод модуля указанной управляемой формы.
При использовании типа ОбщийМодуль будет вызван метод общего неглобального модуля.
При использовании типа КомандаКомандногоИнтерфейса будет вызван метод модуля команды командного интерфейса.
Объект данного типа может быть получен только из модуля команды.
Для получения ссылки на него необходимо использовать свойство "ЭтотОбъект".
Оно доступно в контексте модуля команды и аналогично свойству ЭтаФорма в модуле формы.

Формы у меня обычные.

Для такого случая вынес процедуру в оповещении в модуль объекта и все нормально заработало!

12. jan-pechka 425 03.12.17 16:06 Сейчас в теме

Та же проблема с Оповещением:

&НаКлиенте
Процедура ОповещатьГде()
Оповещение=Новый ОписаниеОповещения("ОбработатьВыборФайла",ЭтаФорма);
КонецПроцедуры

&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры)
а=Результат;
КонецПроцедуры

В пользовательском режиме - выдает ошибку:"Не найден экспортируемый метод: ОбработатьВыборФайла"

Обе процедуры были написаны в Модуле Формы, поэтому при обязательном указании в ф-ции Оповещения параметра-исполняемый модуль-стоит ЭтаФорма, Пробывала выносить код на МодульОбъекта, тогда исполняющий модуль нужно указывать как ЭтотОбъект.

Но чтобы все-таки Оповещение вызвало указанную в его параметрах процедуру, то на ней нужно ставить слово Экспорт.....Таким образом, сейчас у меня обе процедуры в одном Модуле формы находятся, но на вызываемой проц.стоит Экспорт...Работает))) Хотя полностью не понятно как...

&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) ЭКСПОРТ
а=Результат;
КонецПроцедуры

13. spacecraft 03.12.17 16:17 Сейчас в теме

(12) пора бы уже научиться пользоваться СП.

ОписаниеОповещения (NotifyDescription)
Основной
Синтаксис:

Новый ОписаниеОповещения(<ИмяПроцедуры>, <Модуль>, <ДополнительныеПараметры>, <ИмяПроцедурыОбработкиОшибки>, <МодульОбработкиОшибки>)
Параметры:

<ИмяПроцедуры> (обязательный)

Тип: Строка.
Имя экспортируемой процедуры модуля, которая будет вызвана.
<Модуль> (обязательный)

Тип: УправляемаяФорма; КомандаКомандногоИнтерфейса; ОбщийМодуль.
Программный модуль, процедура которого будет вызвана.
При использовании типа УправляемаяФорма будет вызван метод модуля указанной управляемой формы.
При использовании типа ОбщийМодуль будет вызван метод общего неглобального модуля.
При использовании типа КомандаКомандногоИнтерфейса будет вызван метод модуля команды командного интерфейса.
Объект данного типа может быть получен только из модуля команды.
Для получения ссылки на него необходимо использовать свойство "ЭтотОбъект".
Оно доступно в контексте модуля команды и аналогично свойству ЭтаФорма в модуле формы.

Показать

14. hvv2002 13 27.12.23 14:14 Сейчас в теме

Напишу здесь, встретилась такая же ошибка, в расширении, вызывалась процедура серверная экспортная, все работало, в модуле формы. понадобилось поднять режим совместимости до 8.3.21 - перестала видеть процедуру. ЧТо сделал : процедуру сделал НаКлиенте , экспортную . а из нее уже вызвал серверную старую.

Ответить

15. mpvrus21 25.04.24 11:10 Сейчас в теме

(14) Так же решил проблему, поднял режим совместимости до 8.3.21 (был 8.3.14), процедура оповещения на клиенте экспортная, а уже в ней вызов серверной процедуры.

16. azbyka231 26.08.24 04:21 Сейчас в теме

Тоже режим совместимости 8.3.21, как и у (14), (15)
Исправил точно так-же, спасибо!

Оставьте свое сообщение

E-mail: