Forum Discussion
ChristopherWels
14 years agoOccasional Contributor
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 code
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 code
Related Content
Recent Discussions
- 3 hours agoJacobjacob44