andrew76 @ Сегодня, 9:23
,
Добрый день! У меня есть такой код получаю по товару
Спр = СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
ИдСтр = ЗначениеВстрокуВнутр(Спр.ТекущийЭлемент());
ФТ.Ключ.IDINT = ИдСтр;
Если ФТ.НайтиПоКлючу(0) = 0 Тогда
Сообщить("Не найден GUID для товара " + Спр.Наименование, "!");
Продолжить;
Иначе
Сообщить(Спр.Наименование, "i");
Сообщить(ФТ.GUID, " ");
КонецЕсли;
КонецЦикла;
denis84 @ Сегодня, 9:35
,
В 1С 7.7 можно получить так
Через v7plus.dll
Код 1C v 7.x
Инфо = СоздатьОбъект("AddIn.V7SysInfo");
ГлобальноУникальныйИдентификатор = Инфо.СоздатьGUID();
Через WScript
Код 1C v 7.x
Функция СоздатьGUID()
TypeLib = CreateObject("Scriptlet.TypeLib");
NewGUID = TypeLib.Guid();
TypeLib = "";
Возврат NewGUID;
КонецФункции
//*******************************************
Процедура Сформировать()
g=СоздатьGUID();
Сообщить("Создан GUID: "+g);
КонецПроцедуры
при OLE доступе:
Код 1C v 7.x
Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 Тогда
Пока Док_Источник.ПолучитьДокумент() = 1 Цикл
Объект = БазаОле.ЗначениеВстрокуВнутр(Док_Источник.ТекущийДокумент());
ИдентификаторДокумента = СокрЛП(ПолучитьИД(Объект));
// Для примера Объект возвращает {"O","0","0","3114","0","0"," 258156CB "},
// а ПолучитьИД(объект) = 258156CB
КонецЦикла;
Еще посмотрите метод:
ЗначениеВСтрокуВнутр(<?>);
Синтаксис:
ЗначениеВСтрокуВнутр(<Объект>)
Назначение:
Преобразование значения объекта агрегатного типа в строковое системное представление.
Возвращает: представление значения объекта в строковом системном виде.
Параметры:
<Объект> - значение объекта агрегатного типа данных которое нужно преобразовать.[/code]
Сообщение отредактировал denis84 - 02.12.21, 9:39