Статья для версии 7.7, для 8.х смотрите - Битая ссылка, <Объект не найден>, Уникальный Идентификатор, GUID

Введение
Многие из Вас, наверное, сталкивались с такой проблемой как, удаление элементов в справочниках, а значит, знают, какую кучу проблем это приносит. Я видал много способов восстановления порушенного справочника. Все их можно свести к следующему:
Заводится новый элемент справочника, аналогичный удаленному элементу, а потом он заносится во все документы, вместо удаленного элемента. Дальше все различается только способом занесения элемента в документы. Кто все исправляет в руки, кто пишет обработку - все зависит от опыта и квалификации исполнителя. После чего, необходимо перепровести все измененные документы. В общем, долгая и нудная работа, не всегда дающая 100% результат правильного восстановления. Есть, правда, один быстрый способ, основанный на формате DBF, точнее методах работы с ним.
Вот об этом мы и поговорим. Итак, что нам для этого надо. Иметь голову, наполненную мозгами, умелые ручки, знания основ перевода чисел из одной системы счисления в другую и любой редактор DBF файлов. Я, к примеру, использую winDBFview фирмы "Гэндальф".

Часть 1. Нам повезло.
С начала, собственно, о формате DBF и методах работы с ним. Думаю, рассказывать обо всем формате нет смысла, это тема отдельной статьи, поэтому расскажем о нем вкратце, для понимания тех действий, которые необходимо совершить.
Итак, что такое DBF формат и с чем его едят. Файл DBF можно разделить на две части: заголовок и, собственно, набор данных. В заголовке находится вся служебная информация, показывающая из каких полей состоит запись, типы этих полей, размер данных в полях, количество записей, размер записи, и откуда в файле начинаются записи, но это сейчас ни к чему. В наборе данных находятся, собственно, записи данных. В начале каждой записи стоит специальный байт - признак удаления. То есть когда вы говорите программе удалить запись, она ее фактический не удаляет, а ставит в первый байт записи метку о том, что данная запись удалена.
Отсюда следует, что если найти запись соответствующую удаленному элементу и сбросить признак удаления, переиндексировать базу, то можно обнаружить что, правильно удаленный
элемент будет восстановлен не только в справочнике, но всех документах.

Для тех, кто не знает что почем, показываю на примере:
Рабочая конфигурация ТиС, удалили элемент справочника товаров.
Запускаем winDBFview и выбираем Файл - Открыть. В появившемся окне диалога находим папку, в которую установлена база и открываем там файл. А какой? Вот ведь вопрос: как узнать? Да просто. Запускаем какую-нибудь оболочку, переходим в папку с базой и находим файл"1Cv7.DD". Открываем его для просмотра и находим там следующую строчку - "Справочник Номенклатура" - в нашем случае, у вас, вместо "Номенклатура" ставим название порушенного справочника (как он называется в конфигураторе) . И видим приблизительно следующее (см. рис. 1). То, что у меня выделено под надписью "Name" и есть искомое нами имя файла. Открываем его в редакторе DBF файлов, и смотрим. В поле CODE содержится код элемента справочника, а в поле DESCR наименование элемента. Как будете искать - уже дело техники и возможностей редактора. Найдя нужный элемент, сбрасываем байт пометки на удаления и сохраняем сделанные изменения.

Часть 2. Нам не повезло.
Но может быть, что вы не смогли быстро приехать к месту событий (всякое в жизни бывает). Приступили к восстановлению элемента. Запустили редактор. И начали искать и не нашли удаленный элемент. Куда он делся? Опять вернемся к формату DBF, и посмотрим, что происходит при добавлении новой записи. С начала программа ищет помеченные на удаление записи и если не находит, то добавляет новую запись. А если находит, вы правы, пишет вместо нее. И что делать, неужто опять все в руки?
Внимательно смотрим листинг файла "1Cv7.DD". Видите перед полем CODE поля ID и PARENTID. Для чего они нужны. Из описания поля (см. рис. 1), следует, что это какой-то идентификатор объекта. Оказывается 1С все равно, на тот код, что вы указали в справочнике элементов. Сама для себя она каждому объекту присваивает свой код. Значит, если мы узнаем этот код, то сможем создать запись полный аналог удаленной. Хм.... А как узнать этот код?
Есть много способов. Я, надеюсь, предлагаю вам самый простой. Итак, начнем.
Запускаем 1С. Лезем в Сервис - Монитор пользователей - Журнал регистрации. В появившемся диалоге делаем отбор: "во всем журнале, отбор по признаку удаление элемента справочника", жмем "ОК".
И смотрим журнал (см. рис. 2). Видите, там, где написано "Номенклатура 2258 04 ....", это и есть удаленный элемент справочника, его нам и надо восстановить. Сверху присутствует
строка: "<Объект не найден>(36201/)", 36201 - это и есть ID объекта. Создаем в справочнике новый элемент - полный аналог удаленному элементу. Выходим из 1С. Запускаем редактор, находим созданный нами элемент и поле ID ставим найденный. Внимательный читатель может сразу заметить существенное различие между соседними записями. Вот сейчас мы и переведем найденный идентификатор к нужному виду.

Перевод из одной системы счисления в другую, подробно изучается в школах и институтах, поэтому на этом останавливаться не будем. Изучив весь справочник, замечаем, что в идентификатор состоит из цифр и заглавных букв латинского алфавита. То есть может содержать все цифры от "0" до "9", и буквы от "A" до "Z". Значит, используется тридцати шестеричная система счисления 10 цифр плюс 26 букв. Приступим:

* 36201 делим на 36, получаем 1005 в остатке 21;
* 1005 делим на 36, получаем 27 в остатке 33;

В конце имеем три числа: 27, 33, 21. Заменяем их соответствующими значениями из приведенной ниже таблицы и получаем ID объекта RXL. Записываем его вместо ID созданного нами элемента.
Номер можно получить средствами самой 1С использую функцию _IdToStr() и наоборот получит десятичное число из его тридцати шестеричного представления _StrToId().
Запускаем 1С, индексируем базу и смотрим, что имеем (см. рис. 3)
Что и требовалось получить. Пользуйтесь.

автор: skunk

Код 1C v 8.х

 Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) Экспорт

	МД = Новый Структура;



	Состояние("Подключение к " + КаталогИБ);



	V7 = Новый COMОбъект("V77.Application");

	Если V7.Initialize(V7.RMTrade, "/d"""+КаталогИБ+""" /n"+ИмяПользователяV7+" /p"+ПарольПользователяV7, "NO_SPASH_SHOW") = 0 Тогда

		Сообщить("Нет доступа к информационной базе.");

		Возврат Ложь;

	КонецЕсли;



	MDW = V7.CreateObject("MetaDataWork");



	MD = V7.Метаданные;



	Состояние("Загрузка справочников..");

	Ст1 = Новый Структура;

	МД.Вставить("Справочник", Ст1);

	Для Номер1 = 1 По MD.Справочник() Цикл

		МДСправочник = MD.Справочник(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДСправочник.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДСправочник));

		Для Номер2 = 1 По МДСправочник.Реквизит() Цикл

			МДРеквизит = МДСправочник.Реквизит(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка перечислений..");

	Ст1 = Новый Структура;

	МД.Вставить("Перечисление", Ст1);

	Для Номер1 = 1 По MD.Перечисление() Цикл

		МДПеречисление = MD.Перечисление(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДПеречисление.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДПеречисление));

		Для Номер2 = 1 По МДПеречисление.Значение() Цикл

			МДЗначение = МДПеречисление.Значение(Номер2);

			Ст2.Вставить(МДЗначение.Идентификатор, V7.EvalExpr("_idtostr("+MDW.ИДОбъекта(МДЗначение)+")")+"   ");

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка документов..");

	Ст1 = Новый Структура;

	МД.Вставить("Документ", Ст1);

	Для Номер1 = 1 По MD.Документ() Цикл

		МДДокумент = MD.Документ(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДДокумент.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДДокумент));

		Для Номер2 = 1 По МДДокумент.РеквизитШапки() Цикл

			МДРеквизит = МДДокумент.РеквизитШапки(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

		Для Номер2 = 1 По МДДокумент.РеквизитТабличнойЧасти() Цикл

			МДРеквизит = МДДокумент.РеквизитТабличнойЧасти(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Состояние("Загрузка регистров..");

	Ст1 = Новый Структура;

	МД.Вставить("Регистр", Ст1);

	Для Номер1 = 1 По MD.Регистр() Цикл

		МДРегистр = MD.Регистр(Номер1);

		Ст2 = Новый Структура;

		Ст1.Вставить(МДРегистр.Идентификатор, Ст2);

		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДРегистр));

		Для Номер2 = 1 По МДРегистр.Измерение() Цикл

			МДИзмерение = МДРегистр.Измерение(Номер2);

			Ст2.Вставить(МДИзмерение.Идентификатор, MDW.ИДОбъекта(МДИзмерение));

		КонецЦикла;

		Для Номер2 = 1 По МДРегистр.Ресурс() Цикл

			МДРесурс = МДРегистр.Ресурс(Номер2);

			Ст2.Вставить(МДРесурс.Идентификатор, MDW.ИДОбъекта(МДРесурс));

		КонецЦикла;

		Для Номер2 = 1 По МДРегистр.Реквизит() Цикл

			МДРеквизит = МДРегистр.Реквизит(Номер2);

			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));

		КонецЦикла;

	КонецЦикла;



	Константы.МетаданныеУдаленнойИБ.Установить(Новый ХранилищеЗначения(МД));

	Возврат Истина;

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

   

Формируется конечно не быстро, но Структура - объект сериализуемый, поэтому ее надо просто хранить в ХранилищеЗначения в базе 8ки, и восстанавливать перед каждым переносом данных, а не формировать заново. Обновлять ее можно периодически при изменении конфигурации, ито если изменения влияют на перенос данных.

Обратите внимание: все идентификаторы объектов в 10ой системе, а идентификаторы значений перечислений в 36ой.

DmitrO

  ДБФ=СоздатьОбъект("XBase");

    ДБФ.ДобавитьПоле("DATE","D",0,0);  

    Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"<");

   //Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"Пустая строка"); //DTOS !!!

   // где DTOC() - "ММ/ДД/ГГ" или DTOS() - "ГГГГММДД"  

    ДБФ.СоздатьФайл("c:\test.dbf","c:\test.cdx");  

    Для ТекДата='01.09.05' По '10.09.05' Цикл 

        Дбф.Добавить();

        Дбф.DATE=ТекДата;

        ДБФ.Записать();

    КонецЦикла; 

    //ДБФ.КодоваяСтраница(0); 

    ДБФ.ТекущийИндекс("INDEX"); 

    Для ТекДата='01.09.05' По '10.09.05' Цикл 

        ДБФ.Ключ.DATE = ТекДата;

        Если ДБФ.НайтиПоКлючу(0)=1 Тогда

            Сообщить(ТекДата);

        КонецЕсли;    

    КонецЦикла;

    ДБФ.ЗакрытьФайл();