Start
 

Aldfaer

Hét gratis stamboomprogramma

U bent op pagina StartForumSjablonenselectie nakomelingen
.

selectie nakomelingen


  Posten niet toegestaanPage: « < 1 of 1 > »
28 Mrt 2008 - 11:5815
selectie nakomelingen

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 Loer, Windows XP SP2, Alfaer 4.0 Rapport versie 4
http://www.loer.nl/genealogie

28 Mrt 2008 - 13:4023

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
05 Apr 2008 - 10:53622

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 Loer, Windows XP SP2, Alfaer 4.0 Rapport versie 4
http://www.loer.nl/genealogie

05 Apr 2008 - 13:36627

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



__________________
Han
05 Apr 2008 - 18:36645

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 Loer, Windows XP SP2, Alfaer 4.0 Rapport versie 4
http://www.loer.nl/genealogie

05 Apr 2008 - 19:46650

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



06 Apr 2008 - 10:13662

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



__________________
Han
  Posten niet toegestaanPage: « < 1 of 1 > »

© Stichting Aldfaer - ingeschreven bij de KvK Noord-Nederland onder nr. 01096526