******************************************************************** * Description.......: Lender Name.InteractiveChange * Calling Samples...: * Parameter List....: * Created by........: * Modified by.......: Nadya Nosonovsky 09/05/2001 09:59:46 AM ******************************************************************** if this.tag<>this.value && Was changed local lcOldValue select BldMstr if !empty(OldValue) lcOldValue=BldMstr.OldValue else lcOldValue=BldMstr.Lender + '|' + this.tag endif if thisform.ProcType = 'Trxnmstr' && Trans Master Lender maintenance replace RevLend with 'E', ; Matched with 'E', ; OldValue with m.lcOldValue in BldMstr else && Weekly Transaction Processing replace RevLend with 'E', ; OldValue with m.lcOldValue in BldMstr endif thisform.KeyValue=left(this.value,1) lcLetter=thisform.KeyValue requery('LenderView') =seek(left(this.value,4),'LenderView') thisform.grdLender.refresh() * thisform.grdLender.SetFocus() *!* this.SetFocus() endif dodefault()As you can see, I commented out two last lines, because it causes "reverse" typing, e.g. the user tries to quickly type "first", but it shows like "tsrif".