Delay Issue in Error Routine

[philipq]

Greetings,

Below is a code extract I have been successfully for a while now.
However, there is a huge delay on the error routine.
Kindly advise the best way to accomplist the same.


Macro RO Sales gDN

Code:

Copy      Help

,;Click Register Sale
,Htm e13=htm("INPUT" "ctl00_cphMain_btnRegister" "" w "0" 50 0x121 50)
,e13.ClickAsync
,
,;wait 2
,;Click 'OK' on email error message
,int w11=wait(10 WV win("Message from webpage" "#32770"))
,Acc a.Find(w11 "PUSHBUTTON" "OK" "class=Button[]id=1" 0x1035 50)
,a.Mouse(1)
,
,err+ goto continueHere
,
,;wait 2
,;Click 'OK' on error message - DEFENDER NO OPTIONS
,int w12=wait(10 WV win("Message from webpage" "#32770"))
,Acc a12.Find(w12 "PUSHBUTTON" "OK" "class=Button[]id=2" 0x1005 50)
,a12.Mouse(1)
,goto toExcel
,
,err+ goto continueHere
,
,;continueHere
,;wait 4
,int w4=wait(10 WV win("Client Details - Windows Internet Explorer" "IEFrame"))
,;wait 4
,;Purchase Price
,Htm e14=htm("INPUT" "_ctl0_cphMain_txtPurchasePrice" "" w4 "0" 45 0x121 50)
,e14.SetText(price)