Добрый день !
Как получить уникальный идентификатор элемента справочника в 1 с7.7.025 ?
Спр = СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
ИдСтр = ЗначениеВстрокуВнутр(Спр.ТекущийЭлемент());
ФТ.Ключ.IDINT = ИдСтр;
Если ФТ.НайтиПоКлючу(0) = 0 Тогда
Сообщить("Не найден GUID для товара " + Спр.Наименование, "!");
Продолжить;
Иначе
Сообщить(Спр.Наименование, "i");
Сообщить(ФТ.GUID, " ");
КонецЕсли;
КонецЦикла;
Инфо = СоздатьОбъект("AddIn.V7SysInfo");
ГлобальноУникальныйИдентификатор = Инфо.СоздатьGUID();
Функция СоздатьGUID()
TypeLib = CreateObject("Scriptlet.TypeLib");
NewGUID = TypeLib.Guid();
TypeLib = "";
Возврат NewGUID;
КонецФункции
//*******************************************
Процедура Сформировать()
g=СоздатьGUID();
Сообщить("Создан GUID: "+g);
КонецПроцедуры
Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 Тогда
Пока Док_Источник.ПолучитьДокумент() = 1 Цикл
Объект = БазаОле.ЗначениеВстрокуВнутр(Док_Источник.ТекущийДокумент());
ИдентификаторДокумента = СокрЛП(ПолучитьИД(Объект));
// Для примера Объект возвращает {"O","0","0","3114","0","0"," 258156CB "},
// а ПолучитьИД(объект) = 258156CB
КонецЦикла;