Guten Tag,ich habe folgenden Code mit SAP Script aufgezeichnet, mit dem ich eine SAP Transaktion steuern und abändern kann. In der SAP Transaktion kann die zu bearbeitende Stelle an 20 unterschiedlichen Positionen stehen.Daher lese ich im Vorfeld die Transaktion aus. Diese wird mit einem Zähler festgehalten und kann entsprechend von Zähler = 1 bis Zähler = 20 hoch sein. Im 2. Schritt kommt dieses Script dann zur Anwendung.Aktuell habe ich das Script 20x hintereinander kopiert. Der einzige Unterschied ist in Pos. 25 in der Eckigen Klammer. Dort steht [10,1] bis [10,20].Die einzelnen Programmabschnitte werden jeweils mit If Zähler 1 bis 20 abfragt.Ich will die Programmzeile 25 natürlich durch die Programmzeile 26 ersetzen, damit ich nur einen Programmabschnitt habe. Aber es kommt immer ein Laufzeitfehler 619 als gelbes Debuggen.Ich habe die Programmzeile 26 auch schon in verschiedenen Variationen geschrieben, aber trotzdem kommt immer der gleiche Fehler.
Hat jemand eine Idee?
Hat jemand eine Idee?
Visual Basic-Quellcode
- If Zähler = 1 Then
- If Not IsObject(Application1) Then
- Set SapGuiAuto = GetObject("SAPGUI")
- Set Application1 = SapGuiAuto.GetScriptingEngine
- End If
- If Not IsObject(Connection) Then
- Set Connection = Application1.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 Application1, "on"
- End If
- session.findById("wnd[0]").maximize
- session.findById("wnd[0]/tbar[0]/okcd").Text = "/NCA02"
- session.findById("wnd[0]").sendVKey 0
- session.findById("wnd[0]/usr/ctxtRC27M-MATNR").Text = Artikel_Nr
- session.findById("wnd[0]/usr/ctxtRC27M-WERKS").Text = "1553"
- session.findById("wnd[0]").sendVKey 0
- session.findById("wnd[0]").sendVKey 0
- session.findById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/txtPLPOD-VGW03[10,1]").Text = SGV
- 'session.findById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/txtPLPOD-VGW03[10, & Zähler]").Text = SGV
- session.findById("wnd[0]/tbar[0]/btn[11]").press
- Else: End If
