16 Jun 2017 17:58
*------------------------------
function decodifica( _txtcrip_ )
*------------------------------
_texto_ := ''
for i = 1 to len(alltrim(_txtcrip_))
_texto_ := _texto_ + chr(asc(substr(_txtcrip_,i,1))-130)
next
return _texto_
16 Jun 2017 18:46
FUNCTION Decodifica( cOrigem )
LOCAL cDestino := "", cLetra
FOR EACH cLetra IN Trim( cOrigem )
cDestino += Chr( Asc( cLetra ) - 130 )
NEXT
RETURN Pad( cDestino, 5 )