cNumToStr( nVal, [lEuropean], [lThouSep] )
cNum := Str( .... )
cTrim := If( "." $ cNum, RemRight( RemRight( cNum, "0" ), "." ), cNum )
cNum := cNumToStr( nValue, .f., .f. )
Function RemoveZeros( cValue )
do while right(cValue,1) = "0"
cValue:= left(cValue, len(cValue) -1)
enddo
Return cValue