Here it is, thanks
SET NOTIFY OFF
IF LASTKEY() = 27
This.enabled = .F.
This.Parent.cmdcancel.click
RETURN .T.
ENDIF
IF EMPTY(This.value) OR INDEXSEEK(This.value,.F.,"quote","quote_num")
MESSAGEBOX("Invalid Quote Number. If you don't want to enter a quote number click ok then cancel.",64,gcAppName)
This.value = ""
RETURN .F.
nodefault
ELSE
SELECT quote
REPLACE quote_num WITH this.value IN quote
This.enabled = .F.
ThisForm.Textbuttons1.CmdSave.enabled = .T.
SELECT config
APPEND BLANK IN config
REPLACE quote_num WITH quote.quote_num IN config
SELECT wiring
APPEND BLANK IN wiring
REPLACE quote_num WITH quote.quote_num IN wiring
SELECT lease
APPEND BLANK IN lease
REPLACE quote_num WITH quote.quote_num IN lease
SELECT sos
APPEND BLANK IN sos
REPLACE quote_num WITH quote.quote_num IN sos
SELECT acd
APPEND BLANK IN ACD
REPLACE quote_num WITH quote.quote_num IN acd
SELECT promo2
APPEND BLANK IN promo2
REPLACE quote_num WITH quote.quote_num IN promo2
SELECT fastbreak
APPEND BLANK IN fastbreak
REPLACE quote_num WITH quote.quote_num IN fastbreak
Thisform.initprices
ThisForm.Ewpageframe1.Page2.Refresh
ThisForm.Textbuttons1.txtQNum.enabled = .F.
Thisform.refresh
ThisForm.Ewpageframe1.Page1.cmdselectCustomer.Click
ENDIF
>Hi Jim
>
>what code is in the lostfocus event at the moment????
Thanks
Jim