BP79
14 years agoNew Contributor
Convert script 7.52 to 8.7
Hi,
We want to update to testcomplete 8.7 from 7.52
The first scripts didn't go to well and we would like your feedback.
A part of a script in 7.52 is:
Sub Selecteer_patient
Sys.Process("Norma")
Dim norma
Dim textBoxMaskBox
Call norma.NormaMain.PanelControl1.PatientBar.LayoutControl1.Keys("[F2]")
Set textBoxMaskBox = norma.frmZoekPatient.LayoutControl1.txtPatNr.TextBoxMaskBox
textBoxMaskBox.wText = "1000079"
Call textBoxMaskBox.Keys("[Enter]")
End Sub
This sript, selecting a patient, doesn't work in 8.7. It looks like TC can't get into the application (Norma)
when recorded with TC 8.7 the sript looks like this':
Sub Selecteer_patient
Dim wndWindowsForms10Window8app0215472d
Dim wnd
Set wndWindowsForms10Window8app0215472d = Aliases.Norma1.wndWindowsForms10Window8app0215472d
Call wndWindowsForms10Window8app0215472d.WindowsForms10Window8app0215472d1.WindowsForms10Window8app0215472d.LayoutControl1.Keys("[F2]")
Set wnd = wndWindowsForms10Window8app0215472d.LayoutControl1.WindowsForms10Windowbapp0215472d3.Item
Call wnd.SetText("1000079")
Call wnd.Keys("[Enter]")
End Sub
We have about 350 scripts. What do you advice?
thx
We want to update to testcomplete 8.7 from 7.52
The first scripts didn't go to well and we would like your feedback.
A part of a script in 7.52 is:
Sub Selecteer_patient
Sys.Process("Norma")
Dim norma
Dim textBoxMaskBox
Call norma.NormaMain.PanelControl1.PatientBar.LayoutControl1.Keys("[F2]")
Set textBoxMaskBox = norma.frmZoekPatient.LayoutControl1.txtPatNr.TextBoxMaskBox
textBoxMaskBox.wText = "1000079"
Call textBoxMaskBox.Keys("[Enter]")
End Sub
This sript, selecting a patient, doesn't work in 8.7. It looks like TC can't get into the application (Norma)
when recorded with TC 8.7 the sript looks like this':
Sub Selecteer_patient
Dim wndWindowsForms10Window8app0215472d
Dim wnd
Set wndWindowsForms10Window8app0215472d = Aliases.Norma1.wndWindowsForms10Window8app0215472d
Call wndWindowsForms10Window8app0215472d.WindowsForms10Window8app0215472d1.WindowsForms10Window8app0215472d.LayoutControl1.Keys("[F2]")
Set wnd = wndWindowsForms10Window8app0215472d.LayoutControl1.WindowsForms10Windowbapp0215472d3.Item
Call wnd.SetText("1000079")
Call wnd.Keys("[Enter]")
End Sub
We have about 350 scripts. What do you advice?
thx