>When I run the form the code does it's work OK but when I press < ENTER> nothing happens.
>
>Any ideas???
Hi,
The problem is 1) your NODEFAULT is always happenning, so it is blanking your ENTER keypress. 2) you have to pass the given parameters when you DODEFAULT().

Try :-

LPARAMETERS nKeyCode, nShiftAltCtrl
local lnant_start

IF nKeyCode = 45
nodefault
lnant_start = this.SelStart
this.SelStart = 0
this.SelLength = lnant_start
this.SelText = transform(val(left(alltrim(str(val(this.SelText))), 4)), "@L 9999")
this.SelStart = 4
ELSE
dodefault( nKeyCode, nShiftAltCtrl)
ENDIF