whileprintingrecords;
stringvar v_texttonumber;
numbervar v_counter := 1;
while v_counter <= len({PartNumber})
do
(if isnumeric({PartNumber}[v_counter])
then v_texttonumber := v_texttonumber + {PartNumber}[v_counter];
v_counter := v_counter + 1;)
;
tonumber(v_texttonumber)