- 24 Set 2017 às 13:05
#26765
Mestres,
Estou tentando fazer com que o VBA imprima as reservas criadas no sistema SAP a partir da última.
Por exemplo: foram criadas nove reservas, e eu quero que ele imprima essas nove últimas.
Session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "zmb25"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtDATABROWSE-TABLENAME").text = "teste"
session.findById("wnd[0]/usr/ctxtDATABROWSE-TABLENAME").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/txtMAX_SEL").text = ""
session.findById("wnd[0]/usr/txtMAX_SEL").setFocus
session.findById("wnd[0]/usr/txtMAX_SEL").caretPosition = 11
session.findById("wnd[0]/mbar/menu[3]/menu[0]/menu[1]").select
session.findById("wnd[1]/tbar[0]/btn[14]").press
Essas são as reservas marcadas manualmente no SAP e sendo impressas uma a uma.
Gostaria que automaticamente fosse impresso o número que eu desejasse e em ordem/b]
session.findById("wnd[1]/usr/chk[1,10]").selected = true
session.findById("wnd[1]/usr/chk[1,10]").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,9]").selected = true
session.findById("wnd[1]/usr/chk[1,9").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,8]").selected = true
session.findById("wnd[1]/usr/chk[1,8").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,7]").selected = true
session.findById("wnd[1]/usr/chk[1,7").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,6]").selected = true
session.findById("wnd[1]/usr/chk[1,6").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
Obrigado!!
Estou tentando fazer com que o VBA imprima as reservas criadas no sistema SAP a partir da última.
Por exemplo: foram criadas nove reservas, e eu quero que ele imprima essas nove últimas.
Session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "zmb25"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtDATABROWSE-TABLENAME").text = "teste"
session.findById("wnd[0]/usr/ctxtDATABROWSE-TABLENAME").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/txtMAX_SEL").text = ""
session.findById("wnd[0]/usr/txtMAX_SEL").setFocus
session.findById("wnd[0]/usr/txtMAX_SEL").caretPosition = 11
session.findById("wnd[0]/mbar/menu[3]/menu[0]/menu[1]").select
session.findById("wnd[1]/tbar[0]/btn[14]").press
Essas são as reservas marcadas manualmente no SAP e sendo impressas uma a uma.
Gostaria que automaticamente fosse impresso o número que eu desejasse e em ordem/b]
session.findById("wnd[1]/usr/chk[1,10]").selected = true
session.findById("wnd[1]/usr/chk[1,10]").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,9]").selected = true
session.findById("wnd[1]/usr/chk[1,9").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,8]").selected = true
session.findById("wnd[1]/usr/chk[1,8").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,7]").selected = true
session.findById("wnd[1]/usr/chk[1,7").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
session.findById("wnd[1]/usr/chk[1,6]").selected = true
session.findById("wnd[1]/usr/chk[1,6").setFocus
session.findById("wnd[1]/tbar[0]/btn[71]").press
Obrigado!!