> >LPARAMETERS nKeyCode, nShiftAltCtrl >lcAlias = 'inventory' >lcField = 'upname' > >if nKeycode = 127 > if empty(this.value) > nodefault > endif >endif > > >IF empty(this.Text) > keyval=Seek(UPPER(Chr(nKeyCode)),lcAlias,lcField) >else > keyval=Seek(UPPER(subs(This.Text,1,This.SelStart)+Chr(nKeyCode)),lcAlias,lcField) >ENDIF >_name = inventory.name > > > >If keyval > nCurPos = This.SelStart + 1 > This.Value = _name > This.SelStart = nCurPos > If Len(Allt(_name)) - nCurPos > 0 > This.SelLength = Len(Allt(_name)) - nCurPos > ENDIF > > Nodefault > >ENDIF > >>