Hallo Savarol,
ich kann es auch nicht vollständig nur mit GuiXT lösen. Aber als workaround auf die folgende Art hat es bei mir funktioniert.
z.B.
Variante.txt:
// Infosystem: Verträge
Screen RFREISCN.1000
Enter "/17" // Holen...
// Variante suchen
Screen SAPLSVAR.0100
Set F[Erstellt von] ""
Enter "/8"
// ABAP: Variantenkatalog des Programms RFREISCN
Screen SAPLSVAR.0600
Enter control="CONTAINERCTRL.GridViewCtrl" item="&FIND" event="10"
// Suchen
Screen SAPLSKBH.0841
Set F[Suchbegriff:] "Meine Variante"
Enter
// Suchen
Screen SAPLSKBH.0841
Enter "/12"
// ABAP: Variantenkatalog des Programms RFREISCN
//Screen SAPLSVAR.0600
// Enter "/2"
start "c:\guixt\scripts\variante.vbs"
Variante.vbs:
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
set session = Application.ActiveSession
Zeile = session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").currentcellrow
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = Zeile
session.findById("wnd[1]/tbar[0]/btn[2]").press
Grüße,
ScriptMan
Bearbeitet vom Benutzer
vor 7 Jahre
|
Grund: Nicht angegeben