Boa tarde pessoal.
Esta é minha primeira pergunta aqui no fórum, então peço perdão caso não seja de facil entendimento minha dúvida.
Seguinte, eu tenho um script que automatiza aprovações de nfs no SAP, porém dentro do looping assim que ele terminar de aprovar, ele não vai achar mais o "ID" do objeto para clicar gerando o erro.
Eu fiz um "On error goto Feito
" onde assim que entrar lá executa o "Err.Clear" e aparece uma msgbox perguntando se o erro é de posição, se for sim, ele executa a partir de outra parte do código, e assim continua o looping, mas mesmo com o "Err.Clear
" ele não limpa o ultimo erro impossibilitando que sempre apareça a MsgBox
para o usúario verificar o erro e assim dar prosseguimento ao script, o erro sempre será o mesmo, pois ele não vai encontrar o "ID" do objeto. Resumindo, queria saber como faço para que sempre que der o erro, ele limpe o ultimo erro dado, e assim que der de novo, ao invés de parar para debugar, ele vá novamente para a msgbox e continue o looping.
O código é uma sub, vou colocar alguns trechos para exemplificar:
Sub DL_ZNFE_MAIN()
On Error GoTo Feito:
Dim resultado As VbMsgBoxResult
var_sap_session.findById("wnd[0]/tbar[0]/okcd").Text = "znfe"
var_sap_session.findById("wnd[0]").sendVKey 0
Essa é o primeiro trecho, basicamente ele vai entrar em uma transação, colocar alguns inputs, e feito isso aparecerá varias notas, que vão ser acessadas por esse código:
For i = 0 To 30
var_sap_session.findById("wnd[0]/usr/tblZKFBC_MONITOR_NFETC_SINTESE/txtT_SINTESE-DOCNUM[1,0]").SetFocus
var_sap_session.findById("wnd[0]/usr/tblZKFBC_MONITOR_NFETC_SINTESE/txtT_SINTESE-DOCNUM[1,0]").caretPosition = 0
var_sap_session.findById("wnd[0]").sendVKey 2
var_sap_session.findById("wnd[0]/usr/btnSWE19").press
var_sap_session.findById("wnd[0]/tbar[1]/btn[8]").press
Porém ao dar erro, ele vem para essa parte:
Feito:
Err.Clear
resultado = MsgBox("O erro é de posição?", vbYesNo, "Erro")
If resultado = vbYes Then
var_sap_session.findById("wnd[2]/usr/lbl[43,3]").SetFocus
var_sap_session.findById("wnd[2]/usr/lbl[43,3]").caretPosition = 3
var_sap_session.findById("wnd[2]").sendVKey 2
var_sap_session.findById("wnd[0]").sendVKey 2
GoTo Continue
Else
Err.Clear
var_sap_session.findById("wnd[0]/tbar[1]/btn[6]").press
MsgBox "Não foi possivel encontrar notas rejeitadas."
End If
Então depois de chegar no erro, aparecerá a msgbox que vai perguntar se o erro é de posição ou não, se sim ele ira para o "Continue":
Continue:
var_sap_session.findById("wnd[1]/usr/sub:SAPLSPO4:0300/txtSVALD-VALUE[2,21]").Text = "0.00"
var_sap_session.findById("wnd[1]/usr/sub:SAPLSPO4:0300/txtSVALD-VALUE[2,21]").SetFocus
var_sap_session.findById("wnd[1]/usr/sub:SAPLSPO4:0300/txtSVALD-VALUE[2,21]").caretPosition = 4
var_sap_session.findById("wnd[1]/tbar[0]/btn[0]").press
E assim vai continuar o looping dentro desse FOR, porém se por algum acaso der erro novamente, ao invés dele gerar a msgbox de novo, ele já para o código.