Information générale
Catégorie:
Codage, syntaxe et commandes
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement