Code: Alles auswählen.
session.findById("wnd[0]/usr/ctxtVBCOM-AUDAT_BIS") = sy-datum - 1
Code: Alles auswählen.
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "VA05"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[33]").press
session.findById("wnd[1]/usr/ctxtVBCOM-VKORG").text = "DE01"
session.findById("wnd[1]/usr/ctxtVBCOM-VTWEG").text = "RP"
session.findById("wnd[1]/usr/ctxtVBCOM-SPART").text = "US"
session.findById("wnd[1]/usr/ctxtVBCOM-SPART").caretPosition = 2
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/ctxtVBCOM-AUDAT").text = ""
session.findById("wnd[1]/usr/ctxtVBCOM-AUDAT_BIS") = sy-datum
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").setCurrentCell 12,"ARKTX"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").contextMenu
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[12]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
GUI scripting!!Inventy hat geschrieben:sapscripting
Du meinst "ABAP"?Inventy hat geschrieben:Besten Dank für die Info
Sorry noch eine Frage die jetzt vielleicht komisch klingt aber ist dann ADAP etwas ganz anderes?