Graag wil ik voor mijn website een index maken van alle mannelijke nakomelingen, hun partner en de kinderen uit deze relatie.

Wie helpt mij opweg?

Hans,
ik weet niet hoever je bent met sjablonen.
Als het gaat om een selectie te maken van de mannelijke nakomelingen en hun partners dan heb je hierna een stukje sjabloon wat dat doet. Daarbij worden ook de schoonouders opgenomen. Wil je dat niet dan moet je de regels
_FATH?_BEGI _FATHBEGI _SETADD(X) _FATHEND _END
_MOTH?_BEGI _MOTHBEGI _SETADD(X) _MOTHEND _END
niet toepassen. Het lijstje kun je vervolgens naar eigen goeddunken wijzigen.

_SETDEF(X)
_SETFILL(X,_DESC,_MALE)
_SETBEGI(X)
[:_S_VUL_PARTNER_EN_SCHOONOUDERS:]
_SETEND
_FUNCBEGI(_S_VUL_PARTNER_EN_SCHOONOUDERS)
_RELA?_BEGI _RELABEGI _SETADD(X)
_FATH?_BEGI _FATHBEGI _SETADD(X) _FATHEND _END
_MOTH?_BEGI _MOTHBEGI _SETADD(X) _MOTHEND _END
_RELAEND _END
_FUNCEND
_SETSORT(X,_SURN,_NAMEFIRS,_BIRTDATE)
_SETBEGI(X)
_DESCNUM _SURN _NAMEFIRS ;
_SETEND

Han,

Bij nader inzien wil ik eigenlijk een index met alle "naamdragers" en van de mannen ook de partners. De naam stopt immers (meestal) bij de vrouwen. Waar ik dus nog niet uit ben hoe ik de kinderen van een vrouw in de index krijg als de vrouw geen relatie heeft maar wel een kind met haar achternaam heeft. Onderstaande code heb ik ervan gemaakt.

Hans.

_SETDEF(personenlijst)
_SETFILL(personenlijst, _DESC, _MALE)
_SETBEGI(personenlijst)
[:_S_VUL_PARTNER_EN_KINDEREN:]
_SETEND

_FUNCBEGI(_S_VUL_PARTNER_EN_KINDEREN)
_RELA?_BEGI
_RELABEGI
_SETADD(personenlijst)
_CHIL?_BEGI _CHILBEGI _SETADD(personenlijst)
_CHILEND _END
_RELAEND
_END
_FUNCEND

_SETSORT(personenlijst, _SURN, _NAMEFIRS, _BIRTDATE)

Hans, de simpele Tag _DESC houdt al in dat alle nakomelingen geselecteerd worden.
Volgnes mij dus :
_SETDEF(personenlijst)
_SETDEF(TMP_CHIL)
_SETFILL(personenlijst, _DESC)
_SETBEGI(personenlijst)
[:_S_VUL_PARTNER:]
_SETEND

_FUNCBEGI(_S_VUL_PARTNER)
_RELA?_BEGI
_RELABEGI
_SETADD(personenlijst)
_RELAEND
_END
_FUNCEND

Met _DESC krijg je alle nakomelingen. Dus ook de kinderen van de vrouwlijke nakomelingen (en hun kinderen, etc.). Deze hebben echter in 99% van de gevallen een andere achternaam en staan dus verder van de familie af. Deze wil ik dus juist niet in de index.

Hans,

Bedoel je het onderstaande? Hierbij wordt een desc_set_naamdrager opgebouwd waarbij een lijn stopt zodra de achternaam niet meer overeenkomt met de achternaam van de hoofdpersoon. Daarna worden aan deze set nog de partners van de mannelijke personen in deze set toegevoegd. Je krijgt zo ook de kinderen in de index met de achternaam van hun moeder, overigens ongeacht of deze een relatie heeft.

Paul

_FILEMODE( "html", "ifNewer" )
_FILENAME( "naamdrager.html" )

_SETDEF(achternaam)
_SETADD(achternaam,[:_SURN:])

_SETDEF(achternaam_tmp)

_SETDEF(desc_set_naamdrager)
_SETFILL(desc_set_naamdrager, _DESC, Naamdrager)

_FUNCBEGI(Naamdrager)
_SETCLR(achternaam_tmp)
_SETADD(achternaam_tmp,[:_SURN:])
[?_SETEXP(achternaam,1,_SETSTRI) == _SETEXP(achternaam_tmp,1,_SETSTRI)?]? _BEGI opnemen _END
_FUNCEND

_SETDEF(desc_set_naamdrager_plus_partners_van_mannen)
_SETBEGI(desc_set_naamdrager)
_SETADD(desc_set_naamdrager_plus_partners_van_mannen)
[&[:_RELA:] [:_MALE:]&]?
_BEGI
_RELABEGI
_SETADD(desc_set_naamdrager_plus_partners_van_mannen)
_RELAEND
_END
_SETEND

_WRITBEGI
_SETSORT(desc_set_naamdrager_plus_partners_van_mannen,_SURN,_NAMEFIRS,_BIRTDATE)
_SETBEGI(desc_set_naamdrager_plus_partners_van_mannen)
_DESCNUM _SURN, _NAMEFIRS[:, _NAMEPREF:]<br>
_SETEND
_WRITEND

Oei, het was eens zover dat ik, net op het punt om af te sluiten, vlug reageerde. Te vlug want de vraag was niet goed gelezen.

Hierbij een variant op wat Paul heeft gegeven waarbij rekening wordt gehouden met de nieuwste Tag (alleen vanaf 3.6 en hoger) _NAMESORT. Je hebt immers vaak in een stamboom dat de naam in de loop der tijd iets wijzigt.

Een select op _NAMESORT is mij nog niet gelukt, vandaar iets meer code.
Han

_SETDEF(SORTNAME)
_SETADD(SORTNAME)
_SETDEF(personenlijst)
_SETFILL(personenlijst, _DESC )
_SETBEGI(personenlijst)
[:[?_SURN==_SETEXP(SORTNAME,1,_SURN)?][?_NAMESORT==_SETEXP(SORTNAME,1,_SURN)?]:]?
_BEGI [:_S_VUL_PARTNER_MAN:]
_ELSE _SETSUB(personenlijst)
_END
_SETEND

_FUNCBEGI(_S_VUL_PARTNER_MAN)
_MALE?_BEGI _RELA?_BEGI
_RELABEGI
_SETADD(personenlijst)
_RELAEND
_END _END
_FUNCEND

_SETSORT(personenlijst, _SURN, _NAMEFIRS, _BIRTDATE)

_SETBEGI(personenlijst)
_DESCNUM _SURN _NAMEFIRS
_SETEND