Неверный формат хранилища данных

все что смог v8unpak (Спасибо автору)

Процедура Сформировать(ЭтоРобот) Экспорт
СообщенияОбОшибках = "";
Отбор = Новый Структура("Проведен,СостояниеЗаказа,ДатаВОтгрузку",Истина,1,'00010101000000');
Выборка = Документы.РеализацияТоваровУслуг.Выбрать(НачалоДня(ТекДата-60*60*24*20),КонецДня(ТекДата-60*60*24*1),Отбор,);
Пока Выборка.Следующий() цикл
Если (Выборка.ДатаВыписки<>ТекДата) Тогда
УстановитьНовыеДатыВремя(Выборка.Ссылка,ЭтоРобот);
КонецЕсли;
КонецЦикла;

КонецПроцедуры

Процедура УстановитьНовыеДатыВремя(ДокументСсылка,ЭтоРобот)
ДокОбъект = ДокументСсылка.ПолучитьОбъект();
ДокОбъект = Документы.РеализацияТоваровУслуг.НайтиПоНомеру(123).ПолучитьОбъект();
АдресПолучателя = ПолучитьАдресПользователяИзРегистра(ДокументСсылка.Ответственный);

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

если ЭтоРобот тогда
РоботДобавитьВЛог("Перенесен документ "+ДокументСсылка,ДокументСсылка);
КонецЕсли;
//глРегистрацияИзменений(Док.ТекущийДокумент());//Че это?
ЗафиксироватьТранзакцию();
КонецПроцедуры

Процедура РоботДобавитьВЛог(Сообщение,ДокументСсылка)
Если ЗначениеЗаполнено(Сообщение) Тогда
ПОльзователь = ПараметрыСеанса.ТекущийПользователь;
Сообщение=""+ТекущаяДата()+" "+СокрЛП(Пользователь.Наименование)+"
|"+Сообщение;

ЗаписьЖурналаРегистрации(Сообщение,,Метаданные.Документы.РеализацияТоваровУслуг,ДокументСсылка);

//РоботЛог.НоваяСтрока();
//РоботЛог.Сообщение = Сообщение;
КонецЕсли;
КонецПРоцедуры

Функция ПолучитьАдресПользователяИзРегистра(Пользователь)

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

Пока Выборка.Следующий() Цикл
АдресЭлектроннойПочты = Выборка.АдресЭлектроннойПочты;
КонецЦикла;
КонецЕсли;
Возврат АдресЭлектроннойПочты;

КонецФункции