This works great!

In the INIT.METHOD of the embossedfield class I've put the following code.
Is there anything else that would streamline this?

LOCAL lcArray, lcDotPosition
lcDotPosition=AT(".",this.controlsource)
lcField=UPPER(ALLTRIM(SUBSTR(this.controlsource,lcDotPosition+1,255)))
SELE INVENTOR
gnFieldcount = AFIELDS(gaMyArray) && Create array
FOR nCount = 1 TO gnFieldcount
IF gaMyArray(nCount,1)=lcField
IF gaMyArray(nCount,4)=2
this.inputmask="$$9,999.99"
EXIT
ENDIF
ENDIF && Display field names
ENDFOR