&НаКлиенте

Процедура КомандаВопрос(Команда)

	Ответ = Вопрос("Ну что скажешь? ", РежимДиалогаВопрос.ДаНет);	

	Если Ответ = КодВозвратаДиалога.Да Тогда                                   		

		Сообщить("Ответили ДА!");                                              		

	КонецЕсли;

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

 &НаКлиенте

Процедура КомандаВопросПоНовому(Команда)

	Оповещение = Новый ОписаниеОповещения("ОтветНаВопросЗавершение", ЭтотОбъект);

	ТекстВопроса = "Ну что скажешь?";

	ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);

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





&НаКлиенте 

Процедура ОтветНаВопросЗавершение(Результат, ДополнительныеПараметры) Экспорт 

	Если Результат = КодВозвратаДиалога.Да Тогда

		Сообщить("Ответили ДА");

	КонецЕсли;

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

 

&НаКлиенте

Процедура ОсновноеСредствоОткрытие(Элемент, СтандартнаяОбработка)

	// Вставить содержимое обработчика.

	Если Не Объект.ОсновноеСредство.Пустая() Тогда

		СтандартнаяОбработка = Ложь;



		ПередаваемыеПараметры = Новый Структура; //формируем структуру полей измерений

		

		ПередаваемыеПараметры.Вставить("ОсновноеСредство",Объект.ОсновноеСредство);

		ПараметрыМассив = Новый Массив;

		ПараметрыМассив.Добавить(ПередаваемыеПараметры); // помещаем структуру в массив

		КлючЗаписиРегистра = Новый("РегистрСведенийКлючЗаписи.ПервоначальныеСведенияТС", ПараметрыМассив); //с помощью массива со структурой создаем ключ записи

		ОткрытьФормуМодально("РегистрСведений.ПервоначальныеСведенияТС.ФормаЗаписи", Новый Структура("Ключ", КлючЗаписиРегистра)); // передаем в форму ключ записи и открываем её

	КонецЕсли;

	

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