При ОнКлик:
Процедура ОсновныеДействияФормыОсновныеДействияФормыЗакрыть(Кнопка)
   ЭтаФорма.Закрыть(1);
КонецПроцедуры

А получается что нажатием на крестик параметр не передается, как быть?

(0) Вешаться?
Тебе что нужно-то?

(0) неее.. против эволюции не попрешь..
ты вынужден сдохнуть..
никакой помощи...

(1) Мне нужно чтобы чтобы передавалась единица если форма закрыта

(3) Куда передавалась, откуда передавалась? Что и как вызывается?

+(4) Ощути разницу между модальной и немодальной формами.

форма открыта модально, из двух разных кнопок я закрываю с параметром 1 в одной, а с параметром 0 в другой. Но при нажатии на крестик в модально открытой форме вообще никакой параметр не передается. А мне при нажатии на крестик нужно передавать 1.

(6) при нажатии на крестик тебе возвращается "неопределено"

(7) да

Попробуй перехватить событие перед закрытием или при закрытии. И в них сделай Закрыть(1).

Так же параметр можно передать через реквизит формы.

Процедура ОсновныеДействияФормыОсновныеДействияФормыСохранить(Кнопка)
   ЭтотОбъект.Записать();
   ФлажокОткл = 0;
   ЭтаФорма.Закрыть(ФлажокОткл);
КонецПроцедуры

Процедура ОсновныеДействияФормыОсновныеДействияФормыЗакрыть(Кнопка)
   ФлажокОткл = 1;
   ЭтаФорма.Закрыть(ФлажокОткл);
КонецПроцедуры

Как быть? если нажали на крестик.

(11) >Как быть? если нажали на крестик.
В событии "перед закрытием" сделай:
Отказ = Истина;

Перем Закрывать;
Процедура ОсновныеДействияФормыОсновныеДействияФормыСохранить(Кнопка)
   ЭтотОбъект.Записать();
   ФлажокОткл = 0;
   ЭтаФорма.Закрыть(ФлажокОткл);
Закрывать = Истина;
КонецПроцедуры

Процедура ОсновныеДействияФормыОсновныеДействияФормыЗакрыть(Кнопка)
   ФлажокОткл = 1;
   ЭтаФорма.Закрыть(ФлажокОткл);
Закрывать = Истина;
КонецПроцедуры

Процедура ПередЗакрытием(Отказ)
Если Не Закрывать Тогда
Отказ = Истина;
КонецЕсли;
КонецПроцедуры


Закрывать = Ложь;

(13) первое нажатие на крест не закроет. хрень какая-то..

(14) и второе тоже. реализация вполне, но идея - таки хрень

Но проще через реквизит формы данные передать.

Форма = Об.ПолучитьФорму();
Зн = Форма.ОткрытьМодально();
Если зн <> Неопределено Тогда
   ЗначениеПараметра = Форма.Реквизит1;
КонецЕсли;

(15) Хрен, согласен, как вариант.

Кстати (9) тоже работает:

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
   
   Закрыть(101);
   
КонецПроцедуры


+ еще один способ в свойствах формы убрать галочку "Разрешить закрытие", тогда кнопки крестик вообще нету...

Всего четыре способа, выбирай на вкус =)

Сделал вот так:
Отказ = ?(Элемент.ТекущиеДанные.Ссылка.ПолучитьФорму("ФормаДокументаДляЛотус").ОткрытьМодально() = Неопределено, Истина, Ложь); // Это вызов формы которую я закрываю крестом или кнопкой "Закрыть"

Процедура ОсновныеДействияФормыОсновныеДействияФормыСохранить(Кнопка)
   ЭтотОбъект.Записать();
   ФлажокОткл = 0;
   ЭтаФорма.Закрыть(ФлажокОткл);
КонецПроцедуры

(19) Мдаааааа