Проблема . Чистится регистр сведений Дополнительные сведения

	Попытка
		Запрос = Соединение.NewObject("Запрос");
		Запрос.Текст = 	
		"ВЫБРАТЬ
		|	ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.Наименование КАК Сотрудник,
		|	ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.Номер КАК НомерПриказа,
		|	ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.Дата КАК ДатаПриказа,
		|	ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.НомерДоговора КАК НомерТрудовогоДоговора,
		|	ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ДатаДоговора КАК ДатаТрудовогоДоговора
		|ИЗ
		|	Документ.ПриемНаРаботуВОрганизацию.РаботникиОрганизации КАК ПриемНаРаботуВОрганизациюРаботникиОрганизации
		|ГДЕ
		|	ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка.ПометкаУдаления = ЛОЖЬ
		|	И ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ПометкаУдаления = ЛОЖЬ
		|	И ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ДатаУвольнения = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
		
		|УПОРЯДОЧИТЬ ПО
		|	ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.Наименование";	
		РезультатЗапроса = Запрос.Выполнить();
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		ПК = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			Сотрудник = Справочники.Сотрудники.НайтиПоНаименованию(СокрЛП(ВыборкаДетальныеЗаписи.Сотрудник));
			Если Сотрудник.Пустая() Тогда
				Сообщить("Не нашли "+ ВыборкаДетальныеЗаписи.Сотрудник);
			Иначе
				НоваяЗапись = ПК.Добавить(); 
				НоваяЗапись.Объект = Сотрудник; 
				НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Номер трудового договора"); 
				НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.НомерТрудовогоДоговора; 
				
				НоваяЗапись = ПК.Добавить(); 
				НоваяЗапись.Объект = Сотрудник; 
				НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Дата трудового договора"); 
				НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.ДатаТрудовогоДоговора; 
				
				НоваяЗапись = ПК.Добавить(); 
				НоваяЗапись.Объект = Сотрудник; 
				НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Дата приказа"); 
				НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.ДатаПриказа; 
				
				НоваяЗапись = ПК.Добавить(); 
				НоваяЗапись.Объект = Сотрудник; 
				НоваяЗапись.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Номер приказа"); 
				НоваяЗапись.Значение = ВыборкаДетальныеЗаписи.НомерПриказа; 
			КонецЕсли;
		КонецЦикла;
		ПК.Записать();
	Исключение
		Сообщить("Не удалось");
		Соединение="";
	КонецПопытки;