Apesar do post ter sido a 2 semanas atraz: segue a resposta...
* Load Data:
Form.T_Cep.Value := TRAN( DATA->CEP, '@R 99.999-999' )
* Save Data:
DATA->CEP := F_Clear_Numeric_InputMask( Form.T_Cep.Value )
*-----------------------------------------------------------------------------*
* F_Clear_Numeric_InputMask( cStrNum )
*-----------------------------------------------------------------------------*
FUNCTION F_Clear_Numeric_InputMask( cStrNum )
LOCAL cAux := ALLTRIM( cStrNum )
cAux := STRTRAN( cAux, "/", "" )
cAux := STRTRAN( cAux, "\", "" )
cAux := STRTRAN( cAux, ";", "" )
cAux := STRTRAN( cAux, "=", "" )
cAux := STRTRAN( cAux, "+", "" )
cAux := STRTRAN( cAux, "-", "" )
cAux := STRTRAN( cAux, "_", "" )
cAux := STRTRAN( cAux, ">", "" )
cAux := STRTRAN( cAux, "<", "" )
cAux := STRTRAN( cAux, "(", "" )
cAux := STRTRAN( cAux, ")", "" )
cAux := STRTRAN( cAux, "!", "" )
cAux := STRTRAN( cAux, "@", "" )
cAux := STRTRAN( cAux, "#", "" )
cAux := STRTRAN( cAux, "$", "" )
cAux := STRTRAN( cAux, "%", "" )
cAux := STRTRAN( cAux, "&", "" )
cAux := STRTRAN( cAux, "*", "" )
cAux := STRTRAN( cAux, "|", "" )
cAux := STRTRAN( cAux, "?", "" )
cAux := STRTRAN( cAux, ":", "" )
cAux := STRTRAN( cAux, "{", "" )
cAux := STRTRAN( cAux, "}", "" )
cAux := STRTRAN( cAux, "[", "" )
cAux := STRTRAN( cAux, "]", "" )
cAux := STRTRAN( cAux, ",", "" )
cAux := STRTRAN( cAux, ".", "" )
cAux := STRTRAN( cAux, "´", "" )
cAux := STRTRAN( cAux, "`", "" )
cAux := STRTRAN( cAux, "'", "" )
RETURN( cAux )