Script mit Loop oder If-Then · SAP FORUM

novice555
SAP Forum - Neuling Thema Starter

vor 12 Jahre

Wir haben ein Script aufgezeichnet und es läuft eigentlich auch ganz wunderbar, außer es gibt mehr als 2 Verpackungseinheiten beim Kommissionieren.

Das Script sollte eine If-Then Abfrage oder eine Loop machen, wenn im Feld LIPS-POSNR[0,3] > 0 ist.

Bitte um Hilfe,

Novice 555

ScriptMan
SAP Forum - Guru

vor 12 Jahre

#2

Hallo Novice 555,

willkommen im Forum. Falls es dir möglich ist, sende uns ein Beispiel-Skript, an dem wir dann rumdoktern können.

Freundliche Grüße

ScriptMan

novice555
SAP Forum - Neuling Thema Starter

vor 12 Jahre

#3

Hallo Sciptman,

danke für die schnelle Antwort, hier das Script, hast Du auch eine guten kostenlosen Script Editor, den wir benutzen könnten?

'Datum 04.04.11

dim Liefdat

dim Liefmg

'hier mit date() +1, +2, etc. Lieferdatum in der Zukunft setzen

Liefdat = date()+3

Liefmg = InputBox("Liefermenge?","Eingabe Menge")

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]").resizeWorkingPane 141,38,false

'Z16 Register Laden w„hlen

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03").select

'Z18 register Laden ausfllen

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/ctxtLIKP-LSTEL").text = "01"

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/txtLIPSD-G_LFIMG[2,0]").text = Liefmg

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-LGORT[3,0]").text = "59FM"

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,0]").text = Liefdat

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/ctxtLIKP-LSTEL").setFocus

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/ctxtLIKP-LSTEL").caretPosition = 2

session.findById("wnd[0]").sendVKey 0

'Z25 Verpacken

session.findById("wnd[0]/tbar[1]/btn[18]").press

session.findById("wnd[0]/usr/tabsTS_HU_VERP/tabpUE6POS/ssubTAB:SAPLV51G:6010/tblSAPLV51GTC_HU_002").getAbsoluteRow(0).selected = true

session.findById("wnd[0]/usr/tabsTS_HU_VERP/tabpUE6POS/ssubTAB:SAPLV51G:6010/tblSAPLV51GTC_HU_002/ctxtV51VP-MATNR[0,0]").setFocus

session.findById("wnd[0]/usr/tabsTS_HU_VERP/tabpUE6POS/ssubTAB:SAPLV51G:6010/tblSAPLV51GTC_HU_002/ctxtV51VP-MATNR[0,0]").caretPosition = 0

session.findById("wnd[0]/tbar[1]/btn[27]").press

session.findById("wnd[0]/tbar[0]/btn[3]").press

'Z32 Matbereitstdatum setzen

'TEST1 2. Zeile inaktiv, ge„nderte eingefgt

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,0]").text = Liefdat

'session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,0]") = Liefdat

'session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBUHR[7,0]").text = "00:00:00"

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,1]").text = Liefdat

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,2]").text = Liefdat

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,3]").text = Liefdat

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,1]").setFocus

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,1]").caretPosition = 10

'Z39 wechseln zu Kopf

session.findById("wnd[0]/tbar[1]/btn[8]").press

'Z41 Kreditsperre im Transportgrund rausnehmen

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\04").select

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\04/ssubSUBSCREEN_BODY:SAPMV50A:2108/cmbLIKP-TRSPG").key = " "

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\04/ssubSUBSCREEN_BODY:SAPMV50A:2108/cmbLIKP-TRSPG").setFocus

'Tagesdaten setzen

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01").select

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV50A:2102/ctxtLIKP-KODAT").text = Liefdat

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV50A:2102/ctxtLIKP-LDDAT").text = Liefdat

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV50A:2102/ctxtLIKP-TDDAT").text = Liefdat

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV50A:2102/ctxtLIKP-WADAT").text = Liefdat

'session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV50A:2102/ctxtLIKP-LFDAT").text = Liefdat+1

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV50A:2102/ctxtLIKP-LFDAT").setFocus

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV50A:2102/ctxtLIKP-LFDAT").caretPosition = 10

session.findById("wnd[0]/tbar[1]/btn[36]").press

session.findById("wnd[0]").sendVKey 0

'register Kommissionieren w„hlen

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02").select

'Packmittellagerort vorbelegen

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-LGORT[3,1]").text = "5901"

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-CHARG[8,1]").text = "CP"

'

