|
|
|
|
Customers
Last Login: Saturday, July 12, 2008
Posts: 4,
Visits: 4
|
We wish to insert spaces between information in the reports, ie between the first section of an individual's report and the Death Notes, also another space between Death Notes and General Notes.We would like this to be achieved by altering the appropriate script in a Customised English Narrative Report that we have already created. Could you please let us know how this can be done. Thank you
|
|
|
|
|
Administrators
Customers
Important Contributors
FamilyTrees.GenoPro.com
GenoPro version: 3.1.0.1
Last Login: 2 days ago @ 9:23 PM
Posts: 3,464,
Visits: 26,854
|
Try the following (not tested!).To add a blank line before any death comment change Lang.vbs in skin to add the line in bold and highlighted If (i.IsDead) Then
Set c = d.Cause
ich = Report.BufferLength
Report.WritePhrase StrDicMFU("PhDied",strGender), strPnP, i.Death.Age.Years, i.Death.Age.Months, i.Death.Age.Days, d.Date.ToStringNarrative, d.Place.Session("HlinkLocative"), c, StrFormatText(i, c.Description), i.Birth.Date.Approximation & i.Death.Date.Approximation, "", strGender
Report.WritePhrase StrDicMFU("PhFuneral",strGender), f.Date.ToStringNarrative, f.Place.Session("HlinkLocative"), StrFormatText(i, f.Agency)
Report.WritePhrase StrDicMFU("PhBurial",strGender) , strPnR, d.Disposition.type, d.Disposition.Date.ToStringNarrative, d.Disposition.Place.Session("HlinkLocative")
If (ich = Report.BufferLength) And (Not i.Father.IsDead = True Or Not i.Mother.IsDead = True) Then Report.WritePhraseDic "PhDead", strName ' Indicate dead if no other death phrase and one or more parents alive.
End If
WriteHtmlFootnoteRef2 f.Source, d.Disposition.Source
WriteHtmlFootnoteRef d.Source
If d.Comment <> "" Then Report.WriteBr
WriteHtmlAnnotation i, Dic("AnnotationDeath"), d.Comment
|
To add a blank line between any death comment and a general comment change individual.htm in skin to add line in bold & highlighted WriteNarrativeIndividual i, false, Null
If i.Death.Comment <> "" And i.Comment <> "" Then Report.WriteBr
WriteHtmlAnnotation i, Dic("AnnotationGeneral"), i.Comment |
'lego audio video erro ergo disco' or "I read, I listen, I watch, I make mistakes, therefore I learn"
Edited: Friday, July 11, 2008 by
GenoProSupport
|
|
|
|
|
Customers
Last Login: Saturday, July 12, 2008
Posts: 4,
Visits: 4
|
Ron, Thank you very much for the information you gave us earlier, it has worked fine. Now, of course, as you can imagine we would like the Family page to also have a gap between the marriage narrative and the family notes. If you could help us by giving us the information we would be most grateful. Once again, thank you
|
|
|
|
|
Administrators
Customers
Important Contributors
FamilyTrees.GenoPro.com
GenoPro version: 3.1.0.1
Last Login: 2 days ago @ 9:23 PM
Posts: 3,464,
Visits: 26,854
|
Much the same as before, change Lang.vbs again
If f.Comment <> "" Then Report.WriteBr
WriteHtmlAnnotation f, Dic("AnnotationFamily"), f.Comment
Report.WriteBr "</div>"
|
'lego audio video erro ergo disco' or "I read, I listen, I watch, I make mistakes, therefore I learn"
|
|
|
|
|
Customers
Last Login: Saturday, July 12, 2008
Posts: 4,
Visits: 4
|
Ron,We have tried with success the code that you have given us, we had to put it in twice one under the other to make the space we think looks best. We hate clever people, this is our way of saying so many thanks. : Once again, thank you
|