&НаКлиенте
Процедура ОсновноеСредствоОткрытие(Элемент, СтандартнаяОбработка)
	// Вставить содержимое обработчика.
	Если Не Объект.ОсновноеСредство.Пустая() Тогда
		СтандартнаяОбработка = Ложь;

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

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

    БылиОшибки=Ложь;   

  Пока Выборка.Следующий() цикл
        ОбработкаПрерыванийПользователя();
        Набор = РегистрыНакопления.Остатки.СоздатьНаборЗаписей();
        Набор.Отбор.Регистратор.Значение = Выборка.Регистратор;
        Попытка
           Набор.Записать();
        Исключение
           БылиОшибки=Истина;
        КонецПопытки;
        Кол=Кол+1;
        ЕСЛИ Кол%100=0 Тогда
            Сообщить("Отработано "+Кол+" документов из "+Выборка.Количество());
        КонецЕсли;
    КонецЦикла;
    Если БылиОшибки Тогда
       Предупреждение("Обработка завершена. Регистр очищен не до конца!!!");
    КонецЕсли;
    РегистрыНакопления.Остатки.УстановитьИспользованиеИтогов(Истина);   

 
//Процедура для кнопки выбор периода
Процедура ВыбПериодНажатие(Элемент)
	НастройкаПериода = Новый НастройкаПериода;
	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));
	НастройкаПериода.РедактироватьКакИнтервал = Истина;
	НастройкаПериода.РедактироватьКакПериод = Истина;
	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период; //Закладка Период
	// НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Интервал;// Закладка Интервал
	Если НастройкаПериода.Редактировать() Тогда
		НачПериода = НастройкаПериода.ПолучитьДатуНачала();
		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();
	КонецЕсли;
КонецПроцедуры
   

 

// Функция ВвестиПериод выдает на экран диалог специального вида,

// при помощи которого пользователь может выбрать период. 

// Выбранный пользователем период записывается в переменные, передаваемые как параметры при вызове метода.



Дата1 = '01.01.97';

Дата2 = '31.03.97';

Если ВвестиПериод(Дата1, Дата2, "Введите период отчета") <> 1 Тогда

	// Нажата кнопка «Отмена», клавиша  или закрыто окно диалога

   Возврат 0;

Иначе

   СформироватьОтчет(Дата1, Дата2);

КонецЕсли;