выбирай на вкус
Function StringGUID(val GUID) export
return "0x"+token(GUID,"-",4)+token(GUID,"-",5)+token(GUID,"-",3)+token(GUID,"-",2)+token(GUID,"-",1);
endfunction

Функция ПолучитьGUIDПоУникальномуИдентификатору(Знач UUID) export
ч1 = Сред(UUID,20,4);
ч2 = Сред(UUID,25,12);
ч3 = Сред(UUID,15,4);
ч4 = Сред(UUID,10,4);
ч5 = Сред(UUID,1,8);
Возврат "0x" + ч1 + ч2 + ч3 + ч4 + ч5;
КонецФункции

Функция GUIDВЧисло(GUID) export
Рез=0;
Стр = Строка(GUID);
Индекс=1;
Пока Индекс<=36 Цикл
Симв = Сред(Стр,Индекс,1);
Если Симв="-" Тогда
Индекс=Индекс+1;
Продолжить;
КонецЕсли;

Если Симв>="0" и Симв<="9" Тогда
Ч = Число(Симв);
ИначеЕсли Симв="a" Тогда
Ч=10;
ИначеЕсли Симв="b" Тогда
Ч=11;
ИначеЕсли Симв="c" Тогда
Ч=12;
ИначеЕсли Симв="d" Тогда
Ч=13;
ИначеЕсли Симв="e" Тогда
Ч=14;
ИначеЕсли Симв="f" Тогда
Ч=15;
КонецЕсли;

Рез=Рез*16+Ч;

Индекс=Индекс+1;
КонецЦикла;

return Рез;

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

//Функция ЧислоВGUID(Парам) export

// СпецСтрока="0123456789abcdef";
// РезСтрока="";
//
// Парам1=Парам;
// Пока Парам1>0 Цикл
// Ост = Парам1%16;
// Парам1=(Парам1-Ост)/16;
// Длина=СтрДлина(РезСтрока);
// Если (Длина=12) или (Длина=17) или (Длина=22) или (Длина=27) Тогда
// РезСтрока="-"+РезСтрока;
// КонецЕсли;
// РезСтрока=Сред(СпецСтрока,Ост+1,1)+РезСтрока;
// КонецЦикла;
//
// Возврат Новый УникальныйИдентификатор(РезСтрока);
//КонецФункции


CREATE FUNCTION [dbo].[HexStrToVarBinary](@hexstring nvarchar(4000))
RETURNS varbinary(4000)
AS
BEGIN

declare
@a varbinary(8000)

select @a = cast('' as xml).value('xs:hexBinary( substring(sql:variable("@hexstring"), sql:column("t.pos")) )', 'varbinary(max)')
from (select case substring(@hexstring, 1, 2) when '0x' then 3 else 0 end) as t(pos)

return @a
END

CREATE function [dbo].[sp_hexadecimal] ( @binvalue varbinary(255) )
returns nvarchar(255)
as
begin
declare
@charvalue nvarchar(255)
,@i int
,@length int
,@hexstring nchar(16)
,@tempint int
,@firstint int
,@secondint int

select @charvalue = '0x'
select @i = 1
select @length = datalength(@binvalue)
-- select @hexstring = '0123456789abcdef'
select @hexstring = '0123456789ABCDEF'

while (@i <= @length) begin
select @tempint = convert(int, substring(@binvalue,@i,1))
select @firstint = floor(@tempint/16)
select @secondint = @tempint - (@firstint*16)
select @charvalue = @charvalue + substring(@hexstring, @firstint+1, 1) + substring(@hexstring, @secondint+1, 1)
select @i = @i + 1
end

return ( @charvalue )
end