topic-8415

Posts: 38

Joined: Sat Dec 31, 2005 10:08 AM

L2Hex()
Posted: Sat Oct 06, 2007 03:27 PM

Antonio,

Testando L2Hex() contida em ..\source\function\or.c, utilizando o exemplo abaixo estou obtendo um valor diferente.

Code: Select all Collapse

#include "fivewin.ch"

function Main()

local nHd:=359532552, xHd:=''

//nHd:=nSerialHD()
xHd:=L2Hex( nHd  )

msginfo( xHd )

return nil

Valor apresentado: 156E080 (hexadecimal)
O valor correto de xHd é: 156E0808 (hexadecimal)

toya
Ahora en la version 6.6
Consultoria e Desenvolvimento - NF-e/NFC-e
http://www.toyanet.com.br
https://www.facebook.com/profile.php?id=100009195956044
toyasis@gmail.com
FWH 10.8+PellesC+xHarbour.org 1.2.1

Sebastián Almirón

Posts: 166

Joined: Mon Dec 12, 2005 09:56 AM

L2Hex()
Posted: Mon Oct 08, 2007 12:54 PM

Debe ser un error de OR.C, si no lo solucionas de otro modo, prueba a crear tu propia funcion L2hex(), así:

function l2hex(nvar)
return i2Hex( nhiword(nvar) )+ i2hex(nloword(nvar))

Saludos

Sebastián Almirón

Posts: 166

Joined: Mon Dec 12, 2005 09:56 AM

L2Hex()
Posted: Mon Oct 08, 2007 02:36 PM

Bueno, o así para que no devuelva ceros delante:

function l2hex(nvar)
local cRet := i2Hex( nhiword(nvar) )+ i2hex(nloword(nvar))
do while substr(cRet,1,1) = '0'
cRet := substr(cRet,2)
enddo
return cRet

toya

Posts: 38

Joined: Sat Dec 31, 2005 10:08 AM

L2Hex()
Posted: Mon Oct 08, 2007 04:28 PM

ok Sebastian...
Já elaborei a minha função, apenas achei estranho a OR.C estar devolvendo um valor incorreto....

toya
Ahora en la version 6.6
Consultoria e Desenvolvimento - NF-e/NFC-e
http://www.toyanet.com.br
https://www.facebook.com/profile.php?id=100009195956044
toyasis@gmail.com
FWH 10.8+PellesC+xHarbour.org 1.2.1

FiveTech Support Forums

Continue the discussion