Beste mensen,

Is er een mogelijkheid om in Aldfaer om bij het uitdraaien van een kwartierstaat de probant niet het nummer 1 te geven maar een hoger nummer? Is het mogelijk hier een aangepast sjabloon voor te maken?

Ik werk met versie 4.0.4, rapportversie 4.0.4.1

Weliswaas ben ik wel aan het oefenen met sjablonen, maar het is nog even te hoog gegrepen. Ik heb zitten puzzelen, maar helaas tevergeefs.

Is het misschien een idee voor de leden van het Aldfaerteam eens workshops sjablonen maken te geven? Het lijkt me dat daar best wel belangstelling voor is.

Hartelijke groet,
Marja aan 't Goor

Marja,

Doe het volgende:
1. Maak in de map Lib User van de map die opgegeven staat in de Instellingen->Rapporten->Bestanden bij 'Sjablonen en invoegtoepassingen' een gewoon tekstbestand met de naam KwartierstaatHook.asjl aan.

2. Zet daarin de volgende regels, waarbij je in de 7e regel hieronder het getal 6 moet vervangen door het gewenste nummer van de probant.
_FUNCBEGI(_kw_nr)
_GENENUM?
_BEGI
_VARDEF(x_kw_nr)
_VARDEF(probant)
_VARDEF(x_gen_nr)
_VARIN(probant,6)
_VARIN(x_kw_nr,[:_ASCENUM:])
_VARIN(x_gen_nr,[:_GENENUM:])

_VARDEF(teller)
_VARDEF(y_tmp)
_VARIN(teller,x_gen_nr)
_VARSUB(teller,1)
_VARIN(y_tmp,1)
[?_VAROUT(teller)?]?
_BEGI
_LOOPBEGI
_VARMUL(y_tmp,2)
_VARSUB(teller,1)
[?_VAROUT(teller)==?]?
_BEGI
_BRK
_END
_LOOPEND
_END
_VARDEL(teller)

_VARSUB(probant,1)
_VARMUL(y_tmp,probant)
_VARADD(x_kw_nr,y_tmp)
_VAROUT(x_kw_nr)
_VARDEL(y_tmp)
_VARDEL(x_kw_nr)
_VARDEL(probant)
_VARDEL(x_gen_nr)
_END
_FUNCEND

_FUNCBEGI( _ZOEKRELATIE_VG )
_ASCENUM?_BEGI[[:_Txt_Nummer :][:_kw_nr:]]_ELSE:.
_SETDEF( _RESULTS ):.
[:[[&_Txt_Kind[?_ASCENUM_PARENT?]&]|[?_ASCENUM_PARTNER?]|[&_Txt_Schoonkind[?
_ASCENUM_CHILD_IN_LAW?]&]|[&_Txt_Schoonouder[?_ASCENUM_PARENT_IN_LAW?]&]|[&_Txt_Schoonouder[?
_ASCENUM_PARENT_IN_LAW2?]&]|[&_Txt_Getuigebij[?_ASCENUM_WITNESS?]&]|[&_Txt_Getuigebij[?
_ASCENUM_WITNESS2?]&]|[&_Txt_Getuigebij[?_ASCENUM_WITNESS3?]&]|[&_Txt_Getuigebij[?_ASCENUM_WITNESS4?]&]:.
_SETBEGI( _RESULTS )_FIRS([:_LAST([:, ; _Txt_en :]);:])_SETSTRI[::]_SETEND]:]._SPAC:.
_SETDEL(_RESULTS):.
_END:.
_FUNCEND

3. Open met een tekst-editor (b.v. notepad / kladblok) het bestand Voorgeslacht.asjl; dit bestand staat in de map Lib Aldfaer van de map die opgegeven staat in de Instellingen->Rapporten->Bestanden bij 'Sjablonen en invoegtoepassingen'. In dit bestand staat nu als regel 292:
<b>_SETEXP(CurrentKwartiernr, [:_NUMB:], _SETSTRI)
Verander dit in :
<b>[:_kw_nr :]

Het kan zijn dat als je dit gewijzigde bestand wilt opslaan, je een melding krijgt dat dit bestand "read-only" is. Ga in dat geval met de verkenner naar dit bestand, klik op de bestandsnaam met de rechtermuis, kies properties / eigenschappen, en zet het vinkje bij "read-only" uit.

Paul

Dank voor het snelle antwoord, Paul.

Fijne zondag,
Marja aan 't Goor

Marja,

Nog een aanvulling: bovenstaande code kent een beperking; het werkt niet voor personen in generatie 32 of hoger in de oorspronkelijke kwartierstaat.

Paul