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
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
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]").sendVKey 0
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
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
'register Kommissionieren waehlen
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"
'Lagerortnummer in zweite und dritte Zeile beim Kommissionieren eingeben
'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 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
'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 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