:: Funciones ::

[pablovidal]

Hola Antonio,

Estas funciones no están disponible en FWPPC,
Se podrian implementar ?

Code: Select all  Expand view  RUN

 CharMirr()
 HexToStr()
 StrToHex()
 

[pablovidal]

????

[mag071]

Saludos Pablo;

Estas funciones en FWH me funcionan.-

Static Function Serial2Hex(cSer)
LOCAL cRet:="",i:=0
cRet:="0x"
For i:=1 to 8
cRet:=cRet+c2HEX(SUBSTR(cSer,i,1))
Next
Return cRet

Static Function Hex2Serial(cHexSer)
LOCAL cRet:="",i:=0
For i:=3 to 18 step 2
cRet:=cRet+chr(HexToDec(SUBSTR(cHexSer,i,2)))
Next
Return cRet

Saludos

[Antonio Linares]

Pablo,

Que hace la función CharMirr() ?

[pablovidal]

Hola Antonio,

La Funcion CharMirr, voltea un string, ya la implemente:

Code: Select all  Expand view  RUN

Function CharMirror( cString )
Local cNewString := ""
Local nAt := Len( AllTrim( cString ) )

 While nAt > 0
  cNewString += SubStr( cString,nAt,1 )
  nAt--
 Enddo

Return( cNewString )

mag071,
Gracias, Funciona Perfectamente Bien