'xxxxxxxxxxxxxxxxxx Lagerortnummer in zweite und dritte Zeile beim Kommissionieren eingeben xxxxxxxxxxxxxxxxxxxxxxxxxxx

'Nur dann ausführen, wenn es im Feld LIPS-POSNR[0,3] oder >0 ist oder <> "" eine Hilfsposition 900002 gibt

'If session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-POSNR[0,3]").text <> ""

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-LGORT[3,2]").text = "5901"

'nur dann ausführen, wenn es im Feld LIPS-POSNR[0,4] eine Hilfsposition 900003 gibt

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-LGORT[3,3]").text = "5901"

'xxxxxxxxxxxxxxxxxxxxxxxxxxxx

'springen in feld Kommimenge

'zwei Linien abgeschaltet, dritte eingefgt

'session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/txtLIPSD-PIKMG[6,0]").setFocus

'session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/txtLIPSD-PIKMG[6,0]").caretPosition = 0

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/txtLIPSD-PIKMG[6,0]").text = Liefmg

ScriptMan
SAP Forum - Guru

vor 12 Jahre

#4

Hallo Novice555,

jetzt wissen wir, dass es sich in diesem Fall nicht um ein GuiXT-Skript sondern um ein VB-Skript handelt, das vom SAP GUI Scriptrecorder aufgezeichnet wurde. Na gut, wir befinden uns hier im GuiXT-Forum. Da es aber kein SAP GUI Scripting Forum in dieser Community gibt, wollen wir nicht so sein.

Mein Vorschlag:

. . .

'xxxxxxxxxxxxxxxxxx Lagerortnummer in zweite und dritte Zeile beim Kommissionieren eingeben xxxxxxxxxxxxxxxxxxxxxxxxxxx

'Nur dann ausführen, wenn es im Feld LIPS-POSNR[0,3] oder >0 ist oder <> "" eine Hilfsposition 900002 gibt

'Hier wird eine Variable gesetzt

LIPS_POSNR = session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-POSNR[0,3]").text

if LIPS_POSNR = "900002" then

. . .

Als Editor habe ich mir "notepad2" heruntergeladen. Ich bin damit ganz zufrieden.

Freundliche Grüße

ScriptMan

Bearbeitet vom Benutzer vor 12 Jahre | Grund: Nicht angegeben

novice555
SAP Forum - Neuling Thema Starter

vor 12 Jahre

#5

Hallo Scriptman,

danke für Deine Antwort. Habe es auch ausprobiert, aber da hat das Program nicht mitgemacht, bekam lauter Fehler. Habe das Script geändert und bekomm jetzt den Error: The control would not be found by id, line 86 Char 1.

'Datum 04.04.11

'editiert 02.03.2012

dim Liefdat

dim Liefmg

'hier mit date() +1, +2, etc. Lieferdatum in der Zukunft setzen

Liefdat = date()+3

Liefmg = InputBox("Liefermenge?","Eingabe Menge")

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]").resizeWorkingPane 141,38,false

'Z16 Register Laden waehlen

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03").select

'Z18 register Laden ausfuellen

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/ctxtLIKP-LSTEL").text = "01"

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/txtLIPSD-G_LFIMG[2,0]").text = Liefmg

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-LGORT[3,0]").text = "59FM"

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/tblSAPMV50ATC_LIPS_LOAD/ctxtLIPS-MBDAT[4,0]").text = Liefdat

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/ctxtLIKP-LSTEL").setFocus

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\03/ssubSUBSCREEN_BODY:SAPMV50A:1106/ctxtLIKP-LSTEL").caretPosition = 2

session.findById("wnd[0]").sendVKey 0

'Z25 Verpacken

session.findById("wnd[0]/tbar[1]/btn[18]").press

session.findById("wnd[0]/usr/tabsTS_HU_VERP/tabpUE6POS/ssubTAB:SAPLV51G:6010/tblSAPLV51GTC_HU_002").getAbsoluteRow(0).selected = true

session.findById("wnd[0]/usr/tabsTS_HU_VERP/tabpUE6POS/ssubTAB:SAPLV51G:6010/tblSAPLV51GTC_HU_002/ctxtV51VP-MATNR[0,0]").setFocus

session.findById("wnd[0]/usr/tabsTS_HU_VERP/tabpUE6POS/ssubTAB:SAPLV51G:6010/tblSAPLV51GTC_HU_002/ctxtV51VP-MATNR[0,0]").caretPosition = 0

session.findById("wnd[0]/tbar[1]/btn[27]").press

session.findById("wnd[0]/tbar[0]/btn[3]").press

'Z32 Matbereitstdatum setzen

'TEST1 2. Zeile inaktiv, geaenderte eingefügt