:. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :. :. Voorgeslacht rapport generator :. ============================== :. auteur: Berend Meijer :. :. Dit sjabloon vereist Aldfaer versie 3.3.2 of later. :. :. Het sjabloon gebruikt een aantal symbolen (zoals de geslachts-symbolen voor man en vrouw), die :. niet door alle lettertypes ondersteund worden. Bij gebruik van zo'n lettertype worden deze :. symbolen verkeerd weergegeven. Bruikbare lettertypes zijn bijvoorbeeld Arial (sans-serif) en :. Times New Roman (serif). Verdana is een voorbeeld van een lettertype dat voor de aangemaakte :. overzichten niet bruikbaar is. :. :. Waarschuwing: dit sjabloon negeert privacy instellingen. Als gevolg hiervan worden altijd alle :. personen in de uitvoer opgenomen. :. _SETDEF(S_VerborgenDiversFeitCategorieen) :. :. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :. :. Opties :. ------ :. :. De volgende regel stelt de naam van het aan te maken bestand in. Dit bestand wordt geplaatst in :. de map die in Aldfaer is ingesteld (in het Overzichten veld op de Bestanden tab, te vinden onder :. het menu item Bestand > Instellingen...). :. _FILENAME( "kwartierstaat.html" ) :. :. Met de volgende regel bepaal je of de belangrijkste sjabloon-opties met een dialoog ingesteld :. worden, of dat deze opties hieronder op een vaste waarde ingesteld worden. 'aan' opent een :. dialoog met de gebruiker bij elke uitvoering van het sjabloon; 'uit' doet dit niet en gebruikt de :. vaste instellingen. :. :. Opties die met een dialoog ingesteld kunnen worden, zijn te herkennen aan hun naam. Namen :. beginnend met F_DialoogOptie_... kunnen met een dialoog ingesteld worden; namen beginnend met :. F_Optie_... kunnen nooit met een dialoog ingesteld worden. :. _FUNCBEGI(F_Optie_GebruikDialoog) aan _FUNCEND :. :. Met de volgende regel kun je kiezen of het aangemaakte document geoptimaliseerd moet worden voor :. Internet Explorer of een andere web browser, of voor Microsoft Word. :. :. Met F_DialoogOptie_OptimaalVoorWord kies je voor de beste weergave van het aangemaakte rapport in :. een web browser of in MS Word. 'aan' optimaliseert voor Microsoft Word; 'uit' optimaliseert voor :. Internet Explorer. :. _FUNCBEGI(F_DialoogOptie_OptimaalVoorWord) aan _FUNCEND :. :. Met de volgende regels kun je een aantal opties voor Microsoft Word optimalisatie instellen. Als :. het document niet voor MS Word geoptimaliseerd wordt, dan hebben deze opties geen effect. :. :. F_DialoogOptie_GeneratieNieuwePagina bepaalt of de uitvoer van elke volgende generatie wel of :. niet op een nieuwe pagina moet beginnen. 'aan' begint elke generatie op een nieuwe pagina; 'uit' :. doet dit niet. :. :. F_DialoogOptie_OnderdrukVerwijzingen bepaalt of de uitvoer aanklikbare verwijzingen bevat. Voor :. kwartierstaten met een een zeer groot aantal gegevens in de diverse indexen kan MS Word het :. aantal aanklikbare verwijzingen niet meer verwerken en weigert het document te openen. 'aan' :. maakt de verwijzingen naar en in de indexen niet aanklikbaar; 'uit' maakt deze verwijzingen :. aanklikbaar. :. :. F_DialoogOptie_VerborgenTekst bepaalt of de uitvoer verborgen tekst bevat die gebruikt kan worden :. voor het aanmaken van kop- en/of voet-teksten. Verborgen tekst is niet werkelijk onzichtbaar; :. de kleur van de tekst is wit en de gebruikte lettergrootte is minimaal; gewoonlijk is zulke tekst :. onzichtbaar, maar ze wordt zichtbaar wanneer de betreffende tekst geselecteerd wordt. :. _FUNCBEGI(F_DialoogOptie_GeneratieNieuwePagina) aan _FUNCEND _FUNCBEGI(F_DialoogOptie_OnderdrukVerwijzingen) aan _FUNCEND _FUNCBEGI(F_DialoogOptie_VerborgenTekst) aan _FUNCEND :. :. Met de volgende regels kun je een aantal opties voor Microsoft Word optimalisatie instellen, die :. betrekking hebben op de aanmaak van een titelpagina. Als het document niet voor MS Word :. geoptimaliseerd wordt, dan hebben deze opties geen effect. :. :. F_DialoogOptie_TitelPagina bepaalt of een titelpagina aangemaakt wordt. 'aan' maakt een :. titelpagina; 'uit' doet dit niet. :. :. F_DialoogOptie_TitelFotoPersoon en F_DialoogOptie_TitelFotoIndex hebben alleen effect als er een :. titelpagina aangemaakt wordt. Deze opties bepalen welke foto op de titelpagina gebruikt wordt. :. F_DialoogOptie_TitelFotoPersoon bepaalt de persoon (1 voor de kwartierhouder, 2 voor de vader, 3 :. voor de moeder, enz.) en F_DialoogOptie_TitelFotoIndex geeft het nummer van de foto. Kies een :. niet bestaande persoon (bijvoorbeeld 0) of niet bestaand fotonummer om geen foto op te nemen. Als :. speciaal geval kan het fotonummer op 0 gezet worden om aan te geven dat de laatste foto van de :. persoon gebruikt moet worden. :. :. F_DialoogOptie_TitelFotoHoogte heeft alleen effect als er een foto op de titelpagina voorkomt. :. Deze optie bepaalt de hoogte van de foto (uitgedrukt in pixels). :. _FUNCBEGI(F_DialoogOptie_TitelPagina) aan _FUNCEND _FUNCBEGI(F_DialoogOptie_TitelFotoPersoon) 1 _FUNCEND _FUNCBEGI(F_DialoogOptie_TitelFotoIndex) 0 _FUNCEND _FUNCBEGI(F_DialoogOptie_TitelFotoHoogte) 300 _FUNCEND :. :. De volgende regel bepaalt het maximum aantal rijen fotos dat per persoon geplaatst wordt. Dit :. aantal moet 1 of meer zijn. :. _FUNCBEGI(F_DialoogOptie_FotoRijen) 3 _FUNCEND :. :. De volgende regel definieert de beschikbare breedte voor een foto-rij (uitgedrukt in pixels). :. Fotos breder dan de beschikbare rij-breedte worden ook in de uitvoer opgenomen; dit kan worden :. voorkomen door de Aldfaer optie 'Afbeelding in pixels > Breedte' (op tab 'Overzichten > :. Algemeen', onder het menu 'Bestand > Instellingen...') kleiner dan de beschikbare rij-breedte te :. kiezen. :. _FUNCBEGI(F_DialoogOptie_FotoRijBreedte) 580 _FUNCEND :. :. De volgende regel bepaalt of bij het toevoegen van bronvermeldingen ook de aantekeningen over de :. bronnen aan het document toegevoegd moeten worden. Dit kan wel of niet zinvol zijn, afhankelijk :. van hoe en waarvoor je Aldfaer's bron-aantekeningen gebruikt (de aantekeningen-categorie :. 'Bronnen' onder het menu 'Extra > Aantekeningen...'). 'aan' voegt ook de aantekeningen toe; 'uit' :. laat de aantekeningen weg. :. _FUNCBEGI(F_DialoogOptie_BronAantekeningen) uit _FUNCEND :. :. Op de volgende regels kun je aangeven welke categorieën 'divers' feiten niet weergegeven moeten :. worden. Dit heeft uiteraard alleen zin als je in Aldfaer zulke categorieën gedefinieerd hebt op :. de 'Feiten' tab. Gebruik voor elke niet weer te geven categorie een nieuwe regel met de volgende :. tekst: :. _SETADD(S_VerborgenDiversFeitCategorieen,"Bijzonderheden") :. Vervang in deze tekst Bijzonderheden door de naam van de niet weer te geven categorie. :. _SETADD(S_VerborgenDiversFeitCategorieen,"") :. :. De volgende optie heeft alleen effect als in de Aldfaer instellingen (op tab 'Overzichten > :. Algemeen', onder het menu 'Bestand > Instellingen...') de optie 'Naam van de dag' is aangezet. :. In dat geval worden dagnamen alleen weergegeven voor data na het opgegeven jaar. Dit wordt gedaan :. om te voorkomen dat voor data in de Juliaanse tijdrekening foutieve dagnamen worden weergegeven. :. Voor zover mij bekend is, wordt de Juliaanse tijdrekening in Nederland na 1701 nergens meer :. gebruikt. :. _FUNCBEGI(F_DialoogOptie_LaatsteJuliaanseJaar) 1701 _FUNCEND :. :. De volgende optie heeft alleen effect als in de Aldfaer instellingen (op tab 'Overzichten > :. Presentatie', onder het menu 'Bestand > Instellingen...') de optie 'Getuigen' is aangezet. In dat :. geval bepaalt de volgende regel of getuigen in de tekst worden aangegeven als 'getuigen' of als :. 'aanwezigen'. 'aan' geeft geeft getuigen aan als 'aanwezigen'; 'uit' geeft getuigen aan als :. getuigen. :. _FUNCBEGI(F_DialoogOptie_AanwezigenIpvGetuigen) aan _FUNCEND :. :. De volgende regels hebben alleen effect als in de Aldfaer instellingen (op tab 'Overzichten > :. Presentatie', onder het menu 'Bestand > Instellingen...') de optie 'Index' is aangezet. Als dit :. het geval is, dan bepaalt F_DialoogOptie_MaakPersonenIndex of er een index van persoonsnamen :. wordt aangemaakt. 'aan' voegt de index toe; 'uit' laat de index weg. Als er een personenindex :. wordt aangemaakt, dan bepaalt F_DialoogOptie_PersonenIndexOpVoornaam of de sortering op voornaam :. of op achternaam gebeurd. 'aan' sorteert op voornaam; 'uit' sorteert op achternaam. :. :. F_DialoogOptie_MaakPlaatsenIndex bepaalt of er een index van plaatsnamen wordt aangemaakt. 'aan' :. voegt de index toe; 'uit' laat de index weg. :. :. F_DialoogOptie_MaakBeroepenIndex bepaalt of er een index van beroepen en functies wordt :. aangemaakt. 'aan' voegt de index toe; 'uit' laat de index weg. :. :. F_DialoogOptie_MaakFotoIndex bepaalt of er een lijst van afbeeldingen wordt aangemaakt. 'aan' :. voegt de lijst toe; 'uit' laat de lijst weg. :. _FUNCBEGI(F_DialoogOptie_PersonenIndex) aan _FUNCEND _FUNCBEGI(F_DialoogOptie_PersonenIndexOpVoornaam) uit _FUNCEND _FUNCBEGI(F_DialoogOptie_PlaatsenIndex) aan _FUNCEND _FUNCBEGI(F_DialoogOptie_BeroepenIndex) aan _FUNCEND _FUNCBEGI(F_DialoogOptie_FotoIndex) aan _FUNCEND :. :. F_Optie_PlaatsenIndexMetLand heeft alleen effect als een index van plaatsnamen wordt aangemaakt. :. 'aan' voegt het land toe aan de plaatsnaam voor adresgegevens; 'uit' laat het land weg. Het nut :. van deze instelling hangt er van af of je gewend bent om landnamen toe te voegen aan plaatsen :. van geboorte, huwelijk, enz. Als dat het geval is, dan is 'aan' waarschijnlijk de beste :. instelling; anders kun je waarschijnlijk beter 'uit' gebruiken. :. :. F_Optie_PlaatsenIndexLand1 en F_Optie_PlaatsenIndexLand2 hebben alleen effect als er een index :. van plaatsnamen wordt aangemaakt en F_Optie_PlaatsenIndexMetLand aangezet is. In dit geval :. bepalen F_Optie_PlaatsenIndexLand1 en F_Optie_PlaatsenIndexLand2 hoe de plaatsnaam en het :. land aan elkaar gekoppeld worden voor adresgegevens. De werking van deze opties wordt het best :. uitgelegd aan de hand van de volgende voorbeelden voor plaatsnaam 'Nienborg' en land 'Duitsland'. :. (1) De volgende instellingen geven 'Nienborg, Duitsland': :. _FUNCBEGI(F_Optie_PlaatsenIndexLand1)[&, &]_FUNCEND :. _FUNCBEGI(F_Optie_PlaatsenIndexLand2)[&&]_FUNCEND :. (2) De volgende instellingen geven 'Nienborg (Duitsland)': :. _FUNCBEGI(F_Optie_PlaatsenIndexLand1)[& (&]_FUNCEND :. _FUNCBEGI(F_Optie_PlaatsenIndexLand2)[&)&]_FUNCEND :. (3) De volgende instellingen geven 'Nienborg [ Duitsland ]': :. _FUNCBEGI(F_Optie_PlaatsenIndexLand1)[& [ &]_FUNCEND :. _FUNCBEGI(F_Optie_PlaatsenIndexLand2)[& ]&]_FUNCEND :. De beste keuze voor deze instellingen hangt er van af van hoe je gewend bent om zelf plaatsnaam :. en land aan elkaar te koppelen bij plaatsen van geboorte, huwelijk, enz. :. _FUNCBEGI(F_Optie_PlaatsenIndexMetLand) aan _FUNCEND _FUNCBEGI(F_Optie_PlaatsenIndexLand1)[&, &]_FUNCEND _FUNCBEGI(F_Optie_PlaatsenIndexLand2)[&&]_FUNCEND :. :. Verminder het percentage in de volgende regel om meer verschil tussen normale en kleine letters :. te krijgen. De leesbaarheid van klein gescheven tekst verminderd uiteraard naarmate je een :. lager percentage gebruikt. Een web browser of ander programma zal de maat van de kleine letters :. enigszins afronden, zodat de uiteindelijk gebruikte maat iets kan afwijken van het opgegeven :. percentage. :. _FUNCBEGI(F_Optie_LettertypeVerkleining) 90% _FUNCEND :. :. De kleurcodes in de volgende regels kunnen veranderd worden om een ander kleurenschema te :. creëren. Elke kleurcode moet de volgende vorm hebben: #RRGGBB, waarin RR de hoeveel rood bepaald, :. GG de hoeveelheid groen en BB de hoeveelheid blauw. RR, GG en BB zijn hexadecimale getallen :. tussen 00 en FF. In de meeste gevallen kun je volstaan met de volgende waarden voor RR, GG en BB: :. 00, 0F, 1F, 2F, 3F, 4F, 5F, 6F, 7F, 8F, 9F, AF, BF, CF, DF, EF en FF. Een aantal standaard :. kleuren zijn: #000000 (zwart), #FF0000 (rood), #00FF00 (groen), #0000FF (blauw), #FFFF00 (geel), :. #FF00FF (magenta), #00FFFF (cyaan), #3F3F3F (donkergrijs), #7F7F7F (grijs), #BFBFBF (lichtgrijs) :. en #FFFFFF (wit). :. :. F_Optie_KopAchtergrondKleur, F_Optie_KopRandKleur en F_Optie_KopTekstKleur bepalen de kleuren van :. de koppen aan het begin van elke generatie en aan het begin van de bronvermeldingen en de index. :. :. F_Optie_FeitenAchtergrondKleur en F_Optie_FeitenRandKleur bepalen de kleuren van de panelen met :. feiten over een persoon. De tekstkleur in deze panelen is altijd zwart. :. :. F_Optie_PersoonAchtergrondKleur en F_Optie_PersoonRandKleur bepalen de kleuren van de panelen met :. notities over een persoon. De tekstkleur in deze panelen is altijd zwart. :. :. F_Optie_RelatieAchtergrondKleur en F_Optie_RelatieRandKleur bepalen de kleuren van de panelen met :. notities over een relatie tussen twee personen. De tekstkleur in deze panelen is altijd zwart. :. :. F_Optie_VoorouderNummerKleur bepaalt de kleur van de verwijzingen naar voorouders (die in de :. tekst tussen rechte haken worden vermeld). :. :. F_Optie_BronNummerKleur bepaalt de kleur van de nummers in de tekst, die corresponderen met een :. bronvermelding. In de tekst worden deze nummers verhoogd weergegeven. :. :. F_Optie_NaamIndexNummerKleur bepaalt de kleur van de nummers in de tekst, die corresponderen met :. een vermelding in de personen-index. In de tekst worden deze nummers verlaagd weergegeven. :. :. F_Optie_PlaatsIndexNummerKleur bepaalt de kleur van de nummers in de tekst, die corresponderen :. met een vermelding in de plaatsen-index. In de tekst worden deze nummers verlaagd weergegeven. :. :. F_Optie_BeroepIndexNummerKleur bepaalt de kleur van de nummers in de tekst, die corresponderen :. met een vermelding in de beroepen en functies-index. In de tekst worden deze nummers verlaagd :. weergegeven. :. :. Waarschuwing: Als zowel de achtergrondkleur als de randkleur van twee panelen dezelfde waarde :. hebben, dan voegt MS Word opeenvolgende panelen samen tot één paneel. Dit wordt vermeden door een :. minimaal kleurverschil tussen de panelen te gebruiken. Als de kleuren van alle panelen gelijk :. moeten zijn, gebruik dan bijvoorbeeld #BFBFBF, #BEBEBE en #BDBDBD voor de randkleuren van de drie :. panelen. De resulterende kleurverschillen zijn zo klein dat ze niet opvallen. :. _FUNCBEGI(F_Optie_KopAchtergrondKleur) #BFBFBF _FUNCEND _FUNCBEGI(F_Optie_KopRandKleur) #BFBFBF _FUNCEND _FUNCBEGI(F_Optie_KopTekstKleur) #000000 _FUNCEND _FUNCBEGI(F_Optie_FeitenAchtergrondKleur) #EFEFEF _FUNCEND _FUNCBEGI(F_Optie_FeitenRandKleur) #BFBFBF _FUNCEND _FUNCBEGI(F_Optie_PersoonAchtergrondKleur) #EFEFEF _FUNCEND _FUNCBEGI(F_Optie_PersoonRandKleur) #BEBEBE _FUNCEND _FUNCBEGI(F_Optie_RelatieAchtergrondKleur) #EFEFEF _FUNCEND _FUNCBEGI(F_Optie_RelatieRandKleur) #BDBDBD _FUNCEND _FUNCBEGI(F_Optie_VoorouderNummerKleur) #000000 _FUNCEND _FUNCBEGI(F_Optie_BronNummerKleur) #0000FF _FUNCEND _FUNCBEGI(F_Optie_NaamIndexNummerKleur) #BF0000 _FUNCEND _FUNCBEGI(F_Optie_PlaatsIndexNummerKleur) #007F00 _FUNCEND _FUNCBEGI(F_Optie_BeroepIndexNummerKleur) #8F5F00 _FUNCEND :. :. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :. :. Speciale gevallen :. ----------------- :. :. In geval van een doodgeboren kind kunnen de geboorte- en overlijdens-gegevens op verschillende :. manieren in Aldfaer ingevoerd worden. Dit sjabloon volgt de conventie dat de geboorte-datum :. en de datum van overlijdens-aangifte uitgevoerd worden, tenzij er een conflict bestaat tussen de :. geboorte- en overlijdens-gegevens, in welk geval alle gegevens uitgevoerd worden. :. :. In geval van vermissing i.p.v. overlijden gaat dit sjabloon uit van de volgende conventie. De :. datum van vermissing wordt gegeven vóór de datum van overlijden en aangifte. De overlijdens- :. datum wordt gepresenteerd als de datum waarop de persoon geacht wordt te zijn overleden. :. :. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :. :. Beperkingen :. ----------- :. :. Aldfaer (versie 3.2.5) bevat een fout, waardoor _WITNAMOU en _WITNBEGI()/_WITNEND niet correct :. werken. Hierdoor wordt bij het overzicht van gebeurtenissen waarbij een bepaalde persoon getuige :. was, slechts één gebeurtenis uit het leven van elke andere persoon vermeld. In dit sjabloon :. wordt hier omheen gewerkt. :. Aldfaer (versie 3.3.1) bevat een ergere vorm van deze fout, waarbij slechts één gebeurtenis :. gerapporteerd wordt (in versie 3.2.5 was dit nog één gebeurtenis per persoon). Vreemd genoeg :. lijken huwelijken en geregistreerde partnerschappen wel juist gerapporteerd te worden. Er is een :. (zeer omslachtige en tijdrovende) manier om om deze fout heen te werken, die in dit sjabloon :. niet toegepast wordt, dus de uitvoer van het sjabloon is wat dit betreft incompleet. :. In Aldfaer (versie 3.3.2) is deze fout gecorrigeerd en werkt de getuige-afhandeling op de juiste :. manier. :. :. De methode die gebruikt wordt om fotos in rijen van een beperkte breedte te plaatsen, is :. omslachtig. Er zijn betere methoden te bedenken, die echter alle minstens één rekenkundige :. bewerking vereisen. Aldfaer (versie 3.3.2) biedt hiervoor geen mogelijkheden. :. Er is ook nog een iets betere methode te bedenken die de lengte van een string gebruikt om de :. breedte van een rij te volgen, maar deze methode wordt gefrustreerd doordat Aldfaer :. (versie 3.3.2) geen variabelen accepteert als numerieke parameter voor _SUBS en _FILL. Een fout :. in Aldfaer (versie 3.3.2)? :. :. De methode die gebruikt wordt om een index aan te maken, is langzaam. Dit komt doordat elke keer :. dat een al eerder geindexeerde persoon of plaats nogmaals geindexeerd wordt, de hele index :. doorlopen moet worden om de juiste ingang te vinden. Dit is een beperking van Aldfaer :. (versie 3.2.5): het is niet mogelijk om het N-de element uit een set direct te lezen, noch is het :. mogelijk om een bestaand element van een set te wijzigen. Hierdoor is een _SETBEGI()/_SETEND :. iteratie nodig om het N-de element te vinden, gevolgd door een _SETADD/_SETSUB combinatie om het :. gevonden element te wijzigen. :. Aldfaer (versies 3.3.1 en 3.3.2) hebben de mogelijkheid om het N-de element uit een set direct te :. lezen, maar maken het wijzigen van een bestaand element nog steeds niet mogelijk. Een :. alternatieve methode om de noodzakelijke iteratie te vermijden wordt onmogelijk gemaakt door het :. feit dat een met _SETADD() toegevoegd element niet op een gedefinieerde plaats toegevoegd lijkt :. te worden, waardoor twee sets niet gesynchroniseerd kunnen worden. :. :. Aldfaer (versie 3.2.5) bevat een fout, waardoor in een _FACTBEGI()/_FACTEND iteratie _AMOU niet :. het aatal feiten geeft, maar in plaats daarvan het aantal personen in de kwartierstaat lijkt te :. geven. In dit sjabloon wordt het gebruik van _AMOU in deze situatie vermeden. :. Het is niet bekend of dit probleem in Aldfaer (versies 3.3.1 en 3.3.2) ook bestaat. :. :. Aldfaer (versie 3.2.5) slaat aantekeningen op met
codes op plaatsen waar regels in het :. invoervenster afgebroken werden. Dit vernielt de lay-out van de bron-aantekeningen in de :. uitvoer van dit sjabloon. Het beste is om bij de invoer van aantekeningen in Aldfaer de breedte :. van het invoervenster zo te zetten dat een regel in het venster nooit langer is dan een regel in :. de door dit sjabloon aangemaakte uitvoer. :. Aldfaer (versies 3.3.1 en 3.3.2) bevatten een andere fout die er voor zorgt dat regels in het :. invoervenster niet meer automatisch afgebroken worden. Handmatig aangebrachte regeleindes leveren :. dezelfde lay-out problemen op als bij Aldfaer (versie 3.2.5). :. :. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :. :. Problemen :. --------- :. :. In het geval van een bijzonder lange persoonsnaam, plaatsnaam, beroepsnaam of functienaam (meer :. dan zo'n 200 letters en leestekens) zal er een probleem ontstaan met de generatie van de indexen. :. Dit uit zich op één van de volgende wijzen: :. (1) het aangemaakte rapport kan niet geopend worden in een web browser of in MS Word, of :. (2) één of meer regels in de indexen zijn verminkt. :. Zoek in dit geval de negen plaatsen waar in dit sjabloon de tekst ._FILL( voorkomt, gevolgd door :. getal, en maak elk van deze getallen zo'n 20% hoger. Blijf de getallen in stappen van zo'n 20% :. verhogen totdat het probleem verdwenen is. ZORG ERVOOR DAT DE GETALLEN STEEDS GELIJK BLIJVEN! :. :. Voor kwartierstaten met een een zeer groot aantal gegevens in de diverse indexen kan MS Word het :. aantal aanklikbare verwijzingen niet verwerken en weigert het document te openen met een nogal :. crytische foutmelding. Zet in dit geval de instelling F_DialoogOptie_OnderdrukVerwijzingen op :. 'aan', of doe dit via de betreffende dialoog-optie bij het uitvoeren van het sjabloon. :. :. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :. _FUNCBEGI(F_VersieNummer) 3.5 (16 mei 2006) _FUNCEND :. :. ------------------------------------------------------------------------------------------------- :. Hoofdprogramma. :. ------------------------------------------------------------------------------------------------- :. [?[:[&[?_PREFMALE?]x&][&[?_PREFFEMA?]x&]:]?]? _BEGI :. :. Construeer de dialogen. :. F_ConstrueerDialogen :. :. Prepareer de sets. :. _SETDEF(S_DocumentType) _SETDEF(S_Kwartierdrager) _SETDEF(S_Voorgeslacht) _SETDEF(S_VaderMoeder) _SETDEF(S_GetesteDiversFeitCategorieen) _SETDEF(S_Bron) _SETDEF(S_Bronnen) _SETDEF(S_NaamIndex) _SETDEF(S_NaamIndexCheck) _SETDEF(S_NaamIndexNummer,_SETDUPL) _SETDEF(S_Plaats) _SETDEF(S_PlaatsIndex) _SETDEF(S_PlaatsIndexCheck) _SETDEF(S_PlaatsIndexNummer,_SETDUPL) _SETDEF(S_PlaatsIndexNamen) _SETDEF(S_Beroep) _SETDEF(S_BeroepIndex) _SETDEF(S_BeroepIndexCheck) _SETDEF(S_BeroepIndexNummer,_SETDUPL) _SETDEF(S_BeroepIndexNamen) _SETDEF(S_FotoIndex) _SETDEF(S_FotoIndexNummer,_SETDUPL) _SETDEF(S_VerborgenTekst) _SETDEF(S_HoofdstukTitel) _SETADD(S_DocumentType, [:[&[?_PREFMALE?][?_PREFFEMA?]Kwartierstaat&]|[&[?_PREFMALE?]Stamreeks&]| [&Matrilineaire reeks&]:]) _SETADD(S_Kwartierdrager) :. :. Toon de instellingen op het scherm :. F_SchermCommentaar :. :. Genereer de personenlijst. :. _SETFILL(S_Voorgeslacht,_ASCE,F_IsRelevanteVoorouder) _PREFNUMBGENA? _BEGI _SETBEGI(S_Voorgeslacht) [?_PREFNUMBGENA<_GENENUM?]? _BEGI _SETSUB(S_Voorgeslacht) _END _SETEND _END :. :. Genereer de kwartierstaat. :. _FILEMODE("html",ifNewer) _WRITBEGI _SETBEGI(S_DocumentType)_SETSTRI _SETEND van F_NaamCompleetZonderCode F_Titel F_Kwartierstaat F_NaamIndex F_PlaatsIndex F_BeroepIndex F_FotoIndex F_Bronnen _WRITEND _ELSE Noch de mannelijke, noch de vrouwelijke lijn zijn geselecteerd. Pas de instellingen aan. Er wordt geen uitvoer geproduceerd. _END :. [? :. ------------------------------------------------------------------------------------------------- :. Kwartierstaat functies. :. ------------------------------------------------------------------------------------------------- :. ----- Hoofdfunctie voor het genereren van de kwartierstaat. _FUNCBEGI(F_Kwartierstaat) _SETBEGI(S_Voorgeslacht) _BEGI F_GeneratieTitel F_VoorouderBeschrijving :. :. Als de huidige persoon een man is, zonder bijbehorende vrouw, dan is er geen bekende :. hoofd-relatie. :. Als de huidige persoon een man is, met bijbehorende vrouw, dan is er een hoofd-relatie, :. die echter pas na de vrouw beschreven zal worden. :. Als de huidige persoon een vrouw is, zonder bijbehorende man, dan is er geen bekende :. hoofd-relatie, maar het aanroepen van F_VoorouderHoofdRelatieBeschrijving is in dit gaval :. onschadelijk. :. Als de huidige persoon een vrouw is, met bijbehorende man, dan is er een hoofd-relatie die :. nu beschreven moet worden. :. Als dit een stamreeks of matrilineaire reeks is, dan heeft het aanroepen van :. F_VoorouderHoofdRelatieBeschrijving geen effect. :. [?_FEMA?]? _BEGI F_VoorouderHoofdRelatieBeschrijving _END _END _SETEND _FUNCEND :. ----- Functie voor het weegeven van de gegevens voor een voorouder, inclusief alle relaties en :. ----- kinderen, met uitzondering van de hoofd-relatie met een andere voorouders en hun :. ----- gezamenlijke kinderen. (De hoofd-relatie tussen twee voorouders en hun kinderen worden :. ----- afgehandeld door functie VoorouderHoofdRelatieBeschrijving.) _FUNCBEGI(F_VoorouderBeschrijving) :. :. Plaats de huidige persoon in de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. :. _SETADD(S_VaderMoeder) :. :. Initialiseer een lokale set met alle kinderen. Deze set wordt gebruikt om bij te houden van :. welke kinderen nog gegevens uitgevoerd moeten worden. :. _SETDEF(S_VoorouderBeschrijving_Kinderen) _CHILBEGI _SETADD(S_VoorouderBeschrijving_Kinderen) _CHILEND :. :. Geef de gegevens van de voorouder zelf, zonder vermelding van relaties of kinderen. Geef een :. waarschuwing als er kwartierherhaling optreedt. :. _SETADD(S_VerborgenTekst,[:F_NaamCompleetZonderCodeMetASCENUM:])F_VerborgenTekst F_VoorouderHoofdIngang F_KwartierHerhaling :. :. Geef de gegevens voor alle relaties van de voorouder; verwijder de kinderen van deze relaties :. uit de lokale set. :.
_RELABEGI :. :. Voeg de partner toe aan de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. :. _SETADD(S_VaderMoeder) :. :. Test voor een hoofd-relatie (d.w.z. een relatie van twee voorouders waar ook weer een :. voorouder uit voort komt. :. [?F_IsHoofdRelatie?]? _BEGI :. :. Hier weten we dat dit een hoofd-relatie tussen twee voorouders is. :. :. Geef een verwijzing naar de gegevens van de voorouder, maar alleen als er meerdere relaties :. zijn. :. [?_AMOU>1?]? _BEGI F_VoorouderRelatieVerwijzing _END :. :. Verwijder alle kinderen van de relatie uit de lokale set, zonder de gegevens van deze :. kinderen weer te geven. (Kinderen van relaties tussen twee voorouders worden elders :. afgehandeld.) :. _CHILBEGI :. :. Verwijder het kind uit de lokale set. :. _SETSUB(S_VoorouderBeschrijving_Kinderen) _CHILEND _ELSE :. :. Hier weten we dat dit niet een hoofd-relatie tussen twee voorouders is. :. :. Geef de naam en gegevens van de voorouder. :. F_VoorouderRelatieGegevens :. :. Geef de gegevens voor alle kinderen van de relatie; verwijder deze kinderen uit de lokale :. set. :. [?_CHILAMOU?]? _BEGI _PREFCHIL? _BEGI

[:[?_CHILAMOU>1?]Kinderen:]|[&Kind&] van _SWAPBEGI F_NaamKort _SWAPEND en F_NaamKort:

_CHILBEGI :. :. Geef de gegevens voor het kind. :. [?_ASCENUM?]? _BEGI :. :. Hier weten we dat het kind een voorouder met een hoofdingang is. :. :. Geef een verwijzing naar de gegevens voor het kind. :. F_VoorouderRelatieKindVerwijzing _ELSE :. :. Hier weten we dat het kind geen voorouder met een hoofdingang is. :. :. Geef de gegevens voor het kind. :. F_VoorouderRelatieKindGegevens _END :. :. Verwijder het kind uit de lokale set. :. _SETSUB(S_VoorouderBeschrijving_Kinderen) _CHILEND
_ELSE _CHILBEGI :. :. Verwijder het kind uit de lokale set. :. _SETSUB(S_VoorouderBeschrijving_Kinderen) _CHILEND _END _END _END :. :. Verwijder de partner uit de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. :. _SETSUB(S_VaderMoeder) _RELAEND :. :. Geef de gegevens voor alle resterende kinderen (dit zijn kinderen uit onbekende relaties). Een :. van deze kinderen kan een voorouder zijn (d.w.z. één van de onbekende relaties kan een hoofd- :. relatie zijn). :. [?_SETAMOU(S_VoorouderBeschrijving_Kinderen)?]? _BEGI _PREFCHIL? _BEGI

[:[?_SETAMOU(S_VoorouderBeschrijving_Kinderen)>1?]Kinderen :]|[&Kind &] van F_NaamKort uit een onbekende relatie:

_SETBEGI(S_VoorouderBeschrijving_Kinderen) :. :. Geef de gegevens voor het kind. :. [?_ASCENUM?]? _BEGI :. :. Hier weten we dat het kind een voorouder met een hoofdingang is. :. :. Geef een verwijzing naar de gegevens voor het kind. :. F_VoorouderRelatieKindVerwijzing _ELSE :. :. Hier weten we dat het kind geen voorouder met een hoofdingang is. :. :. Geef de gegevens voor het kind. :. F_VoorouderRelatieKindGegevens _END _SETEND
_END _END
_SETADD(S_VerborgenTekst,[:F_NaamCompleetZonderCodeMetASCENUM:])F_VerborgenTekst :. :. Verwijder de lokale set. :. _SETDEL(S_VoorouderBeschrijving_Kinderen) :. :. Verwijder de huidige persoon uit de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. Dit maakt de set leeg. :. _SETSUB(S_VaderMoeder) _FUNCEND :. ----- Functie voor het weergeven van de hoofd-relatie tussen twee voorouders, inclusief :. ----- beschrijving van de gezamenlijke kinderen. _FUNCBEGI(F_VoorouderHoofdRelatieBeschrijving) :. :. Plaats de huidige persoon in de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. :. _SETADD(S_VaderMoeder) _RELABEGI :. :. Voeg de partner toe aan de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. :. _SETADD(S_VaderMoeder) :. :. Test voor een hoofd-relatie (d.w.z. een relatie van twee voorouders waar ook weer een :. voorouder uit voort komt. :. [?F_IsHoofdRelatie?]? _BEGI :. :. Hier weten we dat dit een hoofd-relatie tussen twee voorouders is. :. _SETADD(S_VerborgenTekst, [:F_NaamCompleetZonderCodeMetASCENUM x _SWAPBEGI[::]F_NaamCompleetZonderCodeMetASCENUM[::]_SWAPEND:])F_VerborgenTekst

F_VoorouderHoofdRelatieGegevens [?_CHILAMOU?]? _BEGI _PREFCHIL? _BEGI [:[?_CHILAMOU>1?]Kinderen:]|[&Kind&] van F_NaamKort en _SWAPBEGI F_NaamKort[::]_SWAPEND:

_CHILBEGI :. :. Geef de gegevens voor het kind. :. [?_ASCENUM?]? _BEGI :. :. Hier weten we dat het kind een voorouder met een hoofdingang is. :. :. Geef een verwijzing naar de gegevens voor het kind. :. F_VoorouderRelatieKindVerwijzing _ELSE :. :. Hier weten we dat het kind geen voorouder met een hoofdingang is. :. :. Geef de gegevens voor het kind. :. F_VoorouderRelatieKindGegevens _END _CHILEND
_ELSE

_END _ELSE

_END _SETADD(S_VerborgenTekst, [:F_NaamCompleetZonderCodeMetASCENUM x _SWAPBEGI[::]F_NaamCompleetZonderCodeMetASCENUM[::]_SWAPEND:])F_VerborgenTekst _END :. :. Verwijder de partner uit de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. :. _SETSUB(S_VaderMoeder) _RELAEND :. :. Verwijder de huidige persoon uit de vader/moeder set, die gebruikt wordt bij het bepalen van de :. zekerheid van ouderschap bij het beschrijven van de kinderen. Dit maakt de set leeg. :. _SETSUB(S_VaderMoeder) _FUNCEND :. ----- Hulp-functie om te bepalen of de huidige relatie een hoofd-relatie is (d.w.z. een relatie :. ----- tussen twee voorouders, waar ook weer een voorouder uit voort komt). In nagenoeg alle :. ----- gevallen is het voldoende om te testen dat beide personen in de relatie een _ASCENUM :. ----- hebben. Echter, als A en B een hoofd-relatie hadden, en C en D hadden een hoofd-relatie, :. ----- en tevens hadden A en C nog een andere relatie, dan leidt een test op alleen _ASCENUMs tot :. ----- een verkeerde weergave van de relatie tussen A en C. :. ----- Deze funktie wordt ook gebruikt om in het geval van een stamreeks of matrilineaire reeks :. ----- de speciale behandeling van hoofdrelaties te vermijden. :. ----- Roep deze functie aan als een test: [?F_IsHoofdRelatie?]?_BEGI ... _END _FUNCBEGI(F_IsHoofdRelatie) [&[?_PREFMALE?][?_PREFFEMA?] [?[&_ASCENUM _SWAPBEGI _ASCENUM _SWAPEND&]?]?_BEGI _CHILBEGI(_BIOL) _ASCENUM _CHILEND _END&] _FUNCEND :. ----- Hulp-functie om te bepalen of een voorouder in het te genereren overzicht voorkomt. Voor :. ----- een stamreeks worden vrouwelijke voorouders uitgefilterd; voor een matrilineaire reeks :. ----- worden mannelijke voorouders uitgefilterd. :. ----- Deze functie wordt alleen gebruikt als selector bij het vullen van de set met voorouders, :. ----- waardoor _GENENUM niet gebruikt kan worden. Dit is de reden voor het gebruik van de omweg :. ----- via S_Kwartierdrager. _FUNCBEGI(F_IsRelevanteVoorouder) [&[?_PREFMALE?]_MALE&]|[&[?_PREFFEMA?]_FEMA&]| [:[?_CODEINTE==_SETBEGI(S_Kwartierdrager)_CODEINTE _SETEND?]x:] _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Functies voor het weergeven van de gegevens van één persoon, zonder recursie over kinderen of :. relaties. Uitzondering is een kind uit een hoofd-relatie, dat zelf geen voorouder is, in welk :. geval ook de relaties worden gegeven. :. ------------------------------------------------------------------------------------------------- :. ----- Functie voor het weergeven van de gegevens van een voorouder in de vorm van een :. ----- hoofd-ingang in de kwartierstaat. _FUNCBEGI(F_VoorouderHoofdIngang)

F_GeslachtSymbool _ASCENUM. F_NaamCompleetMetAnker[:, F_KindVanOuders:]. F_GeboorteGegevens F_DoopGegevens [:_LOST?_BEGI F_BegrafenisGegevens F_OverlijdensGegevens _END:]| [:F_OverlijdensGegevens F_BegrafenisGegevens:] F_GeenRelatiesOfKinderen

F_Fotos F_Feiten F_PersoonNotities _FUNCEND :. ----- Functie voor het weergeven van een niet-voorouder (of eventueel een voorouder die niet tot :. ----- de huidige hoofd-relatie behoort) als deel van een relatie onder een hoofd-ingang in de :. ----- kwartierstaat. _FUNCBEGI(F_VoorouderRelatieGegevens)

Relatie[?_AMOU>1?]?_BEGI _NUMB[::]_END: _SWAPBEGI F_NaamKort F_RelatieLeeftijdMet _SWAPEND F_NaamCompleetMetVerwijzingF_LeeftijdBijRelatie[:, F_KindVanOuders:]. F_GeboorteGegevens F_DoopGegevens [:_LOST?_BEGI F_BegrafenisGegevens F_OverlijdensGegevens _END:]| [:F_OverlijdensGegevens F_BegrafenisGegevens:] F_GeenRelatiesOfKinderen _SWAPBEGI F_RelatieGegevens _SWAPEND

F_Fotos F_Feiten F_PersoonNotities _SWAPBEGI F_RelatieNotities _SWAPEND _FUNCEND :. ----- Functie voor het weergeven van een voorouder als deel van een relatie onder een hoofd- :. ----- ingang in de kwartierstaat. _FUNCBEGI(F_VoorouderRelatieVerwijzing)

Relatie[?_AMOU>1?]?_BEGI _NUMB[::]_END: _SWAPBEGI F_NaamKort F_RelatieLeeftijdMet _SWAPEND F_NaamCompleetMetVerwijzingF_LeeftijdBijRelatie. Verdere gegevens volgen verderop.

_FUNCEND :. ----- Functie voor het weergeven van een kind van een niet-voorouder (of eventueel een onbekende :. ----- persoon of een voorouder die niet tot de huidige hoofd-relatie behoort) als deel van een :. ----- relatie onder een hoofd-ingang in de kwartierstaat. Ook gebruikt voor een kind uit een :. ----- hoofdrelatie, mits dit kind niet zelf een voorouder is. :. ----- In tegenstelling tot de overige functies in dit blok worden hier ook de relaties van van :. ----- het kind gegeven. Hiervoor wordt functie F_VoorouderRelatieGegevens gebruikt, aangezien :. ----- het gewenste formaat van de uitgevoerde gegevens identiek is. _FUNCBEGI(F_VoorouderRelatieKindGegevens)

F_GeslachtSymbool F_NumbRoman. F_NaamCompleetMetVerwijzing[: [F_TypeOneigenKind]:] [:F_ZekerOuders:]. F_GeboorteGegevens F_DoopGegevens [:_LOST?_BEGI F_BegrafenisGegevens F_OverlijdensGegevens _END:]| [:F_OverlijdensGegevens F_BegrafenisGegevens:] F_GeenRelatiesOfKinderen

F_Fotos F_Feiten F_PersoonNotities _RELABEGI F_VoorouderRelatieGegevens _RELAEND _FUNCEND :. ----- Functie voor het weergeven van een kind uit een hoofdrelatie, mits dit kind zelf ook een :. ----- voorouder is. _FUNCBEGI(F_VoorouderRelatieKindVerwijzing)

F_GeslachtSymbool F_NumbRoman. F_NaamCompleetMetVerwijzing[: [F_TypeOneigenKind]:] [:F_ZekerOuders:].

_FUNCEND :. ----- Functie voor het weergeven van de gegevens van een hoofdrelatie tussen twee voorouders. _FUNCBEGI(F_VoorouderHoofdRelatieGegevens) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI Relatie van [_ASCENUM] en _SWAPBEGI [_ASCENUM]_SWAPEND: _ELSE Relatie van [_ASCENUM] en _SWAPBEGI [_ASCENUM]_SWAPEND: _END F_NaamKort F_RelatieLeeftijdMet _SWAPBEGI F_NaamKort[::]F_LeeftijdBijRelatie. _SWAPEND F_RelatieGegevens F_RelatieNotities _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Functies voor deeltaken. :. ------------------------------------------------------------------------------------------------- :. ----- Functie om, indien nodig, een generatie-titel in te voegen. _FUNCBEGI(F_GeneratieTitel) [?_GENENUM==1?]?_BEGI _SETDEF(S_GeneratieTitel_Vorige) _END [?_GENENUM!=_SETBEGI(S_GeneratieTitel_Vorige) _GENENUM _SETEND?]? _BEGI _SETADD(S_HoofdstukTitel,[:Generatie _GENENUM[:
(F_GeneratieNaam):]:]) [?_GENENUM==1?]? _BEGI [?F_Optie_TitelPagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END _ELSE [?F_Optie_GeneratieNieuwePagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END _END _END _SETCLR(S_GeneratieTitel_Vorige) _SETADD(S_GeneratieTitel_Vorige) _FUNCEND :. ----- Functie om 'zoon van X en Y' of iets dergelijks in te voegen. _FUNCBEGI(F_KindVanOuders) _SETDEF(S_KindVanOuders_Ouders) _FATHBEGI(_BIOL) _SETADD(S_KindVanOuders_Ouders) _FATHEND _MOTHBEGI(_BIOL) _SETADD(S_KindVanOuders_Ouders) _MOTHEND [?_SETAMOU(S_KindVanOuders_Ouders)?]? _BEGI F_ZoonDochterKind van _SETBEGI(S_KindVanOuders_Ouders) [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[: F_Zeker:] _SETEND _END _SETDEL(S_KindVanOuders_Ouders) _FUNCEND :. ----- Functie om een notitie in te voegen in het geval van kwartierherhaling. _FUNCBEGI(F_KwartierHerhaling) :. *********************************************************************************************** :. _ASCENUM(_MALE) en _ASCENUM(_FEMA) zijn niet gedocumenteerd in het Aldfaer (versies 3.2.5, :. 3.3.1 en 3.3.2) help-bestand, maar worden in het bijgeleverde kwartierstaat-sjabloon ook voor :. dit doel gebruikt. :. *********************************************************************************************** [?[:_ASCENUM(_MALE) _ASCENUM(_FEMA):]?]? _BEGI _SETDEF(S_KwartierHerhaling_Vader) _SETDEF(S_KwartierHerhaling_Moeder) _FATHBEGI(_BIOL) _SETADD(S_KwartierHerhaling_Vader) _FATHEND _MOTHBEGI(_BIOL) _SETADD(S_KwartierHerhaling_Moeder) _MOTHEND

[?[&_ASCENUM(_MALE) _ASCENUM(_FEMA)&]?]? _BEGI De ouders van F_NaamKort brachten meerdere voorouders van de kwartierdrager voort. Vandaar dat de vader beschreven wordt onder nummer [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _ASCENUM(_MALE) _ELSE _ASCENUM(_MALE) _END en de moeder onder nummer [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _ASCENUM(_FEMA). _ELSE _ASCENUM(_FEMA). _END _ELSE [?_ASCENUM(_MALE)?]? _BEGI De vader van F_NaamKort bracht meerdere voorouders van de kwartierdrager voort. Vandaar dat hij beschreven wordt onder nummer [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _ASCENUM(_MALE). _ELSE _ASCENUM(_MALE). _END _ELSE De moeder van F_NaamKort bracht meerdere voorouders van de kwartierdrager voort. Vandaar dat zij beschreven wordt onder nummer [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _ASCENUM(_FEMA). _ELSE _ASCENUM(_FEMA). _END _END _END

_SETDEL(S_KwartierHerhaling_Vader) _SETDEL(S_KwartierHerhaling_Moeder) _END _FUNCEND :. ----- Hulp-functies voor de hierna volgende functie F_Fotos _FUNCBEGI(F_Fotos_VergrootRijBreedteMetFotoBreedtePlus10) _SETDEF(S_Fotos_ToegevoegdeBreedte,_SETDUPL) F_Fotos_Recursie _SETDEL(S_Fotos_ToegevoegdeBreedte) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _FUNCEND _FUNCBEGI(F_Fotos_Recursie) :. Het aantal recursies van een functie is beperkt tot ongeveer 90 (Aldfaer versie 3.3.2). :. Vandaar dat hier een zonderlinge constructie gebruikt wordt om een set te vullen. _SETADD(S_Fotos_ToegevoegdeBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _SETBEGI(S_Fotos_ToegevoegdeBreedte) [?_SETAMOU(S_Fotos_ToegevoegdeBreedte)<_PREFPHOTWIDT?]? _BEGI _SETADD(S_Fotos_ToegevoegdeBreedte,x) _SETADD(S_Fotos_RijBreedte,x) _END _SETEND [?_SETAMOU(S_Fotos_ToegevoegdeBreedte)<_PREFPHOTWIDT?]? _BEGI F_Fotos_Recursie _END _FUNCEND _FUNCBEGI(F_Fotos_Onderschriften) _SETBEGI(S_Fotos_Onderschriften)
_SETSTRI
_SETEND _SETCLR(S_Fotos_Onderschriften) _FUNCEND :. ----- Functie om foto's in te voegen _FUNCBEGI(F_Fotos) _PREFPHOT? _BEGI [?_PHOTAMOU?]? _BEGI _SETDEF(S_Fotos_Rijen,_SETDUPL) _SETDEF(S_Fotos_RijBreedte,_SETDUPL) _SETDEF(S_Fotos_Onderschriften,_SETDUPL) :. De navolgende constructie van een tabel in een tabel is nodig om in MS Word met een :. eenvoudige macro te kunnen voorkomen dat fotos en bijbehorende onderschriften op :. verschillende paginas terechtkomen. De   waarmee elke cel van de buitenste tabel :. begint, is hier ook voor nodig (dit lijkt een onvolkomenheid van MS Word te zijn).
  _PHOTBEGI [?[&[:_FIRS _PREFPHOT(";;x"):] [?_SETAMOU(S_Fotos_Rijen)!=F_Optie_FotoRijen?] [?_PREFPHOTWIDT<=F_Optie_FotoRijBreedte?] &]?]? _BEGI F_Fotos_VergrootRijBreedteMetFotoBreedtePlus10 [?_SETAMOU(S_Fotos_RijBreedte)>F_Optie_FotoRijBreedte?]? _BEGI _SETADD(S_Fotos_Rijen,x) _SETCLR(S_Fotos_RijBreedte) F_Fotos_VergrootRijBreedteMetFotoBreedtePlus10 [?_SETAMOU(S_Fotos_Rijen)!=F_Optie_FotoRijen?]? _BEGI F_Fotos_Onderschriften
  _END _END [?_SETAMOU(S_Fotos_Rijen)!=F_Optie_FotoRijen?]? _BEGI _END _END _PHOTEND F_Fotos_Onderschriften
_SETADD(S_Fotos_Onderschriften,[:F_FotoIndexReferentie[::]_PHOTTITL:])
 
_SETDEL(S_Fotos_Onderschriften) _SETDEL(S_Fotos_RijBreedte) _SETDEL(S_Fotos_Rijen) _END _END _FUNCEND :. ----- Functie om geboorte-gegevens in te voegen. Als de afhandeling van getuigen in deze functie :. ----- veranderd wordt, dan moet ook de afhandeling van getuigen in functie F_Feiten veranderd :. ----- worden. _FUNCBEGI(F_GeboorteGegevens) [?[:_BIRTDATE _BIRTPLAC:]?]? _BEGI F_HijZijDezePersoon_H werd[:_STIL?_BEGI levenloos _END:] geboren [& _BIRTDATE([:F_DatumLang:])&]:. [?_BIRTPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_BIRTPLAC:])F_PlaatsIndexReferentie _BIRTPLAC:]:. _END [:, om _BIRTTIME:]. [:Bij de geboorte was [&[?_BIRTLENG!=0?] de lengte _BIRTLENG cm&][&[?_BIRTLENG!=0?][?_BIRTWEIG!=0?] en&] [&[?_BIRTWEIG!=0?] het gewicht _BIRTWEIG gram&].:] [?_BIRTSOUR?]?_BEGI _SETADD(S_Bron,[:_BIRTSOUR:]) F_BronReferentie _END _END :. Levenloze geboorte is een speciaal geval, waarbij gegevens op verschillende manieren ingevoerd :. kunnen worden. Als zowel geboorte- als overlijdens-gegevens aanwezig zijn, en deze zijn :. gelijk (zoals het geval behoort te zijn), dan wordt de conventie gevolgd om van de geboorte de :. datum en plaats te geven en van het overlijden de aangifte-datum. [:_STIL?_BEGI[?_DEARDATE==_BIRRDATE?]_END:]|[: [?_BIRRDATE?]? _BEGI Van de geboorte werd aangifte gedaan _BIRRDATE([:F_DatumLang:]):. [?[&_BIRWAMOU _PREFWITN&]?]? _BEGI , waarbij [?F_Optie_AanwezigenIpvGetuigen!=aan?]?_BEGI als getuige _END aanwezig[&[?_BIRWAMOU==1?] was&]|[& waren&]: _BIRWBEGI [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[& F_Zeker&] _BIRWEND _END . [?_BIRRSOUR?]?_BEGI _SETADD(S_Bron,[:_BIRRSOUR:]) F_BronReferentie _END _END :] _FUNCEND :. ----- Functie om doop-gegevens in te voegen. Als de afhandeling van getuigen in deze functie :. ----- veranderd wordt, dan moet ook de afhandeling van getuigen in functie F_Feiten veranderd :. ----- worden. _FUNCBEGI(F_DoopGegevens) [?[:_BAPTDATE _BAPTPLAC:]?]? _BEGI F_HijZijDezePersoon_H werd gedoopt[& _BAPTDATE([:F_DatumLang:])&]:. [?_BAPTPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_BAPTPLAC:])F_PlaatsIndexReferentie _BAPTPLAC:]:. _END [?[&_BAPWAMOU _PREFWITN&]?]? _BEGI , waarbij [?F_Optie_AanwezigenIpvGetuigen!=aan?]?_BEGI als getuige _END aanwezig[&[?_BAPWAMOU==1?] was&]|[& waren&]: _BAPWBEGI [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[& F_Zeker&] _BAPWEND _END . [?_BAPTSOUR?]?_BEGI _SETADD(S_Bron,[:_BAPTSOUR:]) F_BronReferentie _END _END _FUNCEND :. ----- Functie om overlijdens-gegevens in te voegen. De leeftijd bij overlijden wordt ook gegeven, :. ----- behalve in geval van vermissing. Als de afhandeling van getuigen in deze functie veranderd :. ----- wordt, dan moet ook de afhandeling van getuigen in functie F_Feiten veranderd worden. _FUNCBEGI(F_OverlijdensGegevens) :. Levenloze geboorte is een speciaal geval, waarbij gegevens op verschillende manieren ingevoerd :. kunnen worden. Als zowel geboorte- als overlijdens-gegevens aanwezig zijn, en deze zijn :. gelijk (zoals het geval behoort te zijn), dan wordt de conventie gevolgd om van de geboorte de :. datum en plaats te geven en van het overlijden de aangifte-datum. [:_STIL?_BEGI[&[?_DEATDATE==_BIRTDATE?][?_DEATPLAC==_BIRTPLAC?]&]_END:]|[& [?[:_DEATDATE _DEATPLAC _DEATCAUS:]?]? _BEGI F_HijZijDezePersoon_H[:_LOST?_BEGI werd beschouwd als zijnde overleden _END:]| [&[?_BIRTDATE?][?_DEATDATE?] is op _BIRTDATE([:_DIFFDATE(_DEATDATE)F_DatumLeeftijd:])-jarige leeftijd overleden&]| [& is overleden&] [& _DEATDATE([:F_DatumLang:])&]:. [?_DEATPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_DEATPLAC:])F_PlaatsIndexReferentie _DEATPLAC:]:. _END [:, om _DEATTIME:][: (oorzaak: _DEATCAUS):]. [?_DEATSOUR?]?_BEGI _SETADD(S_Bron,[:_DEATSOUR:]) F_BronReferentie _END _ELSE [?[&_DEAT[:_PREFDEAT("x;") [&_PREFDEATAGE [?_BIRTDATE?_BEGI[&[?_BIRTDATE([:_DIFFDATE(_CURRDATE)_Y:])<_PREFDEATAGE?]x&]_ELSE [&[?_BAPTDATE?][&[?_BAPTDATE([:_DIFFDATE(_CURRDATE)_Y:])<_PREFDEATAGE?]x&]&]_END?] &] :]&]?]? _BEGI F_HijZijDezePersoon_H [:_PREFDEATTEXT:]|[&is overleden&]. [?_DEATSOUR?]?_BEGI _SETADD(S_Bron,[:_DEATSOUR:]) F_BronReferentie _END _END _END &] [?_DEARDATE?]? _BEGI Van het overlijden werd aangifte gedaan _DEARDATE([:F_DatumLang:]):. [?[&_DERWAMOU _PREFWITN&]?]? _BEGI , waarbij [?F_Optie_AanwezigenIpvGetuigen!=aan?]?_BEGI als getuige _END aanwezig[&[?_DERWAMOU==1?] was&]|[& waren&]: _DERWBEGI [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[& F_Zeker&] _DERWEND _END . [?_DEARSOUR?]?_BEGI _SETADD(S_Bron,[:_DEARSOUR:]) F_BronReferentie _END _END _FUNCEND :. ----- Functie om begrafenis/crematie/TBS-gegevens in te voegen. In geval van vermissing wordt ook :. ----- de leeftijd gegeven, aangezien deze bij de (vermoedelijke) overlijdensdatum niet vermeld :. ----- wordt. Als de afhandeling van getuigen in deze functie veranderd wordt, dan moet ook de :. ----- afhandeling van getuigen in functie F_Feiten veranderd worden. _FUNCBEGI(F_BegrafenisGegevens) :. _BURIDATE, _BURIPLAC en _BURISOUR geven altijd dezelfde uitvoer als _CREMDATE, _CREMPLAC en :. _CREMSOUR, dus we kunnen willekeurig welke van de twee gebruiken. [?[:_BURIDATE _BURIPLAC:]?]? _BEGI F_HijZijDezePersoon_H werd _LOST?_BEGI[&[?_BIRTDATE?][?_BURIDATE?]op _BIRTDATE([:_DIFFDATE(_BURIDATE)F_DatumLeeftijd:])-jarige leeftijd &]_END _BURITYPE(";gecremeerd;begraven;ter beschikking van de wetenschap gesteld;vermist") [& _BURIDATE([:F_DatumLang:])&]:. [?_BURIPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_BURIPLAC:])F_PlaatsIndexReferentie _BURIPLAC:]:. _END [?[&_BURWAMOU _PREFWITN&]?]? _BEGI , waarbij [?F_Optie_AanwezigenIpvGetuigen!=aan?]?_BEGI als getuige _END aanwezig[&[?_BURWAMOU==1?] was&]|[& waren&]: _BURWBEGI [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[& F_Zeker&] _BURWEND _END . [?_BURISOUR?]?_BEGI _SETADD(S_Bron,[:_BURISOUR:]) F_BronReferentie _END _END _FUNCEND :. ----- Functie om relatie-gegevens in te voegen. Er wordt van uitgegaan dat het feit dat er een :. ----- relatie is, evenals het type van de relatie, al eerder vermeld zijn. Als de afhandeling van :. ----- getuigen in deze functie veranderd wordt, dan moet ook de afhandeling van getuigen in :. ----- functie F_Feiten veranderd worden. _FUNCBEGI(F_RelatieGegevens) [?_MARR?]? _BEGI [?[:_RELASTAR _RELAPLAC:]?]? _BEGI Hun huwelijk vond plaats[& _RELASTAR([:F_DatumLang:])&]:. [?_RELAPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_RELAPLAC:])F_PlaatsIndexReferentie _RELAPLAC:]:. _END [?[&_MARWAMOU(_CIVI) _PREFWITN&]?]? _BEGI , waarbij [?F_Optie_AanwezigenIpvGetuigen!=aan?]?_BEGI als getuige _END aanwezig[&[?_MARWAMOU(_CIVI)==1?] was&]|[& waren&]: _MARWBEGI(_CIVI) [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[& F_Zeker&] _MARWEND _END . [?_RELASOUR?]?_BEGI _SETADD(S_Bron,[:_RELASOUR:]) F_BronReferentie _END _END [?[:_MARLDATE _MARLPLAC:]?]? _BEGI De ondertrouw was[& _MARLDATE([:F_DatumLang:])&]:. [?_MARLPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_MARLPLAC:])F_PlaatsIndexReferentie _MARLPLAC:]:. _END . [?_MARLSOUR?]?_BEGI _SETADD(S_Bron,[:_MARLSOUR:]) F_BronReferentie _END _END [?[:_MARCDATE _MARCPLAC:]?]? _BEGI Hun kerkelijk huwelijk vond plaats[: _MARCDATE([:F_DatumLang:]):]:. [?_MARCPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_MARCPLAC:])F_PlaatsIndexReferentie _MARCPLAC:]:. _END [?[&_MARWAMOU(_RELI) _PREFWITN&]?]? _BEGI , waarbij [?F_Optie_AanwezigenIpvGetuigen!=aan?]?_BEGI als getuige _END aanwezig[&[?_MARWAMOU(_RELI)==1?] was&]|[& waren&]: _MARWBEGI(_RELI) [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[& F_Zeker&] _MARWEND _END . [?_MARCSOUR?]?_BEGI _SETADD(S_Bron,[:_MARCSOUR:]) F_BronReferentie _END _END [?[:_DIVDATE _DIVPLAC _DIVREAS:]?]? _BEGI [:_DIVSPOK?_BEGI De ontbinding van het huwelijk is uitgesproken[::]_END:]| [:_DIVREG?_BEGI De ontbinding van het huwelijk is geregistreerd[::]_END:]| [& Het huwelijk is ontbonden&][& _DIVDATE([:F_DatumLang:])&]:. [?_DIVPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_DIVPLAC:])F_PlaatsIndexReferentie _DIVPLAC:]:. _END [: (reden: _DIVREAS):]. [?_DIVSOUR?]?_BEGI _SETADD(S_Bron,[:_DIVSOUR:]) F_BronReferentie _END _END _END [?_REGI?]? _BEGI :. Bij een geregistreerd partnerschap komt de registratie overeen met huwelijk, en de aangifte :. met ondertrouw. [?[:_RELASTAR _RELAPLAC:]?]? _BEGI De registratie van hun partnerschap vond plaats[& _RELASTAR([:F_DatumLang:])&]:. [?_RELAPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_RELAPLAC:])F_PlaatsIndexReferentie _RELAPLAC:]:. _END [?[&_RERWAMOU _PREFWITN&]?]? _BEGI , waarbij [?F_Optie_AanwezigenIpvGetuigen!=aan?]?_BEGI als getuige _END aanwezig[&[?_RERWAMOU==1?] was&]|[& waren&]: _RERWBEGI [:_FIRS?_BEGI _END:]|[:_LAST?_BEGI en _END:]|[&,&] F_NaamCompleetMetVerwijzing[& F_Zeker&] _RERWEND _END . [?_RELASOUR?]?_BEGI _SETADD(S_Bron,[:_RELASOUR:]) F_BronReferentie _END _END [?[:_REREDATE _REREPLAC:]?]? _BEGI De aangifte was[: _REREDATE([:F_DatumLang:]):]:. [?_REREPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_REREPLAC:])F_PlaatsIndexReferentie _REREPLAC:]:. _END . [?_RERESOUR?]?_BEGI _SETADD(S_Bron,[:_RERESOUR:]) F_BronReferentie _END _END [?[:_REDIDATE _REDIPLAC _REDIREAS:]?]? _BEGI [:_DIVSPOK?_BEGI De ontbinding van het partnerschap is uitgesproken[::]_END:]| [:_DIVREG?_BEGI De ontbinding van het partnerschap is geregistreerd[::]_END:]| [& Het partnerschap is ontbonden&][& _REDIDATE([:F_DatumLang:])&]:. [?_REDIPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_REDIPLAC:])F_PlaatsIndexReferentie _REDIPLAC:]:. _END [: (reden: _REDIREAS):]. [?_REDISOUR?]?_BEGI _SETADD(S_Bron,[:_REDISOUR:]) F_BronReferentie _END _END _END [?_TOGE?]? _BEGI [?[:_RELASTAR _RELAPLAC:]?]? _BEGI Hun samenleven begon[& _RELASTAR([:F_DatumLang:])&]:. [?_RELAPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_RELAPLAC:])F_PlaatsIndexReferentie _RELAPLAC:]:. _END . [?_RELASOUR?]?_BEGI _SETADD(S_Bron,[:_RELASOUR:]) F_BronReferentie _END _END [?[:_CONTDATE _CONTPLAC:]?]? _BEGI Het samenlevingscontract werd getekend[: _CONTDATE([:F_DatumLang:]):]:. [?_CONTPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_CONTPLAC:])F_PlaatsIndexReferentie _CONTPLAC:]:. _END . [?_CONTSOUR?]?_BEGI _SETADD(S_Bron,[:_CONTSOUR:]) F_BronReferentie _END _END [?[:_CODIDATE _CODIPLAC _CODIREAS:]?]? _BEGI [:_DIVSPOK?_BEGI De beeindiging van het samenleven is uitgesproken[::]_END:]| [:_DIVREG?_BEGI De beeindiging van het samenleven is geregistreerd[::]_END:]| [& Het samenleven is beeindigd&][& _CODIDATE([:F_DatumLang:])&]:. [?_CODIPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_CODIPLAC:])F_PlaatsIndexReferentie _CODIPLAC:]:. _END [: (reden: _CODIREAS):]. [?_CODISOUR?]?_BEGI _SETADD(S_Bron,[:_CODISOUR:]) F_BronReferentie _END _END _END [?_OTHE?]? _BEGI [?[:_RELASTAR _RELAPLAC:]?]? _BEGI Hun relatie begon[& _RELASTAR([:F_DatumLang:])&]:. [?_RELAPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_RELAPLAC:])F_PlaatsIndexReferentie _RELAPLAC:]:. _END . [?_RELASOUR?]?_BEGI _SETADD(S_Bron,[:_RELASOUR:]) F_BronReferentie _END _END [?[:_OTDIDATE _OTDIPLAC _OTDIREAS:]?]? _BEGI [:_DIVSPOK?_BEGI De beeindiging van de relatie is uitgesproken[::]_END:]| [:_DIVREG?_BEGI De beeindiging van de relatie is geregistreerd[::]_END:]| [& De relatie is beeindigd&][& _OTDIDATE([:F_DatumLang:])&]:. [?_OTDIPLAC?]? _BEGI [: in _SETADD(S_Plaats,[:_OTDIPLAC:])F_PlaatsIndexReferentie _OTDIPLAC:]:. _END [: (reden: _OTDIREAS):]. [?_OTDISOUR?]?_BEGI _SETADD(S_Bron,[:_OTDISOUR:]) F_BronReferentie _END _END _END _FUNCEND :. ----- Functie om in te voegen dat de huidige persoon relatieloos en/of kinderloos bleef. _FUNCBEGI(F_GeenRelatiesOfKinderen) _RELALESS? _BEGI F_NaamKort bleef zonder relatie:. _CHILLESS? _BEGI [& en had geen kinderen&]:. _END . _ELSE _CHILLESS? _BEGI F_NaamKort bleef kinderloos. _END _END _FUNCEND :. ----- Hulp-functie voor F_Feiten, ter bepaling van de gebeurtenissen waarbij de huidige persoon :. ----- getuige was. Deze bepaling is nogal gecompliceerd, vanwege een fout in Aldfaer (versie :. ----- 3.2.5) en vanwege het feit dat we de nodige trucs uithalen, onder andere om de getuige- :. ----- gegevens op alle plaatsen in de kwartierstaat consistent te houden. De struktuur van de :. ----- code die het getuige zijn afhandeld is vergelijkbaar met de code die de getuigen afhandeld :. ----- bij het weergeven van geboorte, doop, huwelijk, kerkelijk huwelijk, geregistreerd :. ----- partnerschap, overlijden en begrafenis. _FUNCBEGI(F_Feiten_Getuigenissen) [?[&_PREFWITN _WITNAMOU&]?]? _BEGI :. ********************************************************************************************* :. Aldfaer (versie 3.2.5) rapporteert in een _WITNBEGI/_WITNEND iteratie abuisievelijk slechts :. één optreden als getuige als de huidige persoon bij meerdere gelegenheden betreffende :. dezelfde persoon getuige was. _WITNAMOU geeft dezelfde verkeerde informatie. Dit sjabloon :. werkt hier omheen. :. Aldfaer (versie 3.3.1) rapporteert in een _WITNBEGI/_WITNEND iteratie abuisievelijk slechts :. één optreden als getuige als de huidige persoon bij meerdere gelegenheden getuige was :. (afgezien van het getuige zijn bij huwelijken en geregistreerde partnerschappen). Het :. sjabloon werkt hier niet omheen en geeft dus incomplete informatie. :. In Aldfaer (versie 3.3.2) is dit probleem opgelost en geeft dit sjabloon de juist uitvoer. :. ********************************************************************************************* _SETDEF(S_Feiten_Afgehandeld) _SETDEF(S_Feiten_Getuige) _SETADD(S_Feiten_Getuige) _WITNBEGI :. :. Als de persoon bij wiens gebeurtenis de huidige persoon getuige was meer dan één keer :. tegengekomen wordt, dan wordt hij/zij bij de tweede en volgende keren overgeslagen om :. dubbele vermeldingen te vermijden. :. [?_SETORDE(S_Feiten_Afgehandeld)?]? _BEGI _ELSE _SETDEF(S_Feiten_Persoon) _SETADD(S_Feiten_Persoon) [?_BIRRDATE?]? _BEGI _BIRWBEGI [?_SETORDE(S_Feiten_Getuige)?]? _BEGI _SWAPBEGI _SETADD(S_Feiten_Getuigenissen,[:De geboorte-aangifte van F_NaamCompleetMetVerwijzing[& F_Zeker&]. [?_BIRRSOUR?]?_BEGI _SETADD(S_Bron,[:_BIRRSOUR:]) F_BronReferentie _END:], _BIRRDATE) _SWAPEND _END _BIRWEND _END [?[:_BAPTDATE _BAPTPLAC:]?]? _BEGI _BAPWBEGI [?_SETORDE(S_Feiten_Getuige)?]? _BEGI _SWAPBEGI _SETADD(S_Feiten_Getuigenissen,[:De doop van F_NaamCompleetMetVerwijzing[& F_Zeker&]. [?_BAPTSOUR?]?_BEGI _SETADD(S_Bron,[:_BAPTSOUR:]) F_BronReferentie _END:], _BAPTDATE) _SWAPEND _END _BAPWEND _END _RELABEGI [?_MARR?]? _BEGI [?[:_RELASTAR _RELAPLAC:]?]? _BEGI _SETDEF(S_Feiten_Datum) _SETADD(S_Feiten_Datum,[:[?_RELASOUR?]?_BEGI _SETADD(S_Bron,[:_RELASOUR:]) F_BronReferentie _END:],_RELASTAR) _MARWBEGI(_CIVI) [?_SETORDE(S_Feiten_Getuige)?]? _BEGI _SWAPBEGI _SETBEGI(S_Feiten_Datum) _SETADD(S_Feiten_Getuigenissen,[:Het huwelijk van _SETBEGI(S_Feiten_Persoon) F_NaamCompleetMetVerwijzing _SETEND en F_NaamCompleetMetVerwijzing[& F_Zeker&]. _SETSTRI:],_SETDATE) _SETEND _SWAPEND _END _MARWEND _SETDEL(S_Feiten_Datum) _END [?[:_MARCSTAR _MARCPLAC:]?]? _BEGI _SETDEF(S_Feiten_Datum) _SETADD(S_Feiten_Datum,[:[?_MARCSOUR?]?_BEGI _SETADD(S_Bron,[:_MARCSOUR:]) F_BronReferentie _END:],_MARCDATE) _MARWBEGI(_RELI) [?_SETORDE(S_Feiten_Getuige)?]? _BEGI _SWAPBEGI _SETBEGI(S_Feiten_Datum) _SETADD(S_Feiten_Getuigenissen,[:Het kerkelijk huwelijk van _SETBEGI(S_Feiten_Persoon) F_NaamCompleetMetVerwijzing _SETEND en F_NaamCompleetMetVerwijzing[& F_Zeker&]. _SETSTRI:],_SETDATE) _SETEND _SWAPEND _END _MARWEND _SETDEL(S_Feiten_Datum) _END _END [?_REGI?]? _BEGI :. Bij een geregistreerd partnerschap komt de registratie overeen met huwelijk, en de :. aangifte met ondertrouw. [?[:_RELASTAR _RELAPLAC:]?]? _BEGI _SETDEF(S_Feiten_Datum) _SETADD(S_Feiten_Datum,[:[?_RELASOUR?]?_BEGI _SETADD(S_Bron,[:_RELASOUR:]) F_BronReferentie _END:],_RELASTAR) _RERWBEGI [?_SETORDE(S_Feiten_Getuige)?]? _BEGI _SWAPBEGI _SETBEGI(S_Feiten_Datum) _SETADD(S_Feiten_Getuigenissen,[:De partnerschap-registratie van _SETBEGI(S_Feiten_Persoon) F_NaamCompleetMetVerwijzing _SETEND en F_NaamCompleetMetVerwijzing[& F_Zeker&]. _SETSTRI:],_SETDATE) _SETEND _SWAPEND _END _RERWEND _SETDEL(S_Feiten_Datum) _END _END _RELAEND [?_DEARDATE?]? _BEGI _DERWBEGI [?_SETORDE(S_Feiten_Getuige)?]? _BEGI _SWAPBEGI _SETADD(S_Feiten_Getuigenissen,[:De overlijdens-aangifte van F_NaamCompleetMetVerwijzing[& F_Zeker&]. [?_DEARSOUR?]?_BEGI _SETADD(S_Bron,[:_DEARSOUR:]) F_BronReferentie _END:], _DEARDATE) _SWAPEND _END _DERWEND _END [?[:_BURIDATE _BURIPLAC:]?]? _BEGI _BURWBEGI [?_SETORDE(S_Feiten_Getuige)?]? _BEGI _SWAPBEGI _SETADD(S_Feiten_Getuigenissen,[:_BURITYPE(";De crematie;De begrafenis;Het ter beschikking van de wetenschap stellen;De vermissing")._SPAC van F_NaamCompleetMetVerwijzing[& F_Zeker&]. [?_BURISOUR?]?_BEGI _SETADD(S_Bron,[:_BURISOUR:]) F_BronReferentie _END:], _BURIDATE) _SWAPEND _END _BURWEND _END _SETADD(S_Feiten_Afgehandeld) _SETDEL(S_Feiten_Persoon) _END _WITNEND _SETDEL(S_Feiten_Getuige) _SETDEL(S_Feiten_Afgehandeld) _END _FUNCEND :. ----- Functie om feiten (adressen, beroepen, etc.) en getuige zijn in te voegen. _FUNCBEGI(F_Feiten) _SETDEF(S_Feiten_Getuigenissen) :. :. Bepaal alle gelegenheden waarbij de huidige persoon getuige was. :. F_Feiten_Getuigenissen :. :. Bepaal of er feiten zijn die uitgevoerd moeten worden. :. [? [&_FACTAMOU(_ADDR) _PREFFACTADDR&] [&_FACTAMOU(_OCCU) _PREFFACTOCCU&] [&_FACTAMOU(_RELI) _PREFFACTRELI&] [&[:_FACTAMOU(_EDUC) _FACTAMOU(_SOCF) _FACTAMOU(_TITL) _FACTAMOU(_PROM) _FACTAMOU(_PRED) _FACTAMOU(_ESTA) _FACTAMOU(_MISC) :] _PREFFACTMISC&] [&_SETAMOU(S_Feiten_Getuigenissen) _PREFWITN&] ?]? _BEGI :. ********************************************************************************************* :. In een _FACTBEGI() iteratie geeft _AMOU niet het aatal feiten, maar lijkt in plaats daarvan :. het aantal personen in de kwartierstaat te geven. Vermoedelijk een fout in Aldfaer (versie :. 3.2.5). Het is onbekend of dit probleem ook nog bestaat in Aldfaer (versies 3.3.1 en 3.3.2). :. ********************************************************************************************* [?F_Optie_OptimaalVoorWord==aan?]|[&
&]
:. :. Behandel alle feiten van het type 'adres'. :. [?_PREFFACTADDR?]? _BEGI _FACTBEGI(_ADDR) _FIRS? _BEGI

