Код

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

	Если ПустоеЗначение(Форма.Параметр)=0 Тогда
		Если ВРег(ТипЗначенияСтр(Форма.Параметр))="ДОКУМЕНТ" Тогда
			// НАДО ПОЗИЦИОНИРОВАТЬСЯ НА ЭТОМ ДОКУМЕНТЕ
			Док = Форма.Параметр.ТекущийДокумент();
			Если Док.Выбран()>0 Тогда
				ТекДок = Док;
				ПриОткрытииЖурналаСПозиционированиемНаДокументе(Док);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	Попытка
		АктивизироватьОбъект(ТекДок);
	Исключение
	КонецПопытки;
КонецПроцедуры

Процедура ПриПовторномОткрытии()
	ПриОткрытииИЛИПереоткрытииЖурнала("Переоткрытие");
КонецПроцедуры

Процедура ПриОткрытии()
	НоваяФорма=глВернутьПараметрЛюбойПоКоду("НовыйЖурнал"+ИмяПользователя());
	Если ПустоеЗначение(НоваяФорма)=0 Тогда
		Если ЭтоSQL=1 Тогда
			Ответ=Вопрос("Открыть Новый Журнал?","Да+Нет",50);
			Если Ответ="Да" Тогда
				Если ОткрытьФорму("Отчет",Контекст,КаталогИБ()+"ExtForms\ОбщийЖурнал.ert")=1 Тогда
					СтатусВозврата(0);
					Возврат;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	Если ЭтоSQL=1 Тогда
		Запрос=глСоединение();
		ТекстЗапроса = "
		|If not Exists (Select *
		|		   From sysobjects
		|		   Where id = object_id('docsidd') and objectproperty(id, 'IsUserTable') = 1
		|	    )
		|   Create table docsidd (iddoc varchar(9) primary key not null
		|,
		|							stat int
		|			    )";

		Если Запрос.ВыполнитьСкалярный(ТекстЗапроса) = 0 Тогда
			ЗаписьЖурналаРегистрации("Инициализация docsidd: ошибка инициализации", "Инициализация", "Инициализация таблиц SQL", , 5);
		КонецЕсли;
		Текст="
		|select
		|	d.stat ЕстьДокументы
		|from docsidd d (nolock)
		|WHERE
		|d.iddoc=?
		|";
		Если Запрос.Подготовить(Текст)=0 Тогда
			Сообщить(Запрос.GetLastError());
			Возврат;
		КонецЕсли;
		Запрос.ДобПараметр(1,14,9,0);
	Иначе
		ИмяБД = КаталогИБ()+"baza.db3";
		база = СоздатьОбъект("SQLiteBase");
		база.Открыть(ИмяБД);
		Запрос = база.НовыйЗапрос();
		Запрос.ВыполнитьЗапрос("PRAGMA journal_mode=WAL");
		Текст="
		|Create  table if not EXISTS
		|docsidd (
		|   iddoc char(9) primary key not null,
		|   stat int
		|)";
		Запрос.ВыполнитьЗапрос(Текст);
		Текст="
		|select
		|	stat
		|from docsidd
		|WHERE
		|iddoc=@ВыбДок
		|";
		Запрос.Подготовить(Текст);
	КонецЕсли;
	// Определение был ли быстрый отбор
	Право=глПрава(НазваниеНабораПрав());
	ПриОткрытииИЛИПереоткрытииЖурнала("Открытие");


	ПравоКнСоздатьПару = глПолучитьПраво("ВидимостьКнопкиСоздатьПаруПеремещение");
	ПравоКнВозврат = глПолучитьПраво("ВидимостьКнопкиВозвратВЖурнале");
	Если НазваниеНабораПрав() = "Администратор" Тогда
		ПравоКнСоздатьПару = 1;
	КонецЕсли;

	//КурсОбмена=Константа.ОсновнаяВалюта.КурсОбмена.Получить(ТекущаяДата());
	Если глПолучитьПраво("БлокироватьРасход")=0 Тогда
		Форма.кн1.Видимость(0);
		Форма.кн2.Видимость(0);
	КонецЕсли;
	// будем отслеживать только реальные изменения этих реквизитов
КонецПроцедуры