>>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


Worked just fine. Thanks for your help.

Ricardo M. Araoz