SAP Scripting en Beispill Scripts
Dëse Skriptguide enthält en Iwwerbléck iwwer Beispill Skripte (SAP, Visual Basic, Powershell) déi a verschiddenen Uwendunge kënne benotzt ginn
SAP Scripting
Fir d'Textmeldung op der Statusbar am ënneschten vun der SAP GUI ugewisen ze kréien:
Session.findById("wnd[0]/sbar").Text
Déi Zort Message op der Statusbar vun der SAP GUI mat där Dir frot:
Session.findById("wnd[0]/sbar").Messagetype 'S = Success, W = Waarschuwing, E = Fout en I = Informatie
Amplaz de Message Text ze sichen, deen an der Benotzersprooch op der SAP GUI Statusbar steet, kënnt Dir d'Botschaftsnummer mat dësem Skript kréien
Session.findById("wnd[0]/sbar").MessageNumber
Wann Dir e VARIANT aus enger Lëscht vu Varianten auswiele wëllt, kënnt Dir de Code benotzen deen an dësem Beispill steet
strVar = "/NL_BACKORD" 'Hier de gezochte variantnaam
Hieronder is
"wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell"
de tabel met de varianten in de script. De naam is makkelijk af te vangen met de script recorder.
Set Layout = SAP_Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell")
arows = Layout.RowCount()
For r = 0 To arows - 1
If Len(SAP_Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").getCellValue(r, "VARIANT")) = 0 Then
SAP_Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").currentCellRow = r
End If
'De folgende Code garantéiert datt och wann et méi wéi 200 VARIANTER an der Lëscht sinn, Dir ëmmer nach d'VARIANT fannt
If SAP_Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").getCellValue(r, "VARIANT") = strVar Then
Layout.currentCellRow = r
Exit For
End If
Next
SAP_Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").selectedRows = r
SAP_Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").clickCurrentCell