* -- function returns .T. if passed string is all digits/spaces
* -- copyright 2007 Broad Lea LLC

lParameter tcString

if len(alltrim(tcString)) = 0  && nothing to do
	return .T.
endif

local lRetval, cString, nChar
cString = alltrim(tcString)
lRetval = .T.

for nChar = 1 to len(cString)
	if NOT isdigit(substr(cString, nChar, 1)) and substr(cString, nChar, 1) <> ' '
		lRetval = .F.
		exit
	endif
endfor

return lRetval