2020 R1 and Hyper view Reports

[michaelwildschutz]

Has any one tried using a program in new 2020R1 That uses the old method HYPER VIEW REPORTS.I have a program that uses Hyper view reports with button toggles for the operator to select certain options and by selecting certain options the program does and takes different measurements...When I run the program it will open the hyper report but the buttons are not activated and wont let me select anything..it works fine in any version prior to 2019R1

[SABarber]

edit the hyper reports to make sure the basic script behind the code still builds. There were changes made to the scripting engine to perform a more thorough checking for duplicate names. If the scripts can't run I'm thinking the buttons may not be enabled.

[Don Ruggieri]

SABarber has a good point. This was about using names which are the same as some reserved keywords. There were cases where this caused the script not to operatoe properly, so we now check for such use of keywords and report an issue when you try to compile it. We did not do this in the past.

[michaelwildschutz]

ok so here is the code that is failing it is the dim bar line

' The function is called when the window first comes up
' The event Pumpdata occurs before the objects have received their new values from PCDMIS so this event
' cant be used. An alternative is to use the Change event of this combo-box which gets triggered
' a little later.
Dim Str1 As String
Dim Cnt As integer
Dim LineCnt As integer
Dim F As String
Dim i As integer
Dim j As integer
Dim k As integer
Dim Bar As Integer
Dim Range As Double
Dim Num As double
Dim Num1 As double
Dim App As Object
Dim Prog As Object
Dim Probes As Object
Dim Probe As Object
Dim ProbeTip As Object
Dim Pos As integer
If CInt(Pattern.Text) = 7 Or ProbeType.Text = "2" Then
Tip.Enable = True
Else
Tip.Enable = False
End If
Select Case CInt(Pattern.Text)
Case 1
Patterndesc.Text = "111 Pattern"
Case 2
Patterndesc.Text = "121 Pattern"
Case 3
Patterndesc.Text = "111s Pattern"
Case 4
Patterndesc.Text = "121s Pattern"
Case 5
Patterndesc.Text = "312 Pattern"
Case 6
Patterndesc.Text = "Horiz Skew Square Pattern"
Case 7
Patterndesc.Text = "User Defined"
Case 8
Patterndesc.Text = "One Machine"
Case 9
Patterndesc.Text = "111s Pattern (X primary)"
Case 10
Patterndesc.Text = "111 B89 Recommended"
Case 11
Patterndesc.Text = "211 B89 Recommended (viewed from side)"
End Select
For i = Len(ProgramPath.Text)-1 To 1 Step -1
If Mid(Programpath.Text,i,1) = "" Then
Pos = i
exit For
End If
Next
F = Mid(ProgramPath.Text,1,Pos) + McSerialNo.text + "" + McSerialNo.Text + ".Dia"
ExistingData.Text = ""
Results.Text = ""
If Dir(F) <> "" Then
Open F For Input As #1
Do While Not EOF(1)
Line Input #1, Str1
LineCnt = LineCnt + 1
If LineCnt > 6 Then
ExistingData.Text = ExistingData.Text + Str1
Cnt=Cnt+1
i = InStr(1,Str1,",")
Bar = CInt(Mid(Str1,1,i-1))
j = InStr(i+1,Str1,",")
Num = CDbl(Mid(Str1,i+1,j-i-1))
k = InStr(j+1,Str1,",")
Num1 = CDbl(Mid(Str1,j+1,k-j-1))
Range = Abs(Num-Num1)
Results.Text = Results.Text + "Bar " + Format1(Bar,2,0) + "," + Format1(Num,5,4) + Format1(Num1,5,4) + Format1(Range,5,4) + Chr(13)
End If
Loop
Close #1
Results.Bottom=Results.Top + (Cnt * 18)
Skip.Enable = True
Else
Skip.Enable = False
End If
Set App = GetObject("","PCDLRN.Application")
Set Prog = App.ActivePartProgram
Set Probes = Prog.Probes
On Error Resume Next
Set Probe = Probes(Probefile.Text)
On Error GoTo 0
If Probe is nothing Then
MsgBox "Unable to find the Probe Qualification file " + Probefile.Text
Else
ReDim TipList(Probe.Tips.Count)
For i = 1 To Probe.Tips.Count
Tip.AddString Probe.Tips.Item(i).ID
TipList(i) = Probe.Tips.Item(i).ID
Next
Tip.Selection =1
End If
Probes.CancelChanges
Set Probe = Nothing
Set Probes = Nothing
Set Prog = Nothing
Set App = Nothing
Position.RunChange





this all works in 2018 but not 2019 or 2020
any help would be great i would even let some one team viewer in to check it out this morning
please help

[michaelwildschutz]

here is error

[michaelwildschutz]

SABarber has a good point. This was about using names which are the same as some reserved keywords. There were cases where this caused the script not to operatoe properly, so we now check for such use of keywords and report an issue when you try to compile it. We did not do this in the past.

i do not know what it should read now in new version and we need our service techs to use this to calibrate cmm's
I could really use some help asap please

[Don Ruggieri]

Just change Bar to Bar1, or something else, in all its instances in the code.

[BKulpa]

Maybe someone at Hexagon should warn the service techs, as this is the ball bar program they need to run for calibration!

[Don Ruggieri]

The ballbar program is part of the service utilities application, and I work closely with the factories on that. In fact, I was running the B89 volumetric with PC-DMIS 2020 R2 last week as part of some tests. Now I wonder if MichaelWildschultz is running some older application?

[SABarber]

Could be trying to use the v2019 files in a later version.