GUID -> BINARY (помогите чайнику)

[Dolter_imported]

Делаю примерно так:

MyGUID := CREATEGUID;
MESSAGE(MyGUID);
Ok := EVALUATE(VarBINARY, MyGUID);
IF Ok = TRUE THEN
  MESSAGE('%1', VarBINARY)
ELSE
  MESSAGE('False');

получаю в итоге "False" в сообщении...
а вообще надо в поле внешней БД (прилинкована табличка через view) поместить значение из CREATEGUID в виде BINARY(16)

Помогите, плз, кто чем может...

[romeo]

А какой тип у переменной VarBINARY?

[Dolter_imported]

Цитата:

Сообщение от romeo

А какой тип у переменной VarBINARY?

Binary конечно же
т.е. в идеале нужно просто помещать в поля типа Binary значения новых гуидов и еще целочисленные значения приведенные к этому типу (в триггере OnInsert())

[Kirvisniemi]

Этот код должен работать, если с типами ничего не намудрили.
Тип должен быть не бинари, а вариант

[romeo]

Еще хелп говорит, что в текст нормально эвалюэйтится GUID ...

[Kirvisniemi]

Текст не надо, все нормально эвалюэйтится через вариант:

BINARY(16) <- GUID

Ok := EVALUATE(VarVariant, MyGUID);
Ok := Ok AND EVALUATE(VarBinary,VarVariant);

[Dolter_imported]

Цитата:

Сообщение от tyrex

Этот код должен работать, если с типами ничего не намудрили.
Тип должен быть не бинари, а вариант

Почему вариант? Что поместит он в БД?
У меня SQL тип Binary(16) - также описываю поле в Table (иначе ругается на несоответсвие типов)
Далее получаю GUID новый и... дальше что? как его поместить в базу?

З.Ы. Попробовал через временную переменную типа Variant тоже не получилось... Она становится таки GUID-ом...

Цитата:

Сообщение от tyrex

Текст не надо, все нормально эвалюэйтится через вариант:

BINARY(16) <- GUID

Ok := EVALUATE(VarVariant, MyGUID);
Ok := Ok AND EVALUATE(VarBinary,VarVariant);

MyGUID := CREATEGUID;
Ok := EVALUATE(VarVariant, MyGUID);
Ok := Ok AND EVALUATE(VarBINARY, VarVariant);
MESSAGE(FORMAT(Ok));

результат: НЕТ

[Dolter_imported]

в прикрепленном файле картинка... после кода:

OnInsert()
EVALUATE(VarVariant, CREATEGUID);
EVALUATE(ID, VarVariant);

[Kirvisniemi]

Я кажется понял в чем проблема. Стандартные средства Navision не позволяют нормально работать с типом BINARY.

Предлагаю ручной вариант конвертации

[Dolter_imported]

Цитата:

Сообщение от tyrex

Предлагаю ручной вариант конвертации

эх... я бы с удовольствием, да что-то не получается...
а можно отказаться от инсерта в триггере?
тогда можно было бы просто через ОДБЦ инсертнуть...

[Kirvisniemi]

А в чем сложность?

txtGUID := DELCHR(MyGUID,'=','{}-');
FOR intI:=1 TO 16 DO BEGIN
varBinary[intI] := Hex2Dec(txtGUID[intI*2-1]+txtGUID[intI*2]);
END;

осталось конвертор из HEX в DEC написать

[Kirvisniemi]

функция Hex2Dec(Str:Text[30]):Integer

IF Str[1]>='A' THEN BEGIN
   StrTemp:=CONVERTSTR(Str,'ABCDEF','012345');
   EVALUATE(iTemp,FORMAT(StrTemp[1]));
   iTemp := iTemp+10;
END ELSE
   EVALUATE(iTemp,FORMAT(Str[1]));

Result := iTemp*16;

IF Str[2]>='A' THEN BEGIN
   StrTemp := CONVERTSTR(Str,'ABCDEF','012345');
   EVALUATE(iTemp,FORMAT(StrTemp[2]));
   iTemp+=10;
END ELSE
   EVALUATE(iTemp,FORMAT(Str[2]));

Result+=iTemp;
EXIT(Result);