Page 1 of 1
:: Funciones ::
Posted: Thu Mar 15, 2012 1:17 am
by pablovidal
Hola Antonio,
Estas funciones no están disponible en FWPPC,
Se podrian implementar ?
Re: :: Funciones ::
Posted: Fri Mar 16, 2012 1:17 am
by pablovidal
????
Re: :: Funciones ::
Posted: Fri Mar 16, 2012 5:24 am
by 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
Re: :: Funciones ::
Posted: Fri Mar 16, 2012 7:03 am
by Antonio Linares
Pablo,
Que hace la función CharMirr() ?
:: Funciones :: ( Solucionado )
Posted: Fri Mar 16, 2012 12:10 pm
by pablovidal
Hola Antonio,
La Funcion CharMirr, voltea un string, ya la implemente:
Code: Select all
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
