ChristopherWels
Occasional Contributor
Joined 15 years ago
User Profile
User Widgets
Contributions
Get All Children
Hallo, i search for a getChildren like function for vbscript. and then i wanna call operation for this childobjects. Maybe i could look like : Set objGroup = ExampleFrame.getChildren the objGoup now contains e.g. 1 combobox, 2 buttons, and 3 edits. is there a way to do this? greetings and thx for help Christopher12KViews0likes1CommentNeed help for RegionCheckpoint
Hallo, I need to compare if the right Frame appears or not. I got 5 functions, with the following question after starting them ( look at the pictures). The baseline of all frames is the same. They just difference at 2 words. Also the word "link" can be changed to "unlink". Is there a way to use just 1 regioncheckpoint or will I need one checkpoint for each frame?13KViews0likes1CommentWindow not found with Testcomplete 8
Hiho, I upgraded my TestComplete 7 just a view min ago and now Testcomplete 8 isn't able to found any of my tested frames. If i record a new Keyword Test , TC8 recognizes the frames and the right mapped name. But if a wanna run the new recorded test immediately, the log includes just erros : The object or one of its parent objects does not exist. I was confused and tried the same Test with TC7 and there it's working fine. Can someone give a hint? greetz Christopher12KViews0likes1CommentRe: VB script : Function with return value and argument
I also commented all GUI-related calls. But i still got the errormassage : Runtime Error in VB Script Type incompatibility: 'LinkParameterPosMM' Unit: "testscript" Line: 3 Column: 3. Sub test() is writen in Unit "testscript"7.3KViews0likes0CommentsRe: VB script : Function with return value and argument
Sub test() Dim failed failed = LinkParameterPosMM(1234) writeproducol 4142, 8.2, failed End Sub ----------------------------------------------------------- Function LinkParameterPosMM(ByVal id) Dim waiter Set waiter = Sys.Process("doors") Dim failed Call Aliases.doors.wndDOORSWindow.MainMenu.Click("MERAN|Parameter Manager|Link Parameters") failed = dxlexsists(id) If(failed = true) Then LinkParameterPosMM = false Exit Function End If Call waiter.WaitWindow("DOORSMessageWindow", "DOORS",1,50000) Call Aliases.doors.wndDOORS.btnBest_tigen.ClickButton failed = dxlexsists(id) If(failed = true) Then LinkParameterPosMM=false Exit Function End If LinkParameterPosMM=true End Function ------------------------------------------------------------------------------------- Function writeproducol(ByVal id,ByVal version,ByVal failed) If (failed) Then Call Aliases.EXCEL.wndXLMAIN.XLDESK.EXCEL6.Keys(id&";test-case;Failed;"&version&";;;;[Enter]") Else Call Aliases.EXCEL.wndXLMAIN.XLDESK.EXCEL6.Keys(id&";test-case;Passed;"&version&";;;;[Enter]") End If End Function ----------------------------------------------------------------------------------- Function dxlexsists(ByVal id) If (Aliases.doors.dlgDOORSReport.btnOK.Exists) Then Call Aliases.doors.dlgDOORSReport.btnOK.ClickButton Call Aliases.doors.wndDOORSWindow1.RichEdit20W.Click(210, 40) Call Aliases.doors.wndDOORSWindow1.RichEdit20W.Keys("^a^c") Call Aliases.NOTEPAD.wndNotepad.Edit.Keys("[Enter]") Call Aliases.NOTEPAD.wndNotepad.Edit.Keys(id) Call Aliases.NOTEPAD.wndNotepad.Edit.Keys("[Enter]") Call Aliases.NOTEPAD.wndNotepad.Edit.Keys("^v[Enter][Enter]^s") Call Aliases.doors.wndDOORSWindow1.btnClose.ClickButton dxlexsists = true Exit Function Else dxlexsists = false Exit Function End If End Function That's the code7.3KViews0likes0Comments