Есть недочет в коде:
Для Каждого СтрокаКадроваяИстория Из Объект.КадровыеДокументы Цикл
СтрокаКадроваяИстория.РегистраторТекст = "№"+СтрокаКадроваяИстория.РегистраторКадроваяИстория.Номер+" от "+Формат(СтрокаКадроваяИстория.РегистраторКадроваяИстория.Дата,"ДЛФ=Д");
КонецЦикла;
Нужно исправить на :
Для Каждого СтрокаКадроваяИстория Из Объект.КадровыеДокументы Цикл
Если СтрокаКадроваяИстория.РегистраторКадроваяИстория <>Неопределено Тогда
СтрокаКадроваяИстория.РегистраторТекст = "№"+СтрокаКадроваяИстория.РегистраторКадроваяИстория.Номер+" от "+Формат(СтрокаКадроваяИстория.РегистраторКадроваяИстория.Дата,"ДЛФ=Д");
КонецЕсли;
КонецЦикла;