Frank1

try to change i = 0 to i = 1 and see if there is any change.

OR

try changing the second part to hard coded number. Like: For i=0 to 1 and see what happens.

I tried a few things:

On line 368 as report error suggests -

For i = 0 to oRepertoryTwins.Entry("F" & obj.id).count-1

I changed "i = 0" to "i = 1". The same error.

On line 369 I tried -

strTwinId = oRepertoryTwins.Entry("F" & obj.id).Object(i)

I changed "....Object(i)" to "....Object(1)". The same error.

There are no other "i" close this line 368. The report error states that there is an "illigal assignment 'i'". I think that that is exactly correct. On line 368, "i" is assigned up to "oRepertoryTwins.Entry("F" & obj.id).count-1". This is the cause of the error. This term fails for some reason.

Since I don't know how this program works, I don't know where to go from here.

Thanks for the help up to now. Hope that someone can help with this.

Frank1

I did another test:

I commented out the "For ..... Next" lines so that the line that has the error is no longer in play (the "For...." - line 368):

'   For i = 0 to oRepertoryTwins.Entry("F" & obj.id).count - 1
    strTwinId = oRepertoryTwins.Entry("F" & obj.id).Object(0)
    WriteNarrativeTwin oRepertoryTwins.Entry(strTwinId).Object(0)
'   Next

Also I changed the "...Object(i)" to "...Object(0)" not to reference the "i" which no longer has an assignment.

The report generator now runs through without error. The report appears to be o/k. As I said before I don't understand the program flow here, so I don't know what other damage this might have done. I have to assume that there was a reason for having a 'For....Next" loop in the first place.

I hope that this helps figure out the cause of this problem. Please remember that this problem only occurs when the Parameter - fHideFamilyDetails="N" in config.xml is set (default being "Y").

Thanks

Frank1

I just did what you suggested (I think again).

On a clean skin, with one pair of twins, the report does NOT generate an error.

Change the Parameter:

     fHideFamilyDetails="Y" to:

     fHideFamilyDetails="N"

I get the same error as before - illegal assignment "i" on line 368 in lang.vbs.

Thanks

Frank1

Dim oRepertoryTwins, strTwinId, oTwin, oTwins, i

Here is the full subroutine:

Sub WriteNarrativeTwins(obj)  Dim oRepertoryTwins, strTwinId, oTwin, oTwins, i  Set oRepertoryTwins = Session("oRepertoryTwins")  Select Case obj.class  Case "Family"   If oRepertoryTwins.KeyCounter("F" & obj.id) > 0 Then    For i = 0 to oRepertoryTwins.Entry("F" & obj.id).count-1     strTwinId = oRepertoryTwins.Entry("F" & obj.id).Object(i)     WriteNarrativeTwin oRepertoryTwins.Entry(strTwinId).Object(0)    Next   End If  Case "Individual"       If oRepertoryTwins.KeyCounter("I" & obj.id) > 0 Then    strTwinId = oRepertoryTwins.Entry("I" & obj.id).Object(0)    WriteNarrativeTwin oRepertoryTwins.Entry(strTwinId).Object(0)   End If  End Select End Sub

That now works.

Thank you so much for that.

Looking forward to Version 2. - looking great so far.

Thank you

Frank1

If I can reproduce the bug, I can fix it.  What triggered my attention was the change in parameter fHideFamilyDetails="N".

I generated a report using your .gno file and got the error.  The rest was a piece of cake :P.

Me too!  It has been 8 years and 3 months since the release of version 1.00.  GenoPro 2.0 is well overdue .