General information
Category:
Coding, syntax & commands
Hi Jim.
One thing I noticed is that you have a RETURN before the NODEFAULT. Try moving them around.
HTH
-Mike
>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????
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only