%#ConTeXt
%
% Stand: 2006-09-15
%
%
    \enableregime[windows]  
	\enableregime[mac]         
    \mainlanguage[de]               
    \setupencoding[default=texnansi]
%
    \setuppapersize[a4][a4]
%
	\startencoding[default]
	\definecharacter nmacron {\buildtextaccent\textmacron n}
	\definecharacter mmacron {\buildtextaccent\textmacron m}
	\stopencoding
%
%
% -------- Macros aus: envFamMiUrkunden.tex
%
	\def\gebR{{\bf Geburtsregister~}}
	\def\heiR{{\bf Heiratsregister~}}
	\def\totR{{\bf Sterberegister~}}
%
%
    \global\def\refPers{\futurelet\testchar\MitOptArgrefPers}
    %
    \def\MitOptArgrefPers{\ifx[\testchar%
     \let\next\OptArgrefPers \else %
     \let\next \NoOptArgrefPers \fi \next}
    %
	
   %
    \def\OptArgrefPers[#1]#2{%
	   \ifnum\number #1=0{vgl.        \about[#2] s.S. \at[#2]}\fi
	   \ifnum\number #1=1{Partner von \about[#2] s.S. \at[#2]}\fi
       \ifnum\number #1=2{Vater von   \about[#2] s.S. \at[#2]}\fi
	   \ifnum\number #1=3{Mutter von  \about[#2] s.S. \at[#2]}\fi
	   \ifnum\number #1=4{Bruder von   \about[#2] s.S. \at[#2]}\fi
	   \ifnum\number #1=5{Schwester von  \about[#2] s.S. \at[#2]}\fi
   }	
    %
    \def\NoOptArgrefPers#1{%
		\about[#1] s.S. \at[#1]
%		\myRef{#1}
    }
%
%
% Zur TeX-"Datenbank"
%
% Hilfe von:  Mojca Miklavec, Peter Münster, Hans Hagen, Taco Hoekwater, Aditya Mahajan
%
%
% Aufbau der DB und Macros für den Zugriff auf die Datensätze und -felder.
%
%
   \def\PID{\dodoubleempty\doPID}
   \def\doPID[#1][#2]{\getparameters[PID#1][#2]}
   
   \def\doGetPID#1#2{\getvalue{PID#2#1}}
%
%	Familienname, Vorname (#)
   \def\getPID#1{\doGetPID{Fam}{#1}, \doGetPID{Vor}{#1}~(#1)}
   \def\titPID#1{{\it\doGetPID{Fam}{#1}, \doGetPID{Vor}{#1}~(#1)}}
%
%	Vornamen Familiennamen
   \def\getNamen#1{\doGetPID{Vor}{#1}~\doGetPID{Fam}{#1}}
   \def\titNamen#1{{\it\doGetPID{Vor}{#1}~\doGetPID{Fam}{#1}}}
%
%	Vornamen Familiennamen (#)
   \def\getNameN#1{\doGetPID{Vor}{#1}~\doGetPID{Fam}{#1}~(#1)}
   \def\titNameN#1{{\it\doGetPID{Vor}{#1}~\doGetPID{Fam}{#1}~(#1)}}
%
%
%  
%	Vereinfachung für Überschriften
   \def\getPIDGeb#1{\doGetPID{Fam}{#1}, \doGetPID{Vor}{#1}~(#1) -- Geburt}
   \def\getPIDHei#1{\doGetPID{Fam}{#1}, \doGetPID{Vor}{#1}~(#1) -- Heirat}
   \def\getPIDTod#1{\doGetPID{Fam}{#1}, \doGetPID{Vor}{#1}~(#1) -- Tod}
%
%	Einzeldaten
   \def\getFamilie#1{\doGetPID{Fam}{#1}}	% Familiennamen
   \def\titFamilie#1{{\it\doGetPID{Fam}{#1}}}
   \def\getExakt#1{\doGetPID{Nam}{#1}}		% Geburtsname (exakte Schreibweise)
   \def\titExakt#1{{\it\doGetPID{Nam}{#1}}}
   \def\getVor#1{\doGetPID{Vor}{#1}}		% Vorname(n)
   \def\titVor#1{{\it\doGetPID{Vor}{#1}}}
   \def\getRuf#1{\doGetPID{Ruf}{#1}}		% Rufnamen
   \def\titRuf#1{{\it\doGetPID{Ruf}{#1}}}
%  
   \def\getGeburt#1{\doGetPID{Geb}{#1}}		% Geburtsdatum
   \def\getGebOrt#1{\doGetPID{GebOrt}{#1}}	% Geburtsort
   \def\getGebZeit#1{\doGetPID{GebZeit}{#1}}% Geburtszeit
   \def\getKonf#1{\doGetPID{Konf}{#1}}		% Konfession
   \def\getTaufe#1{\doGetPID{Tau}{#1}}		% Taufdatum
   \def\getTauOrt#1{\doGetPID{TauOrt}{#1}}	% Taufort
   \def\getPateA#1{\doGetPID{Pate1}{#1}}	% 1. Taufpate
   \def\getPateB#1{\doGetPID{Pate2}{#1}}	% 2. Taufpate
   \def\getPateC#1{\doGetPID{Pate3}{#1}}	% 3. Taufpate
   \def\getKonfi#1{\doGetPID{Konfi}{#1}}	% Datum der Konfirmation
   \def\getKonfiOrt#1{\doGetPID{KonfiOrt}{#1}}	% Ort der Konfirmation
   \def\getKommu#1{\doGetPID{Kommu}{#1}}		% Datum der Kommunion
   \def\getKommuOrt#1{\doGetPID{KommuOrt}{#1}}	% Ort der Kommunion

   \def\getHeirat#1{\doGetPID{Hei}{#1}}			% kirchliche Heirat
   \def\getHeiratOrt#1{\doGetPID{HeiOrt}{#1}}	% Ort der kirchlichen Heirat
   \def\getAmt#1{\doGetPID{Amt}{#1}}		% standesamtliche Heirat
   \def\getAmtOrt#1{\doGetPID{AmtOrt}{#1}}	% Ort der standesamtlichen Heirat
   \def\getTod#1{\doGetPID{Tod}{#1}}		% Sterbedatum
   \def\getTodOrt#1{\doGetPID{TodOrt}{#1}}	% Sterbeort
   \def\getTodZeit#1{\doGetPID{TodZeit}{#1}}% Sterbezeit
   \def\getAlter#1{\doGetPID{Alt}{#1}}		% Alter bei Tod
   \def\getUrsache#1{\doGetPID{Urs}{#1}}	% Ursache des Todes
   \def\getGrab#1{\doGetPID{Grab}{#1}}		% Datum des Begräbnisses
   \def\getGrabOrt#1{\doGetPID{GrabOrt}{#1}}% Ort des Begräbnisses
   \def\getBeruf#1{\doGetPID{Ber}{#1}}		% Beruf
   \def\getZusatz#1{\doGetPID{Zus}{#1}}		% Zusatzinformation 
%
	\def\UrkGebKi#1{\doGetPID{UGebKi}{#1}}	% Geburtsurkunde Kirche
	\def\UrkGebAmt#1{\doGetPID{UGebAmt}{#1}}% Geburtsurkunde Standesamt
	\def\UrkTaufe#1{\doGetPID{UTaufe}{#1}}	% Taufurkunde Kirche
	\def\UrkKonfi#1{\doGetPID{UKonfi}{#1}}	% Konfirmationsurkunde
	\def\UrkKommu#1{\doGetPID{UKommu}{#1}}	% Kommunionsurkunde
	\def\UrkHeiKi#1{\doGetPID{UHeiKi}{#1}}	% Heiratsurkunde Kirche
	\def\UrkHeiAmt#1{\doGetPID{UHeiAmt}{#1}}% Heiratsurkunde Standesamt
	\def\UrkTodKi#1{\doGetPID{UTodKi}{#1}}	% Sterbeurkunde Kirche
	\def\UrkTodAmt#1{\doGetPID{UTodAmt}{#1}}% Sterbeurkunde Standesamt
%
	\def\Scheidung#1{\doGetPID{Scheidung}{#1}}		% Scheidung vom 1. LebensPartner
%
	\def\Partner#1{\doGetPID{Partner}{#1}}		% 1. LebensPartner
	\def\PartnerB#1{\doGetPID{Partner2}{#1}}	% 2. LebensPartner
	\def\PartnerC#1{\doGetPID{Partner3}{#1}}	% 3. LebensPartner
%
	\def\Kinder#1{\doGetPID{Kinder}{#1}}	% Zahl der Kinder
	\def\KindA#1{\doGetPID{Kind1}{#1}}		% 1. Kinder
	\def\KindB#1{\doGetPID{Kind2}{#1}}		% 2. Kinder
	\def\KindC#1{\doGetPID{Kind3}{#1}}		% 3. Kinder
	\def\KindD#1{\doGetPID{Kind4}{#1}}		% 4. Kinder
	\def\KindE#1{\doGetPID{Kind5}{#1}}		% 5. Kinder
%
	\def\Vater#1{\doGetPID{Vater}{#1}}		% Vater
	\def\Mutter#1{\doGetPID{Mutter}{#1}}	% Mutter
%
	\def\Geschw#1{\doGetPID{Geschw}{#1}}	% Zahl der Geschwister
	\def\GeschwA#1{\doGetPID{Geschw1}{#1}}	% 1. Bruder/Schwester
	\def\GeschwB#1{\doGetPID{Geschw2}{#1}}	% 1. Bruder/Schwester
	\def\GeschwC#1{\doGetPID{Geschw3}{#1}}	% 1. Bruder/Schwester
	\def\GeschwD#1{\doGetPID{Geschw4}{#1}}	% 1. Bruder/Schwester
	\def\GeschwE#1{\doGetPID{Geschw5}{#1}}	% 1. Bruder/Schwester
%
% Ende der Spezialmacros  
%
% Macros für die tabellarische Ausgabe 
%
% Start / Stop der Tabelle
%
\def\StartPersDatTab{%
\start 
%\SetTableToWidth{\textwidth}
\starttables[|lw(10mm)a{:}|lp(0.8\textwidth)|]
}
%
%\def\StopPersDatTab{\NC\use{2}\ReFormat[l]{}\NC\LR\stoptables\stop}
\def\StopPersDatTab{\stoptables\stop}
%
%
% Der FamilienNamen in der Tabelle
% Grundsätzlich hat jede Person einen Familiennamen, geprüft wird,
% ob eine andere Schreibweise vorliegt, die, wenn definiert, in 
% in Klammern ausgegeben wird.
%
\def\FamNamenInTab#1#2{%
	\NC {\bf Name}\NC {\tfa\doGetPID{Fam}{#1}}%
	\doifdefined{PID#1Nam}%
	{~({\it\doGetPID{Nam}{#1}})}%
	% wenn 2. Parameter definiert wird, gebe den Familiennamen nach Heirat aus
	% gilt i.d.R. für die Frauen
	% z.Z. kann zwischen dem 1. und 2. Partner gewählt werden
	\doifelsenothing{#2}{}
	{
	\ifnum\number #2=1{~~~~~verh. {\tfa\it\doGetPID{Fam}{\doGetPID{Partner}{#1}}}}\fi
	\ifnum\number #2=2{~~~~~verh. {\it\doGetPID{Fam}{\doGetPID{Partner#2}{#1}}}}\fi
% 	~~~~~verh. {\it\doGetPID{Fam}{\doGetPID{Partner}{#1}}}
	}
%\NC\FR %\NC\AR
\NC\AR
}
%
%
% Die Vorname(n) in der Tabelle
% werden grundsätzlich ausgegeben.
%
\def\VorNamenInTab#1#2{\NC Vorname(n)\NC  \doGetPID{Vor}{#1}\NC\AR}
%
%
% Der Rufnamen in der Tabelle
% wird nur dann ausgegeben, wenn definiert!
%
\def\RufNamenInTab#1#2{%
	\doifdefined{PID#1Ruf}%
	{\NC Rufname   \NC  \doGetPID{Ruf}{#1}\NC\AR}
}
%
%
% Die Zusatzinformation in der Tabelle
% wird nur dann ausgegeben, wenn definiert!
%
\def\ZusatzInTab#1#2{%
	\doifdefined{PID#1Zus}%
{\NC{\bf  Zusatz} \NC \doGetPID{Zus}{#1}\NC\AR}
}
%
%
% Geburtsinformationen in der Tabelle
%
\def\GeburtInTab#1#2{%
%
% prüfe, ob eine Standesamtsurkunde vorliegt, wenn nein, dann prüfe, ob eine
% Kirchenurkunde angegeben ist. Wenn keine Urkunde dann: "keine Urkunde"
\NC {\bf Geburt}\NC 
\doifdefinedelse{PID#1UGebAmt}{\doGetPID{UGebAmt}{#1}}
{\doifdefinedelse{PID#1UGebKi}{\doGetPID{UGebKi}{#1}}
{{\it keine Urkunde}}
}
\NC\AR 
%
%
% wenn Geburtsdatum nicht definiert, dann Hinweis auf das Taufdatum
% wenn Geburtsdatum definiert und leer, dann Ausgabe: "unbekannt"
%
\NC Datum\NC
\doifdefinedelse{PID#1Geb}
{\doifelsenothing{\doGetPID{Geb}{#1}}{unbekannt}{\doGetPID{Geb}{#1}}}
{k.A. -- siehe Taufe}
\NC\AR
%
% % wenn Geburtsort definiert wird er gundsätzlich augegeben
% %
% \doifdefined{PID#1GebOrt}{\NC Ort\NC  \doGetPID{GebOrt}{#1} \NC\AR}
%
% nur wenn das Geburtsdatum definiert ist, wird zunächst geprüft,
% 1. ob der Geburtsort vorliegt
% 2. ob eine Geburtszeit vorliegt
\doifdefined{PID#1Geb}
{\NC Ort\NC 
\doifdefinedelse{PID#1GebOrt}{\doGetPID{GebOrt}{#1}}{?}
\NC\AR
%
\NC Zeit\NC 
\doifdefinedelse{PID#1GebZeit}{ \doGetPID{GebZeit}{#1} } {k.A.}
\NC\AR }
%
}
%
% Die Konfession
% sollte grundsätzlich definiert sein
%
\def\KonfessionInTab#1#2{\NC Konfession\NC \doGetPID{Konf}{#1} \NC\AR}
%
%
% alles über die Taufe
\def\TaufeInTab#1#2{
%
% wenn Taufdatum nicht definiert, gebe aus: k.A.
%
\doifundefinedelse{PID#1Tau}
{\NC {\bf Taufe}\NC k.A. \NC\AR}
{
%
%  1. Taufurkunde oder die kirchl. Geburtsurkunde
% püfe zunächst, ob eine Taufurkunde vorliegt, wenn nein, prüfe,
% ob eine Geburtsurkunde der Kirche vorliegt, sonst: keine Urkunden
%
\NC {\bf Taufe}\NC 
\doifdefinedelse{PID#1UTaufe}{\doGetPID{UTaufe}{#1}}
{\doifdefinedelse{PID#1UGebKi}{\doGetPID{UGebKi}{#1}}{{\it keine Urkunde}} }
\NC\AR
%
%
% 2. Datum, wenn leer, dann ?
\NC Datum\NC \doifelsenothing{\doGetPID{Tau}{#1}}{unbekannt}{\doGetPID{Tau}{#1}}\NC\AR
% 3. Ort, wenn leer, dann ?
\NC Ort  \NC \doifelsenothing{\doGetPID{TauOrt}{#1}}{?}{\doGetPID{TauOrt}{#1}}\NC\AR
% 4. Die Paten z.Z. bis drei
\doifdefined{PID#1Pate1}{\NC Pate\NC  \doGetPID{Pate1}{#1}\NC\AR}
\doifdefined{PID#1Pate2}{\NC Pate\NC  \doGetPID{Pate2}{#1}\NC\AR}
\doifdefined{PID#1Pate3}{\NC Pate\NC  \doGetPID{Pate3}{#1}\NC\AR}
}
}
%
%
% zur Konfirmation
\def\KonfirmationInTab#1#2{
\doifdefined{PID#1Konfi}{
%
\NC {\bf Konfirmation}\NC  \doGetPID{UKonfi}{#1} \NC\AR   % \UrkKonfi{\Pers}
%
\NC Datum\NC \doGetPID{Konfi}{#1} \NC\AR
%
\NC Ort\NC  \doGetPID{KonfiOrt}{#1} \NC\AR
%
}
}
%
%
%
% zur Kommunion
\def\KommunionInTab#1#2{
\doifdefined{PID#1Kommu}{
%
\NC {\bf Kommunion}\NC  \doGetPID{UKommu}{#1} \NC\AR   % \UrkKonfi{\Pers}
%
\NC Datum\NC \doGetPID{Kommu}{#1} \NC\AR
%
\NC Ort\NC  \doGetPID{KommuOrt}{#1} \NC\AR
%
}
}
%
%
% Heirat Kirche
\def\HeiratKircheInTab#1#2{
\doifdefinedelse{PID#1Hei}{
\NC {\bf Heirat} Kirche \NC
\doifdefinedelse{PID#1UHeiKi} {\doGetPID{UHeiKi}{#1}} {{\it keine Urkunde}}
\NC\AR
%
% \doifelsenothing{\doGetPID{Tau}{#1}}{unbekannt}{\doGetPID{Tau}{#1}}
\NC Datum\NC 
%%\doGetPID{Hei}{#1} 
\doifelsenothing{\doGetPID{Hei}{#1}}{unbekannt}{\doGetPID{Hei}{#1}}
\NC\AR
\NC Ort\NC 
%%\doGetPID{HeiOrt}{#1} 
\doifelsenothing{\doGetPID{HeiOrt}{#1}}{?}{\doGetPID{HeiOrt}{#1}}
\NC\AR}
{\doifundefined{PID#1Amt}{\NC {\bf Heirat} \NC {\it unverheiratet} \NC\AR}
}
}
%
%
% Heirat Standesamt
\def\HeiratAmtInTab#1#2{
\doifdefined{PID#1Amt}{
\NC {\bf Heirat} Standesamt\NC
\doifdefinedelse{PID#1UHeiAmt} {\doGetPID{UHeiAmt}{#1}} {{\it keine Urkunde}}
\NC\AR
%
\NC Datum \NC 
%%\doGetPID{Amt}{#1}    
\doifelsenothing{\doGetPID{Amt}{#1}}{unbekannt}{\doGetPID{Amt}{#1}}
\NC\AR
\NC Ort   \NC 
%%\doGetPID{AmtOrt}{#1} 
\doifelsenothing{\doGetPID{AmtOrt}{#1}}{?}{\doGetPID{AmtOrt}{#1}}
\NC\AR}
}
%
%
% der erste Lebenspartner
\def\PartnerInTab#1#2{
\doifdefined{PID#1Partner}{
\NC 
\doifdefinedelse{PID#1Partner2}{Partner 1}{Partner}
\NC 
\doifelsenothing{#2}{\refPers{PID\doGetPID{Partner}{#1}dat}}
{
\ifnum\number #2=0{NN (\doGetPID{Partner}{#1})}\fi
\ifnum\number #2=1{\getPID{\doGetPID{Partner}{#1}}}\fi
}
\NC\AR}
}
%
%
% Scheidung vom 1. Partner
% wenn definiert Scheidung
% suche zunächst nach dem Beleg (UScheidung)
% gebe dann das Datum aus (Scheidung)
\def\ScheidungInTab#1#2{
	\doifdefined{PID#1Scheidung}{
	\NC {\bf Scheidung} \NC  
	\doifdefinedelse{PID#1UScheidung} {\doGetPID{UScheidung}{#1}} {{\it keine Urkunde}}
	\NC\AR
	%
	\NC Datum \NC \doGetPID{Scheidung}{#1} \NC\AR
	}
}
%
%
% die weiteren Lebenspartner
\def\DiePartnerInTab#1#2{
\doifdefined{PID#1Partner2}{
\NC Partner 2
\NC
\doifelsenothing{#2}{\refPers{PID\doGetPID{Partner2}{#1}dat}}
{
\ifnum\number #2=0{NN (\doGetPID{Partner2}{#1})}\fi

\ifnum\number #2=1{\getPID{\doGetPID{Partner2}{#1}}}\fi
}
\NC\AR}
\doifdefined{PID#1Partner3}{
\NC Partner 3
\NC
\doifelsenothing{#2}{\refPers{PID\doGetPID{Partner3}{#1}dat}}
{
\ifnum\number #2=0{NN (\doGetPID{Partner3}{#1})}\fi

\ifnum\number #2=1{\getPID{\doGetPID{Partner3}{#1}}}\fi
}
\NC\AR}
}
%
%
% Die Sterbedaten
% gebe Sterbedaten nur dann aus, wenn Person verstorben, 
% d.h. Sterbedatum ist definiert -- entweder Datum oder leer für unbekannt
%
\def\SterbeDatenInTab#1#2{
	% 
	\doifdefined{PID#1Tod}{
	\NC {\bf Tod}\NC
	% prüfe, ob Standesamtsurkunde, wenn nein prüfe ob Kirchenurkunde,
	% wenn nein, dann: "keine Urkunde"
	\doifdefinedelse{PID#1UTodAmt}{\doGetPID{UTodAmt}{#1}}
	{\doifdefinedelse{PID#1UTodKi}{\doGetPID{UTodKi}{#1}}
	{{\it keine Urkunde}}
	}
	\NC\AR 
	%
	\NC Datum \NC
	% wenn definiert und leer: unbekannt, sonst Sterbedatum
	\doifelsenothing{\doGetPID{Tod}{#1}}{unbekannt}{\doGetPID{Tod}{#1}}
	\NC\AR 
	%
	\NC Ort \NC
	% wenn nicht definiert Ausgabe "?"
	\doifdefinedelse{PID#1TodOrt}{\doGetPID{TodOrt}{#1}}{?}
	\NC\AR 
	%
	\NC Zeit \NC
	% wenn definiert Ausgabe: Sterbezeit, sonst "k.A."
	\doifdefinedelse{PID#1TodZeit}{\doGetPID{TodZeit}{#1}}{k.A.}
	\NC\AR
	%
	\NC Alter\NC
	% wenn definiert und nicht leer Ausgabe: Alter
	% wenn nicht definiert oder leer Ausgabe: "?"
	\doifdefinedelse{PID#1Alt}
	{\doifelsenothing{\doGetPID{Alt}{#1}}{?}{\doGetPID{Alt}{#1}}}
	{?}
	%
	\NC\AR
	%
	\NC Ursache \NC
	% wenn definiert und nicht leer Ausgabe: Ursache
	% wenn definiert und leer Ausgabe: ?
	% wenn nicht definiert Ausgabe: "k.A."
	\doifdefinedelse{PID#1Urs}
	{\doifelsenothing{\doGetPID{Urs}{#1}}{?}{\doGetPID{Urs}{#1}}}
	{k.A.}
	\NC\AR
	%
	}
}
%
%
%
% die Beerdigung
% Daten werden nur dann ausgegeben, wenn Person auch verstorben ist
%
\def\GrabInTab#1#2{
	\doifdefined{PID#1Tod}{
	\NC {\bf begraben}\NC
	% prüfe, ob Kirchenurkunde vorliegt.
	% wenn ja und nicht leer dann gebe Kirchendokument an
	% wenn ja und leer Ausgabe: "?"
	% wenn nein, dann Ausgabe: "keine Urkunde"
	\doifdefinedelse{PID#1UTodKi}
		{\doifelsenothing{\doGetPID{UTodKi}{#1}}{?}{\doGetPID{UTodKi}{#1}}} 
		{{\it keine Urkunde}}
	\NC\AR	
	%
	\NC Datum\NC 
	\doifdefinedelse{PID#1Grab}
		{\doifelsenothing{\doGetPID{Grab}{#1}}{unbekannt}{\doGetPID{Grab}{#1}}} {unbekannt}
	\NC\AR
	%
	\NC Ort  \NC
	\doifdefinedelse{PID#1GrabOrt}
		{\doifelsenothing{\doGetPID{GrabOrt}{#1}}{?}{\doGetPID{GrabOrt}{#1}}} {?}
	\NC\AR
	%	
	}
}
%
%
%
% der Beruf
\def\BerufInTab#1#2{
	\NC {\bf Beruf}\NC 
	\doifdefinedelse{PID#1Ber}
		{\doifelsenothing{\doGetPID{Ber}{#1}}{k.A.}{\doGetPID{Ber}{#1}}} {k.A.}
	\NC\AR	
}
%
%
% die Kinder
\def\KinderInTab#1#2{
	\NC {\bf Kinder}\NC 
	\doifdefinedelse{PID#1Kinder}
		{\doifelsenothing{\doGetPID{Kinder}{#1}}{?}{\doGetPID{Kinder}{#1}}} {keine}
	\NC\AR
	%
	% und nun die Kinder 1 bis 5 in einzelnen Schritten
	%
	\doifdefined{PID#1Kind1}{
	\NC 1 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Kind1}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Kind1}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Kind1}{#1}}}\fi
	}
	\NC\AR}
	%
	\doifdefined{PID#1Kind2}{
	\NC 2 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Kind2}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Kind2}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Kind2}{#1}}}\fi
	}
	\NC\AR}
	%
	\doifdefined{PID#1Kind3}{
	\NC 3 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Kind3}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Kind3}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Kind3}{#1}}}\fi
	}
	\NC\AR}
	%
	\doifdefined{PID#1Kind4}{
	\NC 4 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Kind4}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Kind4}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Kind4}{#1}}}\fi
	}
	\NC\AR}
	%
	\doifdefined{PID#1Kind5}{
	\NC 1 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Kind5}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Kind5}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Kind5}{#1}}}\fi
	}
	\NC\AR}
	%
}
%
% der Vater
\def\VaterInTab#1#2{
	\NC {\bf Vater}\NC 
	\doifdefinedelse{PID#1Vater}
		{\doifelsenothing{\doGetPID{Vater}{#1}}{NN}
			{
				\doifelsenothing{#2}{\refPers{PID\doGetPID{Vater}{#1}dat}}
				{
				\ifnum\number #2=0{NN (\doGetPID{Vater}{#1})}\fi
				\ifnum\number #2=1{\getPID{\doGetPID{Vater}{#1}}}\fi
				}
			}
		} 
		{NN}
	\NC\AR
}
%
%
% die Mutter
\def\MutterInTab#1#2{
	\NC {\bf Mutter}\NC 
	\doifdefinedelse{PID#1Mutter}
		{\doifelsenothing{\doGetPID{Mutter}{#1}}{NN}
			{
				\doifelsenothing{#2}{\refPers{PID\doGetPID{Mutter}{#1}dat}}
				{
				\ifnum\number #2=0{NN (\doGetPID{Mutter}{#1})}\fi
				\ifnum\number #2=1{\getPID{\doGetPID{Mutter}{#1}}}\fi
				}
			}
		} 
		{NN}
	\NC\AR
}
%
%
%
% die Geschwister
\def\GeschwisterInTab#1#2{
	\NC {\bf Geschwister}\NC 
	\doifdefinedelse{PID#1Geschw}
		{\doifelsenothing{\doGetPID{Geschw}{#1}}{?}{\doGetPID{Geschw}{#1}}} {keine}
	\NC\LR  %%%<<< \AR
	%
	%
	% und nun die Geschwister 1 bis 5 in einzelnen Schritten
	%
	\doifdefined{PID#1Geschw1}{
	\NC 1 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Geschw1}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Geschw1}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Geschw1}{#1}}}\fi
	}
	\NC\LR}  %%%<<< \AR
	%
	%
	\doifdefined{PID#1Geschw2}{
	\NC 2 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Geschw2}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Geschw2}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Geschw2}{#1}}}\fi
	}
	\NC\AR}
	%
	%
	\doifdefined{PID#1Geschw3}{
	\NC 3 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Geschw3}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Geschw3}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Geschw3}{#1}}}\fi
	}
	\NC\AR}
	%
	%
	\doifdefined{PID#1Geschw4}{
	\NC 4 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Geschw4}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Geschw4}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Geschw4}{#1}}}\fi
	}
	\NC\AR}
	%
	%
	\doifdefined{PID#1Geschw5}{
	\NC 5 \NC
	\doifelsenothing{#2}{\refPers{PID\doGetPID{Geschw5}{#1}dat}}
	{
	\ifnum\number #2=0{NN (\doGetPID{Geschw5}{#1})}\fi

	\ifnum\number #2=1{\getPID{\doGetPID{Geschw5}{#1}}}\fi
	}
	\NC\AR}
	%
}
%
% -----------Datensätze aus MilitzerConTeXtDB.tex
%
 \PID[134]
	[Fam=Rudolph,
	Nam=R\u{u}dolph,
	Vor=Johann Heinrich,
% 	Ruf=,
%
	Geb=5. Dezember 1771,
	GebOrt=Oberkoskau (Obermühle),
	GebZeit=2.00\,Uhr (nachts um 2 Uhr),
%
	Konf=ev-luth,
	Tau=8. Dezember 1771,
	TauOrt=Unterkoskau,
	Pate1=Johann Heinrich Heyner\textcomma\ Ha\u{u}swirth und Einwohner z\u{u} Oberkoskau,
	Pate2=Joh. Georg Pitschern\textcomma\ Ha\u{u}swirth \u{u}nd Einwohner allhier,
	Pate3=Mgr. Elisabeth \dots\textcomma\ Joh. Nicol \dots\textcomma\ 
		des B\u{u}klischmüllers Eheweib,
%
	Hei=13. Mai 1794,
	HeiOrt=Unterkoskau,
	Partner=135,
% 	Partner2=,
%
	Tod=18. Juni 1818,
	TodOrt=Oberkoskau,
	TodZeit=5.00\,Uhr (früh um 5 Uhr),
	Alt=46 Jahre\textcomma\ 6 Monate\textcomma\ 1 Woche\textcomma\ 5 Tage,
	Urs=k.A.,
	Grab=20. Juni 1818,
	GrabOrt=Unterkoskau,
%
	Ber=Müller -- Besitzer der Obermühle,
% 	Zus=,
%
	Geschw=1?,
	Geschw1=134a,
% 	Geschw2=,
% 	Geschw3=,
%  	Geschw4=,
% 	Geschw5=,
%
	Kinder=1,
	Kind1=67,
% 	Kind2=,
% 	Kind3=,
% 	Kind4=,
%  	Kind5=,
%
	Vater=268,
	Mutter=269,
%
	UGebKi=\gebR 1771 Pfarramt Unterkoskau S. 196 Nr. 13,
	UHeiKi=\heiR 1794 Pfarramt Unterkoskau S. 98,
	UTodKi=\totR 1818 Pfarramt Unterkoskau Nr. 5
	]
% 
%
 \PID[135]		% ist eigentlich 133a
	[Fam=Simson,
% 	Nam=Simson,
	Vor= Ha\nmacron a Christiana Sophia,
% 	Ruf=,
%
	Geb=3. Oktober 1772,
	GebOrt=Unterkoskau,
	GebZeit=17.00\,Uhr (abends um 5 Uhr),
%
	Konf=ev-luth,
	Tau=5. Oktober 1772,
	TauOrt=Unterkoskau,
	Pate1=Joh. Georg Mielizer jun. des \u{u}nteren Schlagmüllers einziger Sohn,
	Pate2=Jfr. Maria Christiana Bechertin\textcomma\ Joh. Friedrich Becherts älteste Tochter,
	Pate3=Hanna Sophia Tittelin\textcomma\ Adam Tittels allhier 2\,te Tochter,
%
	Hei=\getHeirat{134},
	HeiOrt=\getHeiratOrt{134},
	Partner=134,
%
	Tod=10. März 1858,
	TodOrt=Oberkoskau,
	TodZeit=17.00\,Uhr (nachmittags um 5 Uhr),
	Alt=85 Jahre\textcomma\ 5 Monate\textcomma\ 7 Tage,
	Urs=Altersschwäche,
	Grab=13. März 1858,
	GrabOrt=Unterkoskau,
%
% 	Ber=,
% 	Zus=,
%
	Geschw=1,
	Geschw1=133,
% 	Geschw2=,
% 	Geschw3=,
%  	Geschw4=,
% 	Geschw5=,
%
	Kinder=1,
	Kind1=67,
% 	Kind2=,
% 	Kind3=,
% 	Kind4=,
%  	Kind5=,
%
	Vater=266,
	Mutter=267,
%
	UGebKi=\gebR 1772 Pfarramt Unterkoskau S. 200 Nr. 7,
	UHeiKi=\UrkHeiKi{134},
	UTodKi=\totR 1858 Pfarramt Unterkoskau Nr. 5
	]
%
%
%

%
\starttext
% %
\completecontent[alternative=c]
\page
% -------------
%
% Allgemeine Informationen ist eigentlich: DBDokPID0134.tex
%
\startbuffer[PID0134-A]
%
\def\Pers{134}
%
\StartPersDatTab
\FamNamenInTab{\Pers}{}
\VorNamenInTab{\Pers}{}
\RufNamenInTab{\Pers}{}
\ZusatzInTab{\Pers}{}
\GeburtInTab{\Pers}{}
\KonfessionInTab{\Pers}{}
\TaufeInTab{\Pers}{}
% \KonfirmationInTab{\Pers}{}
\HeiratKircheInTab{\Pers}{}
% \HeiratAmtInTab{\Pers}{}
\PartnerInTab{\Pers}{}
%\DiePartnerInTab{\Pers}{}
\SterbeDatenInTab{\Pers}{}
\GrabInTab{\Pers}{}
\BerufInTab{\Pers}{}
\KinderInTab{\Pers}{}
\VaterInTab{\Pers}{}
\MutterInTab{\Pers}{}
\GeschwisterInTab{\Pers}{}
\StopPersDatTab
%
\stopbuffer
%
%
% Allgemeine Informationen ist eigentlich: DBDokPID0135.tex
%
\startbuffer[PID0135-A]
%
\def\Pers{135}
%
\StartPersDatTab
\FamNamenInTab{135}{1}
\VorNamenInTab{135}{}
\RufNamenInTab{135}{}
\ZusatzInTab{135}{}
\GeburtInTab{135}{}
\KonfessionInTab{135}{}
\TaufeInTab{135}{}
% \KonfirmationInTab{135}{}
\HeiratKircheInTab{135}{}
% \HeiratAmtInTab{135}{}
\PartnerInTab{135}{}
%\DiePartnerInTab{135}{}
\SterbeDatenInTab{135}{}
\GrabInTab{135}{}
\BerufInTab{135}{}
\KinderInTab{135}{}
\VaterInTab{135}{}
\MutterInTab{135}{}
\GeschwisterInTab{135}{}
\StopPersDatTab
%
\stopbuffer
%
% Start der Tabelle R
\def\startListeR{%
\start
\SetTableToWidth{\textwidth}
\setuptables[split=repeat,bodyfont=9pt] %%% !!!!!!!!!!
\starttablehead
\HL
%
\NC\use{2}\ReFormat[lp(0.28\textwidth)]{Datum\hfill Ereignis} \NC Person \NC PID \NC {\it PID} \NC\tfx  Seite\NC\tfx Beleg\NC\AR % << \AR\FR
\HL
\stoptablehead
\starttabletail
\HL
\stoptabletail
%  statt 6.0cm 5.0cm
%%\starttables[|lp(3.0cm)|l|lp(6.0cm)|l|l|r|l|]
%%
\starttables[|lp(0.2\textwidth)|lp(0.04\textwidth)|lp(0.3\textwidth)|lp(0.05\textwidth)|lp(0.05\textwidth)|rp(0.06\textwidth)|lp(0.05\textwidth)|]
}
%
%
\def\stopListeR{%
%\NC\NC\NC\NC\NC\NC\NC\NC\LR %<< Last Row
\stoptables
\stop
}
%
\def\getGebInListeR#1{%
\NC
\doifdefinedelse{PID#1Geb}
	{
	\doifelsenothing{PID#1Geb}{\doGetPID{Tau}{#1}\NC Tau}{\doGetPID{Geb}{#1}\NC Geb}
	}
	{\doGetPID{Tau}{#1}\NC Tau}
\NC 
%
{\bf\getFamilie{#1}}, \getVor{#1}
\NC #1 \NC \doGetPID{Partner}{#1}
\NC
{\tfx\at[PID#1dat]}
\NC
\doifdefinedelse{PID#1UGebAmt}{J}
{\doifdefinedelse{PID#1UGebKi}{J} {{\bf N}} }
\NC\AR
}
%
\startbuffer[ListeR8]
\startListeR
%
\dorecurse{30}{
\getGebInListeR{134}
\getGebInListeR{135}
}
%
\stopListeR
\stopbuffer
%
% --- >  Start
%
%
\section[PID134dat]{\getPID{134}} 
%
%\getbuffer[PID0134-A]

\placetable
	[left,force]
	{none}
	{\externalfigure[PID0134-A.tmp][height=0.9\textheight]} %
%
\page
%
%
\section[PID135dat]{\getPID{135}} 
%
\placetable
	[left,force]
	{none}
	{\externalfigure[PID0135-A.tmp][height=0.9\textheight]} %
%
\page
\section[listeR8]{Die Liste der Personen}
\getbuffer[ListeR8]
%
\stoptext
% ENDE
