function scrptssrc(){
 for (a=0;a<top.document.scripts.length;a++){
  alert(a+' : '+top.document.scripts[a].src)
 }
}

function readData(){
//scrptssrc();
 top.rtrn=String.fromCharCode(13);
 top.rend=String.fromCharCode(10);
 top.ertar=new Array();
 top.srtar=new Array();
 top.vords=new Array();
 top.betal=new Array();
 top.seiser=new Array();
 top.snaar=new Array();
 top.hrtar=top.loadtar("hr");
 top.wrtar=top.loadtar("wr");
 top.ortar=top.loadtar("or");
 top.evtar=top.loadtar("zr");
 top.svtar=top.loadtar("zr");
 top.direct=false;
 if (top.location.search.substring(1)){
  switch (top.location.search.substring(1,5).toLowerCase()){
   case "http":
    top.document.scripts[1].src=top.location.search.substring(1);
    break;
   default:
    if (unescape(top.location.search.substring(1)).lastIndexOf('&')>=0){
     top.direct=true;
    } else {
     sf=String.fromCharCode("47");
     top.document.scripts[1].src="file:"+sf+sf+sf+top.location.search.substring(1);
    }
  }
 }
 if (!top.direct)
  top.MainFrame();
 else {
  top.directresult()
 }
}

function directresult(){
 invoer=unescape(top.location.search.substring(1));
 invoer=invoer.split('&');
 justinv='\nde string moet bevatten:\ndatum&datum&datum&bedrag[&opslag]\nde opslag is optioneel\nbijv.:2002-08-08&2002-09-01&2004-02-29&125.98\n of : 2002-08-08&2002-09-01&2004-02-29&125.98&2.00';
 top.vords[0]=new Array();
 top.betal[0]=new Array();
 for (a=0;a<invoer.length;a++){
  if (isDate(invoer[a])){
   if (!top.vords[0][0]){
    top.vords[0][0]=invoer[a];
    continue;
   }
   if (!top.betal[0][0]){
    top.betal[0][0]=invoer[a];
    continue;
   }
   if (!top.vords[0][2]){
    top.vords[0][2]=invoer[a];
    continue;
   }
  }
  if (invoer[a].substring(0,1)=='+' && '+'+parseInt(invoer[a].substring(1))==invoer[a]){
   if (!top.betal[0][0]){
    top.betal[0][0]=new Date();
    top.betal[0][0]=dtoc(ctod(dtoc(top.betal[0][0]),0,0,parseInt(invoer[a].substring(1))));
    continue;
   } else {
    if (!top.vords[0][2]){
     top.vords[0][2]=top.betal[0][0];
     top.betal[0][0]=new Date();
     top.betal[0][0]=dtoc(ctod(dtoc(top.betal[0][0]),0,0,parseInt(invoer[a].substring(1))));
     continue;
    }
   }
  }
  if (Number(invoer[a])==invoer[a]){
   invoer[a]=Math.round(100*invoer[a])/100;
   if (invoer[a]<=0){
    if (!top.vords[0][4]){
     top.vords[0][4]=invoer[a];
     continue;
    }
   } else {
    if (!top.vords[0][1]){
     top.vords[0][1]=invoer[a];
     continue;
    }
    if (!top.vords[0][4]){
     top.vords[0][4]=invoer[a];
     continue;
    }
   }
  }
  if (!top.vords[0][3] && invoer[a].length==2){
   switch(invoer[a]){
    case "or":
    case "wr":
    case "hr":
    case "ev":
    case "sv":
     top.vords[0][3]=invoer[a];
     break;
   }
  }
 }
 if (top.vords[0][0] && !top.vords[0][2]) top.vords[0][2]=top.vords[0][0];
 if (!top.betal[0][0]) {
  top.betal[0][0]= new Date();
  top.betal[0][0]=dtoc(top.betal[0][0]);
 }
 if (ctod(top.vords[0][2])>ctod(top.betal[0][0])) {
  tmp=top.betal[0][0];
  top.betal[0][0]=top.vords[0][2];
  top.vords[0][2]=tmp;
 }
 if (ctod(top.vords[0][2])>ctod(top.vords[0][0])) {
  tmp=top.vords[0][0];
  top.vords[0][0]=top.vords[0][2];
  top.vords[0][2]=tmp;
 }
 if (ctod(top.vords[0][0])>ctod(top.betal[0][0])) {
  tmp=top.betal[0][0];
  top.betal[0][0]=top.vords[0][0];
  top.vords[0][0]=tmp;
 }
 if (ctod(top.vords[0][2])>ctod(top.vords[0][0])) {
  tmp=top.vords[0][0];
  top.vords[0][0]=top.vords[0][2];
  top.vords[0][2]=tmp;
 }

 if (top.vords[0][2]) invoer[0]=top.vords[0][2];
 if (top.vords[0][0]) invoer[1]=top.vords[0][0];
 if (top.betal[0][0]) invoer[2]=top.betal[0][0];
 if (top.vords[0][1]) invoer[3]=top.vords[0][1];
 if (top.vords[0][4]) invoer[4]=top.vords[0][4]; else invoer[4]='0.0';
 if (top.vords[0][3]) invoer[5]=top.vords[0][3];
 if (!(invoer.length>=4 && invoer.length<=6)){
  alert('Je hebt onvoldoende gegevens opgegeven voor een directe berekening:\n'+invoer+justinv);
  top.MainFrame();
  return;
 } else {
  if (!isDate(invoer[1])) invoer[1]=false;
  if (!isDate(invoer[0])) if (isDate(invoer[1])) invoer[0]=invoer[1]; else invoer[0]=false;
  if (!isDate(invoer[2])) {
   ok=false;
   if (invoer[2].length==0){
    invoer[2]=new Date();
    invoer[2]=dtoc(invoer[2]);
    ok=true;
   } else {
    if (invoer[2].substring(0,1)=='+' && parseInt(invoer[2].substring(1))>0){
     ok=new Date();
     invoer[2]=dtoc(ctod(dtoc(ok),0,0,parseInt(invoer[2].substring(1))));
     ok=true;
    }
   }
   if (!ok) invoer[2]=false;
  }
  if (Math.round(100*invoer[3])/100!=invoer[3]) invoer[3]=false;
  if (invoer.length>=5 && invoer[4].length==0) invoer[4]='0.0';
  if (invoer.length==4) invoer[4]='0.0';
  if (Math.round(100*invoer[4])/100!=invoer[4]) invoer[4]=false;
  tmp="Eerste evaluatie invoer\n";
  len=tmp.length;
  for (a=0;a<5;a++)
   if (!invoer[a])
    tmp+="Het "+(a+1)+"e gegeven is onjuist\n";
  if (tmp.length>len) {
   alert(tmp+justinv);
   top.MainFrame();
   return;
  } else {
   if (invoer[1]<invoer[0]) {
    alert('De eerste datum < datum overeenkomst of datum onrechtmatige daad\ndeze moet groter zijn dan of gelijk zijn aan de tweede datum = laatste betaaldatum');
    top.MainFrame();
    return;
   }
   if (invoer[2]<invoer[1]){
    alert('De derde datum < laatste betaaldatum\ndeze moet groter zijn dan of gelijk zijn aan de derde datum = einddatum');
    top.MainFrame();
    return;
   }
   if (invoer[3]!=Math.abs(invoer[3])){
    alert('Het bedrag moet een positief getal zijn');
    top.MainFrame();
    return;
   }
   top.vords[0]=new Array(invoer[1],invoer[3],invoer[0],"",punt(invoer[4]),"vordering");
   top.betal[0]=new Array(invoer[2],"0.00","vordering");
   document.write('<html><body align=center valign=center bgcolor=white text=black><center>');
   document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" name="frameTotaal" width="100%" height="100%" scrolling="NO"></iframe>');
   document.write('</center></body></html>');
   if (invoer[5])
    switch (invoer[5]){
     case "or":
     case "wr":
     case "hr":
     case "ev":
     case "sv":
      top.vords[0][3]=invoer[5];
      stopwatch=setTimeout("top.results(this.document.frames[0])",3000);
      return;
      break;
    }
   stopwatch=setTimeout("top.results(this.document.frames[0],invoer)",3000);
  }
 }
}

function EnNu(){
 pp=top.document.location;
 if (pp.search){
  pp=pp.href.substring(0,pp.href.indexOf(pp.search));
 } else {
  pp=pp.href;
 }
 pp=pp.substring(pp.lastIndexOf('/')+1);
 pp=pp.toUpperCase();
 switch (pp){
  case "RESULT.HTM":
   top.Axi("Direct");
   break;
  case "INDEX.HTM":
   top.Axi("Indirect");
   break;
  case "WR-INDEX.HTM":
   top.Axi("Indirect");
   break;
  case "PROEF0.HTM":
   top.Axi("Indirect");
   break;
  default:
   top.Axi();
 }
}

function Axi(keus){
 switch (keus){
  case "Direct":
   stopwatch=setTimeout("top.results(this.document.frames[0])",3000);
   break;
  case "Indirect":
   stopwatch=setTimeout("top.MainMenu(this.document.frames[0])",2000);
   break;
  case "EditV":
   stopwatch=new Array();
   stopwatch[0]=setTimeout("top.MainMenu(this.document.frames[0])",2000);
   stopwatch[1]=setTimeout("top.document.frames[0].document.forms[0].elements[0][3].selected=true;",2666);
   stopwatch[2]=setTimeout("top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);",3000);
   break;
  case "EditB":
   stopwatch=new Array();
   stopwatch[0]=setTimeout("top.MainMenu(this.document.frames[0])",2000);
   stopwatch[1]=setTimeout("top.document.frames[0].document.forms[0].elements[0][4].selected=true;",2666);
   stopwatch[2]=setTimeout("top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);",3000);
   break;
  case "Tour":
   for (xxxx=0;xxxx<top.document.frames[0].document.forms[0].elements[0].length;xxxx++){
    if (top.document.frames[0].document.forms[0].elements[0][xxxx].selected){
     if (xxxx==12)
      stopwatch=setTimeout("top.Tour()",500);
     else {
      stopwatch=setTimeout("top.Tour"+(xxxx-1)+"()",500);
      alert(xxxx-1);
     }
     break;
    }
   }
   break;
  case "Tour1":
  case "Tour2":
  case "Tour3":
  case "Tour4":
  case "Tour5":
  case "Tour6":
  case "Tour7":
  case "Tour8":
  case "Tour9":
  case "Tour10":
  case "Tour11":
  case "Tour12":
   stopwatch=setTimeout("top."+keus+"()",500);
   break;
  default:
   top.document.location.href="http://www.wettelijkerente.dds.nl";
 }
}



