ich bin absoluter Anfänger im Bereich Scripting mit SAP.

Ich habe ein bisschen in Excel gearbeitet und verstehe teilweise was. Nun stehe ich aber vor einem Problem.

Ich möchte im angehängten Bild prüfen welchen Wert die Ampel hat. Rausgefunden habe ich, dass er zwischen 1 und 3 liegt. Jetzt möchte ich prüfen in welcher Zeile die letzte Ampel sitzt und dort dann eine Prüfung durchfüren. Kann mir jemand erklären wie das ganze durchführbar ist?

Beispiel:

IF Ampel = 3 then

End if

die unterschiedlichen Ampeln werden im Scripting nicht durch einen bestimmten Wert definiert, sondern durch unterschiedliche Icons. Feststellen, ob die rote Ampel angezeigt wird, kannst du z.B. mit

If Session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").IconName = "@0A@" Then
   Msgbox "Rot"
End If

danke für die Antwort, leider funktioniert das so nicht.

Grüße

schau dir bitte den folgenden Link an:

https://archive.sap.com/discussions/thread/3490519 

Es könnte sein, dass du dann weiter kommst.

Grüße,

ScriptMan

danke dir, wie kann ich denn prüfen auf welcher Position die letzte Ampel ist. Das ist ja Variabel. Oder wie bekomme ich überhaupt die Position der Ampel raus?

Ist das überprüfen so richtig?

if Session.FindById("wnd[0]/usr/lbl[3,20]").IconName() = "S_LEDR" then
	Msgbox "Rot"
end if

Grüße

zuerst zeichnest du ein Skript auf, indem du nur die erste Ampel mit der Maus anklickst und dann die Aufzeichnung sofort beendest. Danach müsstest du ein Skript erhalten, dass z.B. wie folgt aussieht:

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]/usr/lbl[6,10]").setFocus
session.findById("wnd[0]/usr/lbl[6,10]").caretPosition

Die Beispiel-Koordinaten [6,10] sehen in deinem Fall bestimmt anders aus.

Danach könnte man z.B. das vorhandene Skript ausbauen wie folgt:

. . .
session.findById("wnd[0]").maximize
i = 10
on error resume next
do 
myIcon =  session.findById("wnd[0]/usr/lbl[6," & cstr(i) & "]").IconName
if err.number <> 0 then exit do
i = i + 1
loop
on error goto 0
msgbox "letzte Ampel (" & myIcon & ") befindet sich in der Zeilenummer: " & cstr(i) 
. . .

Grüße,

Scriptman

Ich hätte das alleine niemals hinbekommen. Die Zeile findet er aber als Iconname gibt er nichts an. Also einfach nur so "()".

Das war übrigens auch mein Problem. Ich hatte öfter versucht den Namen in eine Variable zu speichern und über eine Msgbox auszugeben.

Grüße

Grüße

Trotzdem danke für deine Mühe!

Habe den Fehler gefunden 🙂

Also, die Icons heißen S_TL_R und S_TL_G.

Und in deinem Script ist ein kleiner Fehler. Man muss am Ende nochmal i +1 rechnen. Jetzt haut es hin. DANKE 🙂

Bin dir echt dankbar!