You can rip the numeric portion out easily enough:
whileprintingrecords;
numbervar Counter;
stringvar TheField:={table.field};
StringVar OutField;
For Counter := 1 to len(trim(TheField)) do(
if isnumeric(mid(TheField,Counter,1))
or
isnumeric(mid(TheField,Counter,1)) = "."
then
OutField:=OutField+mid(TheField,Counter,1)
);
val(OutField)
-k