CLEAR
SET POINT TO
? 'decimal point',SET("Point")
? NTOM(VAL(TRANS(1.4000)))

? CAST(CAST(1.4000 AS C(20)) AS Y)


SET POINT TO ','

? 'decimal point',SET("Point")
? NTOM(VAL(TRANS(1.4000)))  && VFP8 conversion

? CAST(CAST(1.4000 AS C(20)) AS Y),'   aspected 1.4000, that is a CAST must to be invariant respect to Decimal point'