%( Missing events table %) %define;has_missing_birth_date(xx) %if;(xx.has_birth_date or xx.has_baptism_date) %if;(evar.date = "on") %if;(xx.has_birth_date and (xx.birth_date.prec = "" and xx.birth_date.day != "")) %elseif;(xx.has_baptism_date and (xx.baptism_date.prec = "" and xx.baptism_date.day != "")) %else; %incr_count; %end; %end; %else; %incr_count; %end; %end; %define;has_missing_birth_place(xx) %if;(xx.has_birth_date) %if;not xx.has_birth_place; %incr_count; %end; %elseif;(xx.has_baptism_date) %if;not xx.has_baptism_place; %incr_count; %end; %else; %if;(not (xx.has_birth_place or xx.has_baptism_place)) %incr_count; %end; %end; %end; %define;has_missing_death_date(xx) %if;xx.is_dead; %if;(xx.has_death_date or xx.has_burial_date) %if;(evar.date = "on") %if;(xx.has_death_date and (xx.death_date.prec = "" and xx.death_date.day != "")) %elseif;(xx.has_burial_date and (xx.burial_date.prec = "" and xx.burial_date.day != "")) %else; %incr_count; %end; %end; %else; %incr_count; %end; %end; %end; %define;has_missing_death_place(xx) %if;xx.is_dead; %if;(xx.has_death_date) %if;not xx.has_death_place; %incr_count; %end; %elseif;(xx.has_burial_date) %if;not xx.has_burial_place; %incr_count; %end; %else; %if;(not (xx.has_death_place or xx.has_burial_place)) %incr_count; %end; %end; %end; %end; %define;has_missing_marriage_date() %if;(on_marriage_date = "") %incr_count; %else; %if;(evar.date = "on" and (marriage_date.prec != "" or marriage_date.day = "")) %incr_count; %end; %end; %end; %define;has_missing_marriage_place() %if;(marriage_place = "") %incr_count; %end; %end; %define;has_missing_events(xx) %reset_count; %apply;has_missing_birth_date("xx") %if;(count=0) %apply;has_missing_birth_place("xx") %end; %if;(count=0) %apply;has_missing_death_date("xx") %end; %if;(count=0) %apply;has_missing_death_place("xx") %end; %if;(count=0) %if;xx.has_families; %foreach;xx.family; %if;(count=0) %apply;has_missing_marriage_place() %end; %if;(count=0) %apply;has_missing_marriage_date() %end; %end; %end; %end; %end; %define;display_edit_ind_btn(label) %if;(wizard and not cancel_links) %else;   %end; %end; %define;display_edit_fam_btn() %if;(wizard and not cancel_links) %else;   %end; %end; %define;td_missing_events_rowspan(xx) %if;(xx.same = "" and (evar.marr = "on" or (is_first and level = 1)) and xx.nb_families > 1) rowspan="%xx.nb_families;" %nn; %end; %end; %define;td_missing_events(xx) %apply;td_missing_events_rowspan("xx")%nn; %if;(count > 0) bgcolor="#988C90" align="center" %nn; %else; bgcolor="#CCC3C6" %nn; %end; %end; %define;td_family_missing_events(xx) %if;(xx.nb_families > 1) style="border-bottom:none" %end; %nn; %end; %define;td_family_missing_style(xx) %apply;td_family_missing_events("xx") %if;(count>0) bgcolor="#988C90" align="center" %else; bgcolor="#CCC3C6" %end; %nn; %end; %define;table_missing_events(xx) %lazy_force; %xx.anc_sosa; %apply;image_MF("xx") %apply;short_display_person("xx") %if;(xx.same != "" and evar.repeat = "on") %sp;-> [same ancestor as n° Sosa] %if(evar.sosab = 16)%xx.same.hexa; %elseif(evar.sosab = 8)%xx.same.octal; %else;%xx.same; %end; %end; %if;(xx.same = "") %reset_count; %apply;has_missing_birth_date("xx") %if;xx.has_birth_date; %xx.slash_birth_date; %if;(count>0)   %apply;display_edit_ind_btn("birth") %end; %elseif;xx.has_baptism_date; %xx.slash_baptism_date; %if;(count>0)   %apply;display_edit_ind_btn("birth") %end; %else; %apply;display_edit_ind_btn("birth") %end; %reset_count; %apply;has_missing_birth_place("xx") %if;xx.has_birth_date; %xx.birth_place; %if;(count>0)   %apply;display_edit_ind_btn("birth") %end; %elseif;xx.has_baptism_date; %xx.baptism_place; %if;(count>0)   %apply;display_edit_ind_btn("birth") %end; %else; %if;xx.has_birth_place; %xx.birth_place; %elseif;xx.has_baptism_place; %xx.baptism_place; %else;   %apply;display_edit_ind_btn("birth") %end; %end; %if;(evar.marr="on" or (is_first and level = 1)) %if;xx.has_families; %foreach;xx.family; %if;(family_cnt = 1) 1) style="border-bottom:none" %end; bgcolor="#CCC3C6"> %apply;image_MF("spouse") %apply;short_display_person("spouse") %end; %end; %else;   %end; %else; %if;xx.has_families; %apply;image_MF("xx.spouse") %apply;short_display_person("xx.spouse") %else;   %end; %end; %if;(evar.marr="on" or (is_first and level = 1)) %if;xx.has_families; %foreach;xx.family; %if;(family_cnt = 1) %reset_count; %apply;has_missing_marriage_date() %slash_marriage_date; %if(count>0)   %apply;display_edit_fam_btn() %end; %end; %end; %else;   %end; %else; %if;xx.has_families; %foreach;xx.family; %if;(spouse.index=xx.spouse.index) %reset_count; %apply;has_missing_marriage_date() %slash_marriage_date; %if(count>0)   %apply;display_edit_fam_btn() %end; %end; %end; %else;   %end; %end; %if;(evar.marr="on" or (is_first and level = 1)) %if;xx.has_families; %foreach;ancestor.family; %if;(family_cnt = 1) %reset_count; %apply;has_missing_marriage_place() %marriage_place; %if(count>0)   %apply;display_edit_fam_btn() %end; %end; %end; %else;   %end; %else; %if;ancestor.has_families; %foreach;ancestor.family; %if;(spouse.index=ancestor.spouse.index) %reset_count; %apply;has_missing_marriage_place() %marriage_place; %if(count>0)   %apply;display_edit_fam_btn() %end; %end; %end; %else;   %end; %end; %reset_count; %apply;has_missing_death_date("xx") %if;xx.has_death_date; %xx.slash_death_date; %if;(count>0)   %apply;display_edit_ind_btn("death") %end; %elseif;xx.has_burial_date; %xx.slash_burial_date; %if;(count>0)   %apply;display_edit_ind_btn("death") %end; %else; %if;xx.is_dead; %apply;display_edit_ind_btn("death") %else;   %end; %end; %reset_count; %apply;has_missing_death_place("xx") %if;xx.has_death_date; %xx.death_place; %if;(count>0)   %apply;display_edit_ind_btn("death") %end; %elseif;xx.has_burial_date; %xx.burial_place; %if;(count>0)   %apply;display_edit_ind_btn("death") %end; %else; %if;xx.has_death_place; %xx.death_place; %elseif;xx.has_burial_place; %xx.burial_place; %else;   %end; %if;(count>0) %apply;display_edit_ind_btn("death") %end; %end; %end; %end; %define;td_family_missing_events2(xx) style="border-top:none; %if;(xx.nb_families != family_cnt) border-bottom:none %end;" %nn; %end; %define;td_family_missing_style2(xx) %apply;td_family_missing_events2("xx") %if;(count>0) bgcolor="#988C90" align="center" %else; bgcolor="#CCC3C6" %end; %nn; %end; %define;table_family_missing_events(xx) %foreach;ancestor.family; %if;(family_cnt != 1) %apply;image_MF("spouse") %apply;short_display_person("spouse") %reset_count; %apply;has_missing_marriage_date() %slash_marriage_date; %if(count>0)   %apply;display_edit_fam_btn() %end; %reset_count; %apply;has_missing_marriage_place() %marriage_place; %if(count>0)   %apply;display_edit_fam_btn() %end; %end; %end; %end; %( Main %) %let;nb_gena;%apply;min(evar.v, max_anc_level)%in;

%apply;togena(nb_gena).

%foreach;ancestor_level(nb_gena) %if;(evar.gen = "on") %end; %foreach;ancestor; %apply;has_missing_events("ancestor") %if;(count > 0 and ancestor != "? ?") %if;(ancestor.same = "" or evar.repeat = "on") %apply;table_missing_events("ancestor") %if;(ancestor.same="" and (evar.marr="on" or (is_first and level = 1)) and ancestor.nb_families > 1) %apply;table_family_missing_events("ancestor") %end; %end; %end; %end; %end;
[*Sosa] [*person/persons]0 [*date of birth] [*where born] %if;(evar.marr="on")[*spouse/spouses]1%else;[*spouse/spouses]0%end; [*date of marriage] [*where married] [*date of death] [*where dead]
[*generation/generations]0 %level;