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