Procedure Apenas_Numeros(gs_String)
s_Aux is string = ""
n_Tam is int = Length(gs_String)
FOR i = 1 TO n_Tam
IF CharactType(gs_String[[i]])=ctNumeric THEN
s_Aux += gs_String[[i]]
END
END
RESULT(s_Aux)