sap; vba; macro Abrir imagem Dcto no SAP

[BrunoRimoldi]

Boa tarde colegas,

tenho essa macro que acessa uma determinada transação do SAP e deveria abrir o numero do documento automático para mostrar a imagem da nota fiscal, porém a macro só roda até o número do documento. Segue abaixo o código e anexo as telas. A macro pára a partir do 'Acessando a DP em destaque vermelho.

ElseIf Len(DOC) = 8 Then

'Acessando DP
   session.findById("wnd[0]").maximize
   session.findById("wnd[0]/tbar[0]/okcd").Text = "/n/OPT/VIM_VA2"
   session.findById("wnd[0]").sendVKey 0

'campo DP
   session.findById("wnd[0]/usr/ctxtS_DOCID-LOW").Text = DOC

'Acessando a DP
   session.findById("wnd[0]/usr/ctxtS_DOCID-LOW").SetFocus
   session.findById("wnd[0]/usr/ctxtS_DOCID-LOW").caretPosition = 4
   session.findById("wnd[0]/tbar[1]/btn[8]").press
   session.findById("wnd[0]/titl/shellcont/shell").pressContextButton "%GOS_TOOLBOX"
   session.findById("wnd[0]/titl/shellcont/shell").selectContextMenuItem "%GOS_VIEW_ATTA"
   session.findById("wnd[0]/usr/cntlCCTRL_MAIN/shellcont/shell/shellcont[0]/shell").currentCellColumn = ""
   session.findById("wnd[0]/usr/cntlCCTRL_MAIN/shellcont/shell/shellcont[0]/shell").selectionChanged
   session.findById("wnd[0]/usr/cntlCCTRL_MAIN/shellcont/shell/shellcont[0]/shell").pressToolbarButton "F_DASH"
   session.findById("wnd[1]/usr/cntlCONTAINER_0100/shellcont/shell").currentCellColumn = "BITM_DESCR"

'Abrindo o anexo DP
   session.findById("wnd[1]/usr/cntlCONTAINER_0100/shellcont/shell").selectedRows = "0"
   session.findById("wnd[1]/usr/cntlCONTAINER_0100/shellcont/shell").doubleClickCurrentCell

'Abrindo validação DP - versão 002:9501
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").selectedRows = "0"
session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").pressToolbarButton "F_DASH"
session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_002:9501/cntlGC_LOGDB/shellcont/shell").selectedRows = "0"
session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_002:9501/cntlGC_LOGDB/shellcont/shell").pressButtonCurrentCell

'Abrindo validação DP - versão 003:9501
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").selectedRows = "0"
session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").pressToolbarButton "F_DASH"
session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_003:9501/cntlGC_LOGDB/shellcont/shell").selectedRows = "0"
session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_003:9501/cntlGC_LOGDB/shellcont/shell").pressButtonCurrentCell

Else