Uso esta função desde os DF Caracter

//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-//
// Função Get_MASCARA
//
// Sintaxe : Move (Get_Mascara(Mascara,Fonte)) TO Destino
//
// Onde : Mascara = mascara de edicao
// : Fonte = variavel fonte
// : Destino = variavel destino (String)
//
// Exemplo : Move (Get_MASCARA("(###) ###-####",FONTE) TO DESTINO
//
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-


Function GetMascara Global String Masc# String sAux# Returns String
Local Integer iCont# iLength
Local String sLetra#
Move (fRemoveChar(sAux#)) to sAux#
Move (Length(Trim(sAux#))) to iLength
For iCont# From 1 to iLength
Move (Mid(sAux#,1,iCont#)) to sLetra#
Replace '#' In Masc# With sLetra#
Loop
Function_Return Masc#
End_Function