Hallo Peter,
Ik heb zelf ooit een eenvoudig sjabloon geschreven dat een lijst met aktes e.d. genereert van je hele bestand en deze sorteert op plaatsnaam (er zijn dus nog geen nadere selecties mogelijk, temeer ook omdat er in (rijks)archief natuurlijk gegevens te vinden kunnen zijn van meerdere plaatsen. Het zal niet de meest ideale sjablooncode zijn en ik heb er eerlijk gezegd ook nooit meer naar gekeken, maar het sjabloon werkt nog steeds onder de huidige versie. De html-uitvoer kun je eenvoudig met de rechter muistoets naar Excel exporteren.
Misschien dat je er wat aan hebt.
Kopieer onderstaande code naar een bestand en sla dit op als archiefbezoek.asj bestand in de folder van je eigen rapporten.
Groeten,
Ronald
== Begin kopieren onder deze lijn
[?
Versie log
==========
1.0 25-09-2003 Initiele versie - Ronald
1.1 01-10-2003 Enige verbeteringen - Dick
1.2 02-10-2003 Lay-out en structuur verbeterd - Ronald
1.3 02-10-2003 Ook weergeven van onvolledige gegevens - Ronald
1.4 02-10-2003 Test op uitzoekvinkjes op tabblad Diversen - Ronald
2.0 07-10-2003 Bestand voorbereid op toevoegen van relatiegegevens - Ronald
2.1 07-10-2003 Ook gecombineerd met relatiegegevens - Ronald
2.2 08-10-2003 Volgorde script omgegooid - Ronald
3.0 01-12-2003 Lay-out en structuur verbeterd - Ronald
3.1 02-12-2003 Getest met Pre-release Aldfaer 3.2 (foutjes opgelost) - Ronald
3.2 12-12-2003 Getest met Aldfaer 3.2 (commentaar in statusvenster aangepast) - Ronald
3.2.1 06-01-2004 Zekerheden datum toegevoegd en huwelijken als alleen datum bekend - Ronald
==========
?]Sjabloon 'Archiefbezoek: hele bestand' Versie 3.21
COMMENTAAR [:Geef de huidige instellingen :]
[?
_FILEMODE( "HTML", ifNewer )
_FILENAME( "archiefbezoek_full.html" )
_USES( DutchDateFormat )
_SETDEF( archieflijst )
_SETDEF(archiefpersonen)
_SETFILL(archiefpersonen, _FAMIFILE)
_SETBEGI(archiefpersonen)
[:_BIRTPLAC | _BIRTDATE:]?
_BEGI GEBOREN
[:_BAPTPLAC | _BAPTDATE:]?
_BEGI GEDOOPT
[:_DEATPLAC | _DEATDATE:]?
_BEGI OVERLEDEN
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_ELSE
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_END
_ELSE
[:_DEATPLAC | _DEATDATE:]?
_BEGI OVERLEDEN
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_ELSE
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_END
_END
_ELSE
[:_BAPTPLAC | _BAPTDATE:]?
_BEGI GEDOOPT
[:_DEATPLAC | _DEATDATE:]?
_BEGI OVERLEDEN
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_ELSE
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_END
_ELSE
[:_DEATPLAC | _DEATDATE:]?
_BEGI OVERLEDEN
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_ELSE
[:_BURIPLAC | _BURIDATE:]?
_BEGI BEGRAVEN
_ELSE _END
_END
_END
_END
_RELA?_BEGI
_RELABEGI
[:_RELAPLAC | _RELASTAR:]?
_BEGI GETROUWD_BURGERLIJK
[:_MARCPLAC | _MARCDATE:]?
_BEGI GETROUWD_KERK
_ELSE _END
_ELSE
[:_MARCPLAC | _MARCDATE:]?
_BEGI GETROUWD_KERK
_ELSE _END
_END
_RELAEND
_ELSE _END
_SETEND
?]
_WRITBEGI
<HTML>
<HEAD>
<STYLE>
.normaal {font-family:verdana,arial; font-size:10pt;font-weight:normal;color:black;background-color:white;text-align:left;}
.nleeg {font-family:verdana,arial; font-size:10pt;font-weight:normal;color:white;background-color:white;}
.klein {font-family:verdana,arial; font-size:8pt;font-weight:normal;color:black;}
.kleeg {font-family:verdana,arial; font-size:9pt;font-weight:normal;color:white;background-color:#FFFFFF;text-align:center;}
.kop1 {font-family:verdana,arial; font-size:14pt;font-weight:bold;color:black;text-align:left;}
.kop2 {font-family:verdana,arial; font-size:10pt;font-weight:bold;color:white;background-color:black;text-align:left;}
.kop3 {font-family:verdana,arial; font-size:10pt;font-weight:bold;color:white;background-color:black;text-align:center;}
.kop4 {font-family:verdana,arial; font-size:8pt;font-weight:normal;color:white;background-color:black;text-align:center;}
</STYLE>
<TITLE>Voorbereiden van archiefbezoek</TITLE>
</HEAD>
<BODY>
<H1 class=kop1>Lijst voor archiefbezoek</H1>
<P class=normaal>In deze lijst worden alle personen getoond voor wie een of meer plaats- en datumgegevens bekend zijn, maar die nog moeten worden geverifieerd.
</P>
<P>
<TABLE BORDER=1>
<TH class=kop2 rowspan=2>Plaats</TH>
<TH class=kop2 rowspan=2 width=90 >Register</TH>
<TH class=kop3 rowspan=1 width=100>Datum</TH>
<TH class=kop2 rowspan=2>Naam</TH>
<TH class=kop2 rowspan=2>Ouders</TH>
<TH class=kop3 rowspan=1>Bron</TH>
<TH class=kop2 rowspan=2>Opm.</TH>
<TR>
<TH class=kop4 rowspan=1 width=100>Jaar - mnd - dag</TH>
<TH class=kop4 rowspan=1 width=120>Reg - Folio, Aktenr</TH>
</TR>
_SETSORT(archieflijst, _SORTCASE)
_SETBEGI( archieflijst )
_SETSTRI
_SETEND
</TABLE>
</P>
<SMALL>Gegenereerd met Aldfaer _CURRVERS op _CURRDATE([:DD-MM-YYYY:]) _CURRTIME</SMALL>
</BODY>
</HTML>
_WRITEND
[?
F u n c t i e s
===============
--datum format-------------------------------------------------------------------------
_FUNCBEGI
( dateformat3 )[:E[:<B>YYYY</B> - MM - DD:]:]
_FUNCEND
---------------------------------------------------------------------------------------
--Weergave Naam--------------------------------------------------------------------------
_FUNCBEGI( NAAM_NORMAAL )[:
<B>_SURN</B>, _NAMEFIRS _NAMEPREF
:]._SPAC[::]
_FUNCEND
_FUNCBEGI( NAAM_BIJ_TROUWEN )[:
<B>_SURN</B>, _NAMEFIRS _NAMEPREF [:, _AGE(_RELASTAR) jaar oud:]|[&.&]
:]._SPAC[::]
_FUNCEND
_FUNCBEGI(NAAM_VOLLEDIG)[:
_FACTBEGI(_TITL)USR_TITL _FACTEND
[:
[&_NAMEFIRS (_NAMENICK)&]|
_NAMEFIRS |
_NAMENICK
:]
[: _NAMEPREF:]
[: _SURN:]
[&[?_PREFCODE?][_CODE]&]
:]._SPAC[::]_FUNCEND
--persoonsgegevens-----------------------------------------------------------------------
_FUNCBEGI(GEBOREN)[:
_SETADD(archieflijst ,[:[:
<TR>
_BIRTPLAC?_BEGI
<TD class=klein rowspan=2>_BIRTPLAC</TD> _ELSE
<TD class=kleeg rowspan=2>zzz1</TD> _END
<TD class=klein rowspan=2>Geboorte</TD>
_BIRTDATE?_BEGI
<TD class=klein rowspan=2>_BIRTDATE([:dateformat3:])</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=klein rowspan=2>NAAM_NORMAAL</TD>
<TD class=klein rowspan=2>OUDERS</TD>
_BIRTSOUR?_BEGI
<TD class=klein rowspan=2>_BIRTSOUR</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=kleeg rowspan=1>-</TD>
</TR>
<TR>
<TD class=kleeg rowspan=1>-</TD>
</TR>
:]._SPAC:] )
:]._SPAC[::]_FUNCEND
_FUNCBEGI(GEDOOPT)[:
_SETADD(archieflijst ,[:[:
<TR>
_BAPTPLAC?_BEGI
<TD class=klein rowspan=2>_BAPTPLAC</TD> _ELSE
<TD class=kleeg rowspan=2>zzz2</TD> _END
<TD class=klein rowspan=2>Doop</TD>
_BAPTDATE?_BEGI
<TD class=klein rowspan=2>_BAPTDATE([:dateformat3:])</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=klein rowspan=2>NAAM_NORMAAL</TD>
<TD class=klein rowspan=2>OUDERS</TD>
_BAPTSOUR?_BEGI
<TD class=klein rowspan=2>_BAPTSOUR</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=kleeg rowspan=1>-</TD>
</TR>
<TR>
<TD class=kleeg rowspan=1>-</TD>
</TR>:]._SPAC:] )
:]._SPAC[::]_FUNCEND
_FUNCBEGI(OVERLEDEN)[:
_SETADD(archieflijst ,[:[:
<TR>
_DEATPLAC?_BEGI
<TD class=klein rowspan=2>_DEATPLAC</TD> _ELSE
<TD class=kleeg rowspan=2>zzz5</TD> _END
<TD class=klein rowspan=2>Overlijden</TD>
_DEATDATE?_BEGI
<TD class=klein rowspan=2>_DEATDATE([:dateformat3:])</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=klein rowspan=2>NAAM_NORMAAL</TD>
<TD class=klein rowspan=2>OUDERS</TD>
_DEATSOUR?_BEGI
<TD class=klein rowspan=2>_DEATSOUR</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=kleeg rowspan=1>-</TD>
</TR>
<TR>
<TD class=kleeg rowspan=1>-</TD>
</TR>
:]._SPAC:] )
:]._SPAC[::]_FUNCEND
_FUNCBEGI(BEGRAVEN)[:
_SETADD(archieflijst ,[:[:
<TR>
_BURIPLAC?_BEGI
<TD class=klein rowspan=2>_BURIPLAC</TD> _ELSE
<TD class=kleeg rowspan=2>zzz6</TD> _END
<TD class=klein rowspan=2>Begraaf</TD>
_BURIDATE?_BEGI
<TD class=klein rowspan=2>_BURIDATE([:dateformat3:])</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=klein rowspan=2>NAAM_NORMAAL</TD>
<TD class=klein rowspan=2>OUDERS</TD>
_BURISOUR?_BEGI
<TD class=klein rowspan=2>_BURISOUR</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=kleeg rowspan=1>-</TD>
</TR>
<TR>
<TD class=kleeg rowspan=1>-</TD>
</TR>
:]._SPAC:] )
:]._SPAC[::]_FUNCEND
--Relaties-----------------------------------------------------------------------------
_FUNCBEGI(GETROUWD_BURGERLIJK) [:
_SETADD(archieflijst ,[:[:
[?_CODEINTE > _SWAPBEGI _CODEINTE _SWAPEND?]?_BEGI
<TR>
_RELAPLAC?_BEGI
<TD class=klein rowspan=2>_RELAPLAC</TD> _ELSE
<TD class=kleeg rowspan=2>zzz3</TD> _END
<TD class=klein rowspan=2>Huwelijk/Trouw</TD>
_RELASTAR?_BEGI
<TD class=klein rowspan=2>_RELASTAR([:dateformat3:])</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=klein rowspan=1>NAAM_BIJ_TROUWEN</TD>
<TD class=klein rowspan=1>OUDERS</TD>
_RELASOUR?_BEGI
<TD class=klein rowspan=2>_RELASOUR</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=kleeg rowspan=1>-</TD>
</TR>
_SWAPBEGI
<TR>
<TD class=klein rowspan=1>NAAM_BIJ_TROUWEN</TD>
<TD class=klein rowspan=1>OUDERS</TD>
<TD class=kleeg rowspan=1>-</TD>
</TR>
_SWAPEND
_END
:]._SPAC:] )
:]._SPAC[::] _FUNCEND
_FUNCBEGI(GETROUWD_KERK) [:
_SETADD(archieflijst ,[:[:
[?_CODEINTE > _SWAPBEGI _CODEINTE _SWAPEND?]?_BEGI
<TR>
_MARCPLAC?_BEGI
<TD class=klein rowspan=2>_MARCPLAC</TD> _ELSE
<TD class=kleeg rowspan=2>zzz4</TD> _END
<TD class=klein rowspan=2>Huwelijk/Trouw<BR>(kerk)</TD>
_MARCDATE?_BEGI
<TD class=klein rowspan=2>_MARCDATE([:dateformat3:])</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=klein rowspan=1>NAAM_BIJ_TROUWEN</TD>
<TD class=klein rowspan=1>OUDERS</TD>
_MARCSOUR?_BEGI
<TD class=klein rowspan=2>_MARCSOUR</TD> _ELSE
<TD class=kleeg rowspan=2>-</TD> _END
<TD class=kleeg rowspan=1>-</TD>
</TR>
_SWAPBEGI
<TR>
<TD class=klein rowspan=1>NAAM_BIJ_TROUWEN</TD>
<TD class=klein rowspan=1>OUDERS</TD>
<TD class=kleeg rowspan=1>-</TD>
</TR>
_SWAPEND
_END
:]._SPAC:] )
:]._SPAC[::] _FUNCEND
_FUNCBEGI( OUDERS )[:
_SEX("zn;dr;kind") van [:
[&[?_FATH(_BIOL)?]_FATHBEGI(_BIOL)NAAM_VOLLEDIG _FATHEND [:[?_MOTH(_BIOL)?]en:]&]
[&[?_MOTH(_BIOL)?]_MOTHBEGI(_BIOL)NAAM_VOLLEDIG _MOTHEND&] :]
:]._SPAC[::]_FUNCEND
--Commentaar---------------------------------------------------------------------------
_FUNCBEGI( COMMENTAAR )[:
:]
Er wordt bij het samenstellen van deze lijst niet gekeken naar de instellingen op tabblad Diversen.
Een ogenblik, de lijst wordt nu samengesteld.
_FUNCEND
---------------------------------------------------------------------------------------
E i n d e f u n c t i e s
===========================
?]