How to convert text to hexadecimal in Nav 2005

malintus

Hi,
I need to export data by XMLPort but as a hexadecimal values. Since Nav 2009R2 is possible by DotNet but in nav 5.0 is not possible to use it, I think.
Do anyone have some ideas how text could be converted to hex in this ver. of Navision?
Regards
Malintus

Duikmeester

OnRun()
MESSAGE('0x%1',ConvertBase16('Hogan'));

LOCAL ConvertBase16(theInput : Text[512]) theOutput : Text[1024]
FOR aIndex := 1 TO STRLEN(theInput) DO BEGIN
  aInt := theInput[aIndex];
  aLeft := ROUND(aInt / 16,1,'<');
  aRight := aInt MOD 16;
  theOutput += HexValue(aLeft) + HexValue(aRight);
END;

LOCAL HexValue(theValue : Integer) : Text[1]
CASE theValue OF
  0..9: EXIT(FORMAT(theValue));
  10:   EXIT('A');
  11:   EXIT('B');
  12:   EXIT('C');
  13:   EXIT('D');
  14:   EXIT('E');
  15:   EXIT('F');
END;

Duikmeester

I think you mean BASE64. Which is commonly used to embed binary data in XML-files.

Edit: Found this post https://forum.mibuso.com/discussion/5735/post-of-code-base64-encoding-and-decoding

TallyHo

Hex is another way of saying Base16, but never done it or seen it being done in NAV

malintus

@Duikmeester No, I mean BASE16. Generally I want to achieve the same thing what I can achieve from t-sql query. I mean:
select distinct convert (varbinary, 'Hogan') as Employee
I get the following
Employee = 0x486F67616E

TallyHo

In that case, maybe System.Data.SqlClient as automation could be the solution

Duikmeester

OnRun()
MESSAGE('0x%1',ConvertBase16('Hogan'));

LOCAL ConvertBase16(theInput : Text[512]) theOutput : Text[1024]
FOR aIndex := 1 TO STRLEN(theInput) DO BEGIN
  aInt := theInput[aIndex];
  aLeft := ROUND(aInt / 16,1,'<');
  aRight := aInt MOD 16;
  theOutput += HexValue(aLeft) + HexValue(aRight);
END;

LOCAL HexValue(theValue : Integer) : Text[1]
CASE theValue OF
  0..9: EXIT(FORMAT(theValue));
  10:   EXIT('A');
  11:   EXIT('B');
  12:   EXIT('C');
  13:   EXIT('D');
  14:   EXIT('E');
  15:   EXIT('F');
END;

malintus

@Duikmeester Thanks, it's working perfectly and it was much more simpler that I thought.
I tried to use ADO and SQL select command to replace it but I had problems with receive data from my query. Your script working perfectly. Again thank you a lot.