Dag allen,
ik heb voor mijn site een framepagina gemaakt met in één frame een kwartierstaat en in de twee linkerframes een alfabet en een namenlijst. Voor deze laatste twee heb ik een sjabloondeel gebruikt dat Han Kortekaas destijds voor mij heeft gemaakt voor Aldfaer 3.enz Dat werkte goed. Ik ben e.e.a. nu aan het omzetten voor Aldfaer 4.0.2 (en rapportversie 4.0.1.3), nu werkt het kwartierstaatframe wel maar de andere twee in zoverre niet dat het alfabet niet alfabetisch is en de namenlijst ook niet maar allebei op volgorde van verschijnen van de namen in de kwartierstaat.
Ik heb de volgende extra set-definities, html-definities en Aldfaerfuncties gebruikt:
_SETDEF( iedereen )
_SETDEF( alphabet )
_SETDEF( namen )
_SETDEF( reeds_geprint )
_SETDEF( letter_geprint )
_SETDEF( letter )
_SETDEF( namenlijst )
_FILEMODE( "html", append )
_FILENAME( "alfabet.html" target="alfabet" )
_WRITBEGI
<html>
<body>
S_vul_namen
S_lees_alphabet [:verzorgt de index:]
</body>
</html>
_WRITEND
_FILEMODE( "html", append )
_FILENAME( "namenlijst.html" target="namen")
_WRITBEGI
<html>
<body>
_SETBEGI( Index )
_SETADD( namenlijst , [:S_printpersoon:]) _SETCLR(reeds_geprint ) _SETADD( reeds_geprint , :_SURN:])
_SETSORT( _SURN, _NAMEFIRS )
_SETEND [: end index :]
_SETBEGI( namenlijst )
_SETSTRI
_SETEND
</body>
</html>
_WRITEND
:.--Functies tbv alfabet--
_FUNCBEGI(S_vul_namen)
_SETBEGI( iedereen )
_SETADD( namen, [:_SURN:])
_SETEND
_FUNCEND
_FUNCBEGI(S_lees_alphabet)
_SETBEGI( Index )
_SETADD( alphabet, [:_SURN._UPPE._FILL(1," "):])
_SETEND
<p>_SETBEGI( alphabet ) <a href="namenlijst.html#[:_SETSTRI:]" target= "namen">[:_SETSTRI:]</a>[& &] _SETEND </p>
_FUNCEND
:.--Functies tbv namenlijst--
_FUNCBEGI(S_printpersoon)
<table>
<tr><td valign="top"><b>S_bepaalalpha</b></td></tr>
<tr><td><b>S_vergelijk</b></td></tr>
<tr><td><span class="vn"><a href="kwst.html#_CODEINTE" target="kwst">_NAMEFIRS[: (_NAMENICK):][& _NAMEPREF&]S_naamcontrole</a></span></td></tr>
</table>
_FUNCEND
_FUNCBEGI(S_bepaalalpha)
[?_SURN._FILL(1," ") > _SETBEGI( letter_geprint ) _SETSTRI _SETEND?]? _BEGI
<a name="_SURN._FILL(1," ")"> _SURN._UPPE._FILL(1," ")</a> _SETCLR( letter_geprint ) _SETADD( letter_geprint, [:_SURN._UPPE._FILL(1," "):] )
_END
_FUNCEND
_FUNCBEGI(S_vergelijk )
[? _NUMB == 1?]? _BEGI
<a name="_SURN"> _SURN</a>
_SETCLR( reeds_geprint )
_SETADD( reeds_geprint , [:_SURN._UPPE:])
_END
[? _SURN._UPPE > _SETBEGI( reeds_geprint ) _SETSTRI._UPPE _SETEND ?]? _BEGI
<a name="_SURN"> _SURN</a>
_SETCLR( reeds_geprint )
_SETADD( reeds_geprint , [:_SURN._UPPE:])
_END
_FUNCEND
_FUNCBEGI(S_naamcontrole)
[:[?_NAMEFIRS _NAMENICK _NAMEPREF?][::]:]|[&levenloos geboren&]
_FUNCEND
Er mist ongewtijfeld ergens een regel (of meer regels) maar ik kan er niet achter komen welke en waar. Iemand van jullie de oplossing?
Met veel dank,
groet,
Dick
