3.
lvadim
22
16.08.10 11:42
Сейчас в теме
Можно так :)
// Преобразует ГУИД из формата 1С в формат SQL
Функция ГУИДдляSQL(Строка) Экспорт
Если ПустаяСтрока(Строка) Тогда
Возврат Строка;
КонецЕсли;
Результат = "";
Строка = СтрЗаменить(СтрЗаменить(СтрЗаменить(Строка, "-",""), "{", ""), "}", "");
СтрокаПозиций = "23211917272531291315091101030507";
Для к = 0 По 15 Цикл
ИсхПозиция = Число(Сред(СтрокаПозиций, к*2+1,2));
Результат = Результат + Сред(Строка, ИсхПозиция, 2);
КонецЦикла;
Возврат Врег(Сред(Результат, 1, 8)+"-"+Сред(Результат, 9, 4)+"-"+Сред(Результат, 13, 4)+"-"+Сред(Результат, 17, 4)+"-"+Сред(Результат, 21, 12));
КонецФункции // ГУИДдляSQL()
// Преобразует ГУИД из формата SQL в формат 1С
Функция ГУИДдля1С(Строка) Экспорт
Если ПустаяСтрока(Строка) Тогда
Возврат Строка;
КонецЕсли;
Результат = "";
Строка = СтрЗаменить(СтрЗаменить(СтрЗаменить(Строка, "-",""), "{", ""), "}", "");
СтрокаПозиций = "25272931212317190705030111091513";
Для к = 0 По 15 Цикл
ИсхПозиция = Число(Сред(СтрокаПозиций, к*2+1,2));
Результат = Результат + Сред(Строка, ИсхПозиция, 2);
КонецЦикла;
Возврат Врег(Сред(Результат, 1, 8)+"-"+Сред(Результат, 9, 4)+"-"+Сред(Результат, 13, 4)+"-"+Сред(Результат, 17, 4)+"-"+Сред(Результат, 21, 12));
КонецФункции