[:[?_FACTAMOU(_ADDR)>1?]?_BEGI[::]Adressen[::]_END:]|[&Adres&]

_END

• F_FeitDatum [: _FACTSTRE:] [:[?[&_FACTSTRE [:_FACTZIP _FACTCITY:]&]?], _FACTZIP:] [?_FACTCITY?]? _BEGI _SETADD(S_Plaats,[:_FACTCITY:. [?[&[?F_Optie_PlaatsenIndexMetLand==aan?]_FACTCOUN&]?]? _BEGI F_Optie_PlaatsenIndexLand1[::]_FACTCOUN[::]F_Optie_PlaatsenIndexLand2:. _END :] F_PlaatsIndexReferentie _FACTCITY:. _END [?_FACTCOUN?]? _BEGI [:[?_FACTSTRE _FACTZIP _FACTCITY?],:] [?_FACTCITY?]? _BEGI [: _FACTCOUN:] _ELSE [:_SETADD(S_Plaats,[:_FACTCOUN:]) F_PlaatsIndexReferentie _FACTCOUN:] _END _END [: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'opleiding'. :. [?_PREFFACTMISC?]? _BEGI _FACTBEGI(_EDUC) _FIRS? _BEGI

[:[?_FACTAMOU(_EDUC)>1?]?_BEGI[::]Opleidingen[::]_END:]|[&Opleiding&]

_END

• F_FeitDatum _FACTEDUC[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'beroep'. :. [?_PREFFACTOCCU?]? _BEGI _FACTBEGI(_OCCU) _FIRS? _BEGI

[:[?_FACTAMOU(_OCCU)>1?]?_BEGI[::]Beroepen[::]_END:]|[&Beroep&]

_END

• F_FeitDatum_SETADD(S_Beroep,[:_FACTOCCU:]) F_BeroepIndexReferentie _FACTOCCU[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'functie'. :. [?_PREFFACTMISC?]? _BEGI _FACTBEGI(_SOCF) _FIRS? _BEGI

[:[?_FACTAMOU(_SOCF)>1?]?_BEGI[::]Functies[::]_END:]|[&Functie&]

_END

• F_FeitDatum_SETADD(S_Beroep,[:_FACTSOCF:]) F_BeroepIndexReferentie _FACTSOCF[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'religie'. :. [?_PREFFACTRELI?]? _BEGI _FACTBEGI(_RELI) _FIRS? _BEGI

[:[?_FACTAMOU(_RELI)>1?]?_BEGI[::]Religies[::]_END:]|[&Religie&]

_END

• F_FeitDatum _FACTRELI[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'titel'. :. [?_PREFFACTMISC?]? _BEGI _FACTBEGI(_TITL) _FIRS? _BEGI

[:[?_FACTAMOU(_TITL)>1?]?_BEGI[::]Titels[::]_END:]|[&Titel&]

_END

• F_FeitDatum _FACTTITL[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'onderscheiding'. :. [?_PREFFACTMISC?]? _BEGI _FACTBEGI(_PROM) _FIRS? _BEGI

[:[?_FACTAMOU(_PROM)>1?]?_BEGI[::]Onderscheidingen[::]_END:]|[&Onderscheiding&]

_END

• F_FeitDatum _FACTPROM[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'predikaat'. :. [?_PREFFACTMISC?]? _BEGI _FACTBEGI(_PRED) _FIRS? _BEGI

[:[?_FACTAMOU(_PRED)>1?]?_BEGI[::]Predikaten[::]_END:]|[&Predikaat&]

_END

• F_FeitDatum _FACTPRED[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'heerlijkheid'. :. [?_PREFFACTMISC?]? _BEGI _FACTBEGI(_ESTA) _FIRS? _BEGI

[:[?_FACTAMOU(_ESTA)>1?]?_BEGI[::]Heerlijkheden[::]_END:]|[&Heerlijkheid&]

_END

• F_FeitDatum _FACTESTA[: (_FACTNOTE):] [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_FACTEND _END :. :. Behandel alle feiten van het type 'overig'. :. [?_PREFFACTMISC?]? _BEGI _SETDEF(S_Feiten_Overig) _FACTBEGI(_MISC) [?_SETORDE(S_GetesteDiversFeitCategorieen,[:_FACTCAT:]) [:[?F_Optie_SelecteerFeitCategorieen!=aan?]x:]?]? _BEGI _ELSE :. *************************************************************************************** :. In Aldfaer (versies 3.3.1 en 3.3.2) accepteert in _DIALADD() als numerieke derde :. parameter geen berekende waarden, alhoewel de informatie op de Aldfaer website lijkt :. aan te geven dat dit in versie 3.3.2 wel het geval zou moeten zijn. :. *************************************************************************************** _DIALDEF(D_Feiten_Optie,_DIALCHECK,[:_SJABNAME opties:],270) [?_SETORDE(S_VerborgenDiversFeitCategorieen,[:_FACTCAT:])?]? _BEGI _DIALADD(D_Feiten_Optie,[:Verberg feit-categorie 'Divers: _FACTCAT':],1) _ELSE _DIALADD(D_Feiten_Optie,[:Verberg feit-categorie 'divers: _FACTCAT':],0) _END [?_DIALEXP(D_Feiten_Optie,1)?]? _BEGI _SETADD(S_VerborgenDiversFeitCategorieen,[:_FACTCAT:]) _ELSE _SETSUB(S_VerborgenDiversFeitCategorieen,[:_FACTCAT:]) _END _SETADD(S_GetesteDiversFeitCategorieen,[:_FACTCAT:]) _DIALDEL(D_Feiten_Optie) _END [?_SETORDE(S_VerborgenDiversFeitCategorieen,[:_FACTCAT:])?]? _BEGI _ELSE [?_FACTCAT!=_SETBEGI(S_Feiten_Overig)_SETSTRI _SETEND?]? _BEGI _SETCLR(S_Feiten_Overig) _SETADD(S_Feiten_Overig,[:_FACTCAT:])

[::]_FACTCAT[::]

_END

• F_FeitDatum _FACTNOTE [?_FACTSOUR?]?_BEGI _SETADD(S_Bron,[:_FACTSOUR:]) F_BronReferentie _END

_END _FACTEND _SETDEL(S_Feiten_Overig) _END :. :. Behandel alle gelegenheden waarbij de huidige persoon getuige was. :. [?_SETAMOU(S_Feiten_Getuigenissen)?]? _BEGI

[?F_Optie_AanwezigenIpvGetuigen==aan?]?_BEGI Aanwezig _ELSE Getuige _END bij de volgende [:[?_SETAMOU(S_Feiten_Getuigenissen)>1?]?_BEGI[::]gelegenheden[::]_END:]|[&gelegenheid&]

_SETSORT(S_Feiten_Getuigenissen,_SETDATE) _SETBEGI(S_Feiten_Getuigenissen)

• F_GetuigenisDatum _SETSTRI

_SETEND _END
[?F_Optie_OptimaalVoorWord==aan?]|[&
&] _END _SETDEL(S_Feiten_Getuigenissen) _FUNCEND :. ----- Functie om notities bij een persoon in te voegen. _FUNCBEGI(F_PersoonNotities) [?[&_NOTE _PREFNOTEPERS&][&_BIRTNOTE _PREFNOTEBIRT&][&_DEATNOTE _PREFNOTEDEAT&]?]? _BEGI [?F_Optie_OptimaalVoorWord==aan?]|[&
&]
[?[&_NOTE _PREFNOTEPERS&]?]? _BEGI

Algemene notities

_NOTE

_END [?[&_BIRTNOTE _PREFNOTEBIRT&]?]? _BEGI

Notities bij de geboorte

_BIRTNOTE

_END [?[&_DEATNOTE _PREFNOTEDEAT&]?]? _BEGI

Notities bij het overlijden

_DEATNOTE

_END
[?F_Optie_OptimaalVoorWord==aan?]|[&
&] _END _FUNCEND :. ----- Functie om notities bij een relatie in te voegen. _FUNCBEGI(F_RelatieNotities) [?[&_RELANOTE _PREFNOTERELA&]?]? _BEGI [?F_Optie_OptimaalVoorWord==aan?]|[&
&]

Notities bij F_RelatieVan F_NaamKort en _SWAPBEGI F_NaamKort _SWAPEND

_RELANOTE

[?F_Optie_OptimaalVoorWord==aan?]|[&
&] _END _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Functies voor het genereren van de personen-index. :. ------------------------------------------------------------------------------------------------- :. ----- Functie om een nieuwe (lege) index-ingang te creëren. _CODEINTE wordt gebruikt om een HTML :. ----- anker te creëren, maar tevens om de string uniek te maken in geval twee personen exact :. ----- dezelfde naam hebben. _FUNCBEGI(F_NaamIndexIngang) [?F_Optie_PersonenIndexOpVoornaam==aan?]? _BEGI [:_NAMEFIRS :][:(_NAMENICK) :][:_NAMEPREF :]_SURN:. _ELSE [:_SURN, :][:_NAMEFIRS :][:(_NAMENICK) :]_NAMEPREF:. _END [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI :. _ELSE :. _END _FUNCEND :. ----- Functie om een toevoeging aan een index-ingang te creëren. _FUNCBEGI(F_NaamIndexToevoeging) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _SETAMOU(S_NaamIndexNummer):. _ELSE :. _SETAMOU(S_NaamIndexNummer):. _END _FUNCEND :. ----- Functie om één verwijzing toe te voegen aan de index. Deze functie voegt tevens een HTML :. ----- anker (van het index type) in de tekst in. :. ----- Als dit de eerste index-vermelding voor de huidige persoon is, dan voegt deze funktie :. ----- ook een HTML verwijzing toe aan de index ingang, maar alleen als _ASCENUM bestaat. _FUNCBEGI(F_NaamIndexReferentie) [?_PREFINDX?_BEGI[:[?F_Optie_PersonenIndex==aan?]x:]_END?]? _BEGI :. Voeg een uniek HTML anker in. S_NaamIndexNummer wordt alleen voor dit doel gebruikt. _SETADD(S_NaamIndexNummer,x) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _SETAMOU(S_NaamIndexNummer) _ELSE _SETAMOU(S_NaamIndexNummer) _END :. S_NaamIndexCheck wordt alleen gebruikt om te voorkomen dat S_NaamIndex voor elke toe te :. voegen ingang volledig doorzocht moet worden. _SETORDE() wordt veel sneller uitgevoerd dan :. een _SETBEGI()_SETEND iteratie. :. Aldfaer (versie 3.3.1) kent de _SETEXP code, waarmee in principe _SETORDE(S_NaamIndexCheck) :. gebruikt kan worden als index voor S_NaamIndex. Het blijkt echter dat _SETADD een nieuw :. set-element niet per sé aan het einde van de set toevoegd, waardoor de synchronisatie tussen :. S_NaamIndexCheck en S_NaamIndex verloren gaat. [?_SETORDE(S_NaamIndexCheck)?]? _BEGI _SETBEGI(S_NaamIndex) [?[:_SETSTRI:]._FILL(250," ")==[&F_NaamIndexIngang&]._FILL(250," ")?]? _BEGI _SETADD(S_NaamIndex,[:_SETSTRI, F_NaamIndexToevoeging:]) _SETSUB(S_NaamIndex,[:_SETSTRI:]) _END _SETEND _ELSE _SETADD(S_NaamIndex,[:[&F_NaamIndexIngang&]._FILL(250," ") :. [:( [:*_BIRTDATE("YYYY"):]|[:~_BAPTDATE("YYYY"):] :. [:†_DEATDATE("YYYY"):]|[:□_BURIDATE("YYYY"):] ):] :. [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI [&[_ASCENUM]&] :. _ELSE [&[_ASCENUM]&] :. _END . . . . . F_NaamIndexToevoeging:]) _SETADD(S_NaamIndexCheck) _END _END _FUNCEND :. ----- Functie om de index in te voegen. _FUNCBEGI(F_NaamIndex) [?_PREFINDX?_BEGI[:[?F_Optie_PersonenIndex==aan?]x:]_END?]? _BEGI [?_SETAMOU(S_NaamIndex)?]? _BEGI _SETADD(S_HoofdstukTitel,"Index van personen") [?F_Optie_GeneratieNieuwePagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END _SETADD(S_VerborgenTekst,"Index van personen")F_VerborgenTekst

De nummers in deze index verwijzen niet naar bladzijden, maar naar corresponderende nummers in de tekst. Daar wordt bijvoorbeeld index-nummer 73 als 73 weergegeven. De nummering in de tekst is oplopend, zodat een hoger index-nummer altijd gevonden wordt ná een lager nummer.

De symbolen bij de jaartallen hebben de volgende betekenissen: * geboortedatum, ~ doopdatum, † overlijdensdatum, □ datum van begrafenis, crematie, vermissing of ter beschikking stelling.

_SETSORT(S_NaamIndex,_SORTNOCA) _SETBEGI(S_NaamIndex)

[:_SETSTRI:]._SPAC

_SETEND
_SETCLR(S_NaamIndex) _SETCLR(S_NaamIndexCheck) _SETCLR(S_NaamIndexNummer) _END _END _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Functies voor het genereren van de plaatsen-index. :. ------------------------------------------------------------------------------------------------- :. ----- Functie om een nieuwe (lege) index-ingang te creëren. _FUNCBEGI(F_PlaatsIndexIngang) :. Voeg een uniek HTML anker in. S_PlaatsIndexNamen wordt alleen voor dit doel gebruikt. _SETBEGI(S_Plaats):. _SETSTRI:. [?F_Optie_OnderdrukVerwijzingen!=aan?]? _BEGI :. _END _SETEND:. _FUNCEND :. ----- Functie om een toevoeging aan een index-ingang te creëren. _FUNCBEGI(F_PlaatsIndexToevoeging) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _SETAMOU(S_PlaatsIndexNummer):. _ELSE :. _SETAMOU(S_PlaatsIndexNummer):. _END _FUNCEND :. ----- Functie om één verwijzing toe te voegen aan de index. Deze functie voegt tevens een HTML :. ----- anker (van het index type) in de tekst in. _FUNCBEGI(F_PlaatsIndexReferentie) [?_PREFINDX?_BEGI[:[?F_Optie_PlaatsenIndex==aan?]x:]_END?]? _BEGI :. Voeg een uniek HTML anker in. S_PlaatsIndexNummer wordt alleen voor dit doel gebruikt. _SETADD(S_PlaatsIndexNummer,x) _SETBEGI(S_Plaats) _SETADD(S_PlaatsIndexNamen,[:_SETSTRI:]) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _SETAMOU(S_PlaatsIndexNummer) _ELSE :. _SETAMOU(S_PlaatsIndexNummer) _END :. S_PlaatsIndexCheck wordt alleen gebruikt om te voorkomen dat S_PlaatsIndex voor elke toe te :. voegen ingang volledig doorzocht moet worden. _SETORDE() wordt veel sneller uitgevoerd dan :. een _SETBEGI()_SETEND iteratie. :. Aldfaer (versie 3.3.1) kent de _SETEXP code, waarmee in principe :. _SETORDE(S_PlaatsIndexCheck) gebruikt kan worden als index voor S_PlaatsIndex. Het blijkt :. echter dat _SETADD een nieuw set-element niet per sé aan het einde van de set toevoegd, :. waardoor de synchronisatie tussen S_PlaatsIndexCheck en S_PlaatsIndex verloren gaat. [?_SETORDE(S_PlaatsIndexCheck,[:_SETSTRI:])?]? _BEGI _SETBEGI(S_PlaatsIndex) [?[:_SETSTRI:]._FILL(250," ")==[&F_PlaatsIndexIngang&]._FILL(250," ")?]? _BEGI _SETADD(S_PlaatsIndex,[:_SETSTRI, F_PlaatsIndexToevoeging:]) _SETSUB(S_PlaatsIndex,[:_SETSTRI:]) _END _SETEND _ELSE _SETADD(S_PlaatsIndex, [:[&F_PlaatsIndexIngang&]._FILL(250," ") :. . . . . . F_PlaatsIndexToevoeging:]) _SETADD(S_PlaatsIndexCheck,[:_SETSTRI:]) _END _SETEND _END _SETCLR(S_Plaats) _FUNCEND :. ----- Functie om de index in te voegen. _FUNCBEGI(F_PlaatsIndex) [?_PREFINDX?_BEGI[:[?F_Optie_PlaatsenIndex==aan?]x:]_END?]? _BEGI [?_SETAMOU(S_PlaatsIndex)?]? _BEGI _SETADD(S_HoofdstukTitel,"Index van plaatsen") [?F_Optie_GeneratieNieuwePagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END _SETADD(S_VerborgenTekst,"Index van plaatsen")F_VerborgenTekst

De nummers in deze index verwijzen niet naar bladzijden, maar naar corresponderende nummers in de tekst. Daar wordt bijvoorbeeld index-nummer 17 als 17 weergegeven. De nummering in de tekst is oplopend, zodat een hoger index-nummer altijd gevonden wordt ná een lager nummer.

_SETSORT(S_PlaatsIndex,_SORTNOCA) _SETBEGI(S_PlaatsIndex)

[:_SETSTRI:]._SPAC

_SETEND
_SETCLR(S_PlaatsIndex) _SETCLR(S_PlaatsIndexCheck) _SETCLR(S_PlaatsIndexNummer) _SETCLR(S_PlaatsIndexNamen) _END _END _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Functies voor het genereren van de beroepen en functies-index. :. ------------------------------------------------------------------------------------------------- :. ----- Functie om een nieuwe (lege) index-ingang te creëren. _FUNCBEGI(F_BeroepIndexIngang) :. Voeg een uniek HTML anker in. S_BeroepIndexNamen wordt alleen voor dit doel gebruikt. _SETBEGI(S_Beroep):. _SETSTRI:. [?F_Optie_OnderdrukVerwijzingen!=aan?]? _BEGI :. _END _SETEND:. _FUNCEND :. ----- Functie om een toevoeging aan een index-ingang te creëren. _FUNCBEGI(F_BeroepIndexToevoeging) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _SETAMOU(S_BeroepIndexNummer):. _ELSE :. _SETAMOU(S_BeroepIndexNummer):. _END _FUNCEND :. ----- Functie om één verwijzing toe te voegen aan de index. Deze functie voegt tevens een HTML :. ----- anker (van het index type) in de tekst in. _FUNCBEGI(F_BeroepIndexReferentie) [?_PREFINDX?_BEGI[:[?F_Optie_BeroepenIndex==aan?]x:]_END?]? _BEGI :. Voeg een uniek HTML anker in. S_BeroepIndexNummer wordt alleen voor dit doel gebruikt. _SETADD(S_BeroepIndexNummer,x) _SETBEGI(S_Beroep) _SETADD(S_BeroepIndexNamen,[:_SETSTRI:]) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _SETAMOU(S_BeroepIndexNummer) _ELSE :. _SETAMOU(S_BeroepIndexNummer) _END :. S_BeroepIndexCheck wordt alleen gebruikt om te voorkomen dat S_BeroepIndex voor elke toe :. te voegen ingang volledig doorzocht moet worden. _SETORDE() wordt veel sneller uitgevoerd :. dan een _SETBEGI()_SETEND iteratie. Aldfaer (versie 3.3.1) kent de _SETEXP code, waarmee :. in principe _SETORDE(S_BeroepIndexCheck) gebruikt kan worden als index voor S_BeroepIndex. :. Het blijkt echter dat _SETADD een nieuw set-element niet per sé aan het einde van de set :. toevoegd, waardoor de synchronisatie tussen S_BeroepIndexCheck en S_BeroepIndex verloren :. gaat. [?_SETORDE(S_BeroepIndexCheck,[:_SETSTRI:])?]? _BEGI _SETBEGI(S_BeroepIndex) [?[:_SETSTRI:]._FILL(250," ")==[&F_BeroepIndexIngang&]._FILL(250," ")?]? _BEGI _SETADD(S_BeroepIndex,[:_SETSTRI, F_BeroepIndexToevoeging:]) _SETSUB(S_BeroepIndex,[:_SETSTRI:]) _END _SETEND _ELSE _SETADD(S_BeroepIndex, [:[&F_BeroepIndexIngang&]._FILL(250," ") :. . . . . . F_BeroepIndexToevoeging:]) _SETADD(S_BeroepIndexCheck,[:_SETSTRI:]) _END _SETEND _END _SETCLR(S_Beroep) _FUNCEND :. ----- Functie om de index in te voegen. _FUNCBEGI(F_BeroepIndex) [?_PREFINDX?_BEGI[:[?F_Optie_BeroepenIndex==aan?]x:]_END?]? _BEGI [?_SETAMOU(S_BeroepIndex)?]? _BEGI _SETADD(S_HoofdstukTitel,"Index van beroepen en functies") [?F_Optie_GeneratieNieuwePagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END _SETADD(S_VerborgenTekst,"Index van beroepen en functies")F_VerborgenTekst

De nummers in deze index verwijzen niet naar bladzijden, maar naar corresponderende nummers in de tekst. Daar wordt bijvoorbeeld index-nummer 5 als 5 weergegeven. De nummering in de tekst is oplopend, zodat een hoger index-nummer altijd gevonden wordt ná een lager nummer.

_SETSORT(S_BeroepIndex,_SORTNOCA) _SETBEGI(S_BeroepIndex)

[:_SETSTRI:]._SPAC

_SETEND
_SETCLR(S_BeroepIndex) _SETCLR(S_BeroepIndexCheck) _SETCLR(S_BeroepIndexNummer) _SETCLR(S_BeroepIndexNamen) _END _END _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Functies voor het genereren van de lijst van afbeeldingen. :. ------------------------------------------------------------------------------------------------- :. ----- Functie om één verwijzing toe te voegen aan de lijst. Deze functie voegt tevens een HTML :. ----- anker (van het lijst type) in de tekst in. _FUNCBEGI(F_FotoIndexReferentie) [?_PREFINDX?_BEGI[:[?F_Optie_FotoIndex==aan?]x:]_END?]? _BEGI :. Voeg een uniek HTML anker in. S_FotoIndexNummer wordt alleen voor dit doel gebruikt. _SETADD(S_FotoIndexNummer,x) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI Afb. _SETAMOU(S_FotoIndexNummer): :. Dubbel voorkomende fotos worden niet als een speciaal geval behandeld. _SETADD(S_FotoIndex,[:Afb. _SETAMOU(S_FotoIndexNummer): _PHOTTITL:]) _ELSE Afb. _SETAMOU(S_FotoIndexNummer): :. Dubbel voorkomende fotos worden niet als een speciaal geval behandeld. _SETADD(S_FotoIndex, [:Afb. _SETAMOU(S_FotoIndexNummer): _PHOTTITL:]) _END _END _FUNCEND :. ----- Functie om de lijst in te voegen. _FUNCBEGI(F_FotoIndex) [?_PREFINDX?_BEGI[:[?F_Optie_FotoIndex==aan?]x:]_END?]? _BEGI [?_SETAMOU(S_FotoIndex)?]? _BEGI _SETADD(S_HoofdstukTitel,"Lijst van afbeeldingen") [?F_Optie_GeneratieNieuwePagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END _SETADD(S_VerborgenTekst,"Lijst van afbeeldingen")F_VerborgenTekst

De nummers in deze lijst verwijzen naar afbeeldingen in de tekst. De nummering in de tekst is oplopend, zodat een hoger nummer altijd gevonden wordt ná een lager nummer.

:. De lijst van afbeeldingen wordt niet alfabetisch gesorteerd. _SETBEGI(S_FotoIndex)

[:_SETSTRI:]._SPAC

_SETEND
_SETCLR(S_FotoIndex) _SETCLR(S_FotoIndexNummer) _END _END _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Functies voor het verwerken van bronnen. :. ------------------------------------------------------------------------------------------------- :. ----- Functie om één (of meer) bron-referentie(s) in te voegen. _FUNCBEGI(F_BronReferentie) _PREFSOUR? _BEGI _SETBEGI(S_Bron) _SETADD(S_Bronnen,[:_SETSTRI:]) [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI _SETORDE(S_Bronnen,[:_SETSTRI:]) _ELSE _SETORDE(S_Bronnen,[:_SETSTRI:]) _END _SETEND _END _SETCLR(S_Bron) _FUNCEND :. ----- Functie om bron-gegevens in te voegen. _FUNCBEGI(F_Bronnen) _PREFSOUR? _BEGI [?_SETAMOU(S_Bronnen)?]? _BEGI _SETADD(S_HoofdstukTitel,Bronnen) [?F_Optie_GeneratieNieuwePagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END _SETADD(S_VerborgenTekst,Bronnen)F_VerborgenTekst

De nummers in deze lijst corresponderen met bronverwijzingen in de tekst. Daar wordt bijvoorbeeld bron nummer 1 als 1 weergegeven.

_SETBEGI(S_Bronnen)

[?F_Optie_OnderdrukVerwijzingen!=aan?]? _BEGI _END _NUMB: _SETSTRI

_SETEND
_SETCLR(S_Bronnen) [?F_Optie_BronAantekeningen==aan?]? _BEGI _ANNOBEGI [?_ANNONAME==Bronnen?]? _BEGI _SETADD(S_HoofdstukTitel,"Aantekeningen over de bronnen") [?F_Optie_GeneratieNieuwePagina==aan?]? _BEGI F_HoofdstukTitel _ELSE F_HoofdstukTitelDoorlopend _END [:

_ANNONOTE

:] F_BronAantekeningen _END _ANNOEND _END _END _END _FUNCEND :. ----- Functie om bron-aantekeningen op het huidige en alle lagere niveaus in te voegen. Deze :. ----- functie wordt recursief aangeroepen. _FUNCBEGI(F_BronAantekeningen) :. Zorg dat HTML header-niveaus 1 en 2 niet gebruikt worden. [?_LEVL<3?]? _BEGI F_BronAantekeningen _ELSE :. Het hoogst mogelijke HTML header-niveau is 6, dus dieper geneste aantekeningen worden :. genegeerd. [?_LEVL<7?]? _BEGI _ANNOBEGI [:_ANNONAME:]
[:

_ANNONOTE

:] F_BronAantekeningen
_ANNOEND _END _END _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Algemene functies. :. ------------------------------------------------------------------------------------------------- :. ----- Functie voor het genereren van de document-titel. _FUNCBEGI(F_Titel) [?F_Optie_TitelPagina==aan?]? _BEGI _SETDEF(S_Titel_FotoGevonden) :. Een MS Word macro kan uit de aanwezigheid van deze 'verborgen' paragraaf afleiden dat er een :. titelpagina is. _SETADD(S_VerborgenTekst,[:Aangemaakt _CURRDATE([:F_DatumLang:])[:, © _USERNAME:]:]) F_VerborgenTekst
_SETBEGI(S_Voorgeslacht) [?_ASCENUM==F_Optie_TitelFotoPersoon?]? _BEGI _SETDEF(S_Titel_FotoTeller,_SETDUPL) _PHOTBEGI _SETADD(S_Titel_FotoTeller,x) [?_SETAMOU(S_Titel_FotoTeller)== [:[&[?F_Optie_TitelFotoIndex!=0?]F_Optie_TitelFotoIndex&]|[&_PHOTAMOU&]:]?]? _BEGI _SETADD(S_Titel_FotoGevonden,x)

_SETBEGI(S_DocumentType)_SETSTRI _SETEND van
F_NaamCompleetZonderCode

[:Samengesteld door _USERNAME:]|[& &]

_END _PHOTEND _SETDEL(S_Titel_FotoTeller) _END _SETEND [?_SETAMOU(S_Titel_FotoGevonden)?]? _BEGI _ELSE

_SETBEGI(S_DocumentType)_SETSTRI _SETEND van
F_NaamCompleetZonderCode

[:Samengesteld door _USERNAME:]|[& &]

_END
_SETADD(S_VerborgenTekst,[:Aangemaakt _CURRDATE([:F_DatumLang:])[:, © _USERNAME:]:]) F_VerborgenTekst _SETDEL(S_Titel_FotoGevonden) _ELSE

_SETBEGI(S_DocumentType)_SETSTRI _SETEND van
F_NaamCompleetZonderCode

Aangemaakt _CURRDATE([:F_DatumLang:])[:, © _USERNAME.:]

_END _FUNCEND :. ----- Functie om een verborgen paragraaf in te voegen (alleen indien de uitvoer wordt :. ----- geoptimaliseerd voor MS Word). _FUNCBEGI(F_VerborgenTekst) [?F_Optie_OptimaalVoorWord==aan?]? _BEGI

:. [:[?F_Optie_VerborgenTekst==aan?]_SETBEGI(S_VerborgenTekst)_SETSTRI[::]_SETEND:]|[& &]

_END _SETCLR(S_VerborgenTekst) _FUNCEND :. ----- Functie om een hoodstuk-titel in te voegen (met geforceerde nieuwe pagina). _FUNCBEGI(F_HoofdstukTitel) _SETBEGI(S_HoofdstukTitel)

_SETSTRI

_SETEND _SETCLR(S_HoofdstukTitel) _FUNCEND :. ----- Functie om een hoodstuk-titel in te voegen (zonder geforceerde nieuwe pagina). _FUNCBEGI(F_HoofdstukTitelDoorlopend) _SETBEGI(S_HoofdstukTitel)

_SETSTRI

_SETEND _SETCLR(S_HoofdstukTitel) _FUNCEND :. ----- Functie om de gehele naam (voornaam, roepnaam, tussenvoegsels en achternaam) in te voegen. :. ----- Deze functie wordt alleen gebruikt voor de document titel, dus voegt geen ingang aan de :. ----- index toe. _FUNCBEGI(F_NaamCompleetZonderCode) [:_NAMEFIRS [:(_NAMENICK) :]_NAMEPREF _SURN:]:. _FUNCEND :. ----- Functie om de gehele naam (voornaam, roepnaam, tussenvoegsels en achternaam) plus _ASCENUM :. ----- in te voegen. Deze functie wordt alleen gebruikt voor verborgen tekst, dus voegt geen :. ----- ingang aan de index toe. _FUNCBEGI(F_NaamCompleetZonderCodeMetASCENUM) [:_NAMEFIRS [:(_NAMENICK) :]_NAMEPREF _SURN[: [_ASCENUM]:]:]:. _FUNCEND :. ----- Functie om de gehele naam (voornaam, roepnaam, tussenvoegsels, achternaam en code) in te :. ----- voegen. Deze funktie voegt ook een HTML anker in. _FUNCBEGI(F_NaamCompleetMetAnker) [:F_NaamIndexReferentie:. [?F_Optie_OnderdrukVerwijzingen!=aan?]? _BEGI _END _NAMEFIRS [:(_NAMENICK) :]_NAMEPREF _SURN[&[?_PREFCODE?] <_CODE>&]:]:. _FUNCEND :. ----- Functie om de gehele naam (voornaam, roepnaam, tussenvoegsels, achternaam en code) in te :. ----- voegen. Deze funktie voegt ook een HTML verwijzing in, maar alleen als _ASCENUM bestaat. _FUNCBEGI(F_NaamCompleetMetVerwijzing) [:F_NaamIndexReferentie:. _NAMEFIRS [:(_NAMENICK) :]_NAMEPREF _SURN[&[?_PREFCODE?] <_CODE>&]:]:. [?_ASCENUM?]? _BEGI [& &] [?F_Optie_OnderdrukVerwijzingen==aan?]? _BEGI [_ASCENUM]:. _ELSE [_ASCENUM]:. _END _END _FUNCEND :. ----- Functie om de roepnaam (of, bij afwezigheid hiervan, de voornaam of eventueel de :. ----- achternaam) in te voegen. _FUNCBEGI(F_NaamKort) [:_NAMENICK|_NAMEFIRS|[:_NAMEPREF _SURN:]:]:. _FUNCEND :. ----- Functie om de generatienaam in te voegen. _FUNCBEGI(F_GeneratieNaam) [?_GENENUM==1?]? _BEGI [&[?_PREFMALE?][?_PREFFEMA?]kwartierdrager&]|[&reeksdrager&]:. _ELSE [:_GENENUM(" ;;;groot;overgroot;betovergroot;oud;oudgroot;oudovergroot;oudbetovergroot;stam;stamgroot; stamovergroot;stambetovergroot;stamoud;stamoudgroot;stamoudovergroot;stamoudbetovergroot; edel;edelgroot;edelovergroot;edelbetovergroot;edeloud;edeloudgroot;edeloudovergroot; edeloudbetovergroot;edelstam;edelstamgroot;edelstamovergroot;edelstambetovergroot;edelstamoud; edelstamoudgroot;edelstamoudovergroot;edelstamoudbetovergroot;voor;voorgroot;voorovergroot; voorbetovergroot;vooroud;vooroudgroot;vooroudovergroot;vooroudbetovergroot;voorstam; voorstamgroot;voorstamovergroot;voorstambetovergroot;voorstamoud;voorstamoudgroot; voorstamoudovergroot;voorstamoudbetovergroot;vooredel;vooredelgroot;vooredelovergroot; vooredelbetovergroot;vooredeloud;vooredeloudgroot;vooredeloudovergroot; vooredeloudbetovergroot;vooredelstam;vooredelstamgroot;vooredelstamovergroot; vooredelstambetovergroot;vooredelstamoud;vooredelstamoudgroot;vooredelstamoudovergroot; vooredelstamoudbetovergroot")._SPAC:] [&[?_PREFMALE?][?_PREFFEMA?]ouders&]|[&[?_PREFMALE?]vader&]|[&moeder&]:. _END _FUNCEND :. ----- Functie om _NUMB als een romeins getal weer te geven _FUNCBEGI(F_NumbRoman) [:_NUMB(" ;I;II;III;IV;V;VI;VII;VIII;IX;X;XI;XII;XIII;XIV;XV;XVI;XVII;XVIII;XIX;XX;XXI;XXII;XXIII;XXIV; XXV;XXVI;XXVII;XXVIII;XXIX;A")._SPAC:] _FUNCEND :. ----- Functie om het geslacht-symbool in te voegen. _FUNCBEGI(F_GeslachtSymbool) [:_MALE?_BEGI[::]♂[::]_END:]|[:_FEMA?_BEGI[::]♀[::]_END:]|[&○&] _FUNCEND :. ----- Functie om 'zoon', 'dochter' of 'kind' in te voegen. _FUNCBEGI(F_ZoonDochterKind) [:_SEX("zoon;dochter;kind"):] _FUNCEND :. ----- Functie om 'Hij', 'Zij' of 'Deze persoon' in te voegen. _FUNCBEGI(F_HijZijDezePersoon_H) [:_SEX("Hij;Zij;Deze persoon"):] _FUNCEND :. ----- Functie om het soort kind in te voegen (alleen als het kind niet eigen is). _FUNCBEGI(F_TypeOneigenKind) [:_CHILTYPE(";adoptiekind;pleegkind"):] _FUNCEND :. ----- Functie om de leeftijd aan het begin van een relatie in te voegen als ", 21 jaar". _FUNCBEGI(F_LeeftijdBijRelatie) [&[?_BIRTDATE?][?_RELASTAR?], _BIRTDATE([:_DIFFDATE(_RELASTAR)F_DatumLeeftijd:]) jaar&] _FUNCEND :. ----- Functie om de relatie van een tweede persoon tot de huidige persoon in te voegen. Dit is :. ----- bedoeld om gebruikt te worden in een zin als "X trouwde op 21-jarige leeftijd met Y". _FUNCBEGI(F_RelatieLeeftijdMet) [:_RELATYPE("trouwde ;ging ;ging ;ging "):] [&[?_BIRTDATE?][?_RELASTAR?]op _BIRTDATE([:_DIFFDATE(_RELASTAR)F_DatumLeeftijd:])-jarige leeftijd &][&F_Zeker &] [:_RELATYPE("met;een geregistreerd partnerschap aan met;samenleven met;een relatie aan met"):] _FUNCEND :. ----- Functie om de relatie tussen twee personen in te voegen. Dit is bedoeld om gebruikt te :. ----- worden in een zin als "het huwelijk van X en Y". _FUNCBEGI(F_RelatieVan) [:_RELATYPE( "het huwelijk van;het geregistreerd partnerschap van;het samenleven van;de relatie van") :] _FUNCEND :. ----- Functie om de datum of periode van een feit in te voegen, eindigend op een dubbele punt. _FUNCBEGI(F_FeitDatum) [?_FACTSTAR?]? _BEGI [?_FACTSTOP?]? _BEGI _FACTSTAR([:F_DatumKort:])[?_FACTSTAR!=_FACTSTOP?]?_BEGI - _FACTSTOP([:F_DatumKort:])_END: _ELSE Vanaf _FACTSTAR([:F_DatumKort:]): _END _ELSE [?_FACTSTOP?]? _BEGI Tot _FACTSTOP([:F_DatumKort:]): _END _END _FUNCEND :. ----- Functie om de datum van een getuigenis in te voegen, eindigend op een dubbele punt. Deze :. ----- functie gaat er van uit dat er een set met datums doorlopen wordt. _FUNCBEGI(F_GetuigenisDatum) [?_SETDATE?]? _BEGI _SETDATE([:F_DatumKort:]): _END _FUNCEND :. ----- Functie om een datum in korte notatie in te voegen. _FUNCBEGI(F_DatumKort) [:[?_D _M _Y?]?_BEGI[::]_E(";ná ;vóór ;circa ")_END:]:. _PREFMONTNAME? _BEGI [:_D :] :. Een enigszins omslachtige manier om de maand in te voegen, maar dit is nodig om een :. ongewenste (en onbegrepen) spatie te vermijden als de maand onbekend is. [:[:[?_M?]?_BEGI[:_M(";jan;feb;mrt;apr;mei;jun;jul;aug;sep;okt;nov;dec"):]_END:]| [:[?_D?]mnd:] :]:. _ELSE [:_D/:] :. Een enigszins omslachtige manier om de maand in te voegen, maar dit is nodig om een :. ongewenste (en onbegrepen) spatie te vermijden als de maand onbekend is. [:[:[?_M?]?_BEGI[:_M:]_END:]|[:[?_D?]mnd:]/:]:. _END [:_Y:]|[:[?_D _M?]?_BEGIjaar_END:]:. _FUNCEND :. ----- Functie om een datum in lange notatie in te voegen, inclusief voorzetsel 'op' of 'in'. _FUNCBEGI(F_DatumLang) [:[?_D _M _Y?]?_BEGI[:[?_D?]?_BEGI[::]_E("op ;ná ;vóór ;omstreeks ")_END:]| [:_E("in ;ná ;vóór ;omstreeks "):]_END:]:. _PREFMONTNAME? _BEGI [:[&[?[&_PREFDAYNAME[:[?_Y>F_Optie_LaatsteJuliaanseJaar?]x:]&]?]:. _WD(";zondag;maandag;dinsdag;woensdag;donderdag;vrijdag;zaterdag") &] _D :] :. Een enigszins omslachtige manier om de maand in te voegen, maar dit is nodig om een :. ongewenste (en onbegrepen) spatie te vermijden als de maand onbekend is. [:[:[?_M?]?_BEGI[:_M(";januari;februari;maart;april;mei;juni;juli;augustus;september;oktober; november;december")._SPAC:]_END:]|[:[?_D?]maand:] :]:. _ELSE [:[&[?[&_PREFDAYNAME[:[?_Y>F_Optie_LaatsteJuliaanseJaar?]x:]&]?]:. _WD(";zo;ma;di;wo;do;vr;za") &] _D/:] :. Een enigszins omslachtige manier om de maand in te voegen, maar dit is nodig om een :. ongewenste (en onbegrepen) spatie te vermijden als de maand onbekend is. [:[:[?_M?]?_BEGI[:_M:]_END:]|[:[?_D?]mnd:]/:]:. _END [:_Y:]|[:[?_D _M?]?_BEGIjaar_END:]:. _FUNCEND :. ----- Functie om een leeftijd in te voegen. _FUNCBEGI(F_DatumLeeftijd) [:[?_Y?]?_BEGI[::]_E(";minstens ;hoogstens ;ongeveer ")_END:][:_Y:]:. _FUNCEND :. ----- Functie om een zekerheidsvermelding tussen haakjes in toe voegen. _FUNCBEGI(F_Zeker) _PREFQUAY?_BEGI[:(_QUAY):]_END _FUNCEND :. ----- Functie om twee zekerheidsvermeldingen in te voegen (t.a.v. vader en t.a.v. moeder). Werkt :. ----- ook voor onechte kinderen. _FUNCBEGI(F_ZekerOuders) _PREFQUAY? _BEGI _FATHBEGI(_CHILTYPE)[&[?_SETORDE(S_VaderMoeder)?][: (zekerheid vader: _QUAY):]&]_FATHEND:. _MOTHBEGI(_CHILTYPE)[&[?_SETORDE(S_VaderMoeder)?][: (zekerheid moeder: _QUAY):]&]_MOTHEND:. _END _FUNCEND :. ------------------------------------------------------------------------------------------------- :. Dialoog functies. :. ------------------------------------------------------------------------------------------------- _FUNCBEGI(F_ConstrueerDialogen) :. :. Construeer de eerste dialoog voor de opties die de gebruiker met een dialoog in kan stellen. De :. initiële waarden van de opties zijn de aan het begin van dit sjabloon ingestelde waarden. :. Opties die geen zinvolle betekenis hebben (ten gevolge van de instelling van andere opties) :. worden weggelaten. :. :. *********************************************************************************************** :. In Aldfaer (versies 3.3.1 en 3.3.2) accepteert in _DIALADD() als numerieke derde parameter geen :. berekende waarden, alhoewel de informatie op de Aldfaer website lijkt aan te geven dat dit in :. versie 3.3.2 wel het geval zou moeten zijn. :. *********************************************************************************************** _DIALDEF(D_Opties,_DIALCHECK,[:_SJABNAME opties:],330) [?F_DialoogOptie_OptimaalVoorWord==aan?]? _BEGI _DIALADD(D_Opties,[:Optimaal voor MS Word:],1) _ELSE _DIALADD(D_Opties,[:Optimaal voor MS Word:],0) _END [?F_DialoogOptie_TitelPagina==aan?]? _BEGI _DIALADD(D_Opties,[:. . MS Word: maak een titelpagina:],1) _ELSE _DIALADD(D_Opties,[:. . MS Word: maak een titelpagina:],0) _END [?F_DialoogOptie_TitelFoto==aan?]? _BEGI _DIALADD(D_Opties,[:. . . . MS Word: wijzig titelfoto (opent nieuwe dialoog):],1) _ELSE _DIALADD(D_Opties,[:. . . . MS Word: wijzig titelfoto (opent nieuwe dialoog):],0) _END [?F_DialoogOptie_GeneratieNieuwePagina==aan?]? _BEGI _DIALADD(D_Opties,[:. . MS Word: nieuwe pagina voor elke generatie:],1) _ELSE _DIALADD(D_Opties,[:. . MS Word: nieuwe pagina voor elke generatie:],0) _END [?F_DialoogOptie_OnderdrukVerwijzingen==aan?]? _BEGI _DIALADD(D_Opties,[:. . MS Word: onderdruk aanklikbare verwijzingen:],1) _ELSE _DIALADD(D_Opties,[:. . MS Word: onderdruk aanklikbare verwijzingen:],0) _END [?F_DialoogOptie_VerborgenTekst==aan?]? _BEGI _DIALADD(D_Opties,[:. . MS Word: verborgen kop/voet-tekst:],1) _ELSE _DIALADD(D_Opties,[:. . MS Word: verborgen kop/voet-tekst:],0) _END [?_PREFWITN(";x")?]? _BEGI [?F_DialoogOptie_AanwezigenIpvGetuigen==aan?]? _BEGI _DIALADD(D_Opties,[:'Aanwezige' in plaats van 'getuige':],1) _ELSE _DIALADD(D_Opties,[:'Aanwezige' in plaats van 'getuige':],0) _END _ELSE _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _END _PREFINDX? _BEGI [?F_DialoogOptie_PersonenIndex==aan?]? _BEGI _DIALADD(D_Opties,[:Voeg index van personen in:],1) _ELSE _DIALADD(D_Opties,[:Voeg index van personen in:],0) _END [?F_DialoogOptie_PersonenIndexOpVoornaam==aan?]? _BEGI _DIALADD(D_Opties,[:. . Personen-index: sorteer op voornaam:],1) _ELSE _DIALADD(D_Opties,[:. . Personen-index: sorteer op voornaam:],0) _END [?F_DialoogOptie_PlaatsenIndex==aan?]? _BEGI _DIALADD(D_Opties,[:Voeg index van plaatsen in:],1) _ELSE _DIALADD(D_Opties,[:Voeg index van plaatsen in:],0) _END [?F_DialoogOptie_BeroepenIndex==aan?]? _BEGI _DIALADD(D_Opties,[:Voeg index van beroepen en functies in:],1) _ELSE _DIALADD(D_Opties,[:Voeg index van beroepen en functies in:],0) _END [?F_DialoogOptie_FotoIndex==aan?]? _BEGI _DIALADD(D_Opties,[:Voeg lijst van afbeeldingen in:],1) _ELSE _DIALADD(D_Opties,[:Voeg lijst van afbeeldingen in:],0) _END _ELSE _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _END _PREFSOUR? _BEGI [?F_DialoogOptie_BronAantekeningen==aan?]? _BEGI _DIALADD(D_Opties,[:Voeg bron-aantekeningen in:],1) _ELSE _DIALADD(D_Opties,[:Voeg bron-aantekeningen in:],0) _END _ELSE _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _END [?_PREFPHOT(";;x")?]? _BEGI _DIALADD(D_Opties,[:Wijzig foto-instellingen (opent nieuwe dialoog):],0) _ELSE _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _END _PREFDAYNAME? _BEGI _DIALADD(D_Opties,[:Wijzig laatst mogelijke Juliaanse jaar (opent nieuwe dialoog):],0) _ELSE _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _END _PREFFACTMISC? _BEGI _DIALADD(D_Opties,[:Wijzig feit-categorieën (opent nieuwe dialogen):],0) _ELSE _DIALADD(D_Opties,[:<----- ongebruikte optie:],0) _END :. :. Construeer de tweede dialoog voor de foto-opties die de gebruiker op een bepaalde waarde kan :. zetten. De initiële waarden van de opties zijn de aan het begin van dit sjabloon ingestelde :. waarden. :. _DIALDEF(D_Opties_2,_DIALNEDI,[:_SJABNAME opties:],270) _DIALADD(D_Opties_2,[:maximaal aantal foto-rijen per persoon (minstens 1):], [:F_DialoogOptie_FotoRijen:]) _DIALADD(D_Opties_2,[:maximale breedte van een foto-rij (in pixels):], [:F_DialoogOptie_FotoRijBreedte:]) :. :. Construeer de derde dialoog voor de keuze van het laatst mogelijk Juliaanse jaar. De initiële :. waarde van de optie is de aan het begin van dit sjabloon ingestelde waarde. :. _DIALDEF(D_Opties_3,_DIALNEDI,[:_SJABNAME opties:],270) _DIALADD(D_Opties_3,[:laatst mogelijke Juliaanse jaar:],[:F_DialoogOptie_LaatsteJuliaanseJaar:]) :. :. Construeer de vierde dialoog voor de keuze van de titelfoto. De initiële waarden van de opties :. zijn de aan het begin van dit sjabloon ingestelde waarden. :. _DIALDEF(D_Opties_4,_DIALNEDI,[:_SJABNAME opties:],270) _DIALADD(D_Opties_4,[:titelfoto: persoon (kwartiernummer):],[:F_DialoogOptie_TitelFotoPersoon:]) _DIALADD(D_Opties_4,[:titelfoto: foto-nummer (0 = laatste):],[:F_DialoogOptie_TitelFotoIndex:]) _DIALADD(D_Opties_4,[:titelfoto: hoogte (in pixels):],[:F_DialoogOptie_TitelFotoHoogte:]) :. :. Prepareer de sets die de optie-instellingen zullen bevatten. :. _SETDEF(S_D_OptimaalVoorWord) _SETDEF(S_D_TitelPagina) _SETDEF(S_D_TitelFoto) _SETDEF(S_D_GeneratieNieuwePagina) _SETDEF(S_D_OnderdrukVerwijzingen) _SETDEF(S_D_VerborgenTekst) _SETDEF(S_D_AanwezigenIpvGetuigen) _SETDEF(S_D_PersonenIndex) _SETDEF(S_D_PersonenIndexOpVoornaam) _SETDEF(S_D_PlaatsenIndex) _SETDEF(S_D_BeroepenIndex) _SETDEF(S_D_FotoIndex) _SETDEF(S_D_BronAantekeningen) _SETDEF(S_D_WijzigFotos) _SETDEF(S_D_WijzigLaatsteJuliaanseJaar) _SETDEF(S_D_SelecteerFeitCategorieen) _SETDEF(S_D_FotoRijen) _SETDEF(S_D_FotoRijBreedte) _SETDEF(S_D_LaatsteJuliaanseJaar) _SETDEF(S_D_TitelFotoPersoon) _SETDEF(S_D_TitelFotoIndex) _SETDEF(S_D_TitelFotoHoogte) :. _FUNCEND :. ----- Functie om de instelling van de 'optimaal voor Word' optie te bepalen _FUNCBEGI(F_Optie_OptimaalVoorWord) [?_SETAMOU(S_D_OptimaalVoorWord)?]? _BEGI _ELSE [?F_Optie_GebruikDialoog==aan?]? _BEGI _SETADD(S_D_OptimaalVoorWord,[:[:[?_DIALEXP(D_Opties,1)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_OptimaalVoorWord,[:F_DialoogOptie_OptimaalVoorWord:]) _END _END _SETBEGI(S_D_OptimaalVoorWord)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'maak titelpagina' optie te bepalen _FUNCBEGI(F_Optie_TitelPagina) [?_SETAMOU(S_D_TitelPagina)?]? _BEGI _ELSE :. Deze optie heeft alleen effect als de uitvoer voor MS Word geoptimaliseerd wordt. [?F_Optie_OptimaalVoorWord==aan?]? _BEGI [?F_Optie_GebruikDialoog==aan?]? _BEGI _SETADD(S_D_TitelPagina,[:[:[?_DIALEXP(D_Opties,2)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_TitelPagina,[:F_DialoogOptie_TitelPagina:]) _END _ELSE _SETADD(S_D_TitelPagina,uit) _END _END _SETBEGI(S_D_TitelPagina)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'wijzig titelfoto' optie te bepalen _FUNCBEGI(F_Optie_TitelFoto) [?_SETAMOU(S_D_TitelFoto)?]? _BEGI _ELSE :. Deze optie heeft alleen effect als er een titelpagina gemaakt wordt. [?F_Optie_TitelPagina==aan?]? _BEGI [?F_Optie_GebruikDialoog==aan?]? _BEGI _SETADD(S_D_TitelFoto,[:[:[?_DIALEXP(D_Opties,3)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_TitelFoto,uit) _END _ELSE _SETADD(S_D_TitelFoto,uit) _END _END _SETBEGI(S_D_TitelFoto)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'generatie nieuwe pagina' optie te bepalen _FUNCBEGI(F_Optie_GeneratieNieuwePagina) [?_SETAMOU(S_D_GeneratieNieuwePagina)?]? _BEGI _ELSE :. Deze optie heeft alleen effect als de uitvoer voor MS Word geoptimaliseerd wordt. [?F_Optie_OptimaalVoorWord==aan?]? _BEGI [?F_Optie_GebruikDialoog==aan?]? _BEGI _SETADD(S_D_GeneratieNieuwePagina,[:[:[?_DIALEXP(D_Opties,4)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_GeneratieNieuwePagina,[:F_DialoogOptie_GeneratieNieuwePagina:]) _END _ELSE _SETADD(S_D_GeneratieNieuwePagina,uit) _END _END _SETBEGI(S_D_GeneratieNieuwePagina)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'onderdruk aanklikbare verwijzingen' optie te bepalen _FUNCBEGI(F_Optie_OnderdrukVerwijzingen) [?_SETAMOU(S_D_OnderdrukVerwijzingen)?]? _BEGI _ELSE :. Deze optie heeft alleen effect als de uitvoer voor MS Word geoptimaliseerd wordt. [?F_Optie_OptimaalVoorWord==aan?]? _BEGI [?F_Optie_GebruikDialoog==aan?]? _BEGI _SETADD(S_D_OnderdrukVerwijzingen,[:[:[?_DIALEXP(D_Opties,5)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_OnderdrukVerwijzingen,[:F_DialoogOptie_OnderdrukVerwijzingen:]) _END _ELSE _SETADD(S_D_OnderdrukVerwijzingen,uit) _END _END _SETBEGI(S_D_OnderdrukVerwijzingen)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'verborgen kop/voet-tekst' optie te bepalen _FUNCBEGI(F_Optie_VerborgenTekst) [?_SETAMOU(S_D_VerborgenTekst)?]? _BEGI _ELSE :. Deze optie heeft alleen effect als de uitvoer voor MS Word geoptimaliseerd wordt. [?F_Optie_OptimaalVoorWord==aan?]? _BEGI [?F_Optie_GebruikDialoog==aan?]? _BEGI _SETADD(S_D_VerborgenTekst,[:[:[?_DIALEXP(D_Opties,6)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_VerborgenTekst,[:F_DialoogOptie_VerborgenTekst:]) _END _ELSE _SETADD(S_D_VerborgenTekst,uit) _END _END _SETBEGI(S_D_VerborgenTekst)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de '"aanwezige" in plaats van "getuige"' optie te bepalen _FUNCBEGI(F_Optie_AanwezigenIpvGetuigen) [?_SETAMOU(S_D_AanwezigenIpvGetuigen)?]? _BEGI _ELSE [?[&_PREFWITN(";x")[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_AanwezigenIpvGetuigen,[:[:[?_DIALEXP(D_Opties,7)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_AanwezigenIpvGetuigen,[:F_DialoogOptie_AanwezigenIpvGetuigen:]) _END _END _SETBEGI(S_D_AanwezigenIpvGetuigen)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'personen index' optie te bepalen _FUNCBEGI(F_Optie_PersonenIndex) [?_SETAMOU(S_D_PersonenIndex)?]? _BEGI _ELSE [?[&_PREFINDX[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_PersonenIndex,[:[:[?_DIALEXP(D_Opties,8)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_PersonenIndex,[:F_DialoogOptie_PersonenIndex:]) _END _END _SETBEGI(S_D_PersonenIndex)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'sorteer op voornaam' optie te bepalen _FUNCBEGI(F_Optie_PersonenIndexOpVoornaam) [?_SETAMOU(S_D_PersonenIndexOpVoornaam)?]? _BEGI _ELSE [?[&_PREFINDX[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_PersonenIndexOpVoornaam,[:[:[?_DIALEXP(D_Opties,9)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_PersonenIndexOpVoornaam,[:F_DialoogOptie_PersonenIndexOpVoornaam:]) _END _END _SETBEGI(S_D_PersonenIndexOpVoornaam)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'plaatsen index' optie te bepalen _FUNCBEGI(F_Optie_PlaatsenIndex) [?_SETAMOU(S_D_PlaatsenIndex)?]? _BEGI _ELSE [?[&_PREFINDX[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_PlaatsenIndex,[:[:[?_DIALEXP(D_Opties,10)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_PlaatsenIndex,[:F_DialoogOptie_PlaatsenIndex:]) _END _END _SETBEGI(S_D_PlaatsenIndex)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'beroepen en functies index' optie te bepalen _FUNCBEGI(F_Optie_BeroepenIndex) [?_SETAMOU(S_D_BeroepenIndex)?]? _BEGI _ELSE [?[&_PREFINDX[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_BeroepenIndex,[:[:[?_DIALEXP(D_Opties,11)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_BeroepenIndex,[:F_DialoogOptie_BeroepenIndex:]) _END _END _SETBEGI(S_D_BeroepenIndex)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'lijst van afbeeldingen' optie te bepalen _FUNCBEGI(F_Optie_FotoIndex) [?_SETAMOU(S_D_FotoIndex)?]? _BEGI _ELSE [?[&_PREFINDX[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_FotoIndex,[:[:[?_DIALEXP(D_Opties,12)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_FotoIndex,[:F_DialoogOptie_FotoIndex:]) _END _END _SETBEGI(S_D_FotoIndex)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'bron aantekeningen' optie te bepalen _FUNCBEGI(F_Optie_BronAantekeningen) [?_SETAMOU(S_D_BronAantekeningen)?]? _BEGI _ELSE [?[&_PREFSOUR[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_BronAantekeningen,[:[:[?_DIALEXP(D_Opties,13)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_BronAantekeningen,[:F_DialoogOptie_BronAantekeningen:]) _END _END _SETBEGI(S_D_BronAantekeningen)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'wijzig fotos' optie te bepalen _FUNCBEGI(F_Optie_WijzigFotos) [?_SETAMOU(S_D_WijzigFotos)?]? _BEGI _ELSE [?[&_PREFPHOT(";;x")[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_WijzigFotos,[:[:[?_DIALEXP(D_Opties,14)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_WijzigFotos,uit) _END _END _SETBEGI(S_D_WijzigFotos)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'laatst mogelijke Juliaanse jaar' optie te bepalen _FUNCBEGI(F_Optie_WijzigLaatsteJuliaanseJaar) [?_SETAMOU(S_D_WijzigLaatsteJuliaanseJaar)?]? _BEGI _ELSE [?[&_PREFDAYNAME[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_WijzigLaatsteJuliaanseJaar,[:[:[?_DIALEXP(D_Opties,15)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_WijzigLaatsteJuliaanseJaar,uit) _END _END _SETBEGI(S_D_WijzigLaatsteJuliaanseJaar)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de instelling van de 'wijzig categorieën' optie te bepalen _FUNCBEGI(F_Optie_SelecteerFeitCategorieen) [?_SETAMOU(S_D_SelecteerFeitCategorieen)?]? _BEGI _ELSE [?[&_PREFFACTMISC[?F_Optie_GebruikDialoog==aan?]&]?]? _BEGI _SETADD(S_D_SelecteerFeitCategorieen,[:[:[?_DIALEXP(D_Opties,16)?]aan:]|[&uit&]:]) _ELSE _SETADD(S_D_SelecteerFeitCategorieen,uit) _END _END _SETBEGI(S_D_SelecteerFeitCategorieen)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de waarde van de 'foto-rijen' optie te bepalen _FUNCBEGI(F_Optie_FotoRijen) [?_SETAMOU(S_D_FotoRijen)?]? _BEGI _ELSE [?F_Optie_WijzigFotos==aan?]? _BEGI _SETADD(S_D_FotoRijen,[:[:_DIALEXP(D_Opties_2,1):]|[&0&]:]) _ELSE _SETADD(S_D_FotoRijen,[:F_DialoogOptie_FotoRijen:]) _END _END _SETBEGI(S_D_FotoRijen)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de waarde van de 'rij-breedte' optie te bepalen _FUNCBEGI(F_Optie_FotoRijBreedte) [?_SETAMOU(S_D_FotoRijBreedte)?]? _BEGI _ELSE [?F_Optie_WijzigFotos==aan?]? _BEGI _SETADD(S_D_FotoRijBreedte,[:_DIALEXP(D_Opties_2,2):]) _ELSE _SETADD(S_D_FotoRijBreedte,[:[:F_DialoogOptie_FotoRijBreedte:]|[&0&]:]) _END _END _SETBEGI(S_D_FotoRijBreedte)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de waarde van de 'laatste Juliaanse jaar' optie te bepalen _FUNCBEGI(F_Optie_LaatsteJuliaanseJaar) [?_SETAMOU(S_D_LaatsteJuliaanseJaar)?]? _BEGI _ELSE [?F_Optie_WijzigLaatsteJuliaanseJaar==aan?]? _BEGI _SETADD(S_D_LaatsteJuliaanseJaar,[:_DIALEXP(D_Opties_3,1):]) _ELSE _SETADD(S_D_LaatsteJuliaanseJaar,[:[:F_DialoogOptie_LaatsteJuliaanseJaar:]|[&0&]:]) _END _END _SETBEGI(S_D_LaatsteJuliaanseJaar)_SETSTRI _SETEND _FUNCEND :. ----- Functie om de waarde van de 'titelfoto: persoon' optie te bepalen _FUNCBEGI(F_Optie_TitelFotoPersoon) [?_SETAMOU(S_D_TitelFotoPersoon)?]? _BEGI _ELSE [?F_Optie_TitelFoto==aan?]? _BEGI _SETADD(S_D_TitelFotoPersoon,[:[:_DIALEXP(D_Opties_4,1):]|[&0&]:])