Procedure validarFone(sTelefone is string)
IF sTelefone = "" THEN
RESULT True
END
IF sTelefone[[01 TO 05]] = "00000" THEN
RESULT False
END
IF sTelefone[[1]] = "0" THEN
sTelefone = sTelefone[[02 TO ]]
END
sFone2, sCadeia is string
sCadeia = "0123456789"
nIDX is int = 0

FOR i = 1 TO 16
IF Contains(sCadeia,sTelefone[[i]]) THEN
nIDX++
sFone2[[nIDX]]=sTelefone[[i]]
END
END

IF Length(sFone2) < 8 THEN
RESULT False
END

// 1º caso - 0800 ou 0300
IF sFone2[[01 TO 04]] = "0800" OR sFone2[[01 TO 04]] = "0300" THEN
sTelefone = sFone2[[01 TO 04]] + " " + sFone2[[05 TO 06]] + " " + sFone2[[07 TO ]]
RESULT True
END

// 2º caso = telefone fixo ou celular sem DDD
IF Length(sFone2) < 10 THEN
IF Length(sFone2) = 8 THEN
sTelefone = "(00) " + Left(sFone2,4) + "-" + Right(sFone2,4)
RESULT True
END
sTelefone = "(00) " + Left(sFone2,1) + " " + Middle(sFone2,2,4) + "-" + Right(sFone2,4)
RESULT True
END

// 3º caso = telefone fixo
IF Length(sFone2) = 10 THEN
sTelefone = "(" + Left(sFone2,2) + ") " + Middle(sFone2,3,4) + "-" + Right(sFone2,4)
RESULT True
END

// 4º caso = telefone celular
sTelefone = "(" + Left(sFone2,2) + ") " + Middle(sFone2,3,1) + " " + Middle(sFone2,4,4) + "-" + Right(sFone2,4)
RESULT True