function Tour(){
 top.MainMenu(this.document.frames[0]);
 if (!confirm('Begin van de rondleiding\n\nMet deze rondleiding worden een aantal stappen doorgelopen.\nTot nu toe door u ingevoerde gegevens kunnen daarbij worden gewist.\n\nDoorgaan met de rondleiding?'))
  return;
 if (!confirm('Eerst moeten vorderingen worden ingevoerd,\nkies Vorderingen in het menu linksboven.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.forms[0].elements[0][3].selected=true;
 if(!confirm('Na selectie in het menu wordt automatisch de keuze geactiveerd.\n\nDoorgaan met de rondleiding?'))
  return;
 top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);
 top.Tour1();
 if(!confirm('We gaan nu door met het invoeren van betalingen\n\nDoorgaan met de rondleiding?'))
  return;
 if (!confirm('Nu worden betalingen ingevoerd,\nkies Betalingen in het menu linksboven.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.forms[0].elements[0][4].selected=true;
 if(!confirm('Na selectie in het menu wordt automatisch de keuze geactiveerd.\n\nDoorgaan met de rondleiding?'))
  return;
 top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);
 top.Tour2();
 if(confirm('We kunnen nu doorgaan met het invoeren van een eigen rentetabel.\n\nIs dat wat u wilt?')){
  top.document.frames[0].document.forms[0].elements[0][8].selected=true;
  if(confirm('Na selectie in het menu wordt automatisch de keuze geactiveerd.\n\nDoorgaan met de rondleiding?')){
   top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);
   top.Tour3();
  }
 }
 if(!confirm('Zal ik de berekening tot en met vandaag uitvoeren?')){
  alert('Dit is het einde van de rondleiding.\n\nDe andere keuzes spreken redelijk voor zichzelf.\n\nIk stel suggesties voor verbeteringen wel op prijs.');
  return;
 } else {
  top.document.frames[0].document.forms[0].elements[0][4].selected=true;
  if(!confirm('Dan moeten we eerst een nul-betaling op vandaag invoeren.\n\nDoorgaan met de rondleiding?'))
   return;
  top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);
  top.Tour4();
 }
 alert('Dit is het einde van de rondleiding.\n\nDe andere keuzes spreken redelijk voor zichzelf.\n\nIk stel suggesties voor verbeteringen wel op prijs.');
}
function Tour1(){
 if(!confirm('Hier kan u de vorderingen invoeren met het formulier\nen de knop "VoegToe" of in het overzichtscherm eronder.\nDaar kunnen ook wijzigingen worden aan gebracht en/of\neen geheel overzicht worden ingeplakt.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[1].value='2001-10-12';
 if(!confirm('Kijk, ik vulde de laatste betaaldag in.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[3].value='2000-05-18';
 if(!confirm('Kijk, ik vulde nu ook de datum van de overeenkomst in.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[2].value='10000.00';
 if(!confirm('En een bedrag.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[4][1].selected=true;
 if(!confirm('De rente keuze ....\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[6].value='Factuur 04-290';
 if(!confirm('En het kenmerk van de vordering, die is verplicht!\n\nDoorgaan met de rondleiding?'))
  return;
 top.VoegVordsToe(top.document.frames[0].document.frames[0].document.forms[0]);
 if(confirm('De vordering staat nu in het lijstje vermeld.\nIn het lijstje kunt u ook wijzigen of knippen en plakken.\nFout-controle voorkomt foutieve invoer.\nWilt u daar een voorbeeld van zien?\n\n\nVoorbeeld met foute invoer tonen?')){
  top.temp=top.document.frames[0].document.frames[0].document.forms[0].elements[7].value;
  top.document.frames[0].document.frames[0].document.forms[0].elements[7].value+='2001-10-12 200 2000-05-18 hr 0.00 foute_factuur';
  top.document.frames[0].document.frames[0].document.forms[0].elements[7].focus();
  top.document.frames[0].document.frames[0].document.forms[0].elements[7].blur();
  top.document.frames[0].document.frames[0].document.forms[0].elements[7].focus();
  alert('De regel die een fout bevat wordt gemarkeerd met "#"\nGegevens die fout zijn, of niet kloppen met andere gegevens\n worden gemarkeerd met "*".\n\nIn het voorbeeld ligt de datum van de overeenkomst\nvoor 8-8-2002. Dat klopt niet met de gekozen rente "hr"\nwat de code is voor de handelsrente van art. 6:119a BW\n\nIk maak het nu weer ongedaan, maar u zou dat MOETEN\ncorrigeren in het overzichtsveld.');
  top.document.frames[0].document.frames[0].document.forms[0].elements[7].value=top.temp;
 }
}

function Tour2(){
 if(!confirm('Hier kan u de betalingen invoeren met het formulier\nen de knop "VoegToe" of in het overzichtscherm eronder.\nDaar kunnen ook wijzigingen worden aan gebracht en/of\neen geheel overzicht worden ingeplakt.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[1].value=dtoc(ctod(dtoc(new Date()),0,-1,0));
 if(!confirm('Kijk, ik vulde de betaaldag (= dag van ONTVANGST) in.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[2].value='5000.00';
 if(!confirm('En een bedrag.\n\nDoorgaan met de rondleiding?'))
  return;
 for (kiesfact=0;kiesfact<top.document.frames[0].document.frames[0].document.forms[0].elements[3].length;kiesfact++)
  if (top.document.frames[0].document.frames[0].document.forms[0].elements[3][kiesfact].value=='Factuur_04-290') {
   top.document.frames[0].document.frames[0].document.forms[0].elements[3][kiesfact].selected=true;
   if(!confirm('De betaling is toegewezen aan een vordering.\n\nDoorgaan met de rondleiding?'))
    return;
  } else {
   if(!confirm('De betaling is NIET toegewezen aan een vordering.\n\nDoorgaan met de rondleiding?'))
    return;
  }
 top.VoegBetalToe(top.document.frames[0].document.frames[0].document.forms[0]);
 alert('De betaling staat nu in het lijstje vermeld.\nIn het lijstje kunt u ook wijzigen of knippen en plakken.\nFout-controle voorkomt foutieve invoer.');
}
function Tour3(){
 if(!confirm('Hier kan u een rente tabelinvoeren met het formulier\nen de knop "VoegToe" of in het overzichtscherm eronder.\nDaar kunnen ook wijzigingen worden aan gebracht en/of\neen geheel overzicht worden ingeplakt.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[1].value="2002-12-05";
 if(!confirm('De dag waarop de rente ingaat is ingevuld.\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.frames[0].document.forms[0].elements[2].value='3.00';
 if(!confirm('En het rente percentage.\nIndien u bij vorderingen wel deze rentesoort kiest, maar geen tabel definieert, dan krijgt u geen correcte berekening.\n\nDoorgaan met de rondleiding?'))
  return;
 top.VoegRateToe(top.document.frames[0].document.frames[0].document.forms[0]);
 if(!confirm('Het rentetarief staat nu in het lijstje vermeld.\nIn het lijstje kunt u ook wijzigen of knippen en plakken.\n\nDoorgaan met de rondleiding?'))
  return;
}
function Tour4(){
 top.document.frames[0].document.frames[0].document.forms[0].elements[1].value=dtoc(new Date());
 top.document.frames[0].document.frames[0].document.forms[0].elements[2].value='0.00';
 top.VoegBetalToe(top.document.frames[0].document.frames[0].document.forms[0]);
 if(!confirm('De nul-betaling markeert het einde van de te berekenen periode.\nWe gaan nu berekenen...\n\nDoorgaan met de rondleiding?'))
  return;
 top.document.frames[0].document.forms[0].elements[0][5].selected=true;
 top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);
}
function Tour5(){
}
function Tour6(){
}
function Tour7(){
}
function Tour8(){
}
function Tour9(){
}
function Tour10(){
}
function Tour11(){
}
function Tour12(){
}

function MainFrame(){
 document.write('<html><body align=center valign=center bgcolor=white text=black><center>');
 document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" name="frameTotaal" width="100%" height="100%" scrolling="NO"></iframe>');
 document.write('</center></body></html>');
 EnNu();
}


function MainMenu(d){
 OpenDoc(d);                                                         
 d.document.write('<form><table><tr>');
 d.document.write('<th>Totaalmenu:</th>');
 d.document.write('<th>Schuldeiser</th>');
 d.document.write('<th>Schuldenaar</th>');
 d.document.write('</tr><tr>');
 d.document.write('<td valign="top"><select onChange="javascript:top.WhatChoice(this);">');
 d.document.write('<option value="in">Maak een keuze</option>');
 d.document.write('<option selected value="cs">Eenvoudige berekening </option>');
 d.document.write('<option value="ul">Uitleg over deze site</option>');
 d.document.write('<option value="v1">Vorderingen</option>');
 d.document.write('<option value="b1">Betalingen</option>');
// d.document.write('<option value="vb">Overzicht vorderingen/betalingen</option>');
 d.document.write('<option value="cc">Voer berekening uit</option>');
 d.document.write('<option value="d1">Gebruik een dossier vanaf uw eigen computer</option>');
 d.document.write('<option value="xx">Sla dossier op in eigen computer (zie uitleg)</option>');
 d.document.write('<option value="er">Eigen rente-tabel voor enkelvoudige rente</option>');
 d.document.write('<option value="sr">Eigen rente-tabel voor samengestelde rente</option>');
 d.document.write('<option value="hr">Rente-tabel ex. art. 6:119a jo 120, lid 2 BW</option>');
 d.document.write('<option value="wr">Rente-tabel ex. art. 6:119 jo 120, lid 1 BW</option>');
 d.document.write('<option value="or">Rente-tabel ex. art. artikel 1286 BW (oud)</option>');
 d.document.write('<option value="tr">Rondleiding</option>');
 d.document.write('</select></td>');
 d.document.write('<td><TEXTAREA cols="35" rows="3" onBlur="javascript:top.leesVal(this.document,this);">'+top.seiser+'</TEXTAREA></td>');
 d.document.write('<td><TEXTAREA cols="35" rows="3" onBlur="javascript:top.leesVal(this.document,this);">'+top.snaar+'</TEXTAREA></td>');
 d.document.write('</tr></table></form>');
 if (top.adds[0].length>0){
  d.document.write('<table width="100%"><tr>');
//  d.document.write('<td align="center" nowrap>');
//  d.document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" width="110%" height="40px" src="http://www.svens.dds.nl/wr/vieshome3.html">');
//  d.document.write("</iframe>")
//  d.document.write('</td></tr><tr>');
  for (a=0;a<top.adds[0].length;a++){
   d.document.write('<td align="center" nowrap>'+top.adds[0][a]+'</td>');
  }
  d.document.write('</tr></table>');
 }
 d.document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" src="intro.htm" name="frameInfo" width="100%" height="40%" scrolling="YES"></iframe>');
 d.document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" width="110%" height="110%" src="php/AdSenseS.php?">');
 d.document.write("</iframe>")

/*
 if (top.adds[1].length>0){
  d.document.write('<table width="100%"><tr>');
  for (a=0;a<top.adds[1].length;a++){
   d.document.write('<td align="center" nowrap>'+top.adds[1][a]+'</td>');
  }
  d.document.write('</tr></table>');
 }
*/
 if (top.document.location.protocol=="http:"){
  nedstat= new Image();
  nedstat.src=top.nedstatbasic("AC2RvQGauQHuK0kLFawEP7PK9dNg", 0);
  d.document.write('<IMG src="'+nedstat.src+'" nosave height=1 width=1>');
 }
 d.document.write('</center></body>');
 CloseDoc(d);
 top.schrijfVal(d.document.forms[0][1],top.seiser);
 top.schrijfVal(d.document.forms[0][2],top.snaar);
 top.WhatChoice(top.document.frames[0].document.forms[0].elements[0]);
}

function results(d,invoer){
 OpenDoc(d);                                                         
 if (top.adds[0].length>0){
  d.document.write('<table width="100%"><tr>');
//  d.document.write('<td align="center" nowrap>');
//  d.document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" width="110%" height="40px" src="http://www.svens.dds.nl/wr/vieshome3.html">');
//  d.document.write("</iframe>")
//  d.document.write('</td></tr><tr>');
  for (a=0;a<top.adds[0].length;a++){
   d.document.write('<td align="center" nowrap>'+top.adds[0][a]+'</td>');
  }
  d.document.write('</tr></table>');
 }
 d.document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" name="frameResult" width="100%" height="60%" scrolling="YES"></iframe>');
 d.document.write('<iframe marginheight="1" marginwidth="1" frameborder="0" width="110%" height="110%"src="php/AdSenseS.php?">');
 d.document.write("</iframe>")
/*
 if (top.adds[1].length>0){
  d.document.write('<table width="100%"><tr>');
  for (a=0;a<top.adds[1].length;a++){
   d.document.write('<td align="center" nowrap>'+top.adds[1][a]+'</td>');
  }
  d.document.write('</tr></table>');
 }
*/
 if (top.document.location.protocol=="http:"){
  nedstat= new Image();
  nedstat.src=top.nedstatbasic("AC2RvQGauQHuK0kLFawEP7PK9dNg", 0);
 }
 CloseDoc(d);
 if (arguments.length==1){
  OpenDoc(top.document.frames[0].document.frames[0]);
  top.Bereken(top.document.frames[0].document.frames[0]);
  top.document.frames[0].document.frames[0].document.write('<br><button onclick="top.Axi('+"'EditV'"+');">Bewerk Vorderingen</button>');
  top.document.frames[0].document.frames[0].document.write('<button onclick="top.Axi('+"'EditB'"+');">Bewerk Betalingen</button>');
  CloseDoc(top.document.frames[0].document.frames[0]);
  return;
 }
 nrs=0;
 OpenDoc(top.document.frames[0].document.frames[0]);
 if (ctod(top.vords[0][2])<ctod("1992-01-01")) {
  nrs++;
  top.document.frames[0].document.frames[0].document.writeln("<font size=+2><B>"+nrs+"e Berekening</B></font></BR>");
  top.vords[0][3]="or";
  top.Bereken(top.document.frames[0].document.frames[0]);
  top.document.frames[0].document.frames[0].document.writeln("<HR>");
 }
 if (ctod(top.vords[0][2])>=ctod("1992-01-01")) {
  nrs++;
  top.document.frames[0].document.frames[0].document.writeln("<font size=+2><B>"+nrs+"e Berekening</B></font></BR>");
  top.vords[0][3]="wr";
  top.Bereken(top.document.frames[0].document.frames[0]);
  top.document.frames[0].document.frames[0].document.writeln("<HR>");
 }
 if (ctod(top.vords[0][2])>=ctod("2002-08-08")) {
  nrs++;
  top.document.frames[0].document.frames[0].document.writeln("<font size=+2><B>"+nrs+"e Berekening</B></font></BR>");
  top.vords[0][3]="hr";
  top.Bereken(top.document.frames[0].document.frames[0]);
  top.document.frames[0].document.frames[0].document.writeln("<HR>");
 }
 if (top.vords[0][4]>0){
  nrs++;
  top.document.frames[0].document.frames[0].document.writeln("<font size=+2><B>"+nrs+"e Berekening</B></font></BR>");
  top.vords[0][3]="sv";
  top.Bereken(top.document.frames[0].document.frames[0]);
  top.document.frames[0].document.frames[0].document.writeln("<HR>");
  nrs++;
  top.document.frames[0].document.frames[0].document.writeln("<font size=+2><B>"+nrs+"e Berekening</B></font></BR>");
  top.vords[0][3]="ev";
  top.Bereken(top.document.frames[0].document.frames[0]);
  top.document.frames[0].document.frames[0].document.writeln("<HR>");
 }
 if (nrs>1) alert('Er zijn '+nrs+' berekeningen gemaakt\n\nLet op!\nBij bewerken vorderingen, is de ingevulde rentesoort die van de laatste berekening.');
 top.document.frames[0].document.frames[0].document.write('<br><button onclick="top.Axi('+"'EditV'"+');">Bewerk Vorderingen</button>');
 top.document.frames[0].document.frames[0].document.write('<button onclick="top.Axi('+"'EditB'"+');">Bewerk Betalingen</button>');
 CloseDoc(top.document.frames[0].document.frames[0]);
}


function leesVal(d,n){
 if (d.forms[0][d.forms[0].elements.length-2]==n) {
  top.seiser=n.value.split(top.rtrn+top.rend);
  n=d.forms[0].elements.length-2;
  schrijfVal(d.forms[0][n],top.seiser);
 } else
 if (d.forms[0][d.forms[0].elements.length-1]==n) {
  top.snaar=n.value.split(top.rtrn+top.rend);
  n=d.forms[0].elements.length-1;
  schrijfVal(d.forms[0][n],top.snaar);
 }
}

function schrijfVal(n,arr){
 n.value='';
 for (w=0;w<arr.length-1;w++){
  n.value+=arr[w]+top.rtrn+top.rend;
 }
 n.value+=arr[w];
}

function OpenDoc(d){
 d.document.open();
 d.document.write('<html><head>');
 d.document.write('</head><body bgcolor="white" text="black">');
}

function CloseDoc(d){
 d.document.write('</body></html>');
 d.document.close();
}

function WhatChoice(opt){
 for (tt=0;tt<opt.options.length;tt++){
  if (opt.options[tt].selected) {
   tmp=opt.options[tt].value;
   p=top.document.frameTotaal.document.frameInfo;
   switch (tmp){
   case "hr":
    top.ToonTar(p,tmp);
    break;
   case "wr":
    top.ToonTar(p,tmp);
    break;
   case "or":
    top.ToonTar(p,tmp);
    break;
   case "er":
    top.ChangeRates(p,tmp);
    break;
   case "sr":
    top.ChangeRates(p,tmp);
    break;
   case "v1":
    top.ChangeVords(p);
    break;
   case "b1":
    top.ChangeBetal(p);
    break;
   case "d1":
    top.useOwnData(p);
    break;
   case "vb":
    top.OverzichtVB(p);
    break;
   case "cc":
    top.Bereken(p);
    break;
   case "cs":
    top.CalcSimple(p);
    break;
   case "tr":
    top.Tour();
    break;
   case "xx":
    top.SlaOp(p);
    break;
   case "ul":
    p.document.location.href="uitleg.htm";
    break;
   case "in":
    p.document.location.href="intro.htm";
    break;
   default:
    OpenDoc(p);
    p.document.write('Nog niet beschikbaar...');
    CloseDoc(p)
   }
//   top.document.frameTotaal.document.forms[0][0].focus();
//   opt.options[tt].selected=true;
   return;
  } else {
//  opt.options[tt].selected=false;
  }
 }
// top.document.frameTotaal.document.forms[0][0].focus();
}

function ToonTar(d,rnt){
 OpenDoc(d);
 switch (rnt){
  case "or":
   rnt=top.ortar;
   break;
  case "wr":
   rnt=top.wrtar;
   break;
  case "hr":
   rnt=top.hrtar;
   break;
  case "er":
   rnt=top.ertar;
   break;
  case "sr":
   rnt=top.srtar;
   break;
  default:
   CloseDoc(d);
   return
 }
 if (rnt){
  rnt=rnt.sort().reverse();
  d.document.write('<table>');
  d.document.write('<tr><th>Aanvangsdatum</th><th>Percentage</th></tr>');
  for (a=0;a<rnt.length;a++){
   d.document.write('<tr><td>'+rnt[a][0]+'</td><td>'+punt(rnt[a][1])+'</td></tr>');
  }
  d.document.write('</table>');
 } else {
   d.document.write('Nog niet gedefinieerd.. <br>');
 }
 CloseDoc(d);
}

function CalcSimple(d){
 OpenDoc(d);
 tmp=top.document.frameTotaal.document.forms[0];
 d.document.write('<form><table width="100%" align="center">');
 d.document.write('<tr><th></th><th align="left" nowrap>Laatste betaaldag</th><th align="left" nowrap>Bedrag (<span id="valuta"></span>)</th><th align="left" nowrap>Einddatum</th><th align="left" nowrap>Rentesoort</th><th align="left" nowrap><span id="opslag"></span></th></tr>');
 d.document.write('<tr><th align="left" nowrap><INPUT type="button" name="Bereken" value=" Bereken " onclick="javaScript:top.simpleCalc(this.form);" onFocus="javascript:top.simpleText(this);"></th>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="10" maxlength="10" value="2002-09-07" onBlur="javascript:top.dateCheck(this,top.loadtar(this.form.elements[4].value)[0][0],'+"'valuta'"+');" onFocus="javascript:top.simpleText(this);" ></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="12" maxlength="12" value="0.00" onFocus="javascript:top.simpleText(this);" ></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="10" maxlength="10" value="'+dtoc(new Date())+'" onFocus="javascript:top.simpleText(this);" ></td>');
 d.document.write('<td align="left" nowrap><select onChange="top.opslagVast(this.document);top.simpleText(this);" onFocus="javascript:top.simpleText(this);">');
 d.document.write('<option value="or">WR 1286 BW (oud)</option>');
 d.document.write('<option value="wr" selected>WR 6:119 BW</option>');
 d.document.write('<option value="hr">WR 6:119a BW</option>');
 d.document.write('<option value="ev">Enkelvoudig Vast Tarief</option>');
 d.document.write('<option value="sv">Samengesteld Vast Tarief</option>');
 d.document.write('</select></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="5" maxlength="5" value="0.00" onFocus="javascript:top.simpleText(this);" ></td></tr>');
 d.document.write('<tr><td colspan=6><hr><SPAN id="info">Info</span></td></tr>');
 d.document.write('</table></form>');
 top.dateCheck(d.document.forms[0].elements[1],top.loadtar(d.document.forms[0].elements[4].value)[0][0],'valuta');
 top.opslagVast(d.document);
 d.document.forms[0][0].focus();
 CloseDoc(d);
}

function simpleCalc(vorm){
// top.changeSpan(vorm.document,"info","nog niet gereed...");
// return;
 if (!isDate(vorm[1].value)){
  top.changeSpan(vorm.document,"info","Laatste betaaldatum is geen valide datum...<br>Het formaat is JJJJ-MM-DD");
  return;
 }
 if (!isDate(vorm[3].value) && !(vorm[3].value.substring(0,1)=='+' && Math.round(Number(vorm[3].value))==vorm[3].value.substring(1)) && vorm[3].value!=""){
  top.changeSpan(vorm.document,"info","Einddatum is geen valide datum...<br>Het formaat is JJJJ-MM-DD<br><br>Een andere mogelijkheid is de einddatum leeg te laten, de einddatum is dan gelijk aan de dag van oproep ('vandaag').<br>Wat ook nog kan, is een plusteken met aansluitend een getal. Bijv.: +3 of +10.<br>De einddatum wordt dan drie dagen resp. tien dagen na 'vandaag'.<br><br>Deze laatste mogelijkheden zijn vooral bruikbaar als u de URL bookmarkt of mailt als bijlage bij een aanmaning.");
  return;
 }
 if (isDate(vorm[3].value)){
  if (ctod(vorm[1].value)>ctod(vorm[3].value)){
   top.changeSpan(vorm.document,"info","De einddatum moet later zijn dan de laatste begindatum..");
   return;
  }
 }
 if (ctod(loadtar(vorm[4].value)[0][0])>ctod(vorm[1].value)){
  top.changeSpan(vorm.document,"info","Bij de gekozen rentesoort ("+vorm[4].value+"), kan de laatste betaaldatum niet liggen voor "+loadtar(vorm[4].value)[0][0]+".<br>Pas de rentesoort of de laatste betaaldatum aan.");
  return;
 }
 if (isNaN(vorm[2].value)){
  top.changeSpan(vorm.document,"info","Bedrag moet worden ingevoerd als een positief getal, groter dan nul, met maximaal twee decimalen achter de PUNT.");
  return;
 }
 if (Math.round(100*vorm[2].value) != Math.round(Math.abs(100*punt(vorm[2].value)))){
  top.changeSpan(vorm.document,"info","Bedrag moet worden ingevoerd als een positief getal, groter dan nul, met maximaal twee decimalen achter de PUNT.");
  return;
 }
 if (Number(vorm[2].value)<=0){
  top.changeSpan(vorm.document,"info","Bedrag moet worden ingevoerd als een positief getal, groter dan nul, met maximaal twee decimalen achter de PUNT.");
  return;
 }
 if (isNaN(vorm[5].value)){
  top.changeSpan(vorm.document,"info","Opslag / Vast % moet worden ingevoerd als een getal met maximaal twee decimalen achter de PUNT.");
  return;
 }
 if (Math.round(100*vorm[5].value) != (100*punt(vorm[5].value))){
  top.changeSpan(vorm.document,"info","Opslag / Vast % moet worden ingevoerd als een getal met maximaal twee decimalen achter de PUNT.");
  return;
 }
 enne=String.fromCharCode(38);
 top.location.search=vorm[1].value+enne+vorm[2].value+enne+vorm[3].value+enne+vorm[4].value+enne+vorm[5].value;
}

function ChangeVords(d){
 OpenDoc(d);
 tmp=top.document.frameTotaal.document.forms[0];
 d.document.write('<form><table width="100%" align="center">');
 d.document.write('<tr><th align="left" valign="top" nowrap><font size=-2><a href=javascript:top.Tour1();>Rondleiding</a></font></th><th align="left" nowrap>Laatste betaaldag</th><th align="left" nowrap>Bedrag (<span id="valuta"></span>)</th><th align="left" nowrap>Datum ovk/o.d</th><th align="left" nowrap>Rentesoort</th><th align="left" nowrap><span id="opslag"></span></th><th align="left" nowrap>Kenmerk</th></tr>');
 d.document.write('<tr><th align="left" nowrap><INPUT type="button" name="VoegToe" value=" VoegToe " onclick="javaScript:top.VoegVordsToe(this.form);"></th>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="10" maxlength="10" value="2002-09-07" onBlur="javascript:top.dateCheck(this,top.loadtar(this.form.elements[4].value)[0][0],'+"'valuta'"+');"></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="12" maxlength="12" value="1000.00"></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="10" maxlength="10" value="2002-08-08"></td>');
 d.document.write('<td align="left" nowrap><select onChange="top.opslagVast(this.document);">');
 d.document.write('<option value="or">WR 1286 BW (oud)</option>');
 d.document.write('<option value="wr" selected>WR 6:119 BW</option>');
 d.document.write('<option value="hr">WR 6:119a BW</option>');
 d.document.write('<option value="er">Enkelvoudig Eigen Tabel</option>');
 d.document.write('<option value="sr">Samengesteld Eigen Tabel</option>');
 d.document.write('<option value="ev">Enkelvoudig Vast Tarief</option>');
 d.document.write('<option value="sv">Samengesteld Vast Tarief</option>');
 d.document.write('</select></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="5" maxlength="5" value="0.00"></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="25" maxlength="25" value=""</td></tr>');
 d.document.write('<tr><td colspan=8><TEXTAREA cols="110" rows="15" onBlur="javascript:top.controlVords(this,false);"></TEXTAREA></td></tr>');
 d.document.write('<tr><td colspan=8>De berekening wordt uitgevoerd tot en met de dag van de laatste betaling. Dat kan dus ook een <b>NUL</b>-betaling zijn op vandaag.<br>');
 d.document.write('<br>Wist u dat u de lijstjes in de overzichten, zoals hierboven, kunt selecteren, kopieren en plakken?<br>Zo kunt u de vorderingen, betalingen of eigen tarieven voorbereiden in bijv. excel</td></tr>');
 d.document.write('</table></form>');
 rnt=top.vords;
 rnt=rnt.sort().reverse();
 for (a=0;a<rnt.length;a++){
  for (b=0;b<rnt[a].length-1;b++){
   d.document.forms[0][d.document.forms[0].length-1].value+=rnt[a][b]+" ";
  }
  d.document.forms[0][d.document.forms[0].length-1].value+=rnt[a][b]+top.rtrn;
 }
 if (rnt.length>0){
  d.document.forms[0].elements[1].value=rnt[0][0];
  d.document.forms[0].elements[2].value=rnt[0][1];
  d.document.forms[0].elements[3].value=rnt[0][2];
  for (snpl=0;snpl<d.document.forms[0].elements[4].length;snpl++){
   if (d.document.forms[0].elements[4][snpl].value==rnt[0][3]){
    d.document.forms[0].elements[4][snpl].selected=true;
    break;
   }
  }
  d.document.forms[0].elements[5].value=rnt[0][4];
 }
 top.dateCheck(d.document.forms[0].elements[1],top.loadtar(d.document.forms[0].elements[4].value)[0][0],'valuta');
 top.opslagVast(d.document);
 top.controlVords(d.document.forms[0][d.document.forms[0].length-1], false);
 CloseDoc(d);
}

function opslagVast(docu){
 for (snpl=0;snpl<docu.forms[0].elements[4].length;snpl++){
  if (docu.forms[0].elements[4][snpl].selected==true){
   renval=docu.forms[0].elements[4][snpl].value;
   switch (renval){
    case "or":
    case "wr":
    case "hr":
    case "er":
    case "sr":
     top.changeSpan(docu,"opslag","Opslag");
     break;
    case "ev":
    case "sv":
     top.changeSpan(docu,"opslag","Vast %");
     break;
   }
   break;
  }
 }
}

function simpleText(veld){
 docu=veld.document;
 for (snpl=0;snpl<docu.forms[0].elements.length;snpl++){
  if (docu.forms[0].elements[snpl]==veld){
   switch (snpl){
    case 0:
     snpl="<b>Bereken:</b><br>Met de knop Bereken wordt een eenvoudige berekening gestart, met de hier ingegeven gegevens.<br>Als u al informatie had ingevoerd via vorderingen, betalingen of eigen tabellen dan gaan die gegevens verloren,<br>tenzij u ze opslaat op de aangegeven wijze.<br><br>De eenvoudige berekening houdt in een berekening vanaf de begindatum tot en met de einddatum volgens het aangegeven regime.<br>De URL die verschijnt in de adresbalk kunt u aan uw favorieten toevoegen of mailen.";
     break;
    case 1:
     snpl="<b>De laatste betaaldag :</b><br>Dit is de dag waarop de schuldenaar nog niet in verzuim is.<br>De rente loopt dus nog niet op deze datum.<br>Deze dag is bepalend voor de valuta van de invoer bij Bedrag.<br>Ligt de datum voor 2002-01-01, dan is de valuta Gulden, anders Euro.<br><br><b>Let op: Bij rentesoort HR, kan deze datum NIET kleiner zijn dan 2002-08-08</b>";
     break;
    case 2:
     snpl="<b>Bedrag :</b><br>De hoofdvordering ingevoerd als positief bedrag met maximaal twee decimalen achter de PUNT.<br>De valuta wordt bepaald door de laatste betaaldatum.<br>Ligt de datum voor 2002-01-01, dan is de valuta Gulden, anders Euro.";
     break;
    case 3:
     snpl="<b>Einddatum:</b><br>De einddatum is de datum tot en met welke berekend moet worden.<br>Te ver in de toekomst brengt het risico met zich mee dat de rente wijzigt nadat u uw berekening heeft gemaakt.";
     break;
    case 4:
     for (snpl=0;snpl<docu.forms[0].elements[4].length;snpl++){
      if (docu.forms[0].elements[4][snpl].selected==true){
       renval=docu.forms[0].elements[4][snpl].value;
       snpl="<b>Rentesoort </b> ("+renval+") :<br>";
       switch (renval){
        case "or":
         snpl+="Deze rentesoort komt uit het burgerlijk wetboek van voor 1992.<br>Deze rentesoort is enkelvoudig en gaat pas lopen nadat zij rechtsgeldig is aangezegd.<br>Houdt bij de laatste betaaldatum rekening met die aanzeggingsdatum.";
         break;
        case "wr":
         snpl+="Deze rentesoort (ex. "+BW('6','119')+" BW) geldt voor alle zaken van na 1-1-1992 en voor handelstransacties tot 8-8-2002.<br>Deze rentesoort is samengesteld.<br>De rente gaat pas lopen nadat zij rechtsgeldig is aangezegd of als er op een andere wijze duidelijk sprake is van een fatale einddatum van de betalingstermijn.<br>Houdt bij de laatste betaaldatum rekening met die aanzeggingsdatum of fatale einddatum.";
         break;
        case "hr":
         snpl+="Deze rentesoort (ex. "+BW('6','119a')+" BW) geldt voor handelstransacties van na 7-8-2002.<br>Deze rentesoort is samengesteld.<br>De rente gaat automatisch lopen nadat de overeengekomen betaaldatum is verstreken of - bij gebreke daarvan - op een moment bij wet bepaald.";
         break;
        case "ev":
         snpl+="Deze rentesoort is enkelvoudig volgens een vast tarief, door u in te vullen.";
         break;
        case "sv":
         snpl+="Deze rentesoort is samengesteld volgens een vast tarief, door u in te vullen.";
         break;
       }
       break;
      }
     }
     break;
    case 5:
     snpl="<b>Opslag</b> of <b>Vast %</b>:<br>Hier kunt u een opslag invoeren die geldt bovenop het tarief van de gekozen wettelijke rente.<br>Of een vast tarief, indien u voor een rentesoort met een vast tarief heeft gekozen.";
     break;
   }
   top.changeSpan(docu,"info",snpl);
   break;
  }
 }
}

function ChangeBetal(d){
 OpenDoc(d);
 tmp=top.document.frameTotaal.document.forms[0];
 d.document.write('<form><table width="100%" align="center">');
 d.document.write('<tr><th align="left" nowrap><font size=-2><a href=javascript:top.Tour2();>Rondleiding</a></font></th><th align="left" nowrap>Datum ontvangst</th><th></th><th align="left" nowrap>Bedrag</th><th align="left" nowrap>Toewijzingen</th></tr>');
 d.document.write('<tr><th align="left" nowrap><INPUT type="button" name="VoegToe" value=" VoegToe " onclick="javaScript:top.VoegBetalToe(this.form);"></th>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="10" maxlength="10" value="2002-08-08" onBlur="javascript:top.dateCheck(this,'+"'1935-01-01','valuta'"+');"></td>');
 d.document.write('<td align="center" nowrap><span id="valuta"></span></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="12" maxlength="12" value="0.00"></td>');
 d.document.write('<td align="left" nowrap><select multiple size=2>');
 var rnt=top.vords;
 rnt=rnt.sort();
 for (q=0;q<top.vords.length;q++){
  d.document.write('<option value="'+rnt[q][5]+'">'+rnt[q][5]+'</option>');
 }
 d.document.write('</select></td>');
// d.document.write('<td align="left" nowrap><INPUT type="text" size="25" maxlength="25" value=""</td></tr>');
 d.document.write('<tr><td colspan=8><TEXTAREA cols="110" rows="15" onBlur="javascript:top.controlBetal(this,false);"></TEXTAREA></td></tr>');
 d.document.write('</table></form>');
 rnt=top.betal;
 rnt=rnt.sort().reverse();
 for (a=0;a<rnt.length;a++){
  for (b=0;b<rnt[a].length-1;b++){
   d.document.forms[0][d.document.forms[0].length-1].value+=rnt[a][b]+" ";
  }
  d.document.forms[0][d.document.forms[0].length-1].value+=rnt[a][b]+top.rtrn;
 }
 if (rnt.length>0){
  d.document.forms[0].elements[1].value=rnt[0][0];
  d.document.forms[0].elements[2].value=rnt[0][1];
 }
 top.dateCheck(d.document.forms[0].elements[1],'1935-01-01','valuta');
 top.controlBetal(d.document.forms[0][d.document.forms[0].length-1], false);
 CloseDoc(d);
}

function useOwnData(d){
 OpenDoc(d);
 d.document.write('<form><table width="100%" align="center">');
 d.document.write('<tr><th align="center" nowrap>Kies een datafile</th></tr>');
 d.document.write('<tr><td align="center"><input type="file" name="OwnData" onChange="javascript:top.location.search='+"'?'"+'+this.value;"></input></td></tr>');
 d.document.write('</table></form></tr>');
 CloseDoc(d);
}

function ChangeRates(d,rnt){
 OpenDoc(d);
 rnt1=rnt;
 switch (rnt){
  case "er":
   rnt=top.ertar;
   break;
  case "sr":
   rnt=top.srtar;
   break;
  default:
   CloseDoc(d);
   return;
 }
 if (!rnt){
  CloseDoc(d);
  return;
 }
 d.document.write('<form><table width="100%" align="center">');
 d.document.write('<tr><th align="left" nowrap><font size=-2><a href=javascript:top.Tour3();>Rondleiding</a></font></th><th align="left" nowrap>Ingangsdatum</th><th align="left" nowrap>Tarief</th></tr>');
 d.document.write('<tr><th align="left" nowrap><INPUT type="button" name="VoegToe" value=" VoegToe " onclick="javaScript:top.VoegRateToe(this.form,'+"'"+rnt1+"'"+');"></th>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="10" maxlength="10" value="2002-08-08"></td>');
 d.document.write('<td align="left" nowrap><INPUT type="text" size="5" maxlength="5" value="0.00"</td></tr>');
 d.document.write('<tr><td colspan=3><TEXTAREA cols="20" rows="15" onBlur="javascript:top.controlRates(this,'+"'"+rnt1+"'"+',false);"></TEXTAREA></td></tr>');
 d.document.write('</table></form>');
 rnt=rnt.sort().reverse();
 for (a=0;a<rnt.length;a++){
  for (b=0;b<rnt[a].length-1;b++){
   d.document.forms[0][d.document.forms[0].length-1].value+=rnt[a][b]+" ";
  }
  d.document.forms[0][d.document.forms[0].length-1].value+=rnt[a][b]+top.rtrn;
 }
 top.controlRates(d.document.forms[0][d.document.forms[0].length-1], rnt1, false);
 CloseDoc(d);
}


function VoegVordsToe(vorm){
 if (dtoc(ctod(vorm[3].value))!=vorm[3].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[3].value+" is geen valide datum."+top.rtrn+'Gebruik "JJJJ-MM-DD" als notatie.');return;}
 if (ctod(vorm[3].value)>ctod("1991-12-31") && vorm[4].value=="or") {alert("FOUT:"+top.rtrn+top.rtrn+"De datum van de bron van de vordering ("+vorm[3].value+")"+top.rtrn+'mag NIET liggen NA "1991-12-31" bij de keuze voor'+top.rtrn+'wettelijke rente ex. art. 1286 BW (oud).');return;}
 if (ctod(vorm[3].value)<ctod("1992-01-01") && vorm[4].value=="wr") {alert("FOUT:"+top.rtrn+top.rtrn+"De datum van de bron van de vordering ("+vorm[3].value+")"+top.rtrn+'mag NIET liggen VOOR "1992-01-01" bij de keuze voor'+top.rtrn+'wettelijke rente ex. art. 6:119 BW.');return;}
 if (ctod(vorm[3].value)<ctod("2002-08-08") && vorm[4].value=="hr") {alert("FOUT:"+top.rtrn+top.rtrn+"De datum van de bron van de vordering ("+vorm[3].value+")"+top.rtrn+'mag NIET liggen VOOR "2002-08-08" bij de keuze voor'+top.rtrn+'wettelijke rente ex. art. 6:119a BW.');return;}
 vorm[2].value=punt(vorm[2].value);
 if (punt(Math.abs(vorm[2].value))!=vorm[2].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[2].value+" is geen valide bedrag."+top.rtrn+'Gebruik "0.00" als notatie.'+top.rtrn+'* Alleen positieve bedragen;'+top.rtrn+'* Voor 1-1-2002 in Guldens;'+top.rtrn+'* Na 31-12-2001 in Euros;');return;}
 if (dtoc(ctod(vorm[1].value))!=vorm[1].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[1].value+" is geen valide datum."+top.rtrn+'Gebruik "JJJJ-MM-DD" als notatie.');return;}
 if (ctod(vorm[1].value)<ctod(vorm[3].value))  {alert("FOUT:"+top.rtrn+top.rtrn+"De datum van de bron van de vordering ("+vorm[3].value+")"+top.rtrn+"mag NIET liggen NA de laatste betaaldatum ("+vorm[1].value+')');return;}
 vorm[5].value=punt(vorm[5].value);
 if (punt(vorm[5].value)!=vorm[5].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[5].value+" is geen valide percentage."+top.rtrn+'Gebruik "0.00" als notatie.');return;}
 if (vorm[6].value){
  plus=false;
  spat=false;
  knmrk=vorm[6].value;
  while (knmrk.indexOf('&')!=-1) {
   plus=true;
   knmrk=knmrk.replace("&","+");
   if (knmrk.indexOf('&')==-1){
     break;
    }else
    continue;
  }
  while (knmrk.indexOf(String.fromCharCode(32)!=-1)) {
   spat=true;
   knmrk=knmrk.replace(String.fromCharCode(32),"_");
   if (knmrk.indexOf(String.fromCharCode(32))==-1){
     break;
    }else
    continue;
  }
  while (knmrk.indexOf("__")!=-1) {
   knmrk=knmrk.replace("__","_");
   if (knmrk.indexOf("__")==-1)
    break;
   else
    continue;
  }
  while (knmrk.substring(knmrk.length-1)=="_") {
   knmrk=knmrk.substring(0,knmrk.length-1);
   if (knmrk.substring(knmrk.length-1)!="_")
    break;
   else
    continue;
  }
//  if (plus) alert('De "&" tekens in het kenmerk zijn vervangen door "+"');
//  if (spat) alert('De spaties in het kenmerk zijn vervangen door "_"');
  vorm[6].value=knmrk;
  for (q=0;q<top.vords.length;q++){
   if (vorm[6].value==top.vords[q][5]) {alert("FOUT:"+top.rtrn+top.rtrn+"Het kenmerk van de vordering:"+top.rtrn+top.rtrn+vorm[6].value+top.rtrn+top.rtrn+" moet uniek zijn, deze bestaat al.");return;}
  }
 } else {
  {alert("FOUT:"+top.rtrn+top.rtrn+"Het kenmerk van de vordering:"+top.rtrn+top.rtrn+vorm[6].value+top.rtrn+top.rtrn+" moet uniek zijn, deze is leeg.");return;}
 }
 vor="";
 for (a=1;a<vorm.length-2;a++){
  vor+=vorm[a].value+" ";
 }
 vor+=vorm[a].value;
 vorm[vorm.length-1].value=vor+top.rtrn+vorm[vorm.length-1].value;
 top.controlVords(vorm[vorm.length-1], false);
}


function VoegBetalToe(vorm){
 if (dtoc(ctod(vorm[1].value))!=vorm[1].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[1].value+" is geen valide datum."+top.rtrn+'Gebruik "JJJJ-MM-DD" als notatie.');return;}
 vorm[2].value=punt(vorm[2].value);
 if (punt(Math.abs(vorm[2].value))!=vorm[2].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[2].value+" is geen valide bedrag."+top.rtrn+'Gebruik "0.00" als notatie.'+top.rtrn+'* Alleen positieve bedragen;'+top.rtrn+'* Voor 1-1-2002 in Guldens;'+top.rtrn+'* Na 31-12-2001 in Euros;');return;}
 vor="";
 for (a=1;a<vorm.length-2;a++){
  vor+=vorm[a].value+" ";
 }
 nn='';
 for (q=0;q<vorm[a].options.length;q++){
  if (vorm[a].options[q].selected) {
   vor+=nn+vorm[a].options[q].value;
   nn="&";
   vorm[a].options[q].selected=false;
  }
 }
// vor+=vorm[a].value;
 vorm[vorm.length-1].value=vor+top.rtrn+vorm[vorm.length-1].value;
 top.controlBetal(vorm[vorm.length-1], false);
}

function VoegRateToe(vorm,rnt1){
 if (dtoc(ctod(vorm[1].value))!=vorm[1].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[1].value+" is geen valide datum."+top.rtrn+'Gebruik "JJJJ-MM-DD" als notatie.');return;}
 vorm[2].value=punt(vorm[2].value);
 if (punt(Math.abs(vorm[2].value))!=vorm[2].value) {alert("FOUT:"+top.rtrn+top.rtrn+vorm[2].value+" is geen valide percentage."+top.rtrn+'Gebruik een positief getal.'+top.rtrn+'Gebruik "0.00" als notatie.');return;}
 vor="";
 for (a=1;a<vorm.length-2;a++){
  vor+=vorm[a].value+" ";
 }
 vor+=vorm[a].value;
 vorm[vorm.length-1].value=vor+top.rtrn+vorm[vorm.length-1].value;
 top.controlRates(vorm[vorm.length-1], rnt1, false);
}

function schrijfVords(invoer, veld, toTabs){
 if (toTabs) {
  sepr=String.fromCharCode(9);
 } else {
  sepr=String.fromCharCode(32);
 }
 veld.value="";
 Schrijf=new Array();
 for (a=0;a<invoer.length;a++){
  Fouts=new Array();
  if (isNaN(ctod(invoer[a][2]))) Fouts[2]=true; else  if (dtoc(ctod(invoer[a][2]))!=invoer[a][2]) Fouts[2]=true;
  if (invoer[a][3]!="or" && invoer[a][3]!="wr" && invoer[a][3]!="hr" && invoer[a][3]!="er" && invoer[a][3]!="sr" && invoer[a][3]!="ev" && invoer[a][3]!="sv") Fouts[3]=true;
  if (!Fouts[3] && !Fouts[2]) {
   if (ctod(invoer[a][2])>ctod("1991-12-31") && invoer[a][3]=="or") {Fouts[2]=true;Fouts[3]=true;}
   if (ctod(invoer[a][2])<ctod("1992-01-01") && invoer[a][3]=="wr") {Fouts[2]=true;Fouts[3]=true;}
   if (ctod(invoer[a][2])<ctod("2002-08-08") && invoer[a][3]=="hr") {Fouts[2]=true;Fouts[3]=true;}
  }
  invoer[a][1]=punt(invoer[a][1]);
//  if (punt(Math.abs(invoer[a][1])).toString()!=invoer[a][1]) {Fouts[1]=true;}
  if (punt(Math.abs(invoer[a][1]))!=invoer[a][1]) {Fouts[1]=true;}
  if (isNaN(ctod(invoer[a][0]))) Fouts[2]=true; else if (dtoc(ctod(invoer[a][0]))!=invoer[a][0]) {Fouts[2]=true;}
  if (!Fouts[2] && !Fouts[2]) if (ctod(invoer[a][0])<ctod(invoer[a][2])) {Fouts[2]=true;Fouts[2]=true;}
  invoer[a][4]=punt(invoer[a][4]);
//  if (punt(invoer[a][4]).toString()!=invoer[a][4]) {Fouts[4]=true;}
  if (punt(invoer[a][4])!=invoer[a][4]) {Fouts[4]=true;}
  for (t=6;t<invoer[a].length;t++){
   invoer[a][5]+="_"+invoer[a][t];
  }
  if (invoer[a][5]){
   plus=false;
   spat=false;
   knmrk=invoer[a][5];
   while (knmrk.indexOf('&')!=-1) {
    plus=true;
    knmrk=knmrk.replace("&","+");
    if (knmrk.indexOf('&')==-1){
     break;
    }else
     continue;
   }
   while (knmrk.indexOf(String.fromCharCode(32)!=-1)) {
    spat=true;
    knmrk=knmrk.replace(String.fromCharCode(32),"_");
    if (knmrk.indexOf(String.fromCharCode(32))==-1){
     break;
    }else
     continue;
   }
   while (knmrk.indexOf("__")!=-1) {
    knmrk=knmrk.replace("__","_");
    if (knmrk.indexOf("__")==-1)
     break;
    else
     continue;
   }
   while (knmrk.substring(knmrk.length-1)=="_") {
    knmrk=knmrk.substring(0,knmrk.length-1);
    if (knmrk.substring(knmrk.length-1)!="_")
     break;
    else
     continue;
   }
   while (knmrk.substring(0,1)=="_") {
    knmrk=knmrk.substring(1);
    if (knmrk.substring(0,1)!="_")
     break;
    else
     continue;
   }
//   if (plus) alert('De "&" tekens in het kenmerk zijn vervangen door "+"');
//   if (spat) alert('De spaties in het kenmerk zijn vervangen door "_"');
   invoer[a][5]=knmrk;
   for (q=0;q<invoer.length;q++){
    if (q!=a) if (invoer[a][5]==invoer[q][5]) {Fouts[5]=true;}
   }
  } else {
   {Fouts[5]=true;}
  }
  vor="";
  if (Fouts[0]) vor+="#*"+invoer[a][0]; else vor+=invoer[a][0];
  if (Fouts[1]) {if (vor.substring(0,1)!="#") vor="#"+vor; vor+=sepr+"*"+invoer[a][1]; }else vor+=sepr+invoer[a][1];
  if (Fouts[2]) {if (vor.substring(0,1)!="#") vor="#"+vor; vor+=sepr+"*"+invoer[a][2]; }else vor+=sepr+invoer[a][2];
  if (Fouts[3]) {if (vor.substring(0,1)!="#") vor="#"+vor; vor+=sepr+"*"+invoer[a][3]; }else vor+=sepr+invoer[a][3];
  if (Fouts[4]) {if (vor.substring(0,1)!="#") vor="#"+vor; vor+=sepr+"*"+invoer[a][4]; }else vor+=sepr+invoer[a][4];
  if (Fouts[5]) {
   if (vor.substring(0,1)!="#") {
    vor="#"+vor;
   }
   vor+=sepr+"*";
   if (invoer[a][5]){
    vor+=invoer[a][5];
   }
  } else {
   vor+=sepr+invoer[a][5];
  }
  Schrijf[a]=vor;
 }
 vor=true;
 Schrijf.sort().reverse();
 for (a=0;a<Schrijf.length;a++){
  veld.value+=Schrijf[a]+top.rtrn;
 }
 if (veld.value.indexOf("#")!=-1) vor=false;
 if (veld.value.indexOf("*")!=-1) vor=false;
 return vor;
}

function schrijfBetal(invoer, veld, toTabs){
 if (toTabs) {
  sepr=String.fromCharCode(9);
 } else {
  sepr=String.fromCharCode(32);
 }
 veld.value="";
 Schrijf=new Array();
 for (a=0;a<invoer.length;a++){
  Fouts=new Array();
  if (isNaN(ctod(invoer[a][0]))) Fouts[0]=true; else  if (dtoc(ctod(invoer[a][0]))!=invoer[a][0]) Fouts[0]=true;
  invoer[a][1]=punt(invoer[a][1]);
//  if (punt(Math.abs(invoer[a][1])).toString()!=invoer[a][1]) {Fouts[1]=true;}
  if (punt(Math.abs(invoer[a][1]))!=invoer[a][1]) {Fouts[1]=true;}
  vor="";
  if (Fouts[0]) vor+="#*"+invoer[a][0]; else vor+=invoer[a][0];
  if (Fouts[1]) {if (vor.substring(0,1)!="#") vor="#"+vor; vor+=sepr+"*"+invoer[a][1]; }else vor+=sepr+invoer[a][1];
  for (t=3;t<invoer[a].length;t++){
   invoer[a][2]+=invoer[a][t];
  }
  vor+=sepr+invoer[a][2];
//  for (t=3;t<invoer[a].length;t++){
//   if (vor.substring(0,1)!="#") vor="#"+vor;
//   vor+=sepr+"*"+invoer[a][t];
//  }
  Schrijf[a]=vor;
 }
 vor=true;
 Schrijf.sort().reverse();
 for (a=0;a<Schrijf.length;a++){
  veld.value+=Schrijf[a]+top.rtrn;
 }
 if (veld.value.indexOf("#")!=-1) vor=false;
 if (veld.value.indexOf("*")!=-1) vor=false;
 return vor;
}

function schrijfRates(invoer, veld, toTabs){
 if (toTabs) {
  sepr=String.fromCharCode(9);
 } else {
  sepr=String.fromCharCode(32);
 }
 veld.value="";
 Schrijf=new Array();
 for (a=0;a<invoer.length;a++){
  Fouts=new Array();
  if (isNaN(ctod(invoer[a][0]))) Fouts[0]=true; else  if (dtoc(ctod(invoer[a][0]))!=invoer[a][0]) Fouts[0]=true;
  invoer[a][1]=punt(invoer[a][1]);
//  if (punt(Math.abs(invoer[a][1])).toString()!=invoer[a][1]) {Fouts[1]=true;}
  if (punt(Math.abs(invoer[a][1]))!=invoer[a][1]) {Fouts[1]=true;}
  vor="";
  if (Fouts[0]) vor+="#*"+invoer[a][0]; else vor+=invoer[a][0];
  if (Fouts[1]) {if (vor.substring(0,1)!="#") vor="#"+vor; vor+=sepr+"*"+invoer[a][1]; }else vor+=sepr+invoer[a][1];
  for (t=2;t<invoer[a].length;t++){
   if (vor.substring(0,1)!="#") vor="#"+vor;
   vor+=sepr+"*"+invoer[a][t];
  }
  Schrijf[a]=vor;
 }
 vor=true;
 Schrijf.sort().reverse();
 for (a=0;a<Schrijf.length;a++){
  veld.value+=Schrijf[a]+top.rtrn;
 }
 if (veld.value.indexOf("#")!=-1) vor=false;
 if (veld.value.indexOf("*")!=-1) vor=false;
 return vor;
}

function controlVords(veld, toTabs){
 if (arguments.length==0) return;
 invoer=top.veld2array(veld);
 switch (invoer){
  case "*":
   alert("Haal eerst de fouten en foutmarkeringen (# en *) uit het invoerveld!"+top.rtrn+top.rtrn+"Voer in:"+top.rtrn+"Laatste_Datum_Zonder_Rente Bedrag Datum_ovk/od Rentesoort Opslag Kenmerk"+top.rtrn+"JJJJ-MM-DD 0.00 JJJJ-MM-DD aa 0.00 aaaaaaaaaaaaa"+top.rtrn+"Bijvoorbeeld :"+top.rtrn+"2002-09-07 10000.00 2002-08-08 hr 0.00 Fact. 02/2345");
   veld.focus();
   return;
   break;
  case "#":
   alert("Haal eerst de fouten en foutmarkeringen (# en *) uit het invoerveld!"+top.rtrn+top.rtrn+"Voer in:"+top.rtrn+"Laatste_Datum_Zonder_Rente Bedrag Datum_ovk/od Rentesoort Opslag Kenmerk"+top.rtrn+"JJJJ-MM-DD 0.00 JJJJ-MM-DD aa 0.00 aaaaaaaaaaaaa"+top.rtrn+"Bijvoorbeeld :"+top.rtrn+"2002-09-07 10000.00 2002-08-08 hr 0.00 Fact. 02/2345");
   veld.focus();
   return;
   break;
 }
 if (top.schrijfVords(invoer, veld, toTabs)) top.vords=invoer;
}


function controlBetal(veld, toTabs){
 if (arguments.length==0) return;
 invoer=top.veld2array(veld);
 switch (invoer){
  case "*":
   alert("Haal eerst de fouten en foutmarkeringen (# en *) uit het invoerveld!"+top.rtrn+top.rtrn+"Voer in:"+top.rtrn+"Ontvangstdatum Bedrag Kenmerk(en)"+top.rtrn+"JJJJ-MM-DD 0.00 aaaaaa(&bbbbbbb)"+top.rtrn+"Bijvoorbeeld :"+top.rtrn+"2002-10-08 10000.00 Fact. 02/2345");
   veld.focus();
   return;
   break;
  case "#":
   alert("Haal eerst de fouten en foutmarkeringen (# en *) uit het invoerveld!"+top.rtrn+top.rtrn+"Voer in:"+top.rtrn+"Ontvangstdatum Bedrag Kenmerk(en)"+top.rtrn+"JJJJ-MM-DD 0.00 aaaaaa(&bbbbbbb)"+top.rtrn+"Bijvoorbeeld :"+top.rtrn+"2002-10-08 10000.00 Fact. 02/2345");
   veld.focus();
   return;
   break;
 }
 if (top.schrijfBetal(invoer, veld, toTabs)) top.betal=invoer;
}


function controlRates(veld, rnt, toTabs){
 if (arguments.length==0) return;
 invoer=top.veld2array(veld);
 switch (invoer){
  case "*":
   alert("Haal eerst de fouten en foutmarkeringen (# en *) uit het invoerveld!"+top.rtrn+top.rtrn+"Voer in:"+top.rtrn+"Datum percentage"+top.rtrn+"JJJJ-MM-DD 0.00");
   veld.focus();
   return;
   break;
  case "#":
   alert("Haal eerst de fouten en foutmarkeringen (# en *) uit het invoerveld!"+top.rtrn+top.rtrn+"Voer in:"+top.rtrn+"Datum percentage"+top.rtrn+"JJJJ-MM-DD 0.00");
   veld.focus();
   return;
   break;
 }
 if (top.schrijfRates(invoer, veld, toTabs)) {
  if (rnt=="or") top.ortar=invoer;
  if (rnt=="wr") top.wrtar=invoer;
  if (rnt=="hr") top.hrtar=invoer;
  if (rnt=="er") top.ertar=invoer;
  if (rnt=="sr") top.srtar=invoer;
 }
}

function veld2array(veld) {
 invoer=new Array();
 td=veld.value;
 if (td.indexOf("*")!=-1) return "*";
 if (td.indexOf("#")!=-1) return "#";
 if (arguments.length==0) return invoer;
 tab=String.fromCharCode(9);
 spat=String.fromCharCode(32);
 //als leeg dan terug
 if (td=="") return invoer;
// for (var s=0;s<td.length;s++) alert(td.charAt(s)+' : '+td.charCodeAt(s));
 //verwijder lege regels tussendoor:
 while (td.indexOf(top.rtrn+top.rend+top.rtrn+top.rend)!=-1) td=td.substring(0,td.indexOf(top.rtrn+top.rend+top.rtrn+top.rend))+td.substring(td.indexOf(top.rtrn+top.rend+top.rtrn+top.rend)+2,td.length);
 //verwijder lege regels aan het eind:
 while (td.substring(td.length-2,td.length)==top.rtrn+top.rend) td=td.substring(0,td.length-2);
 //verwijder lege regels aan het begin:
 while (td.substring(0,2)==top.rtrn+top.rend) td=td.substring(2,td.length);
  //verwijder spaties aan het einde van regels:
 while (td.indexOf(spat+top.rtrn+top.rend)!=-1) td=td.replace(spat+top.rtrn+top.rend,top.rtrn+top.rend);
 while (td.substring(td.length-1,td.length)==spat) td=td.substring(0,td.length-1);

 //stop waarde in een array:
 td=td.split(top.rtrn+top.rend);
 if (td.length==0) return invoer;
 for (t=0;t<td.length;t++){
  while (td[t].indexOf(tab)!=-1)
   td[t]=td[t].replace(tab,spat);
  while (td[t].indexOf(",")!=-1)
   td[t]=td[t].replace(",",".");
  invoer[t]=td[t].toString().split(" ");
 }
 td.release;
 invoer=invoer.sort().reverse();
 return invoer;
}

function SlaOp(){
 newFile=window.open();
 //'','Rente_berekeningen','top=0,left=0,width='+screen.availWidth+',height='+screen.availHeight);
 d=newFile.document;
 var sf=String.fromCharCode(47);
 d.writeln(sf+'*<BR> Data bestand voor on line renteberekeningen<BR><BR>');
 d.writeln(' U kunt dit dossier bewaren door het vanuit de browser op te slaan op uw eigen computer.<BR>');
 d.writeln(' Bewaar als "Text File (*.txt)", gebruik "Unicode" als Encoding.<BR>*'+sf);
 d.writeln(sf+sf+'<BR>');
 d.writeln('top.ertar=new Array(); '+sf+sf+' ertar = eigen tarieven enkelvoudige rente <BR>');
 for (a=0;a<top.ertar.length;a++){
  d.writeln(' top.ertar['+a+']=new Array(); '+sf+sf+'<BR>');
  for (b=0;b<top.ertar[a].length;b++){
   d.writeln('  top.ertar['+a+']['+b+']="'+top.ertar[a][b]+'"; '+sf+sf+'<BR>');
  }
 }
 d.writeln(' top.srtar=new Array(); '+sf+sf+' srtar = eigen tarieven samengestelde rente <BR>');
 for (a=0;a<top.srtar.length;a++){
  d.writeln(' top.srtar['+a+']=new Array(); '+sf+sf+'<BR>');
  for (b=0;b<top.srtar[a].length;b++){
   d.writeln('  top.srtar['+a+']['+b+']="'+top.srtar[a][b]+'"; '+sf+sf+'<BR>');
  }
 }
 d.writeln(' top.vords=new Array(); '+sf+sf+' vords = ingevoerde vorderingen <BR>');
 for (a=0;a<top.vords.length;a++){
  d.writeln(' top.vords['+a+']=new Array(); '+sf+sf+'<BR>');
  for (b=0;b<top.vords[a].length;b++){
   d.writeln('  top.vords['+a+']['+b+']="'+top.vords[a][b]+'"; '+sf+sf+'<BR>');
  }
 }
 d.writeln(' top.betal=new Array(); '+sf+sf+' betal = ingevoerde betalingen <BR>');
 for (a=0;a<top.betal.length;a++){
  d.writeln(' top.betal['+a+']=new Array(); '+sf+sf+'<BR>');
  for (b=0;b<top.betal[a].length;b++){
   d.writeln('  top.betal['+a+']['+b+']="'+top.betal[a][b]+'"; '+sf+sf+'<BR>');
  }
 }
 d.writeln(' top.snaar=new Array(); '+sf+sf+' snaar = gegevens schuldenaar <BR>');
 for (a=0;a<top.snaar.length;a++){
  d.writeln('  top.snaar['+a+']="'+top.snaar[a]+'"; '+sf+sf+'<BR>');
 }
 d.writeln(' top.seiser=new Array(); '+sf+sf+' seiser= gegevens schuldeiser <BR>');
 for (a=0;a<top.seiser.length;a++){
  d.writeln('  top.seiser['+a+']="'+top.seiser[a]+'"; '+sf+sf+'<BR>');
 }
 d.writeln('alert("Dossier is geladen");');
// d.writeln(sf+'*<HR>');
// d.writeln('<HR>*'+sf);
 newFile.focus();
// self.close();
}

function OverzichtVB(d){
 OpenDoc(d);
 if (top.seiser.length>0){
  d.document.writeln('<u>Schuldeiser:</u><BR><BR>');
  for (var a=0;a<top.seiser.length;a++){
   d.document.writeln(' '+top.seiser[a]+'<BR>');
  }
  d.document.writeln('<HR>');
 }
 if (top.snaar.length>0){
  d.document.writeln('<u>Schuldenaar:</u><BR><BR>');
  for (var a=0;a<top.snaar.length;a++){
   d.document.writeln(' '+top.snaar[a]+'<BR>');
  }
  d.document.writeln('<HR>');
 }
 if (top.vords.length>0){
  d.document.writeln('<u>Vorderingen:</u><BR>');
  top.vords=top.vords.sort();
  for (var a=0;a<top.vords.length;a++){
   d.document.writeln('<BR>Kenmerk van de vordering: '+top.vords[a][5]+'<BR>');
   d.document.writeln('Uiterste betaaldatum: '+top.vords[a][0]+'<BR>');
   d.document.writeln('Oorspronkelijke hoofdsom: '+top.vords[a][1]);
   FlOfEu(d,top.vords[a][0],top.vords[a][1]);
   switch(top.vords[a][3]){
    case "ev":
     if (top.vords[a][4]=="0.00")
      d.document.writeln('Rentesoort: Renteloos<BR>');
     else
      d.document.writeln('Rentesoort: Enkelvoudig vast tarief van '+top.vords[a][4]+' %<BR>');
     break;
    case "sv":
     if (top.vords[a][4]=="0.00")
      d.document.writeln('Rentesoort: Renteloos<BR>');
     else
      d.document.writeln('Rentesoort: Samengesteld vast tarief van '+top.vords[a][4]+' %<BR>');
     break;
    case "er":
     if (top.vords[a][4]=="0.00")
      d.document.writeln('Rentesoort: Enkelvoudig volgens tabel<BR>');
     else
      d.document.writeln('Rentesoort: Enkelvoudig volgens tabel vermeerderd met '+top.vords[a][4]+' %<BR>');
     break;
    case "sr":
     if (top.vords[a][4]=="0.00")
      d.document.writeln('Rentesoort: Samengesteld volgens tabel<BR>');
     else
      d.document.writeln('Rentesoort: Samengesteld volgens tabel vermeerderd met '+top.vords[a][4]+' %<BR>');
     break;
    case "or":
     if (top.vords[a][4]=="0.00")
      d.document.writeln('Rentesoort: Wettelijke rente (enkelvoudig) volgens art. 1286 BW (oud)<BR>');
     else
      d.document.writeln('Rentesoort: Wettelijke rente (enkelvoudig) volgens art. 1286 BW (oud) vermeerderd met '+top.vords[a][4]+' %<BR>');
     break;
    case "hr":
     if (top.vords[a][4]=="0.00")
      d.document.writeln('Rentesoort: Wettelijke (handels)rente (samengesteld) volgens art. 6:119a BW<BR>');
     else
      d.document.writeln('Rentesoort: Wettelijke (handels)rente (samengesteld) volgens art. 6:119a BW vermeerderd met '+top.vords[a][4]+' %<BR>');
     break;
    case "wr":
     if (top.vords[a][4]<=0)
      d.document.writeln('Rentesoort: Wettelijke rente (samengesteld) volgens art. 6:119 BW<BR>');
     else
      d.document.writeln('Rentesoort: Wettelijke rente (enkelvoudig) volgens art. 6:119 BW vermeerderd met '+top.vords[a][4]+' %<BR>');
     break;
   }
  }
//  d.document.writeln('<HR>');
 }
 if (top.betal.length>0){
  d.document.writeln('<u>Betalingen:</u><BR>');
  top.betal=top.betal.sort();
  for (var a=0;a<top.betal.length;a++){
   d.document.writeln('<BR>Betaling ontvangen: '+top.betal[a][0]+'<BR>');
   d.document.writeln('Bedrag van de betaling: '+top.betal[a][1]);
   FlOfEu(d,top.betal[a][0],top.betal[a][1]);
   toe=top.betal[a][2].split('&');
   if (toe.length>0 && toe[0].length>0){
    d.document.writeln('Toegewezen aan vorderingen met kenmerk:<BR>');
    for (b=0;b<toe.length;b++){
     for (c=0;c<top.vords.length;c++){
      if (top.vords[c][5]===toe[b]){
       d.document.writeln('- '+top.vords[c][0]+' '+toe[b]+' <BR>');
       c=top.vords.length;
      }
//      else if (c==top.vords.length-1)
//       d.document.writeln('- '+toe[b]+' (niet meer aanwezig)<BR>');
     }
    }
   }
  }
  d.document.writeln('<HR>');
 }
 CloseDoc(d);
}

function Bereken(d) {
 top.formule=new Array();
// OpenDoc(d);
 if (top.seiser.length>0){
  d.document.writeln('<u>Schuldeiser:</u><BR><BR>');
  for (var a=0;a<top.seiser.length;a++){
   d.document.writeln(' '+top.seiser[a]+'<BR>');
  }
 }
 if (top.snaar.length>0){
  d.document.writeln('<HR><u>Schuldenaar:</u><BR><BR>');
  for (var a=0;a<top.snaar.length;a++){
   d.document.writeln(' '+top.snaar[a]+'<BR>');
  }
 }
 vorderingen=new Array();
 for (a=0;a<top.vords.length;a++){
  vorderingen[a]=new Array;
  for (b=0;b<top.vords[a].length;b++){
   vorderingen[a][b]=top.vords[a][b];
  }
  vorderingen[a][6]=new Array();
  vorderingen[a][6][0]=new Array(vorderingen[a][0],vorderingen[a][1],0,'hoofdsom');
//  alert(vorderingen[a][6][vorderingen[a][6].length-1][1]);
//  vorderingen[a][6]=vorderingen[a][0];
//  vorderingen[a][7]=vorderingen[a][1];
//  vorderingen[a][8]=0;
 }
 vorderingen=vorderingen.sort();
 betalingen=new Array();
// if (!top.betal[0][0]){
//    top.betal[0][0]=new Date();
//    top.betal[0][0]=dtoc(ctod(dtoc(top.betal[0][0]),0,0,parseInt(invoer[a].substring(1))));
// }
 for (a=0;a<top.betal.length;a++){
 betalingen[a]=new Array();
  for (b=0;b<top.betal[a].length;b++){
   betalingen[a][b]=top.betal[a][b];
  }
  if (!betalingen[a][2]) betalingen[a][2]="";
  betalingen[a][3]=new Array();
  betalingen[a][3][0]=new Array(betalingen[a][1],'ontvangst betaling');
//  betalingen[a][3]=betalingen[a][0];
//  betalingen[a][4]=betalingen[a][1];
 }

 if (betalingen.length>0){
  betalingen=betalingen.sort();
  for (var alfa=0;alfa<betalingen.length;alfa++){
   if (betalingen[alfa][3][betalingen[alfa][3].length-1][0]!=0){
//    d.document.writeln('<BR>Betaling ontvangen: '+betalingen[alfa][0]+'<BR>');
//    d.document.writeln('Bedrag van de betaling: '+betalingen[alfa][1]);
//    FlOfEu(d,betalingen[alfa][0],betalingen[alfa][1]);

    toe=betalingen[alfa][2].split('&');
    if (toe.length>0 && toe[0].length>0){

     for (beta=0;beta<toe.length;beta++){
//      d.document.writeln('<HR>');
      for (gamma=0;gamma<vorderingen.length;gamma++){
       if (betalingen[alfa][3][betalingen[alfa][3].length-1][0]!=0)
        if (vorderingen[gamma][5]===toe[beta]){
         if (vorderingen[gamma][6][vorderingen[gamma][6].length-1][1]!=0)
//         if (vorderingen[gamma][7]!=0)
          beeldAf(alfa,gamma,d);
//         d.document.writeln('<HR>');
//         d.document.writeln('Van de betaling resteert : '+punt(betalingen[alfa][4]));
//         FlOfEu(d,betalingen[alfa][0],betalingen[alfa][4]);
//         d.document.writeln('<HR>');
         gamma=vorderingen.length;
        }
//        else if (gamma==vorderingen.length-1)
//         d.document.writeln('- '+toe[beta]+' (niet meer aanwezig)<BR>');
      }
     }
    } else { //indien geen toewijzingen

    }
    for (gamma=0;gamma<vorderingen.length;gamma++){
     if (betalingen[alfa][3][betalingen[alfa][3].length-1][0]!=0)
      if (vorderingen[gamma][6][vorderingen[gamma][6].length-1][1]!=0){
//    if (vorderingen[gamma][7]!=0){
       beeldAf(alfa,gamma,d);
//       d.document.writeln('<HR>');
//       d.document.writeln('Van de betaling resteert : '+punt(betalingen[alfa][4]));
//       FlOfEu(d,betalingen[alfa][0],betalingen[alfa][4]);
//       d.document.writeln('<HR>');
      }
    }
   } else { //lege betaling -> eindsaldi
   }
   for (gamma=0;gamma<vorderingen.length;gamma++){
    if (alfa==betalingen.length-1)
     if (vorderingen[gamma][6][vorderingen[gamma][6].length-1][1]!=0)
//     if (vorderingen[gamma][7]!=0)
      beeldAf(alfa,gamma,d);
   }
//   d.document.writeln('<HR>');
  }
 }
 tekort=new Array(0,0,0,0,0,0);
 for (zeta=0;zeta<vorderingen.length;zeta++){
  yeti=vorderingen[zeta];
  d.document.writeln('<HR><table border=1>');
  d.document.writeln('<TR><TH colspan=6>Vordering met kenmerk: "'+yeti[5]+'"</TH></TR>');
  d.document.writeln('<TR><TD colspan=6>Uiterste betaaldatum: '+yeti[0]+'</TD></TR>');
  reactie1=EuOfFl(yeti[0],yeti[1])
  d.document.writeln('<TR><TD colspan=6>Oorspronkelijke hoofdsom: Fl. '+punt(reactie1[0])+' Eu. '+punt(reactie1[1])+'</TD></TR>');
  d.document.writeln('</TD></TR><TR><TD colspan=6>');
   switch(yeti[3]){
    case "ev":
     if (yeti[4]=="0.00")
      d.document.writeln('Rentesoort: Renteloos</TD></TR>');
     else
      d.document.writeln('Rentesoort: Enkelvoudig vast tarief van '+yeti[4]+' %</TD></TR>');
     break;
    case "sv":
     if (yeti[4]=="0.00")
      d.document.writeln('Rentesoort: Renteloos</TD></TR>');
     else
      d.document.writeln('Rentesoort: Samengesteld vast tarief van '+yeti[4]+' %</TD></TR>');
     break;
    case "er":
     if (yeti[4]=="0.00")
      d.document.writeln('Rentesoort: Enkelvoudig volgens tabel</TD></TR>');
     else
      d.document.writeln('Rentesoort: Enkelvoudig volgens tabel met een opslag van '+yeti[4]+' %</TD></TR>');
     break;
    case "sr":
     if (yeti[4]=="0.00")
      d.document.writeln('Rentesoort: Samengesteld volgens tabel</TD></TR>');
     else
      d.document.writeln('Rentesoort: Samengesteld volgens tabel met een opslag van '+yeti[4]+' %</TD></TR>');
     break;
    case "or":
     if (yeti[4]=="0.00")
      d.document.writeln('Rentesoort: Wettelijke rente (enkelvoudig) volgens art. 1286 BW (oud)</TD></TR>');
     else
      d.document.writeln('Rentesoort: Wettelijke rente (enkelvoudig) volgens art. 1286 BW (oud) met een opslag van '+yeti[4]+' %</TD></TR>');
     break;
    case "hr":
     if (yeti[4]=="0.00")
      d.document.writeln('Rentesoort: Wettelijke (handels)rente (samengesteld) volgens art. 6:119a BW</TD></TR>');
     else
      d.document.writeln('Rentesoort: Wettelijke (handels)rente (samengesteld) volgens art. 6:119a BW met een opslag van '+yeti[4]+' %</TD></TR>');
     break;
    case "wr":
     if (yeti[4]=="0.00")
      d.document.writeln('Rentesoort: Wettelijke rente (samengesteld) volgens art. 6:119 BW</TD></TR>');
     else
      d.document.writeln('Rentesoort: Wettelijke rente (samengesteld) volgens art. 6:119 BW met een opslag van '+yeti[4]+' %</TD></TR>');
     break;
   }
  d.document.writeln('<TR><TH rowspan=2 valign="bottom">Datum</TH><TH colspan=2 align=center>Guldens</TH><TH colspan=2 align=center>Euro</TH><TH rowspan=2 valign="bottom">Actie</TH></TR>');
  d.document.writeln('<TR><TH>Hoofdsom</TH><TH>Rentesom</TH><TH>Hoofdsom</TH><TH>Rentesom</TH></TR>');
  for (qeta=0;qeta<yeti[6].length;qeta++){
   reactie1=EuOfFl(yeti[6][qeta][0],yeti[6][qeta][1]);
   reactie2=EuOfFl(yeti[6][qeta][0],yeti[6][qeta][2]);
    d.document.writeln('<TR><TD nowrap>'+yeti[6][qeta][0]+'</TD><TD align=right nowrap>'+punt(reactie1[0])+'</TD><TD align=right nowrap>'+punt(reactie2[0])+'</TD><TD align=right nowrap>'+punt(reactie1[1])+'</TD><TD align=right nowrap>'+punt(reactie2[1])+'</TD><TD align=right>'+yeti[6][qeta][3]+'</TD></TR>');
  }                                                                                                                                                                                                                                
  if (yeti[6][qeta-1][1]==0) {
   d.document.writeln('<TR><TD colspan=6>Vordering is geheel voldaan.</TD></TR>');
  }
  reactie1=EuOfFl(yeti[6][qeta-1][0],yeti[6][qeta-1][1]);
  tekort[0]=Math.round(100*(Number(tekort[0])+Number(reactie1[0])))/100;
  tekort[1]=Math.round(100*(Number(tekort[1])+Number(reactie1[1])))/100;
  reactie1=EuOfFl(yeti[6][qeta-1][0],yeti[6][qeta-1][2]);
  tekort[2]=Math.round(100*(Number(tekort[2])+Number(reactie1[0])))/100;
  tekort[3]=Math.round(100*(Number(tekort[3])+Number(reactie1[1])))/100;
  reactie1=EuOfFl(yeti[0],yeti[1]);
  tekort[4]=Math.round(100*(Number(tekort[4])+Number(reactie1[0])))/100;
  tekort[5]=Math.round(100*(Number(tekort[5])+Number(reactie1[1])))/100;
  d.document.writeln('</table>');
 }
 overschot=new Array(0,0,0,0);
 for (zeta=0;zeta<betalingen.length;zeta++){
  yeti=betalingen[zeta];
  d.document.writeln('<HR><table border=1>');
  d.document.writeln('<TR><TH colspan=4>Betaling met toewijzing(en): "'+yeti[2]+'"</TH></TR>');
  d.document.writeln('<TR><TD colspan=4>Datum ontvangst betaling: '+yeti[0]+'</TD></TR>');
  reactie1=EuOfFl(yeti[0],yeti[1])
  d.document.writeln('<TR><TD colspan=4>Totaalbedrag van de betaling: Fl. '+punt(reactie1[0])+' Eu. '+punt(reactie1[1])+'</TD></TR>');
  d.document.writeln('<TR><TH>Datum</TH><TH>Guldens</TH><TH>Euro</TH><TH>Actie</TH></TR>');
  for (qeta=0;qeta<yeti[3].length;qeta++){
   reactie1=EuOfFl(yeti[0],yeti[3][qeta][0]);
    d.document.writeln('<TR><TD nowrap>'+yeti[0]+'</TD><TD align=right nowrap>'+punt(reactie1[0])+'</TD><TD align=right nowrap>'+punt(reactie1[1])+'</TD><TD align=right>'+yeti[3][qeta][1]+'</TD></TR>');
  }                                                                                                                                                                                                                                
  reactie1=EuOfFl(yeti[0],yeti[3][qeta-1][0]);
  overschot[0]=Math.round(100*(Number(overschot[0])+Number(reactie1[0])))/100;
  overschot[1]=Math.round(100*(Number(overschot[1])+Number(reactie1[1])))/100;
  if (yeti[3][qeta-1][0]>0){
   d.document.writeln('<TR><TD colspan=4>Van de betaling resteert: Fl. '+punt(reactie1[0])+' Eu. '+punt(reactie1[1])+'</TD></TR>');
  }
  reactie1=EuOfFl(yeti[0],yeti[1]);
  overschot[2]=Math.round(100*(Number(overschot[2])+Number(reactie1[0])))/100;
  overschot[3]=Math.round(100*(Number(overschot[3])+Number(reactie1[1])))/100;
  d.document.writeln('</table>');
 }
 d.document.writeln('<HR><Table border=1>');
 d.document.writeln('<TR><TD>Het totaal van de oorspronkelijke vorderingen is : </TD><TD>Fl.</TD><TD align=right>'+punt(tekort[4])+'</TD><TD>Eu.</TD><TD align=right>'+punt(tekort[5])+'</TD><TR>');
 d.document.writeln('<TR><TD>Er zijn openstaande hoofdsommen ter waarde van: </TD><TD>Fl.</TD><TD align=right>'+punt(tekort[0])+'</TD><TD>Eu.</TD><TD align=right>'+punt(tekort[1])+'</TD><TR>');
 d.document.writeln('<TR><TD>Er zijn openstaande rentesommen ter waarde van: </TD><TD>Fl.</TD><TD align=right>'+punt(tekort[2])+'</TD><TD>Eu.</TD><TD align=right>'+punt(tekort[3])+'</TD><TR>');
 d.document.writeln('<TR><TD>Het totaal van de openstaande vorderingen is : </TD><TD>Fl.</TD><TD align=right>'+punt(Math.round(100*(tekort[2]+tekort[0]))/100)+'</TD><TD>Eu.</TD><TD align=right>'+punt(Math.round(100*(tekort[3]+tekort[1]))/100)+'</TD><TR>');
 d.document.writeln('<TR><TD>Het totaal van de oorspronkelijke betalingen is : </TD><TD>Fl.</TD><TD align=right>'+punt(overschot[2])+'</TD><TD>Eu.</TD><TD align=right>'+punt(overschot[3])+'</TD><TR>');
 d.document.writeln('<TR><TD>Er is een overschot aan betalingen ter waarde van: </TD><TD>Fl.</TD><TD align=right>'+punt(overschot[0])+'</TD><TD>Eu.</TD><TD align=right>'+punt(overschot[1])+'</TD><TR>');
 d.document.writeln('<TR><TD>Het totaal aan de berekende rente bedraagt : </TD><TD>Fl.</TD><TD align=right>'+punt(Math.abs(Math.round(100*(tekort[4]-overschot[2]-tekort[2]-tekort[0]+overschot[0]))/100))+'</TD><TD>Eu.</TD><TD align=right>'+punt(Math.abs(Math.round(100*(tekort[5]-overschot[3]-tekort[3]-tekort[1]+overschot[1]))/100))+'</TD><TR>');
 d.document.writeln('</TABLE>');
// CloseDoc(d);

}

function beeldAf(alfa,gamma,d){              
// d.document.writeln(' Vordering met kenmerk: '+vorderingen[gamma][5]+' dd. '+vorderingen[gamma][0]+' <BR>');
//oorspronkelijk
// d.document.writeln(' Oorspronkelijke hoofdsom: '+punt(vorderingen[gamma][1]));
// FlOfEu(d,vorderingen[gamma][0],vorderingen[gamma][1]);
 delta=vorderingen[gamma][6].length-1;
//voorgaand
 if (vorderingen[gamma][6][delta][0]!=vorderingen[gamma][0]){
//  delta=vorderingen[gamma][6].length;
//  vorderingen[gamma][6][delta]=new Array();
//  for (eta=0;eta<vorderingen[gamma][6][delta-1].length;eta++) vorderingen[gamma][6][delta][eta]=vorderingen[gamma][6][delta-1][eta];
//  vorderingen[gamma][6][delta][3]='voorgaand';
//  d.document.writeln(' Hoofdsom dd '+vorderingen[gamma][6][delta][0]+': '+punt(vorderingen[gamma][6][delta][1]));
//  FlOfEu(d,vorderingen[gamma][6][delta][0],vorderingen[gamma][6][delta][1]);
//  d.document.writeln(' Rentesom dd '+vorderingen[gamma][6][delta][0]+': '+punt(vorderingen[gamma][6][delta][2]));
//  FlOfEu(d,vorderingen[gamma][6][delta][0],vorderingen[gamma][6][delta][2]);
 }
//actueel
 if (ctod(vorderingen[gamma][6][delta][0])<ctod(betalingen[alfa][0])){
  delta=vorderingen[gamma][6].length;
  vorderingen[gamma][6][delta]=new Array();
  for (eta=0;eta<vorderingen[gamma][6][delta-1].length;eta++) vorderingen[gamma][6][delta][eta]=vorderingen[gamma][6][delta-1][eta];
  vorderingen[gamma][6][delta][3]='stand hoofdsom op deze dag, voorafgaand aan evt. verrekening:<BR><font size=-1>';
  formule[alfa]=new Array();
  formule[alfa][0]='Actuele hoofdsom = '+vorderingen[gamma][6][delta][1]+' * ';
  temp1=(tijdRente(vorderingen[gamma][6][delta][0],betalingen[alfa][0],vorderingen[gamma][0],vorderingen[gamma][3],vorderingen[gamma][4],vorderingen[gamma][6][delta][2],vorderingen[gamma][6][delta][1]));
  vorderingen[gamma][6][delta][1]=Math.round(100*vorderingen[gamma][6][delta][1]*temp1[0])/100;
  formule[alfa][0]+=temp1[1];
  if (ctod(betalingen[alfa][0])>=ctod("2002-01-01") && ctod(vorderingen[gamma][6][delta][0])<ctod("2002-01-01")){
   vorderingen[gamma][6][delta][1]=Math.round(100*(vorderingen[gamma][6][delta][1]/2.20371))/100;
   formule[alfa][0]+=' / 2.20371';
  } else {
   vorderingen[gamma][6][delta][1]=Math.round(100*(vorderingen[gamma][6][delta][1]))/100;
  }
  vorderingen[gamma][6][delta][3]+=formule[alfa][0]+'</font>';
  delta=vorderingen[gamma][6].length;
  vorderingen[gamma][6][delta]=new Array();
  for (eta=0;eta<vorderingen[gamma][6][delta-1].length;eta++) vorderingen[gamma][6][delta][eta]=vorderingen[gamma][6][delta-1][eta];
  vorderingen[gamma][6][delta-1][0]=betalingen[alfa][0];
//  d.document.writeln(' Actuele hoofdsom dd '+betalingen[alfa][0]+': '+punt(vorderingen[gamma][6][delta][1]));
//  FlOfEu(d,betalingen[alfa][0],vorderingen[gamma][6][delta][1]);
//  d.document.writeln('<a href="javascript:alert(top.formule['+alfa+'][0]+top.formule3);">Formule:</a><BR>');

  vorderingen[gamma][6][delta][3]='stand rentesom t/m deze dag, voorafgaand aan evt. verrekening:<BR><font size=-1>';
  formule[alfa][1]='Actuele rentesom = '+vorderingen[gamma][6][delta][1]+' * ';
  temp2=(tijdRente(vorderingen[gamma][6][delta][0],betalingen[alfa][0],vorderingen[gamma][0],vorderingen[gamma][3],vorderingen[gamma][4],vorderingen[gamma][6][delta][2],vorderingen[gamma][6][delta][1]));
  vorderingen[gamma][6][delta][2]=Math.round(100*vorderingen[gamma][6][delta][1]*temp2[2])/100;
  formule[alfa][1]+=temp2[3];
  vorderingen[gamma][6][delta][2]=Math.round(100*(vorderingen[gamma][6][delta][2]))/100;
  vorderingen[gamma][6][delta][3]+=formule[alfa][1]+'</font>';

//  d.document.writeln(' Actuele rentesom dd '+betalingen[alfa][0]+': '+punt(vorderingen[gamma][6][delta][2]));
//  FlOfEu(d,betalingen[alfa][0],vorderingen[gamma][6][delta][2]);
//  d.document.writeln('<a href="javascript:alert(top.formule['+alfa+'][1]+top.formule3);">Formule:</a><BR>');
  vorderingen[gamma][6][delta][0]=betalingen[alfa][0];
 }
//verrekening
 if (vorderingen[gamma][6][delta][2]>0 && betalingen[alfa][3][betalingen[alfa][3].length-1][0]!=0){
  upsi=betalingen[alfa][3].length;
  betalingen[alfa][3][upsi]=new Array();
  for (eta=0;eta<betalingen[alfa][3][upsi-1].length;eta++) betalingen[alfa][3][upsi][eta]=betalingen[alfa][3][upsi-1][eta];
  betalingen[alfa][3][upsi][1]='verrekening (deel) rentesom van vordering dd. '+vorderingen[gamma][0]+' met het kenmerk: '+vorderingen[gamma][5];
  delta=vorderingen[gamma][6].length;
  vorderingen[gamma][6][delta]=new Array();
  for (eta=0;eta<vorderingen[gamma][6][delta-1].length;eta++) vorderingen[gamma][6][delta][eta]=vorderingen[gamma][6][delta-1][eta];
  reactie1=EuOfFl(betalingen[alfa][0],betalingen[alfa][3][betalingen[alfa][3].length-1][0])
  vorderingen[gamma][6][delta][3]='verrekening rentesom met (restant) betaling ad. Fl. '+punt(reactie1[0])+' Eu. '+punt(reactie1[1]);
//  d.document.writeln(' Verrekening met rentesom: ');
  if (vorderingen[gamma][6][delta][2]==betalingen[alfa][3][betalingen[alfa][3].length-1][0]){
//   d.document.writeln(vorderingen[gamma][6][delta][2]+' - '+betalingen[alfa][3][betalingen[alfa][3].length-1][0]+' = 0.00<BR>');
   vorderingen[gamma][6][delta][2]=0;
   betalingen[alfa][3][betalingen[alfa][3].length-1][0]=0;
  }
  if (vorderingen[gamma][6][delta][2]>betalingen[alfa][3][betalingen[alfa][3].length-1][0]){
//   d.document.writeln(vorderingen[gamma][6][delta][2]+' - '+betalingen[alfa][3][betalingen[alfa][3].length-1][0]+' = '+punt(Math.round(100*(vorderingen[gamma][6][delta][2]-betalingen[alfa][3][betalingen[alfa][3].length-1][0]))/100));
//   FlOfEu(d,betalingen[alfa][0],Math.round(100*(vorderingen[gamma][6][delta][2]-betalingen[alfa][3][betalingen[alfa][3].length-1][0]))/100);
   vorderingen[gamma][6][delta][2]=Math.round(100*(vorderingen[gamma][6][delta][2]-betalingen[alfa][3][betalingen[alfa][3].length-1][0]))/100;
   betalingen[alfa][3][betalingen[alfa][3].length-1][0]=0;
  }
  if (vorderingen[gamma][6][delta][2]<betalingen[alfa][3][betalingen[alfa][3].length-1][0]){
//   d.document.writeln(vorderingen[gamma][6][delta][2]+' - '+vorderingen[gamma][6][delta][2]+' = 0.00<BR>');
   betalingen[alfa][3][betalingen[alfa][3].length-1][0]=punt(Math.round(100*(betalingen[alfa][3][betalingen[alfa][3].length-1][0]-vorderingen[gamma][6][delta][2]))/100);
   vorderingen[gamma][6][delta][2]=0;
  }
 }
 if (vorderingen[gamma][6][delta][1]>0 && betalingen[alfa][3][betalingen[alfa][3].length-1][0]!=0){
  upsi=betalingen[alfa][3].length;
  betalingen[alfa][3][upsi]=new Array();
  for (eta=0;eta<betalingen[alfa][3][upsi-1].length;eta++) betalingen[alfa][3][upsi][eta]=betalingen[alfa][3][upsi-1][eta];
  betalingen[alfa][3][upsi][1]='verrekening (deel) hoofdsom van vordering dd. '+vorderingen[gamma][0]+' met het kenmerk: '+vorderingen[gamma][5];
  delta=vorderingen[gamma][6].length;
  vorderingen[gamma][6][delta]=new Array();
  for (eta=0;eta<vorderingen[gamma][6][delta-1].length;eta++) vorderingen[gamma][6][delta][eta]=vorderingen[gamma][6][delta-1][eta];
  reactie1=EuOfFl(betalingen[alfa][0],betalingen[alfa][3][betalingen[alfa][3].length-1][0])
  vorderingen[gamma][6][delta][3]='verrekening hoofdsom met (restant) betaling ad. Fl. '+punt(reactie1[0])+' Eu. '+punt(reactie1[1]);
//  d.document.writeln(' Verrekening met hoofdsom: ');
  if (vorderingen[gamma][6][delta][1]==betalingen[alfa][3][betalingen[alfa][3].length-1][0]){
//   d.document.writeln(vorderingen[gamma][6][delta][1]+' - '+betalingen[alfa][3][betalingen[alfa][3].length-1][0]+' = 0.00<BR>');
   vorderingen[gamma][6][delta][1]=0;
   betalingen[alfa][3][betalingen[alfa][3].length-1][0]=0;
  }
  if (vorderingen[gamma][6][delta][1]>betalingen[alfa][3][betalingen[alfa][3].length-1][0]){
//   d.document.writeln(vorderingen[gamma][6][delta][1]+' - '+betalingen[alfa][3][betalingen[alfa][3].length-1][0]+' = '+punt(Math.round(100*(vorderingen[gamma][6][delta][1]-betalingen[alfa][3][betalingen[alfa][3].length-1][0]))/100));
//   FlOfEu(d,betalingen[alfa][0],Math.round(100*(vorderingen[gamma][6][delta][1]-betalingen[alfa][3][betalingen[alfa][3].length-1][0]))/100);
   vorderingen[gamma][6][delta][1]=Math.round(100*(vorderingen[gamma][6][delta][1]-betalingen[alfa][3][betalingen[alfa][3].length-1][0]))/100;
   betalingen[alfa][3][betalingen[alfa][3].length-1][0]=0;
  }
  if (vorderingen[gamma][6][delta][1]<betalingen[alfa][3][betalingen[alfa][3].length-1][0]){
//   d.document.writeln(vorderingen[gamma][6][delta][1]+' - '+vorderingen[gamma][6][delta][1]+' = 0.00<BR>');
   betalingen[alfa][3][betalingen[alfa][3].length-1][0]=Math.round(100*(betalingen[alfa][3][betalingen[alfa][3].length-1][0]-vorderingen[gamma][6][delta][1]))/100;
   vorderingen[gamma][6][delta][1]=0;
  }
 }
}

// functie in ongebruik, bepaalt verschil tussen twee data in dagen
// komt wsl. weer terug, ik vindt de doorloop van dag tot dag te omslachtig
function dagVerschil(aDag,bDag){
 a=Math.round((aDag.getTime()-bDag.getTime())/(24*60*60*1000));
 if (a<0) alert(aDag+' - '+bDag)
 return a;
}
/*
//datum formaat controle moet zijn jjjj-mm-dd
function isDate(data){
 if (data.length!=10) return false;
 if (data.substring(4,5)!='-') return false;
 if (data.substring(7,8)!='-') return false;
 a1 = data.substring(0,4);
 if (parseInt(a1,10)<1935) return false;
// if (parseInt(a1,10).toString()!=a1) return false;
 if (parseInt(a1,10)!=a1) return false;
 a1 = data.substring(5,7);
 if (parseInt(a1,10)<1) return false;
 if (parseInt(a1,10)>12) return false;
 a1 = data.substring(8,10);
 if (parseInt(a1,10)<1) return false;
 if (parseInt(a1,10)>31) return false;
 return (dtoc(ctod(data))===data);
}
*/
// valt een dag in een schrikkeljaar of niet, is de dag na 28 feb in hetzelfde jaar nog steeds feb?
function schrikJaar(aDag){
 if (ctod(aDag.getFullYear()+'-02-28',0,0,1).getMonth()==1)
  return 366;
 else
  return 365;
}
/*
// zet 'jjjj-mm-dd' formaat om in een datum character to date
function ctod(data,a,b,c) {
 switch(arguments.length){
  case 1:
   a=0;
  case 2:
   b=0;
  case 3:
   c=0;
 }
 a1 = parseInt(data.substring(0,4),10);
 b1 = parseInt(data.substring(5,7),10)-1;
 c1 = parseInt(data.substring(8,10),10);
 if (c1>28) {
  c=c+c1-28;
  c1=28;
 }
 b=b+b1;
 b1=0;
 for (x=0; b>11;x++) {
  b=b-12;
  a1++;
 }
 for (x=0; b<0;x++) {
  b=b+12;
  a1--;
 }
 data = new Date(a1+a, b1+b, c1,0,0,0,0);
 data = Math.round(data.getTime()/(1000*60*60*24));
 data = (data+c)*(1000*60*60*24);
 data = new Date(data);
 return data;
}

// zet datum om in 'jjjj-mm-dd' formaat date to character

function dtoc(datb) {
 jaar=datb.getFullYear();
 maand=datb.getMonth()+1;
 dag=datb.getDate();
 jaar=jaar.toString(10);
 maand=maand.toString(10);
 dag=dag.toString(10);
 if (jaar.length==2) {
  jaar="19"+jaar;
 }
 if (maand.length==1) {
  maand="0"+maand;
 }
 if (dag.length==1) {
  dag="0"+dag;
 }
 return jaar+"-"+maand+"-"+dag;
}
*/
//hoofdfunctie

function tijdRente(lbd,des,abd,rc,ops,rs,hs){
/*
lbd= laatste betaaldatum
des= dag eind saldo
abd= absolute begindag
rc = rente code
ops= opslag
rs = rentesom
hs = hoofdsom
*/
//alert(lbd+'\n'+des+'\n'+abd+'\n'+rc+'\n'+ops+'\n'+rs+'\n'+hs);
var totenmet=1;
if (totenmet) totenmet=1; else totenmet=0;
var totenmet=1;
// Dit is een snelheidstest---->    nu1=new Date().getTime();
// maak formulier beschikbaar in deze functie
// vorm=this.document.forms['nas'];
// lbd : eerste verzuimdag ergo: incl. deze dag
// des : dag eind saldo, ergo incl. deze dag.

 factor= new Array(0,'',0,'');
// resultaat in een array
 if (arguments.length==0) return factor;
// zonder begindag

 if (arguments.length==1) {
  des=dtoc(new Date());
 } else {
  if (!isDate(des)) {
   des=dtoc(new Date());
  }
 }
// vorm['Einde'].value=des;
 des=dtoc(ctod(des,0,0,totenmet));
// als des onbekend, dan t/m vandaag

 if (!isDate(lbd)) {
  factor[1]=(lbd+' : verkeerde begindatum');
 return factor;
 }
 lbd=dtoc(ctod(lbd,0,0,1));
 abd=dtoc(ctod(abd,0,0,1));
//lbd = eerste verzuimdag

 if (ctod(lbd)>ctod(des)){
// alert(ctod(lbd)+'\n'+ctod(des));
  factor[0]=1;
  factor[1]=('Er is nog geen rente verschuldigd.');
  factor[2]=0;
  factor[3]=('Er is nog geen rente verschuldigd.');
//factor[1]=('FOUT! : Begindatum >= Einddatum');
  return factor;
 }
// foutcontrole op datums

// sg = samengestelde rente
 var sg=true;
// is er een opslag
// var opslag=parseFloat(vorm['Opslag'].value);
 var opslag=Number(ops);
 var tarifs= new Array();
// laad de tarieven
 switch (rc){
  case "hr":
   for (a=0;a<top.hrtar.length;a++) {
    tarifs[a]=new Array();
    tarifs[a][0]=top.hrtar[a][0];
    tarifs[a][1]=Number(top.hrtar[a][1]);
   }
   break;
  case "wr":
   for (a=0;a<top.wrtar.length;a++){
    tarifs[a]=new Array();
    tarifs[a][0]=top.wrtar[a][0];
    tarifs[a][1]=Number(top.wrtar[a][1]);
   }
//   if (opslag>0) sg=false;
   break;
  case "or":
   for (a=0;a<top.ortar.length;a++){
    tarifs[a]=new Array();
    tarifs[a][0]=top.ortar[a][0];
    tarifs[a][1]=Number(top.ortar[a][1]);
   }
    sg=false;
   break;
  case "ev":
   for (a=0;a<top.evtar.length;a++){
    tarifs[a]=new Array();
    tarifs[a][0]=top.evtar[a][0];
    tarifs[a][1]=Number(top.evtar[a][1]);
   }
   sg=false;
   break;
  case "sv":
   for (a=0;a<top.svtar.length;a++){
    tarifs[a]=new Array();
    tarifs[a][0]=top.svtar[a][0];
    tarifs[a][1]=Number(top.svtar[a][1]);
   }
   break;
  case "er":
   if (top.ertar.length>0)
    for (a=0;a<top.ertar.length;a++){
     tarifs[a]=new Array();
     tarifs[a][0]=top.ertar[a][0];
     tarifs[a][1]=Number(top.ertar[a][1]);
    }
   else
    for (a=0;a<top.svtar.length;a++){
     tarifs[a]=new Array();
     tarifs[a][0]=top.svtar[a][0];
     tarifs[a][1]=Number(top.svtar[a][1]);
    }
   sg=false
   break;
  case "sr":
   if (top.srtar.length>0)
    for (a=0;a<top.srtar.length;a++){
     tarifs[a]=new Array();
     tarifs[a][0]=top.srtar[a][0];
     tarifs[a][1]=Number(top.srtar[a][1]);
    }
   else
    for (a=0;a<top.svtar.length;a++){
     tarifs[a]=new Array();
     tarifs[a][0]=top.svtar[a][0];
     tarifs[a][1]=Number(top.svtar[a][1]);
    }
   break;
  default:
   alert('fout bij tariefbepaling');
   return;
 }
 tarifs=tarifs.sort();
// als eerste verzuimdag < dag de kleinste tariefdatum dan foutmelding
 if (ctod(lbd)<ctod(tarifs[0][0])){
  factor[0]=1;
  factor[1]=('Er is geen rentetarief gedefinieerd.');
  factor[2]=0;
  factor[3]=('Er is geen rentetarief gedefinieerd.');
  return factor;
 }


 tarifs[tarifs.length]= new Array(lbd,"a");
// plaats lbd in reeks datums, letter zorgt voor plaats na tarief op zelfde datum
 tarifs[tarifs.length]= new Array(des,"@");
// plaats des in reeks datums, 0 zorgt voor plaats voor tarief op zelfde datum
 tarifs.sort();
//sorteer tarifs op datum

// straks doorloop van tarieventabel, rekenen begint pas als start= true
 start=false;
// x is het aantal hele jaren na de eerste verzuimdag -> bijtelling ingeval sg=true
 var x = 0;
 while (ctod(abd,x)<=ctod(lbd)) x++;
// rente wordt gevuld a.d.h.v. tarieventabel, begin waarde=0
 var rente = 0;
// onderstaande vars zijn aantal 366-dagen resp. 365-dagen in een periode
 var tllr366=0;
 var tllr365=0;

// doorloop tarieventabel
 for (i=0;i<tarifs.length;i++){
  if (!start)
// lbd in tarieventabel?
   if (tarifs[i][1]=="a") {
    start=true;
//eerste dag van eerste periode
    thisDate=ctod(tarifs[i][0]);
   } else
//terug naar for-statement
    continue;
// des in tarieventabel, stap uit for-statement
   if (tarifs[i][1]=="@") break;
// rente lopende periode
   rente=tarifs[i][1]+opslag;
// als de rente geen getal is (datum=lbd) dan de rente ervoor pakken;
   if (isNaN(rente)) {
    if (tarifs[i-1][1]=="@") {
  factor[0]=1;
  factor[1]=('De looptijd is nul dagen.');
  factor[2]=0;
  factor[3]=('De looptijd is nul dagen.');
  return factor;
    }
    rente=tarifs[i-1][1]+opslag;
   }
//   alert(rente);
// doorloop waarin periode worden vastgesteld tot de volgende tariefswijziging
   while (thisDate<ctod(tarifs[i+1][0])) {
// de langst mogelijke periode eindigt per datum des
    nextDate=ctod(dtoc(ctod(des)));
// als samengestelde interest, en de eerstvolgende bijteldatum is eerder dan des, dan is dat einde deze periode
    if (sg) if (nextDate>ctod(abd,x)) nextDate=ctod(abd,x);
// als de eerstvolgende tariefswijziging voor de totnogtoe gestelde einde periode valt, dan is dat de einde periode
    if (nextDate>ctod(tarifs[i+1][0])) nextDate=ctod(dtoc(ctod(tarifs[i+1][0])));
// de periode staat nu vast!

// Inzake de opbouw van de formule:
// als samengestelde interest dan is var samen true als de eindeperiode gelijk is aan de bijteldatum, anders false
    if (sg) samen=(dtoc(nextDate)==dtoc(ctod(abd,x))); else samen=sg;
//  var einde is true als de eindeperiode gelijk is aan des, anders false
    einde=(dtoc(nextDate)==dtoc(ctod(des)));
//  var tarif is true als de eindeperiode gelijk is aan de eerstvolgende tariefswijziging false
    tarif=(dtoc(nextDate)==dtoc(ctod(tarifs[i+1][0])) && tarifs[i+1][1]!=rente-opslag);

// doorloop de periode van dag tot dag en bepaal of het een schrikkeljaardag is of niet
// verhoog de de betreffende teller

//    for (j=0;dtoc(ctod(dtoc(thisDate),0,0,j))!=dtoc(ctod(dtoc(nextDate),0,0,0));j++) {
//     if (schrikJaar(ctod(dtoc(thisDate),0,0,j))==366) tllr366++; else tllr365++;
//    }
// onderstaande scheelt 18,5 seconden op bovenstaande bij periode 1935-01-01 t/m 2003-02-29
    for (j=0;dtoc(ctod(dtoc(thisDate),0,0,j))!=dtoc(ctod(dtoc(nextDate),0,0,0));j++) {
     k=0;
     if (nextDate.getFullYear()>ctod(dtoc(thisDate),0,0,j).getFullYear()) {
      k+=dagVerschil(ctod(ctod(dtoc(thisDate),0,0,j).getFullYear()+'-12-31'),ctod(dtoc(thisDate),0,0,j-1));
      if (schrikJaar(ctod(dtoc(thisDate),0,0,j))==366) {
       tllr366+=k;
      } else{
       tllr365+=k;
      }
      j+=k-1;
     } else {
      if (schrikJaar(ctod(dtoc(thisDate),0,0,j))==366) {
       tllr366++;
      } else{
       tllr365++;
      }
     }
    }

// voor volgende periode wordt begindatum gelijk aan huidige einddatum
    thisDate=nextDate;

// OPBOUW FORMULE
// als tariefwijziging
    if (tarif) {
// als de formule nog leeg is, open met een haakje
     if (factor[1]==''){
      factor[1]='( ( '+rs+'/'+hs+') + ';
     } else {
// anders en als er is afgesloten met een bijtelling, open met vermenigvuldigen en open haakje
      if (factor[1].substring(factor[1].length-8)=='(1/1) ) ') factor[1]+='* ( ';
     }
// als er twee tijd-breuken zijn, open haakje
     if (tllr365>0 && tllr366>0) factor[1]+='( ';
// schrijf 365-breuk tussen eigen haakjes
     if (tllr365>0) factor[1]+='('+tllr365+'/365) ';
// als er twee tijd-breuken zijn, tel ze op tot 1 tijdfactor
     if (tllr365>0 && tllr366>0) factor[1]+='+ ';
// schrijf 366-breuk tussen eigen haakjes
     if (tllr366>0) factor[1]+='('+tllr366+'/366) ';
// als er twee tijd-breuken zijn, sluit haakje
     if (tllr365>0 && tllr366>0) factor[1]+=') ';
// om de een of andere reden vindt js mijn of-statement нн niet goed,
// daarom deze formule: als er een tijdfactor is, vermenigvuldig met rente
     if (tllr365>0) {
      factor[1]+='* ('+rente+'/100) + ';
     } else {
      if (tllr366>0) {
       factor[1]+='* ('+rente+'/100) + ';
      }
     }
// reset tellers
     tllr365=0;
     tllr366=0;
    }
// ingeval van een bijtelling:
// herhaling vanwege samenvallen van datums, zie voor commentaar hierboven
    if (samen) {
     if (!(tllr366==0 && tllr365==0)){
      if (factor[1]==''){
       factor[1]='( ( '+rs+'/'+hs+') + ';
//      if (factor[1]==''){
//       factor[1]='( ';
      } else {
       if (factor[1].substring(factor[1].length-8)=='(1/1) ) ') factor[1]+='* ( ';
      }
      if (tllr365>0 && tllr366>0) factor[1]+='( ';
      if (tllr365>0) factor[1]+='('+tllr365+'/365) ';
      if (tllr365>0 && tllr366>0) factor[1]+='+ ';
      if (tllr366>0) factor[1]+='('+tllr366+'/366) ';
      if (tllr365>0 && tllr366>0) factor[1]+=') ';
      if (tllr365>0) {
       factor[1]+='* ('+rente+'/100) + ';
      } else {
       if (tllr366>0) {
        factor[1]+='* ('+rente+'/100) + ';
       }
      }
      tllr365=0;
      tllr366=0;
     }
// als de formule niet al eindigt op (1/1) voeg dit dan toe en sluit af met een haakje
     if (factor[1].substring(factor[1].length-8)!='(1/1) ) ') factor[1]+=' (1/1) ) ';
// de bijteldatum, een jaar verlegd
     x++;
     tllr365=0;
     tllr366=0;
    }
// afronding van de formule
    if (einde) {
     if (!(tllr366==0 && tllr365==0)){
     if (factor[1]==''){
       factor[1]='( ( '+rs+'/'+hs+') + ';
//      if (factor[1]==''){
//       factor[1]='( ';
      } else {
       if (factor[1].substring(factor[1].length-8)=='(1/1) ) ') factor[1]+='* ( ';
      }
      if (tllr365>0 && tllr366>0) factor[1]+='( ';
      if (tllr365>0) factor[1]+='('+tllr365+'/365) ';
      if (tllr365>0 && tllr366>0) factor[1]+='+ ';
      if (tllr366>0) factor[1]+='('+tllr366+'/366) ';
      if (tllr365>0 && tllr366>0) factor[1]+=') ';
      if (tllr365>0) {
       factor[1]+='* ('+rente+'/100) + ';
      } else {
       if (tllr366>0) {
        factor[1]+='* ('+rente+'/100) + ';
       }
      }
      tllr365=0;
      tllr366=0;
     }
// als formule niet reeds eindigt met (1/1) voeg dan (1) toe en sluit af met een hekje
// reden voor andere formulering 1 is dat we achteraf de lopende rente van de lopende hoofdsom kunnen onderscheiden
     if (factor[1].substring(factor[1].length-8)!='(1/1) ) ') factor[1]+=' (1) ) ';
//     x++;
     tllr365=0;
     tllr366=0;
    }
   }
  }
 if (factor[1].substring(factor[1].length-6)=='(1) ) ') {
  haakR=2;
  haakL=1;
  for (a=factor[1].length-8;a>=0;a--){
   if (String.fromCharCode(factor[1].charCodeAt(a))==')') haakR++;
   if (String.fromCharCode(factor[1].charCodeAt(a))=='(') haakL++;
   if (haakR==haakL) {
    factor[3]=factor[1].substring(a,factor[1].length-9)+")";
    factor[1]=factor[1].substring(0,a-3);
    if (factor[1].length==0) factor[1]="1";
//    alert(factor);
    a=-1;
   }
  }
 } else {
  factor[3]="0";
 }
// maak van de formule een functie, brilliant vind ik want hiermee een goed controle of haakjes kloppen
  waarde = new Function('return '+factor[1]+';')
//alert(waarde);
//alert(waarde());
// geef factor[0] de waarde van de formule in factor[1]
  factor[0]=waarde();
//  alert(factor)
  waarde = new Function('return '+factor[3]+';')
  factor[2]=waarde();
// Dit is een snelheidstest---->    nu2=new Date().getTime();
// Dit is een snelheidstest---->alert(nu1+'\n'+nu2)
  return factor;
 }

function disform(vorm,uit){
 for (var t=0;t<vorm.elements.length-2;t++){
  vorm.elements[t].disabled=uit;
 }
}

function punt(num) {
 if (!isNaN(num)) {
  num = num.toString();
 } else {
  return num;
 }
 dot='.';
 if (arguments.length>1) dot=arguments[1];
 len1 = num.lastIndexOf(".");
 len2 = num.length;
 if (len1 == -1 ) {
  num = num+dot+"00";
 } else {
  if (len2 == 0) {
   num = num+dot+"00";
  } else {
   num=num.replace(".",dot);
   len1 = num.lastIndexOf(dot);
   if (len1 == len2 -1) {num = num+"00";}
   if (len1 == len2 -2) {num = num+"0";}
   if (len1 == 0) {num= "0"+num;}
  }
 }
 return num;
}

function gericht(ref){
// if (ref.indexOf("openweb.interpolis.nl",0)>0) alert("Interpolis zou deze site best mogen sponsoren, gezien het gebruik ... vindt u niet?");
// if (ref.indexOf("www.pivkennisnet.nl",0)>0) alert("De Stichting Personenschade Institutuut van Verzekeraars zou deze site best mogen sponsoren, gezien het gebruik ... vindt u niet?");
}

function BWnw(a,b){
 return '<a href="javascript:BWlink('+"'"+a+"'"+','+"'"+b+"'"+');">art. '+a+':'+b+'</a>';
}

function BWlink(a,b){
 URL='http://wetten.overheid.nl/cgi-bin/deeplink/law1/title=Burgerlijk%20Wetboek%20Boek%20'+a+'/article='+b;
 wetwin=open(URL, 'wettxt', 'dependent=yes,scrollbars=yes,status=no,toolbar=no,titlebar=no,menubar=no,personal=no')
 alert('Even geduld, systeem haalt de meest actuele wettekst op bij www.wetten.nl');
 wetwin.focus();
}

function BW(a,b){
 return '<a href="http://wetten.overheid.nl/cgi-bin/deeplink/law1/title=Burgerlijk%20Wetboek%20Boek%20'+a+'/article='+b+'" target="_new">art. '+a+':'+b+'</a>';
}

function Fl2Eu(bedrag){
 return top.punt(Math.round(100*(bedrag/2.20371))/100);
}
function Eu2Fl(bedrag){
 return top.punt(Math.round(100*(bedrag*2.20371))/100);
}

function FlOfEu(d,datum,bedrag){
 if (ctod(datum)<ctod("2002-01-01"))
  d.document.writeln(' Guldens <font size=-1>('+Fl2Eu(bedrag)+' Euro)</font><BR>');
 else
  d.document.writeln(' Euro <font size=-1>('+Eu2Fl(bedrag)+' Guldens)</font><BR>');
}
function EuOfFl(datum,bedrag){
 reactie=new Array()
 if (ctod(datum)<ctod("2002-01-01")){
  reactie[0]=bedrag;
  reactie[1]=Fl2Eu(bedrag);
 } else {
  reactie[1]=bedrag;
  reactie[0]=Eu2Fl(bedrag);
 }
 return reactie;
}

function changeSpan(doc,spanid,spantxt){
 doc.getElementById(spanid).innerHTML=spantxt;
}



if (top.location.search.substring())
 tmp=top.location.href.lastIndexOf('?');
else
 tmp=top.location.href.length;
tmp=top.location.href.substring(0,tmp).lastIndexOf('/')+1;
//if (top.location.protocol.toLowerCase()=="file:")
// top.document.scripts[0].src=top.location.href.substring(0,tmp)+"../wrjs/wr.js";
//else
 top.document.scripts[0].src="http://www.wettelijkerente.dds.nl/wr.js";

//alert('24 juni 2005 Belangrijk:\nTotnogtoe ging dit programma ervanuit dat het gebruik van een opslag \nbovenop de wettelijke rente van art. 6:119 BW leidde tot enkelvoudige interest.\nDat was gestoeld op lid 3 van dat artikel, maar lijkt onjuist. Nu gaat het programma \nuit van samengestelde interest, ook al kan dat onjuist zijn. De vorm wettelijke rente\n+ opslag is namelijk altijd contractueel en zou ook enkelvoudig kunnen zijn.');