Information générale
Catégorie:
Codage, syntaxe et commandes
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????
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement