Как программно отличить "Записать" и "Записать и закрыть"?

// Создаю свою команду
ИмяКомандыЗаписатьИЗакрыть = "ЗаписатьИЗакрыть";
КомандаЗаписатьИЗакрыть = ЭтаФорма.Команды.Добавить(ИмяКомандыЗаписатьИЗакрыть);

// Описываю действие, которое будет вызываться при выполнении команды
КомандаЗаписатьИЗакрыть.Действие = "Подключаемый_" + ИмяКомандыЗаписатьИЗакрыть;

// Присваиваю команду уже имеющейся кнопке
КоманднаяПанель.ПодчиненныеЭлементы.ФормаЗаписатьИЗакрыть.ИмяКоманды = ИмяКомандыЗаписатьИЗакрыть;

// Устанавливаю заголовок кнопке, (по умолчанию присваивается имя команды без пробелов). Не буду здесь описывать, (у меня отдельной функцией делается вставка пробелов перед заглавными буквами).

// Свойство в параметрах записи
ЭтаФорма.Записать(Новый Структура("ЗакрыватьПослеЗаписи"));

// Проверяю наличие свойства в структуре, его отсутствие указывает на то, что можно сделать асинхронный вызов
Если Не ПараметрыЗаписи.Свойство("ПродолжениеЗаписи") Тогда
		
// Пробрасываю параметр о том, что форма должна быть закрыта
		ДополнительныеПараметры = Новый Структура;
		ДополнительныеПараметры.Вставить("ЗакрыватьПослеЗаписи",ПараметрыЗаписи.Свойство("ЗакрыватьПослеЗаписи"));
		
// Отказываю в записи, хочу вызвать запись после ответа пользователя
		Отказ = Истина;

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

// Ничего не делаю, если пользователь закрыл окно вопроса       
        Если Ответ = Неопределено Тогда
		Возврат;
	КонецЕсли;
// Тут пишем, что хотим делать
....
....
....
// Вызываем запись повторно, но уже с параметрами
        ПараметрыЗаписи = Новый Структура;
// Наличие этого параметра позволит больше не задавать вопрос перед записью
	ПараметрыЗаписи.Вставить("ПродолжениеЗаписи");	

// Пробрасываем параметр о том что форма будет закрыта.
	Если ДополнительныеПараметры.ЗакрыватьПослеЗаписи Тогда
		ПараметрыЗаписи.Вставить("ЗакрыватьПослеЗаписи");
	КонецЕсли;
	ЭтаФорма.Записать(ПараметрыЗаписи);

Если ПараметрыЗаписи.Свойство("ЗакрыватьПослеЗаписи") Тогда
	ЭтаФорма.Закрыть();
КонецЕсли;

&НаСервере
&Вместо("ПриСозданииНаСервере")
Процедура Расширение_ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	//свой код
	////
	
	ИмяКомандыЗаписатьИЗакрыть = "ЗаписатьИЗакрыть";
	КомандаЗаписатьИЗакрыть = ЭтаФорма.Команды.Добавить(ИмяКомандыЗаписатьИЗакрыть);
	КомандаЗаписатьИЗакрыть.Заголовок = НСтр("ru = 'Записать и закрыть'");
	
	// Описываю действие, которое будет вызываться при выполнении команды
	КомандаЗаписатьИЗакрыть.Действие = "Подключаемый_" + ИмяКомандыЗаписатьИЗакрыть;
	
	// Присваиваю команду уже имеющейся кнопке
	КоманднаяПанель.ПодчиненныеЭлементы.ФормаЗаписатьИЗакрыть.ИмяКоманды = ИмяКомандыЗаписатьИЗакрыть;
	
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ЗаписатьИЗакрыть(Команда)

	ПараметрыЗаписи = Новый Структура;
	ПараметрыЗаписи.Вставить("Закрыть", Истина);

	ЭтаФорма.Записать(ПараметрыЗаписи);
	
КонецПроцедуры

&НаСервере
Функция Расширение_ПроверитьНаДубли(ЗадатьВопрос) 
	
	Если Не Объект.Ссылка.Пустая() Тогда
		Возврат Ложь;
	КонецЕсли;
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	ДоговорыКонтрагентов.Ссылка КАК Ссылка
	|ИЗ
	|	Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
	|ГДЕ
	|	ДоговорыКонтрагентов.Владелец = &Владелец
	|	И ДоговорыКонтрагентов.Организация = &Организация
	|	И ДоговорыКонтрагентов.ВидДоговора = &ВидДоговора";		
	
	Запрос.УстановитьПараметр("Владелец", Объект.Владелец);
	Запрос.УстановитьПараметр("Организация", Объект.Организация);
	Запрос.УстановитьПараметр("ВидДоговора", Объект.ВидДоговора);
	
	УстановитьПривилегированныйРежим(Истина);
	РезультатЗапроса = Запрос.Выполнить();
	УстановитьПривилегированныйРежим(Ложь);
	
	Если Не РезультатЗапроса.Пустой() Тогда
		ЗадатьВопрос = Истина;
	КонецЕсли;
	
	Возврат ЗадатьВопрос;
	
КонецФункции   

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


&НаКлиенте
&Перед("ПередЗаписью")
Процедура Расширение_ПередЗаписью(Отказ, ПараметрыЗаписи)
	
	Если Не Отказ Тогда
		Если Не ПараметрыЗаписи.Свойство("ЗаписатьПослеВопроса") Тогда
			
			ЗадатьВопрос = Ложь;
			Расширение_ПроверитьНаДубли(ЗадатьВопрос);
			Если ЗадатьВопрос Тогда
				Отказ = Истина;
				
				Оповещение = Новый ОписаниеОповещения("Расширение_ПослеЗакрытияВопроса", ЭтотОбъект, ПараметрыЗаписи);
				ПоказатьВопрос(Оповещение, НСтр("ru = 'Подобный договор существует!
				|ИСПОЛЬЗОВАТЬ ИМЕЮЩИЙСЯ ДОГОВОР?'"), РежимДиалогаВопрос.ДаНет, 0);
				Возврат;
			КонецЕсли;
		КонецЕсли; 
		Если ПараметрыЗаписи.Свойство("Закрыть", Истина) Тогда
			
			Закрыть();
			
			Возврат;
		КонецЕсли;
	КонецЕсли;
	
КонецПроцедуры