// javascript Document: cbs_java.js
//(c) Copyright ClassBase Software
// Alle rechten voorbehouden. 
// Niets uit dit bestand mag zonder schriftelijke toestemming van de firma ClassBase aangepast, gekopieerd of gebruikt worden
// VBScript by: M. de Kort / marco@classbase.net
// Auteursrechten: firma ClassBase (Ing. Marco JCM de Kort) te Kaatsheuvel 
//---------------------------------------------------------------------------------------------------
var strUserIDGlobal = "#empty#"
//var cojsTAAL="nl"			//taal instelling: in bron html/of asp pagina aanbrengen.
//LET OP BIJ VERTALING NIET ' GEBRUIKEN MAAR ´
var strTransport=""		//globale tijdelijke variabele 
var strNChar=String.fromCharCode(8230)		//nivo teken bij trefwoorditems "·" 0133 unicode 8230  -- fromCharCode(8230)"."
//UITGEBREIDE DATUMVALIDATIE
var minYear=1900;
var maxYear=2100;
var daFormat="dd-mm-yyyy";
var daDecTeken=","		//decimaal teken tbv invoer en controle (javascript werkt uiteraard altijd met .
var wmtt=null;
var strAutoExp="";		//autoexpand tekens
var xmlHttp;			//AJAX
var strJXIDNaam			//tbv AJAX (parameter kan niet bij statechanged doorgegeven worden
var strJXIDNaamCombo	//tbv AJAX (parameter kan niet bij statechanged doorgegeven worden
var cboGCOPY=new Array()			//copy combolijst (orgineel)
var vWinVoort //voortgangswindow (public om te ontdekken of deze wel/niet open is)
var vWinTref 	//popup window trefwoorden
var vWinflyout	//popup window bijlage popup flyout
var nMouseX = 0;	//muispositie x
var nMouseY = 0;	//muispositie y
//---------------------------------------------------------------------------------------------------
function cbjsVersie()
//versienummer js-file
{ 
//return  ((cbjsTestVDatum(t, 0,"dd-mm-yyyy",1900,2030, "MELDING_AFDATUM_DAY","MELDING_AFDATUM_MONTH","MELDING_AFDATUM_YEAR")) && ( cbCheckedValue("cboKeuzeHO").substr(8,2)=="99" )? cbCheckDate2(t, 2,"", -1): true)
//var x =( cbCheckedValue("cboKeuzeHO").substr(8,2)=="99" )?cbCheckDate2(t, 2,"", -1):"leeg" )
//return (cbjsTestVDatum(t, 0,"dd-mm-yyyy",1900,2030, "MELDING_AFDATUM_DAY","MELDING_AFDATUM_MONTH","MELDING_AFDATUM_YEAR"))
//&& (if ( cbCheckedValue("cboKeuzeHO").substr(8,2)=="99" ) { cbCheckDate2(t, 2,"", -1)})
//&& ( "99"=="99" )? cbCheckDate2(t, 2,"", -1): true;)
return "javascript rev. 11.05"
}
//function cbMaximize()
//self.moveTo(0,0)
//self.resizeTo(screen.availWidth,screen.availHeight)
//---------------------------------------------------------------------------------------------------
function cbOpenHLink(x) {
//Open document cq. hyperlink
//var x = document.FormOrganon
var strFile
strFile=x;
if (strFile != null && strFile != "")
	{
	// Als je de window een naam geeft dan wordt een nieuwe popup in hetzelfde window geopend.
	window.open(strFile, "","resizable=yes,scrollbars=yes,width=400,height=400,top=300,left=300");
	}
else 
	{
	alert("Niets ingevoerd.../No data")
	}
}
//---------------------------------------------------------------------------------------------------

function  cbNwActie(cbolijst, intNameWidth) {
// nieuwe naam ingevuld? zo ja, dan moeten we eigenlijk de lijst uitbreiden
var intLengte
var strName, strName2, strBericht
if (cbolijst.value == "*NEW*")
	{
	intLengte = cbolijst.length;
	strBericht="Nieuwe naam:"
	if (cojsTAAL=="gb") {strBericht="New name:"}
	if (cojsTAAL=="fr") {strBericht="Nouveau nom:"}
    strName = cbInputBox(strBericht);
	strName=Trim(strName)
	if (strName != null && strName != "") {
		strName2 = strName.substr(0,intNameWidth-1);
		// 2e element is value
		cbolijst[intLengte]=new Option(strName2, strName);
		cbolijst.selectedIndex = intLengte;
	                                 }
    else
		{cbolijst.selectedIndex = 0;}									 
	}
}
//---------------------------------------------------------------------------------------------------

function  cbNwStatus(cbolijst, intNameWidth) {
// nieuwe naam ingevuld? zo ja, dan moeten we eigenlijk de lijst uitbreiden
// r52
var intLengte
var strName, strName2
if (cbolijst.value == "*NEW*")
	{
	intLengte = cbolijst.length;
    strName = cbInputBox("Status:");
	strName=Trim(strName)
	if (strName != null && strName != "") {
		strName2 = strName.substr(0,intNameWidth-1);
		// 2e element is value
		cbolijst[intLengte]=new Option(strName2, strName);
		cbolijst.selectedIndex = intLengte;
	                                 }
    else
		{cbolijst.selectedIndex = 0;}									 
	}
}
//---------------------------------------------------------------------------------------------------
function cbAktieCheck(t)
{
var strBericht	
if (t.value=="")	{ 
	strBericht="Let op: deze actie zal niet opgeslagen en verwijderd worden. Wilt u dit niet: vul dan een actie in."
	if (cojsTAAL=="gb") {strBericht="Attention: this action will not be saved, unless you fill in an action"}
	if (cojsTAAL=="fr") {strBericht="Attention: action n'est pas enregistré (à moins que remplir action)"}

alert(strBericht) }
return true
}
//---------------------------------------------------------------------------------------------------
function cbResetUserID() {
//Wis gebruikers id uit het form
strUserIDGlobal = "#EMPTY#";
}
//---------------------------------------------------------------------------------------------------
function cbSetUserID(strUserID) {
//Wis gebruikers id uit het form
strUserIDGlobal = strUserID;
//window.location="cbs_start.asp?res="+screen.width+"&resh="+screen.height
//top.document.location.replace("cbs_start.asp?res="+screen.width+"&resh="+screen.height);
}
//---------------------------------------------------------------------------------------------------
function cbNwTrefOption(varnaam) 
{
var oDocForm, strParentForm, nOrgL, nNewL, i, cboLijst, strStreep, cboOrg, strBericht, iSelIndex, nRij
oDocForm=opener.document.forms[0];
strParentForm=oDocForm.name;
cboOrg=oDocForm(varnaam)
try
	{ 
	cboOrg.options[0].value }
catch (err)
	{ 
		strBericht="Alleen de eerste rij kan bijgewerkt worden..."
		if (cojsTAAL=="gb") {strBericht="Attention: only the first row can be refreshed"}
		if (cojsTAAL=="fr") {strBericht="Attention: Seule la première ligne est actualiser"}
		alert(strBericht)
		nRij=0
		cboOrg=oDocForm(varnaam)[nRij] }

nOrgL=cboOrg.length
cboLijst=window.cboNieuw		//scherm cboNieuw: hidden combo ahv trefboom: actueel bijgewerkt.
nNewL=cboLijst.length
iSelIndex=nNewL-2	//default voorlaatste selecteren
if (nNewL>=nOrgL)		//mogelijk om nieuwe item te detecteren en te selecteren
	{
		for (i = 0; i < nOrgL; i++)		//complete lijst kopiëren
		{
			if (cboOrg.options[i].value!=cboLijst.options[i].value)
			{
				iSelIndex=i
				i=nOrgL+1	//exit
			}
		}
	}
cboOrg.length=nNewL		//vergroot de orginele lijst
for (i = 0; i < nNewL; i++)		//complete lijst kopiëren
	{
		cboOrg.options[i].text=cboLijst.options[i].text
		cboOrg.options[i].value=cboLijst.options[i].value
	}
cboOrg.selectedIndex=iSelIndex
return
// oude code van voor aug 2006
for (i = 0; i < nOrgL; i++)
	{
	//kijk of de nieuwe deze index wel heeft
	if (i<nNewL)
		{
		//alert(i + "-" + cboLijst.options[i].text)
		cboOrg.options[i].text=cboLijst.options[i].text
		cboOrg.options[i].value=cboLijst.options[i].value
		}
	else
		{
			cboOrg.options[i]=null		//wis de waarde
		}			//lengte
	}	//for
//waarden vervangen, kijk of er waarden toegevoegd moeten worden
//WERKT DUS HELAAS NIET, CRASHED DE IEXPL
if (nOrgL+2 < nNewL)
	{
	strBericht="Er kunnen maximaal 2 nieuwe trefwoorden per keer in de lijst bijgewerkt worden."
	if (cojsTAAL=="gb") {strBericht="Maximum 2 catchwords can be updated"}
	if (cojsTAAL=="fr") {strBericht="Maximum 2 mots-clés peut être mis à jour"}
	alert(strBericht)
	}

}
//---------------------------------------------------------------------------------------------------
function cbNwTref(cbolijst, intNameWidth) {
//Nieuw trefwoord
//check login id van de gebruiker
//var x = document.FormOrganon
var strRu, intLengte, strW1, strV1, strVar, oDocForm, cboOrg, strWaarde = cbolijst.value, strBericht, nRij
if (strWaarde.substr(0,5) == "*NEW*")	
	{
	//*NEW*
	intLengte = cbolijst.length;
	strVar=cbolijst.name
	oDocForm=document.forms[0];
	//Altijd 1 dummy item toevoegen, de streeptjes tbv de lengte
	try
	{
	cboOrg=oDocForm(strVar)
	intLengte=cboOrg.length
	strV1=cboOrg.options[intLengte-1].value	
	strW1=cboOrg.options[intLengte-1].text	
	cboOrg[intLengte]=new Option(strW1, strV1)
	strRu=strWaarde.substr(5)
	//window.open("cbs_trefwoord.asp?strRubriek=*" + strRu + "&strVarNaam=" + cbolijst.name)
	window.open("cbs_multipurp.asp?intActie=136&strRubriek=*" + strRu + "&strVarNaam=" + cbolijst.name)
	}
	catch(err)
		{ 
		nRij=cbolijst.parentNode.parentNode.rowIndex
		cboOrg=oDocForm(strVar)
		intLengte=cboOrg[nRij].length
		strV1=cboOrg[nRij].options[intLengte-1].value	
		strW1=cboOrg[nRij].options[intLengte-1].text	
		cboOrg[nRij][intLengte]=new Option(strW1, strV1)
		strRu=strWaarde.substr(5)
		//window.open("cbs_trefwoord.asp?strRubriek=*" + strRu + "&strVarNaam=" + cbolijst.name)
		window.open("cbs_multipurp.asp?intActie=136&strRubriek=*" + strRu + "&strVarNaam=" + cbolijst.name)

		//alert(strBericht)
			}
	}
if (strWaarde.substr(0,6) == "*SHOW*")	
	{
			strRu=strWaarde.substr(6)
			window.open("cbs_multipurp.asp?intActie=523&strPagina=" + strRu + "&strVeld=" + cbolijst.name)
	}
	
}
//---------------------------------------------------------------------------------------------------
function cbTrefCheck(cbolijst)
{
	try
{
var strWaarde = cbolijst.value
var	strText=cbolijst.options[cbolijst.selectedIndex].text	
var strBericht="U moet een sub-niveau selecteren..."
if ( (strWaarde.substr(9,1) == "H" && strWaarde.length==10) || strText.indexOf(String.fromCharCode(8595))>-1)	//Hoofdletter H of pijldown
	{
	if ((cbolijst.selectedIndex>0 && strWaarde.length==10) || (cbolijst.selectedIndex>=0 && strWaarde.length!=10) )
		{ if (cojsTAAL=="gb") {strBericht="You´ll have to select a sub-level..."};
		  if (cojsTAAL=="fr") {strBericht="Vous devez choisir un sous-niveau..."}
		  alert(strBericht);
		  return (false);
		}		//else ...veld niet leeg maken maar niet opslaan.
	}
if (strWaarde.substr(0,2) == "V2" && (document.forms[0].name=="FormIMS" || document.forms[0].name=="FormReAct") ) //afdeling 
	{
	strText=strText.replace(strNChar, "")	
	while (strText.indexOf(strNChar)>-1)
		{	strText=strText.replace(strNChar, "")		}	
	document.getElementById("idAfdCode").innerHTML=strText		 
	document.getElementById("idAfdCode").style.color="#FF0000"
	document.forms[0].MELDING_AFD.value=""	//leeg maken
	}
}
catch(err)
	{		//nx
	}
}
//---------------------------------------------------------------------------------------------------
function cbCalcRR(lijst, nWarn, strWA, strKL, strTitle ) {
var GeSelect = lijst.selectedIndex, strKleur, strKLF, strItemNr, nH=0
var x = document.forms[0]
if (lijst.value == "*NEW*") {
	//alert("Geen mechanisme beschikbaar...");
    cbNwTref(lijst, 70);
}
strItemNr=lijst.name.substr(lijst.name.length-1)		//normailter ARF of 2 
if (strItemNr=="A"  ||  strItemNr=="R"  || strItemNr=="F") { strItemNr="" } 
var strKA = x("cboKeuzeKA"+strItemNr).value
var strFR = x("cboKeuzeFR"+strItemNr).value
var strEF = x("cboKeuzeEF"+strItemNr).value

var iKA, iEF, iFR, i, iRR
//myArray = new Array("Wind","Rain","Fire")
var aWA, aKL, aTITLE
var strWA2= "new Array("+strWA+")"
while (strKL.indexOf("´")>-1)
	{	strKL=strKL.replace("´", "'")		}	//lastig om ' als parameter door te geven
var strKL2= "new Array("+strKL+")"

while (strTitle.indexOf("´")>-1)
	{	strTitle=strTitle.replace("´", "'")		}	//lastig om ' als parameter door te geven
var strTitle2= "new Array("+strTitle+")"
	//alert(strWA2+"-"+strKL2)
	aWA=eval(strWA2) 
	aKL=eval(strKL2) 
	aTITLE=eval(strTitle2)
	// alert(strKA.substr(10)); vanaf pos 11 en de rest
	//if (strKA.length==0) {strKA=1}
	//if (strEF.length==0) {strEF=1}
	//if (strFR.length==0) {strFR=1}
	strKA=strKA.replace(",", ".")		//decimale punt ipv komma
	strEF=strEF.replace(",", ".")
	strFR=strFR.replace(",", ".")
	iKA = parseFloat(strKA.substr(10));
	iEF = parseFloat(strEF.substr(10));
	iFR = parseFloat(strFR.substr(10));
	iRR= (iKA * iEF * iFR);
	x("iRR"+strItemNr).value=iRR		//sla de waarde op in hidden field
	if (isNaN(iRR)) { iRR=0} 
	if (Math.round(iRR)==iRR) 
		{x("butRR"+strItemNr).value = "RR: " + iRR }
	else	
		{ x("butRR"+strItemNr).value = "RR: " + iRR.toFixed(2); }
	nWarn=aWA[0]	//hoogste waarde
	for (i=0;i<aWA.length;i++) {
	    if (iRR >= aWA[i]) { strKL2 = aKL[i]; strTitle2 = aTITLE[i]; i = 99 } 	//strKL2 bevat de kleurcode (i+1)+". "+
	}
	if (nWarn<=0) { nWarn=500 }	//defaultwaarde 500
	//="#2A00FF"
	x("butRR"+strItemNr).style.backgroundColor=strKL2
	document.getElementById('TD_EF'+strItemNr).style.borderRightColor=strKL2
	document.getElementById('TD_KA'+strItemNr).style.borderRightColor=strKL2
	document.getElementById('TD_FR'+strItemNr).style.borderRightColor=strKL2
	strKleur=strKL2
	//inverteer de kleur
	if (strKL2.substr(0,1)=="#" )
	{	strKLF="#"
		for (i=1;i<strKleur.length;i++)
		{
			if (strKleur.substr(i,1)=="0") { strKLF +="F" }
			if (strKleur.substr(i,1)=="1") { strKLF +="E" }
			if (strKleur.substr(i,1)=="2") { strKLF +="E" }
			if (strKleur.substr(i,1)=="3") { strKLF +="C" }
			if (strKleur.substr(i,1)=="4") { strKLF +="B" }
			if (strKleur.substr(i,1)=="5") { strKLF +="A" }
			if (strKleur.substr(i,1)=="6") { strKLF +="F" }
			if (strKleur.substr(i,1)=="7") { strKLF +="8" }
			if (strKleur.substr(i,1)=="8") { strKLF +="7" }
			if (strKleur.substr(i,1)=="9") { strKLF +="6" }
			if (strKleur.substr(i,1)=="A") { strKLF +="5" }
			if (strKleur.substr(i,1)=="B") { strKLF +="4" }
			if (strKleur.substr(i,1)=="C") { strKLF +="3" }
			if (strKleur.substr(i,1)=="D") { strKLF +="2" }
			if (strKleur.substr(i,1)=="E") { strKLF +="1" }
			if (strKleur.substr(i,1)=="F") { strKLF +="0" }
		}
		x("butRR"+strItemNr).style.color=strKLF
	}
	x("butRR"+strItemNr).title=strTitle2
	x("RRTitle"+strItemNr).value=strTitle2
	x("RRTitle"+strItemNr).background="transparent"
	if (parseFloat(iRR) >= parseFloat(nWarn) ) { nH=15 }
	document.getElementById("gevaar"+strItemNr).height = nH;
	document.getElementById("gevaar" + strItemNr).width = nH;

   // FORBO: acties
	if (typeof x("iRR2").value != "undefined") {
	    //Forbo: we moeten hier acties aanmaken
        var nMax=2, iStart=1, strActie, strJaar
        //alert(x("iRR2").value + strItemNr)
        var dOccDate = "MELDING_OCCDATE"    //veld zelf
        if (x("NRIJ_MAATREG") != null) {
                nMax = x("NRIJ_MAATREG").value
              } //fOForm("NRIJ_MAATREG")!=null
        if (strItemNr == "") {
            //we hebben met de 1e actie te maken
            if (nMax < 3) {
                if (iRR >= aWA[0]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "dOccDate", 0); alert("Klik op de 1e actie om direct actie te nemen") };   //zelfde dag 1
                if (iRR < aWA[0] && iRR >= aWA[1]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "dOccDate", 30);  };  //2
                if (iRR < aWA[1] && iRR >= aWA[2]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "dOccDate", 180); };  //3 6maanden
                if (iRR < aWA[2] && iRR >= aWA[3]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "dOccDate", 365);  };   //4 1jaar
                if (iRR < aWA[3]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "dOccDate", 365); };  //5
                strActie = x("MAATREG_AKTIE").value
                if (strKA != "KA00000000" && strEF != "EF00000000" && strFR != "FR00000000") {
                    if (strActie.length > 2) { strTitle2 += " (" + strActie + ")" }
                    x("MAATREG_AKTIE").value = strTitle2
                }
                strActie = x("AKTIENEMERS_NAAM").value
                if (strActie.length <1) { x("AKTIENEMERS_NAAM").value = UserIdJava }
                x("DA_MAATREG_DD_ALARM_YEAR").style.backgroundColor = "yellow"
                //x("MAATREG_STATUS").value="In uitvoering"
            }
            else {    // we moeten het 1e item hebben, met index INDEX 0
                if (iRR >= aWA[0]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[0]", dOccDate, 0); alert("Klik op de 1e actie om direct actie te nemen") };
                if (iRR < aWA[0] && iRR >= aWA[1]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[0]", dOccDate, 30) };
                if (iRR < aWA[1] && iRR >= aWA[2]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[0]", dOccDate, 180); };  //3 6maanden
                if (iRR < aWA[2] && iRR >= aWA[3]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[0]", dOccDate, 365) };
                if (iRR < aWA[3]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[0]", dOccDate, 365) };
                strActie = x("MAATREG_AKTIE")[0].value
                if (strKA != "KA00000000" && strEF != "EF00000000" && strFR != "FR00000000") {
                    if (strActie.length > 2) { strTitle2 += " (" + strActie + ")" }
                    x("MAATREG_AKTIE")[0].value = strTitle2
                }
                strActie = x("AKTIENEMERS_NAAM")[0].value
                if (strActie.length < 1) { x("AKTIENEMERS_NAAM")[0].value = UserIdJava }
                x("DA_MAATREG_DD_ALARM_YEAR")[0].style.backgroundColor="yellow"
             }
	    }
	    else {
	        //itemnr 2 is bekend
	        //Kijk of er een 2e actie aanwezig is, want deze moeten we aanpassen/maken
	        if (nMax < 3) {
	            //Maak een 2e actie aan
	            cbInsRowAlg("MAATREG")
	        }
	        if (x("DA_MAATREG_DD_KLAAR_YEAR")[0].value.length < 4) { alert("LET OP: U dient de eerste actie eerst af te handelen!");}
	        if (iRR >= aWA[0]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[1]", dOccDate, 0); alert("Klik op de 2e actie om DIRECT actie te nemen") };
	        if (iRR < aWA[0] && iRR >= aWA[1]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[1]", dOccDate, 30) };
	        if (iRR < aWA[1] && iRR >= aWA[2]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[1]", dOccDate, 180) };  //3 6maanden
	        if (iRR < aWA[2] && iRR >= aWA[3]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[1]", dOccDate, 365) };
	        if (iRR < aWA[3]) { cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR[1]", dOccDate, 365) };
	        strActie = x("MAATREG_AKTIE")[1].value
	        if (strKA != "KA00000000" && strEF != "EF00000000" && strFR != "FR00000000") {
	            if (strActie.length > 2) { strTitle2 += " (" + strActie + ")" }
	            x("MAATREG_AKTIE")[1].value = strTitle2
	        }
	        x("AKTIENEMERS_NAAM")[1].value = UserIdJava
	        x("DA_MAATREG_DD_ALARM_YEAR")[1].style.backgroundColor = "yellow"
	        //Actievenster automatisch openen? Lukt niet
	        try {
	            x("butRR" + strItemNr).setfocus()   //verplaats focus
	        }
	        catch (err) { }
        }

	}
    }
//---------------------------------------------------------------------------------------------------
function cbValidate(t) {
	if (t.cboKeuzeV2.value == "V200000000")
  	{
    alert("Hoofdnivo V2 niet toegestaan");
	 t.cboKeuzeV2.focus();
    return (false);
  	}
		if (t.cboKeuzeV1.value == "V100000000")
		{
		alert("Hoofdnivo V1 niet toegestaan");
		 t.cboKeuzeV1.focus();
		return (false);
		}
		return (true);


}
//---------------------------------------------------------------------------------------------------
function cbjsDatumKey(t)
//Feitelijk alleen accepteren van numerieke data en datumscheidingsymbolen /-.
{
return true
//Keycode is niet universeel omdat soms shift+ code of alt + etc. gebruikt worden.
//var vKeyCode=window.event.keyCode	// /   : ¥ ¦ ¢   ¢." )
//if ((vKeyCode>=47 && vKeyCode<58) || vKeyCode==190 || vKeyCode==219  || vKeyCode==189 || vKeyCode<32 || vKeyCode==46 || (vKeyCode>34 && vKeyCode<41))
//	{ return true }
//else
//	{ return false }		//zie eventueel checkKeyforCharacters(obj)
}
//---------------------------------------------------------------------------------------------------
function cbjsMaandNaam(maand)
//datum opmaak in Java. Geeft de 1e drie tekens maandnaam terug
{
//Parameter d is de datum
if (cojsTAAL=="nl")
	{
	var cbmonthname=new Array("jan","feb","mrt","apr","mei","jun","jul","aug","sep","okt","nov","dec")
	}
if (cojsTAAL=="fr")
	{
	var cbmonthname=new Array("Jan","Féb","Mar","Avr","May","Jui","Jul","Aoû","Sep","Oct","Nov","Déc")
	}
else
	{
	var cbmonthname=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
	}
return (cbmonthname[maand-1])
}
//---------------------------------------------------------------------------------------------------
function cbjsDagNaam(dag)
//datum opmaak in Java. Geeft de 1e twee tekens dagnaam terug
{
if (cojsTAAL=="nl")
	{
	var cbdayname=new Array("zo","ma","di","wo","do","vr","za")
	}
if (cojsTAAL=="fr")
	{
	var cbdayname=new Array("Di", "Lu", "Ma", "Me", "Je", "Ve", "Sa")
	}	
else
	{
	var cbdayname=new Array("Su", "Mo", "Tu", "We", "Th", "Fr", "Sa")
	}
return (cbdayname[dag])
}
//---------------------------------------------------------------------------------------------------
function cbjsMiddleDate(dag,maand,jaar,opmaak)
//datum opmaak in Java. Nog aan te passen...Returns: string. Dagnaam niet gebruikt
{
var d=new Date()
//Parameter d is de datum
var strDatum, strSepa
if (cojsTAAL=="nl")
{
	var weekday=new Array("zondag","maandag","dinsdag","woensdag","donderdag","vrijdag","zaterdag")
	var monthname=new Array("jan","feb","mrt","apr","mei","jun","jul","aug","sep","okt","nov","dec")
}
if (cojsTAAL=="fr")
{
	var weekday=new Array("Dimache","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
	var monthname=new Array("Jan","Féb","Mar","Avr","May","Jun","Jul","Aoû","Sep","Oct","Nov","Déc")
}
else
{
	var weekday=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
	var monthname=new Array("Jan","Feb","Mar","Apr","May","Jui","Jul","Aug","Sep","Oct","Nov","Dec")
}
//daFormat="dd-mm-yyyy"if (opmaak=="ddmmyyyy")	//19 mei 2006
strDatum=dag + " "  + monthname[maand-1] + " " + jaar
if (opmaak=="yyyy/mm/dd" || opmaak=="yyyy-mm-dd" || opmaak=="yyyy.mm.dd") {strDatum=jaar + " " + monthname[maand-1] + " " + dag }
if (opmaak=="mm/dd/yyyy" || opmaak=="mm-dd-yyyy" || opmaak=="mm.dd.yyyy") {strDatum= monthname[maand-1] + " " + dag + " "  + jaar }
//cbjsFormatDate = strDatum
return strDatum
}

//---------------------------------------------------------------------------------------------------
function cbjsLongDate(d)
//Lange datum notatie in Java. Nog aan te passen...Returns: string
{
//var d=new Date()
//Parameter d is de datum
var strDatum
if (cojsTAAL=="nl")
{
var weekday=new Array("zondag","maandag","dinsdag","woensdag","donderdag","vrijdag","zaterdag")
var monthname=new Array("januari","februari","maart","april","mei","juni","juli","augustus","september","oktober","november","december")
}
if (cojsTAAL=="fr")
{
var weekday=new Array("Dimache","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
var monthname=new Array("Janvier","Février","Mars","Avril","May","Juin","Juiliet","Août","Septembre","Octobre","Novembre","Decembre")
}

else
{
var weekday=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
var monthname=new Array("January","February","March","April","May","June","Juli","August","September","Oktober","November","December")
}

strDatum = weekday[d.getDay()] + " " + d.getDate() + " " + monthname[d.getMonth()] + " " + d.getFullYear()
cbjsLongDate = strDatum
}
//---------------------------------------------------------------------------------------------------
function cbjsFormatDate(dDatum, PdaFormat)
//Maak de datum op (zonder tijdcode!)
{
if (PdaFormat == null || PdaFormat == "")
	{ 
	if (daFormat == null || daFormat == "") { daFormat="dd-mm-yyyy"}
	PdaFormat=daFormat
	}
var dtCh=cbjsDateSep(daFormat)
var strDatum
if (PdaFormat=="dd"+dtCh+"mm"+dtCh+"yyyy") 
	{	strDatum=dDatum.getDate()+dtCh+(dDatum.getMonth()+1)+dtCh+dDatum.getFullYear();	}
if (PdaFormat=="yyyy"+dtCh+"mm"+dtCh+"dd") 
	{	strDatum=dDatum.getFullYear()+dtCh+(dDatum.getMonth()+1)+dtCh+dDatum.getDate();	}
if (PdaFormat=="mm"+dtCh+"dd"+dtCh+"yyyy") 
	{	strDatum=(dDatum.getMonth()+1)+dtCh+dDatum.getDate()+dtCh+dDatum.getFullYear();	}
return strDatum
}
//---------------------------------------------------------------------------------------------------
function cbjsDateSep(daFormat)
//Bepaal datumseperator
{
var dtCh="-"
if (daFormat.indexOf("-")==-1)
	{	if (daFormat.indexOf("/")==-1)
			{ dtCh="." }
		else	 
			{ dtCh="/" }	
	}
return dtCh
}
//---------------------------------------------------------------------------------------------------
function cbjsTestVDatum(t, strVerplicht, daFormat, minYear, maxYear, varDag, varMaand, varJaar) 
//Bij verlaten invoerveld direct jaartal testen; 
//Extra datumcontrole strVerplicht, 1e teken: 1: niet vandaag; 2: niet in toekomst; 3: niet in verleden 5/6/7etc: idem...NIET verplicht
//strVerplicht: vervolg tekens is het veld waarmee vergeleken wordt (leeg=vandaag)
{
var dtStr=t.value		//ingevoerde datum
var strDay, pos1, pos2, oDocForm, iRij, strBericht, lVerplicht, strVVeld, lDOMV
var strMonth
var strYear
//var curDate= new Date()
//var curYear= curDate.getFullYear()
strVVeld=""
lVerplicht=0		//doet er niet toe, geen controle.
var curDate= new Date()
var nJaar
var dtCh="-"
var daysInMonth = DaysArray(12)
window.status = "Date check"
if (dtStr.length!=0) //invoer?
  {
	
	dtCh=cbjsDateSep(daFormat)
	pos1=dtStr.indexOf(dtCh)				// eerste dd/
	pos2=dtStr.indexOf(dtCh,pos1+1)			// tweede dd/mm/
	//bepaal het jaartal
	//nPos=daFormat.indexOf("y")
	//FORMAT ALTIJD 2DD 2MM 4YYYYY
	if (daFormat == null || daFormat == "") { daFormat="dd-mm-yyyy"}
	if (dtStr.indexOf(dtCh,pos2+1)!=-1 || isInteger(stripCharsInBag(dtStr, dtCh))==false)
		{
		strBericht="Datum tussenteken onjuist! Moet zijn: "+dtCh+" \n \n (druk eventueel op de Esc-toets om de invoer ongedaan te maken)"
		if (cojsTAAL=="gb") { strBericht="Please, enter a valid date separator like: "+dtCh+" (Press Esc to undo input)"}
		if (cojsTAAL=="fr") { strBericht="S.v.p, type une valide date séparation, comme: "+dtCh+" (Esc=défaire)"}
		alert(strBericht)
		if (dtCh=="-") {t.value=t.value.replace("/", dtCh ); t.value=t.value.replace("/", dtCh ) }		//2x, want 2 tussentekenms
		if (dtCh=="-") {t.value=t.value.replace(".", dtCh ); t.value=t.value.replace(".", dtCh ) }		//indien . als tussenteken
		if (dtCh=="/") {t.value=t.value.replace("-", dtCh ); t.value=t.value.replace("-", dtCh ) }
		if (dtCh=="/") {t.value=t.value.replace(".", dtCh ); t.value=t.value.replace(".", dtCh ) }		//indien . als tussenteken
		
		t.focus()
		return false
		}
	if (daFormat=="dd"+dtCh+"mm"+dtCh+"yyyy") 
		{
		var strDay  =dtStr.substring(0,pos1)
		var strMonth=dtStr.substring(pos1+1,pos2)
		var strYear =dtStr.substring(pos2+1)
		}
	if (daFormat=="yyyy"+dtCh+"mm"+dtCh+"dd") 
		{
		var strDay  =dtStr.substring(pos2+1)
		var strMonth=dtStr.substring(pos1+1,pos2)
		var strYear =dtStr.substring(0,pos1)
		}
	if (daFormat=="mm"+dtCh+"dd"+dtCh+"yyyy") 
		{
		var strDay  =dtStr.substring(pos1+1,pos2)
		var strMonth=dtStr.substring(0,pos1)
		var strYear =dtStr.substring(pos2+1)
		}
	if (minYear.length==0) {minYear=1900}
	if (maxYear.length==0) {maxYear=2030}
	
	//if (cojsTAAL=="NL")
	// dd-mm-yyyy=default format (kan ook yyyy/mm/dd
	// daSep: seperator bijv. /-.
	strYr=strYear
	if (strDay.charAt(0)=="0" && strDay.length>1) strDay=strDay.substring(1)
	if (strMonth.charAt(0)=="0" && strMonth.length>1) strMonth=strMonth.substring(1)
	for (var i = 1; i <= 3; i++) {
		if (strYr.charAt(0)=="0" && strYr.length>1) strYr=strYr.substring(1)
	}
	month=parseInt(strMonth)
	day=parseInt(strDay)
	year=parseInt(strYr)
	if (pos1==-1 || pos2==-1){
	strBericht="Datum onjuist. Opmaak"
	if (cojsTAAL=="gb") { strBericht="Date-format is wrong. Format"}
	if (cojsTAAL=="fr") { strBericht="Date-format erreur. Format"}
	alert(strBericht+":"+daFormat)
	t.focus()
	return false
	}
	if (strMonth.length<1 || month<1 || month>12){
		strBericht="Maand onjuist."
		if (cojsTAAL=="gb") { strBericht="Please, enter a valid month"}
		if (cojsTAAL=="fr") { strBericht="S.v.p. Entrez un valide mois"}
		alert(strBericht+"  ("+strMonth+")")
		if (day<13) 
			{t.value=t.value.replace(month+dtCh, day+dtCh );}
		else
			{t.value=t.value.replace(month+dtCh, "12"+dtCh );}
		
		t.focus()
		return false
	}
	if (strDay.length<1 || day<1 || day>31 || (month==2 && day>daysInFebruary(year)) || day > daysInMonth[month]){
		strBericht="Dag onjuist."
		if (cojsTAAL=="gb") { strBericht="Please, enter a valid day"}
		if (cojsTAAL=="fr") { strBericht="S.v.p. Entrez un valide jour"}
		alert(strBericht)
		t.focus()
		return false
	}
	//if (strYear.length == 2)	{ strYear="20"+strYear; year=+2000 }			//FOUT SEPT08
	if (strYear.length == 2)	
		{
			if (year<=30)	
				{ strYear="20"+strYear; year=+2000 }			
			else	
				{ strYear="19"+strYear; year=+1900 }
		}
	if (strYear.length != 4 || year==0 || year<minYear || year>maxYear){
		strBericht="Jaartal onjuist."
		if (cojsTAAL=="gb") { strBericht="Please, enter a valid year. "}
		if (cojsTAAL=="fr") { strBericht="S.v.p. Entrez un valide année"}		
		alert(strBericht+" ("+minYear+"..."+maxYear+")")
		t.focus()
		return false
	}
 }
else	//datum invoer niet gedaan, velden leegmaken
	{
	strDay=""
	strMonth=""
	strYear=""
	}
//kopieer naar verborgen velden
oDocForm=document.forms[0];
lDOMV=false
try
{
	if (typeof oDocForm(varDag).value== "undefined") {lDOMV=true}
}
catch(err)
{
	lDOMV=true
}
//if (typeof oDocForm(varDag).value== "undefined") 	//MAATREG_ alert(varDag) 
if (lDOMV==true)
	{ 
		try		//blok aug2010
		{
		iRij=(t.parentNode.parentNode.rowIndex-1)
		if (iRij>=0) {
					}
		else
		{	iRij=(t.parentNode.parentNode.parentNode.rowIndex-1)	}
		if (oDocForm.name == "FormReAct") { iRij-- }
		oDocForm(varDag)[iRij].value  =strDay
		oDocForm(varMaand)[iRij].value=strMonth
		oDocForm(varJaar)[iRij].value =strYear
		}	//try
		catch(err)
		{
		lDOMV=false
		}
	}
if (lDOMV==false)	//aug2010
	{
	oDocForm(varDag).value  =strDay
	oDocForm(varMaand).value=strMonth
	oDocForm(varJaar).value =strYear
	}
//Extra datumcontrole strVerplicht, 1e teken: 1: niet vandaag; 2: niet in toekomst; 3: niet in verleden 5/6/7etc: idem...NIET verplicht

// if ((lVerplicht==-2 || lVerplicht==2) && year<curYear) { alert("Let op: jaartal ligt in het verleden!/Date in past!") }
//	 if ((lVerplicht==-3 || lVerplicht==3) && year>curYear) { alert("Let op: jaartal ligt in de toekomst!/Future date!") }
strBericht="Laatst ingevoerde datum: "
if (cojsTAAL=="gb") { strBericht="Last inserted date: "}
if (cojsTAAL=="fr") { strBericht="Dernière date: "}
if (strDay.length>0)
{ window.status = strBericht+cbjsMiddleDate(strDay,strMonth,strYear,daFormat) }
return true
// cbCheckDate
}
//---------------------------------------------------------------------------------------------------

function cbCheckDate2(t, lVerplicht, strVergelijkVeld, nBlok)
// dummy functie die feitelijk in asp-code  cbMaakDatumInvoer(...) vervangen wordt door cbCheckDate.
// functie wordt wel uitgevoerd!
// lVerplicht= 123=verplicht, 567=niet verplicht
// 1/5=niet vandaag, 3/5-2/6:niet in toekomst, 3/7: niet in verleden
// strVergelijkVeld: vergelijkingsveld (leeg=heden). N360 (max 360 dagen in de toekomst met lVerplicht=3)
// iIndex: dom-rijindex: vervallen automatisch
// nBlok=0: waarschuw, -1: blokkeer het veld
{
var vandaag= new Date()		//actuele datum
var curYear= vandaag.getFullYear()		//LET OP!!! niet getYear of 
var curMonth= vandaag.getMonth()+1		//begint bij 0 te tellen 0..11
var curDay= vandaag.getDate()			//getDay nee getDate()!	
var lDatumFout, lToekomst, lVerleden, lHeden, strDatum
var varDag, varMaand, varJaar, lFoutMax, nDagen
var vNaam=t.name
var oDocForm=document.forms[0]; 
var oDocForm2;
// vNaam MOET zijn DA_TABEL_VELD_YEAR[iIndex]
dtStr=t.value
//bepaal de namen van de losse velden
vNaam=vNaam.substr(3,vNaam.length-5-3)	//5 is lengte van _YEAR
varDag=vNaam+"_DAY"
//alert(varDag)if (iIndex>-1) { varDag+="["+iIndex+"]" }
varMaand=vNaam+"_MONTH"
varJaar=vNaam+"_YEAR"
strVVeld=strVergelijkVeld
if (lVerplicht>=5 && dtStr.length==0) { return true }	//NIET verplichte invoer
if (lVerplicht<=3 && lVerplicht>0 && dtStr.length==0)	//NIET verplichte invoer
	 { 
	 	strBericht="Let op: U heeft de datum niet ingevuld."
		if (cojsTAAL=="gb") { strBericht="Attention: date is required."}
		if (cojsTAAL=="gb") { strBericht="Attention: date est nécessaire."}		
		alert(strBericht);
		if (nBlok!=0) {   t.focus(); return false }		//blokkeer het veld bij -1 dec08 hersteld
		return true 
	}	
if (typeof oDocForm(varDag).value== "undefined") 	//MAATREG_ alert(varDag) 
	{ 
	try			//aug 2010
		{
		iRij=(t.parentNode.parentNode.rowIndex-1)
		if (iRij>=0) {
					}
		else
			{	iRij=(t.parentNode.parentNode.parentNode.rowIndex-1)	}
		if (oDocForm.name=="FormReAct") {iRij--}		
		strDay=oDocForm(varDag)[iRij].value 
		strMonth=oDocForm(varMaand)[iRij].value
		strYear=oDocForm(varJaar)[iRij].value 
		}
	catch(err)
		{
		strDay=oDocForm(varDag).value
		strMonth=oDocForm(varMaand).value
		strYear=oDocForm(varJaar).value
		}
	}
else
	{
	strDay=oDocForm(varDag).value
	strMonth=oDocForm(varMaand).value
	strYear=oDocForm(varJaar).value
	}
strDatum=strMonth+ "/" + strDay + "/" + strYear		//Let op de opmaak
//function isDate(dtStr, lVerplicht)
//alert("Nieuw func: "+strDatum+"-"+lVerplicht)
if (strVVeld.substr(0,1)=="N")
	{ 
	nDagen=parseInt(strVVeld.substr(1,4))
	strVVeld=""
	var dDatum=new Date()  
	dDatum.setDate(dDatum.getDate()+nDagen)
	//alert(dDatum.getFullYear()+dtCh+(dDatum.getMonth()+1)+dtCh+dDatum.getDate())
	//alert(strDay+"-"+strMonth+"-"+strYear)
	lFoutMax=false
	if (strYear>dDatum.getFullYear())		//parseInt
		{ lFoutMax=true }
	if (strYear==dDatum.getFullYear() && strMonth>dDatum.getMonth()+1	)		//parseInt
		{ lFoutMax=true }
		if (strYear==dDatum.getFullYear() && strMonth==dDatum.getMonth()+1	&& strDay>dDatum.getDate()+1)		//parseInt
		{ lFoutMax=true }
		//datDate1= Date.parse(strDate1);     datDate2= Date.parse(strDate2);     //alert((datDate2-datDate1)/(24*60*60*1000))
	if (lFoutMax)
		{ alert("Datum maximaal "+nDagen+" dagen in de toekomst!"); if (nBlok!=0) { t.focus(); return false } } 
	}
if (strVVeld.length<1)
	{ vDag=curDay; vMaand=curMonth; vJaar=curYear;}
else		//haal veldwaard op
	{
	//bijv. MELDING_OCCDATE_DAY ...INDEX??? 
	oDocForm2=oDocForm
	if (oDocForm.name=="FormVoort") { oDocForm2=opener.document.forms[0]; }
	if (typeof oDocForm2(strVVeld+"_DAY").value== "undefined") 	//MAATREG_ alert(varDag) 
		{ 
		iRij=(t.parentNode.parentNode.rowIndex-1)
		if (iRij>=0) {
					}
		else
			{	iRij=(t.parentNode.parentNode.parentNode.rowIndex-1)	}
		vDag=oDocForm2(strVVeld+"_DAY")[iRij].value 
		vMaand=oDocForm2(strVVeld+"_MONTH")[iRij].value
		vJaar=oDocForm2(strVVeld+"_YEAR")[iRij].value 
		}
	else		//type
		{
		vDag=oDocForm2(strVVeld+"_DAY").value
		vMaand=oDocForm2(strVVeld+"_MONTH").value	
		vJaar=oDocForm2(strVVeld+"_YEAR").value	
		}	//type
		
	}		//vergelijkingsveld
iJaar =parseInt(strYear)		//invoer gedaan???
iMaand=parseInt(strMonth)
iDag  =parseInt(strDay)

vDag  =parseInt(vDag)
vMaand=parseInt(vMaand)
vJaar =parseInt(vJaar)
if (iJaar==0)   { return true }		//geen vergelijkingsveld
lHeden=(iJaar==vJaar && iMaand==vMaand && iDag==vDag)
if (lHeden && (lVerplicht==1 || lVerplicht==5) )		//Niet vandaag!
	{
		strBericht="Let op: de ingevoerde datum is gelijk aan ´vandaag´. Wijzig deze datum...."
		if (cojsTAAL=="gb") { strBericht="Attention: date may not be ´today´. Change the date..."}
		if (cojsTAAL=="fr") { strBericht="Attention: date ne pas = Aujourd´hui. Changer la date..."}
		alert(strBericht);
		if (nBlok!=0) { t.focus(); return false }
	}

else
	{
	lToekomst=(iJaar>vJaar)		//==true dan datum in de toekomst (2 of 6)
	//als het jaar al 
	if (lToekomst==false && (iJaar==vJaar) && (lVerplicht==2 || lVerplicht==6)) 
		{
		if (iMaand>vMaand && iJaar==vJaar)	//maand vh jaar
			{ lToekomst=true }
		else					
			{ if (iMaand==vMaand)			//in de maand
				 { lToekomst=(iDag>vDag) }
			}
		}
	if (lToekomst && (lVerplicht==2 || lVerplicht==6))
		{
		strBericht="LET OP: De datum mag niet in de toekomst liggen! Vergeleken met: "
		if (cojsTAAL=="gb") { strBericht="Attention: date may not be in the future. Compared with: "}
		if (cojsTAAL=="fr") { strBericht="Attention: date ne pas à future. Comparer: "}		
		alert(strBericht+cbjsMiddleDate(vDag,vMaand, vJaar,daFormat) );
		if (nBlok!=0) { t.focus(); return false }
		}	
	lVerleden=(iJaar<=vJaar)		//==true dan datum in de verleden invoerjaar is kleiner dan vergelijk jaar (nu)

	if (lVerleden==true && (lVerplicht==3 || lVerplicht==7))		//3 of 7, invoerjaar: niet in verleden, cq. actuele jaar of toekomst
		{
		if (iJaar==vJaar)		// zelf jaartal dan maand checken
		 { 
		 lVerleden=false
		if (iMaand<vMaand)
			{ lVerleden=true }
		else					
			{
				if (iMaand==vMaand)	{ lVerleden=(iDag<vDag); }
			}
		 } 
		//if iJaar>vJaar then lVerleden	
		}
	if (lVerleden &&  (lVerplicht==3 || lVerplicht==7))
		{
		strBericht="LET OP: De datum mag niet in de verleden liggen! Vergeleken met: "
		if (cojsTAAL=="gb") { strBericht="Attention: date may not be in the past. Compared with: "}
		if (cojsTAAL=="fr") { strBericht="Attention: date ne pas à passé. Comparer: "}				
		alert(strBericht+cbjsMiddleDate(vDag,vMaand, vJaar,daFormat) );
		if (nBlok!=0) { t.focus(); return false }
		}	
	}
	return true //true: niets mee doen
}
//---------------------------------------------------------------------------------------------------
function cbCheckDate(iJaar, iMaand, iDag, vJaar, vMaand, vDag, nBericht, nVerplicht)
//datum controle: 0=heden; -1: datum in verleden tov vergelijkingsdatum vJaar.., 1: toekomst
//9: invoer niet verplicht; -9: invoer was verplicht en dus niet ingevuld
// iX: invoerdatum, vX: vergelijkingsdatum indien 0 dan wordt actuele datum genomen
//nBericht: 0, foutbericht geven indien de datum gelijk is aande vergelijkingsdatum
//nBericht:-1: foutbericht geven bij verleden / -2 geen bericht
//nBericht: 1: foutbericht geven bij toekomst / 2: geen bericht
//nVerplicht=0: invoer niet verplicht, 1: wel verpicht
//OVERBODIG???  ALLEEN ORGANON!!! ZIE IN DEZE JS FILE
{
var vandaag= new Date()		//actuele datum
var curYear= vandaag.getFullYear()		//LET OP!!! niet getYear of 
var curMonth= vandaag.getMonth()+1		//begint bij 0 te tellen 0..11
var curDay= vandaag.getDate()			//getDay nee getDate()!	
var lDatumFout, lToekomst, lVerleden, lHeden, strDatum
strDatum=iMaand+ "/" + iDag + "/" + iJaar		//Let op de opmaak
//function isDate(dtStr, lVerplicht)
//alert("Nieuw func: "+strDatum+"-"+nVerplicht)
if (isDate(strDatum, nVerplicht)==false)
{
	return (-9);		//foute opmaak, bericht wordt in de functie isDate gedaan
}
if (strDatum.length<4 && nVerplicht==0)
{
	return (9);		//invoer niet verplicht; verder niet behandelen
}
iJaar =parseInt(iJaar)		//invoer gedaan
iMaand=parseInt(iMaand)
iDag  =parseInt(iDag)
vDag  =parseInt(vDag)
vMaand=parseInt(vMaand)
vJaar =parseInt(vJaar)
if (vDag==0 && vMaand==0 && vJaar==0)	//vergelijkingsdatum
	{ vDag=curDay; vMaand=curMonth; vJaar=curYear; }
//alert(iJaar+"Vergelijk:" + vJaar);
lHeden=(iJaar==vJaar && iMaand==vMaand && iDag==vDag)
if (lHeden==false)
{
	lToekomst=(iJaar>vJaar)		//==true dan datum in de toekomst
	if (lToekomst==false && nBericht>=1) 
		{
		if (iMaand>vMaand && iJaar==vJaar)	//maand vh jaar
			{ lToekomst=true }
		else					
			{ if (iMaand==vMaand)			//in de maand
				 { lToekomst=(iDag>vDag) }
			}
		}
	if (lToekomst && nBericht>=1)
		{
			if (nBericht==1) { alert("De datum mag niet in de toekomst liggen! Vergeleken met (dd/mm/yyyy): "+vDag+"/"+vMaand+"/"+vJaar) }
			return (1);
		}	

	lVerleden=(iJaar<vJaar)		//==true dan datum in de toekomst
	if (lVerleden==false && nBericht<=-1)
		{
		if (iMaand<vMaand && iJaar==vJaar)
			{ lVerleden=true }
		else					
			{
				if (iMaand==vMaand)	{ lVerleden=(iDag<vDag) }
			}
		}
	if (lVerleden && nBericht<=-1)
		{
			//alert(nBericht)
			if (nBericht==-1 ) { alert("De datum mag niet in de verleden liggen! Vergeleken met: "+vDag+"/"+vMaand+"/"+vJaar) }
			return (-1);
		}	
}
else
{
	if (nBericht==0) { alert("De datum mag niet vandaag zijn! Vergeleken met (dd/mm/yyyy): "+vDag+"/"+vMaand+"/"+vJaar) }
	return (0);
}
}
//---------------------------------------------------------------------------------------------------
function cbjsDateDiff(nYY, nMM, nDD, nYYvan, nMMvan, nDDvan, nMax, strBericht)
//datumverschil: 
//nYY: jaar/maand/dag totwanneer, nYYvan: vanaf datum
//nMaxL max aantal dagen ertussen, met eventueel bericht.
//
//OnBlur='return cbjsDateDiff(MELDING_OCCDATE_YEAR.value , MELDING_OCCDATE_MONTH.value, MELDING_OCCDATE_DAY.value,MELDING_EINDDATUM_YEAR.value, MELDING_EINDDATUM_MONTH.value, MELDING_EINDDATUM_DAY.value, 365, "Datum te ver");'
{
//Set the two dates
var deDatum=new Date(nYY, nMM-1, nDD) //Month is 0-11 in javascript
var deVan=new Date(nYYvan, nMMvan-1, nDDvan) //Month is 0-11 in javascript
//Get 1 day in milliseconds
var one_day=1000*60*60*24
//Calculate difference btw the two dates, and convert to days
var nDagen=Math.ceil((deVan.getTime()-deDatum.getTime())/(one_day))
if (strBericht=="")
	{ return nDagen }
else
	{
		if (nDagen>nMax)  { alert(strBericht); return false }
	}
return true
}

//---------------------------------------------------------------------------------------------------
function cbjsTestDummy(t, lVerplicht) 
//dummy functie ter vervanging van testjaar in datumcontent functie
{
	return true
}
//---------------------------------------------------------------------------------------------------

function cbjsTestJaar(t, lVerplicht) 
//Bij verlaten invoerveld direct jaartal testen; 
//mrt05 lVerplicht: -1: verplicht; 0: niet;
//-2: waarschuwing verleden, -3 waarschuwing toekomst +: niet verplicht wel checken bij invoer
{
var curDate= new Date(), strBericht
var curYear= curDate.getFullYear()
nJaar=t.value
if (lVerplicht>=0 && nJaar.length==0)	//NIET verplichte invoer
	 { return true }	

strBericht="Jaartaal moet 4 cijfers zijn, tussen 1900-2030"	 
if (cojsTAAL=="gb") {strBericht="Correct year: 4 digits, between 1900-2030"}
if (cojsTAAL=="fr") {strBericht="Correcte ans: 4 caractères,  1900-2030"}
if (nJaar.length!=4)
 {
	alert(strBericht);
	t.focus();
	return false
 }
if (nJaar>=1900 && nJaar<=2030)
{	
	strBericht="Let op: jaartal ligt in het verleden!"	 
	if (cojsTAAL=="gb") {strBericht="Attention: year is in the past"}
	if (cojsTAAL=="fr") {strBericht="Attention: ans à passé"}
	if ((lVerplicht==-2 || lVerplicht==2) && nJaar<curYear) { alert(strBericht) }
	strBericht="Let op: jaartal ligt in de toekomst!"	 
	if (cojsTAAL=="gb") {strBericht="Attention: year is in the future"}
	if (cojsTAAL=="fr") {strBericht="Attention: ans à future"}
	if ((lVerplicht==-3 || lVerplicht==3) && nJaar>curYear) {  alert(strBericht) }
	return true		 
}
else
	 { alert(strBericht);
	   t.focus();
	   return false		
	 }
}  
//---------------------------------------------------------------------------------------------------
function cbjsTestMaand(t, lVerplicht) 
//Bij verlaten invoerveld direct maand testen
{
var strBericht="Maand correct invoeren 1..12"
nMaand=t.value
if (lVerplicht==0 && nMaand.length==0)	//niet verplichte invoer
	 { return true }
if (cojsTAAL=="gb") {strBericht="Month between 1..12"}
if (cojsTAAL == "fr") { strBericht = "Mois 1..12" }
if (nMaand.length<3 && nMaand.length>0)
 {
 }
else
 {
  alert(strBericht);
  t.focus();
 return false
 }
	if (nMaand>=1 && nMaand<=12)
			 {		 
			 return true		 }
	else
			 { alert(strBericht);
			   t.focus();
			   return false		 }
}
//---------------------------------------------------------------------------------------------------
function cbjsTestDag(t, lVerplicht) 
{
	var strBericht="Dag correct invoeren 1..31"
    nDag=t.value;
if (lVerplicht==0 && nDag.length==0)	//niet verplichte invoer
	 { return true }	
if (cojsTAAL=="gb") {strBericht="Day between 1..31"}
if (cojsTAAL == "fr") { strBericht = "Jour 1..31" }
if (nDag.length<3 && nDag.length>0)
 {
 }
else
 {
  alert(strBericht);
  t.focus();
 return false
 }
	if (nDag>=1 && nDag<=31)
			 {		 
			 return true		 }
	else
			 { alert(strBericht);
			   t.focus();
			   return false		 }
}

//---------------------------------------------------------------------------------------------------
function cbjsTestUur(t)
{
var strBericht="Uren correct invoeren: 0..23"
var nUur=t.value
if (cojsTAAL=="gb") {strBericht="Correct hours (0..23)"}
if (cojsTAAL == "fr") { strBericht = "Heurs (0..23)" }

if (nUur.length<3 && nUur.length>=0)
 {
 if (nUur.length<1)
	 { return true }
 }
else
 {
  alert(strBericht);
  t.focus();
  return false
 }
	if (nUur>=0 && nUur<=23)
			 {	 return true		 }
	else
			 { alert(strBericht);
			   t.focus();
			   return false		 }
}

//---------------------------------------------------------------------------------------------------
function cbjsTestMinuut(t)
{
var strBericht= "Minuten correct invoeren: 00..59"
var nMinuut=t.value
if (cojsTAAL == "gb") { strBericht = "Correct minutes (00..59)" }
if (cojsTAAL == "fr") { strBericht = "Minutes (00..59)" }
if (nMinuut.length<1)	 { return true }		// lege invoer toestaan
if (nMinuut.length!=2)
 {
	alert(strBericht);
	t.focus();
	return false
 }
if (nMinuut>=0 && nMinuut<=59)
	{  return true		 }
else
	 { alert(strBericht);
	   t.focus();
	   return false		 }
}
//---------------------------------------------------------------------------------------------------
function cbjsDefaultDate(vVeld, vW, nDagen)
///vul de defaultdatum in bij het veld (en hidden datum velden)
//t: thbis, datum invoer veld,  vVeld=t.name
//vW: defaultwaarde
//nDagen: +/- zoveel dagen
{
var vNaam, varDag, varMaand, varJaar	//DA_MELDING_OCCDATE_YEAR  --- MELDING_CCDATE_YEAR,  MELDING_OCCDATE_MONTH,  MELDING_OCCDATE_DAY
var d=new Date()
var oDocForm=document.forms[0];		//formulier
vNaam=vVeld.substr(3,vVeld.length-5-3)	//5 is lengte van _YEAR
varDag  =vNaam+"_DAY"
varMaand=vNaam+"_MONTH"
varJaar =vNaam+"_YEAR"
//of vW is leeg, now of de waarde van een veld
if (vW != "") {
    //
    if (vW == "now") {
        vW = d
        //d.setDate(d.getDate() + nDagen)
        }
    else {
        //vW is een veldnaam, bijv MELDING_OCCDATE
        //var d2=new Date(today.getFullYear(), 11, 25) //Month is 0-11 in JavaScript
        d = new Date(oDocForm("MELDING_OCCDATE_YEAR").value, oDocForm("MELDING_OCCDATE_MONTH").value - 1, oDocForm("MELDING_OCCDATE_DAY").value)
        }
     d.setDate(d.getDate() + nDagen)
        vW = cbjsFormatDate(d, "")
        if (vVeld.indexOf("[") < 0) {
            oDocForm(vVeld).value = vW
            oDocForm(varDag).value = d.getDate()
            oDocForm(varMaand).value = d.getMonth() + 1
            oDocForm(varJaar).value = d.getFullYear()
        }  //index
        else {
            //strip de index [x] 
            var i
            //eval("document.forms[0]" + vVeld).value = vW
            i = vVeld.substr(vVeld.indexOf("[") + 1, 1)   //in principe iis het index 1 <9
            if (isInteger(i)) {
                vVeld = vVeld.replace("[" + i + "]", "")
                vNaam = vVeld.substr(3, vVeld.length - 5 - 3)	//5 is lengte van _YEAR
                varDag = vNaam + "_DAY"
                varMaand = vNaam + "_MONTH"
                varJaar = vNaam + "_YEAR"
                //alert(varDag)
                oDocForm(vVeld)[i].value = vW
                oDocForm(varDag)[i].value = d.getDate()
                oDocForm(varMaand)[i].value = d.getMonth() + 1
                oDocForm(varJaar)[i].value = d.getFullYear()
            }   // is integeger

        }  //index

    }
else {
    oDocForm(vVeld).value = ""
    oDocForm(varDag).value = ""
    oDocForm(varMaand).value = ""
    oDocForm(varJaar).value = ""
    }
}
//---------------------------------------------------------------------------------------------------

function cbjsTestLen(t, nLMin, nLMax)
// test lengte van variabele
{
var strBericht	
if (t.value.length>=nLMin && t.value.length<=nLMax)
	{ return true }
else
	{
	if (nLMin==nLMax)
		{	strBericht="Invoer moet minstens " + nLMin + " tekens zijn!"
		    if (cojsTAAL == "gb") { strBericht = "Inputlength should be at least " + nLMin + " tokens" }
		    if (cojsTAAL == "fr") { strBericht = "d'entrée doit être d'au moins  " + nLMin + " caractères" }
			alert(strBericht)
		}
	else
		{	strBericht="Veldlengte moet tussen " + nLMin + " en " + nLMax + " tekens zijn!"
			if (cojsTAAL=="gb") {strBericht="Inputlength should be between " + nLMin + " and " + nLMax}
			if (cojsTAAL == "fr") { strBericht = "Longueur d'entrée entre " + nLMin + " et " + nLMax }

			alert(strBericht);
		}
		t.focus();
		return false
	}		//nLMin-nLMax
}

//---------------------------------------------------------------------------------------------------
function cbOpenPopWindow(strUrl) {
flyout=window.open(strUrl,"flyout","resizable=no,scrollbars=yes,width=300,height=300,top=300,left=300");
return flyout
}
//---------------------------------------------------------------------------------------------------
function cbOpenPopWindow2(w,h,t,l,strUrl) {
//WINDOWNAME FLYOUT NIET VERANDEREN
//      flyout=window.open(strUrl,"flyout","resizable=yes,scrollbars=yes,width="+w+",height="+h+",top="+t+",left="+l);
flyout=window.open(strUrl,"flyout","resizable=yes,scrollbars=yes,status=yes,width="+w+",height="+h+",top="+t+",left="+l);
return flyout
}

//---------------------------------------------------------------------------------------------------
function cbOpenPopWindow3(w,h,t,l,strUrl, strWName) {
//naam van de variabele WInfo ligt vast.
if (strUrl=="") {strUrl="cbs_multipurp.asp?intActie=9999" } 
WInfo=window.open(strUrl,strWName,"resizable=yes,scrollbars=yes,width="+w+",height="+h+",top="+t+",left="+l);
return WInfo
//WInfo.document.body.OnBlur=WInfo.window.focus();
}
//---------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------------------------------------
function isInteger(s){
	var i;
    for (i = 0; i < s.length; i++){   
        // Check that current character is number.
        var c = s.charAt(i);
        if (((c < "0") || (c > "9"))) return false;
    }
    // All characters are numbers. specifieke functie let op let op
    return true;
}
//---------------------------------------------------------------------------------------------------
function stripCharsInBag(s, bag){
	var i;
    var returnString = "";
    // Search through string's characters one by one.
    // If character is not in bag, append to returnString.
    for (i = 0; i < s.length; i++){   
        var c = s.charAt(i);
        if (bag.indexOf(c) == -1) returnString += c;
    }
    return returnString;
}
//---------------------------------------------------------------------------------------------------
function daysInFebruary (year){
	// February has 29 days in any year evenly divisible by four,
    // EXCEPT for centurial years which are not also divisible by 400.
    return (((year % 4 == 0) && ( (!(year % 100 == 0)) || (year % 400 == 0))) ? 29 : 28 );
}
//---------------------------------------------------------------------------------------------------
function DaysArray(n) {
	for (var i = 1; i <= n; i++) {
		this[i] = 31
		if (i==4 || i==6 || i==9 || i==11) {this[i] = 30}
		if (i==2) {this[i] = 29}
   } 
   return this
}
//---------------------------------------------------------------------------------------------------
function isDate(dtStr, lVerplicht){
//INVOEREN ALS mm/dd/yyyy: feitelijk vervallen!
return true	//mits: de runtime afhandeling van de datum fout gaat
if (dtStr.length<4 && lVerplicht==0)
	{
		return true		//invoer niet verplicht
	}
	var daysInMonth = DaysArray(12)
	var pos1=dtStr.indexOf(dtCh)
	var pos2=dtStr.indexOf(dtCh,pos1+1)
	var strMonth=dtStr.substring(0,pos1)
	var strDay=dtStr.substring(pos1+1,pos2)
	var strYear=dtStr.substring(pos2+1)
	var dtCh="/"
	strYr=strYear
	if (strDay.charAt(0)=="0" && strDay.length>1) strDay=strDay.substring(1)
	if (strMonth.charAt(0)=="0" && strMonth.length>1) strMonth=strMonth.substring(1)
	for (var i = 1; i <= 3; i++) {
		if (strYr.charAt(0)=="0" && strYr.length>1) strYr=strYr.substring(1)
	}
	month=parseInt(strMonth)
	day=parseInt(strDay)
	year=parseInt(strYr)
	if (pos1==-1 || pos2==-1){
		alert("Datum onjuist / The date format should be : mm/dd/yyyy")
		return false
	}
	if (strMonth.length<1 || month<1 || month>12){
		alert("Maand onjuist / Please enter a valid month")
		return false
	}
	if (strDay.length<1 || day<1 || day>31 || (month==2 && day>daysInFebruary(year)) || day > daysInMonth[month]){
		alert("Datum onjuist / Please enter a valid day")
		return false
	}
	if (strYear.length != 4 || year==0 || year<minYear || year>maxYear){
		alert("Jaar onjuist / Please enter a valid 4 digit year between "+minYear+" and "+maxYear)
		return false
	}
	//nov05 weggehaald! if (dtStr.indexOf(dtCh,pos2+1)!=-1 || isInteger(stripCharsInBag(dtStr, dtCh))==false){
	//	alert("Datum tussenteken onjuist / Please enter a valid date")
	//	return false
	//}
return true
}

//UITGEBREIDE DATUMVALIDATIE EINDE
//---------------------------------------------------------------------------------------------------
function cbPrintpage()
{
window.print()
}
//---------------------------------------------------------------------------------------------------
function cbOpenWindow()
{
window.open();
}
//---------------------------------------------------------------------------------------------------
function cbInputBox(strVraag) {
var name
name = prompt(strVraag,"");				//zie ook confirm (return true false)
if (name != null && name != "")
{
//het mooiste is de keuzelijst uit te breiden---we kunnen nieuwe items ook in een hidden fiels zetten
//nee
  return name;
}
}
//---------------------------------------------------------------------------------------------------
function Trim(TRIM_VALUE){
if (TRIM_VALUE == null || TRIM_VALUE == "")  { return "";}
if(TRIM_VALUE.length < 1){
return"";
}
TRIM_VALUE = RTrim(TRIM_VALUE);
TRIM_VALUE = LTrim(TRIM_VALUE);
if(TRIM_VALUE==""){
return "";
}
else{
return TRIM_VALUE;
}
} //End Function
//---------------------------------------------------------------------------------------------------
function RTrim(VALUE){
var w_space = String.fromCharCode(32);
var v_length = VALUE.length;
var strTemp = "";
if(v_length < 0){
return"";
}
var iTemp = v_length -1;

while(iTemp > -1){
if(VALUE.charAt(iTemp) == w_space){
}
else{
strTemp = VALUE.substring(0,iTemp +1);
break;
}
iTemp = iTemp-1;

} //End While
return strTemp;

} //End Function
//---------------------------------------------------------------------------------------------------
function LTrim(VALUE){
var w_space = String.fromCharCode(32);
if(v_length < 1){
return"";
}
var v_length = VALUE.length;
var strTemp = "";

var iTemp = 0;

while(iTemp < v_length){
if(VALUE.charAt(iTemp) == w_space){
}
else{
strTemp = VALUE.substring(iTemp,v_length);
break;
}
iTemp = iTemp + 1;
} //End While
return strTemp;
} //End Function

//--------------------------------------------------------------------------------------------------
function cbCalcuAge(yrB, monB, dayB, yrF, monF, dayF)
//bereken de leeftijd ahv de geboortedatum. yrB is de geboortedatum, yrF is de datum waarvan gerekend moet worden
{
var vandaag=new Date()
var yrBYear, dVDat
//dVDat=new Date(yrB)		//converteer..ONJUIST OPMAAK
//yrBYear=dVDat.getFullYear()
if (yrF==0)
	{	yrF=vandaag.getFullYear(); monF=vandaag.getMonth()+1; dayF=vandaag.getDate();	}
//alert(monF)
//alert(monB)  alert(yrB) alert(dayB)
//alert(yrF)
//alert(yrB)
if (monF>monB)	
	{ return (yrF- yrB) }
if (monF<monB)
	{ return (yrF- yrB-1) }
//ander gelijk dagen vergelijken
if (dayF>=dayB)	
	{ return (yrF- yrB) }
if (dayF<dayB)
	{ return (yrF- yrB-1) }
}

//---------------------------------------------------------------------------------------------------
function cbScreenResoPara()
//Geef parameter die uitgelezen kan worden door vbscript om resolutie te bepalen
{
document.location.href=document.location.href+'?res='+screen.width+'&resh='+screen.height;
}
//---------------------------------------------------------------------------------------------------
function cbjsVorige()
{
history.go(-1)
}
//---------------------------------------------------------------------------------------------------
function cbjsStatusBalk(strBericht)
{
if (strBericht != null && strBericht != "")
		{ window.status = strBericht }
else 	{ cbMoment() }

}
//---------------------------------------------------------------------------------------------------
function cbMoment()
{
window.status = "Moment..." 
return true
}

//---------------------------------------------------------------------------------------------------
function cbjsTestNum(x,hoog,laag)
{
var myNum=x.value
var strBericht="Voer een GETAL in tussen "
if (myNum>=laag && myNum<=hoog)
 {
 return true
 }
else
 {
	if (cojsTAAL=="gb") {strBericht="Insert a number between "}
	if (cojsTAAL == "fr") { strBericht = "Entrez un nombre entre" }	 
	alert(strBericht + laag + " - " + hoog);
	x.value=laag;
	x.focus();
 return false
 }
}
//---------------------------------------------------------------------------------------------------
function cbjsTestNumNM(x,hoog,laag)
{		//geen bericht
var myNum=x.value
if (myNum>=laag && myNum<=hoog) { return true  }
else { return false }
}
//---------------------------------------------------------------------------------------------------
function cbjsTestNumDeci(x,hoog,laag)
{
var myNum=x.value, myNum2
var strBericht="Voer een GETAL in tussen "
if (myNum.indexOf(".")>=0 && daDecTeken!=".")
	{
	strBericht="Decimaal teken is onjuist. Moet een , (komma) zijn."
	if (cojsTAAL=="gb") {strBericht="Decimal is not '.' but should be ',' "}
	if (cojsTAAL == "fr") { strBericht = "Le point décimal est incorrect. Ce doit être une virgule ',' " }
	alert(strBericht)
	return false
	}
if (myNum.indexOf(",")>=0 && daDecTeken!=",")
	{
	strBericht="Decimaal teken is onjuist. Moet een . (punt) zijn."
	if (cojsTAAL=="gb") {strBericht="Decimal is not ',' but should be '.' "}
	if (cojsTAAL == "fr") { strBericht = "Le point décimal est incorrect. Cela devrait être un point '.' " }
	alert(strBericht)
	return false
	}	
myNum2=myNum.replace(",", ".")		//tbv javascript hebben we de . nodig
if (myNum2>=laag && myNum2<=hoog)
 {
 return true
 }
else
 {
	if (cojsTAAL=="gb") {strBericht="Insert a number between "}
	if (cojsTAAL == "fr") { strBericht = "Entrez un nombre entre" }	 
	alert(strBericht + laag + " - " + hoog);
	x.value=laag;
	x.focus();
 return false
 }
}
//---------------------------------------------------------------------------------------------------

function cbRActienemers(fOForm, strVeldNM, strExtra)
//function cbRActienemers(fOForm, strVeldNM, strParentForm: vervallen)
// Geef gekozen actienemers retour in formulier -strParentForm- (generaliseren naar algemene functie voor andere velden)
//fOForm: huidig formulier
//strVeldNM: veldnaam
//strParentForm: doet er niet toe wordt toch opener.document.forms[0];
{
var  i, strVeld, txt, txt2, strVeldNM2, iArr, oDocForm, txtzondercode, strVeld2, dum, strOVeld
var strBericht="Vergeet niet de melding op te slaan."
var arrValue = new Array()
var oDocForm=opener.document.forms[0];
var strParentForm=oDocForm.name;
if (cojsTAAL != "nl") { strBericht = "Don't forget to save the mainform." }
if (cojsTAAL == "fr") { strBericht = "N´oubliez pas d'enregistrer la forme" }
//datum gebeurtenis

//alert("opener.document." + strParentForm)
//alert(strVeldNM)
strVeld=fOForm.anaam
//Nieuw, 31mei04 ipv strParentForm
strOVeld="opener.document.forms[0]"+"."+strVeldNM		//ivm indexrijen vd velden juni07

txtzondercode=""	//zonder de trefwoorcode van 10 tekens
txt2=""
txt=""
//txt=fOForm.strNieuweNaam.value		'vervallen
//if (txt != null && txt != ""){txt = txt }
//				alert(strVeldNM)

if (strVeldNM.substr(0,8) == "cboKeuze")			//bijv cboKeuzeV1a cboKeuzeLP02a__0
	{
		
		strVeld2=strVeldNM.substr(0,strVeldNM.length-1) + "JAVA"		//bestaat het veld wel?
		try 
		{ 
			dum=oDocForm(strVeld2).value
			if (typeof oDocForm(strVeld2).value != "undefined") 
				{ 
					if (oDocForm(strVeld2).value!="")	{ eval(oDocForm(strVeld2).value) }
				}
		}		//try
		catch(err)
		{ 
		//fout overslaan 
		//alert(err)
		}
	}
iArr=0		//array teller
for (i = 0; i<strVeld.length; ++ i)
	{
		if (strVeld[i].checked)
		{
		if (txt != null && txt != "") { txt = txt +  ";"}
		txt2=strVeld[i].value
		txt+=txt2 
		if (txt2.length>10)
			{ 
			if (txtzondercode.length>0) { txtzondercode+=";" }
			txtzondercode+=txt2.substr(10) 
			}
		//zet tevens in de array
		arrValue[iArr]=strVeld[i].value
		iArr=iArr+1
		}
	}
if (txt=="" && strVeldNM.substr(0,3) == "cbo")	//niets gekozen of afgevinkt
{
	strVeldNM2 = strVeldNM.substr(0,strVeldNM.length-1)	//bijv. cboKeuzeV1 bij veldnaam=cboKeuzeV1a
	oDocForm(strVeldNM).value  = txt		//let op, veld  mag niet readonly zijn 
	oDocForm(strVeldNM2).value = "#DEL#" + strVeld[0].value		
	//for (i=0;i<oDocForm.length;i++)  //niet disabled niet hidden veldtype checken pfft
	//{
	//	if (oDocForm[i].name!=strVeldNM2 && oDocForm[i].name.substr(0,10)==strVeldNM2.substr(0,10) && oDocForm[i].name.indexOf("_changed")<0)		//cboKeuze(8) V1 ab niet _changed
	//		{ alert(oDocForm[i].name+"-"+oDocForm[i].value) }
	//		
	//}
//alert(oDocForm(strVeldNM2).value)
	if (oDocForm.name=="FormIMS")
		{ if (oDocForm.btOpslaan.disabled) {alert(strBericht)} 
		opener.window.status=strBericht
		}
	return true
}
//er is een veld aangevinkt
oDocForm=opener.document.forms[0];
	if (strVeldNM.substr(0,3) == "cbo" || strVeldNM.substr(0,3) == "IPL") 		//combobox, vertaal 1e tien tekens naar tcode
		{
		//bijv. V20000000010TREFWOORD;V20000000220TREFWOORD2
		// in het codeveld , komma gescheiden opslaan
		txt=""
		txt2=""
		for (i=0; i<iArr; ++i)
			{
				if ( txt != "") { txt = txt + ";" }
				txt=txt + arrValue[i].substr(10)		//vanaf pos. 10
				if ( txt2 != "") { txt2 = txt2 + "," }
				txt2=txt2 + arrValue[i].substr(0,10) 		//tcodes lengte 10
			}
		
		strVeldNM2 = strVeldNM.substr(0,strVeldNM.length-1)		//bijv. cboKeuzeV2
		if (strVeldNM.substr(0,3) == "cbo") 
			{ 
			//alert(strVeldNM)
				oDocForm(strVeldNM).value = txt		//let op, veld  mag niet readonly zijn 
			  oDocForm(strVeldNM2).value = txt2		//let op, veld  mag niet readonly zijn
			}
		else		//Invoer Persoonlijk Letsel precies omge
			{		oDocForm(strVeldNM).value = txt2		//let op, veld  mag niet readonly zijn 
			oDocForm(strVeldNM2).value = txt		//let op, veld  mag niet readonly zijn 	
			}
		if (strVeldNM.substr(0,9)=="cboWaarde")
			{
				//oDocForm(strVeldNM).disabled=true
			}
		}
	else
		{
		//alert(strVeldNM + " inhoud "+txt)
		//if ("strEMailLst"==strVeldNM )		//jan08 voor checkboxen 
		if ("strEMailLst"==strVeldNM || strExtra=="checkbox")		//jan08 voor checkboxen 

			{	
			try 
			{
				if (oDocForm(strVeldNM).value!="") { oDocForm(strVeldNM).value += ";" } 
				oDocForm(strVeldNM).value += txt
			}
			catch(err)
				{  } 
			}	//laat inhoud staan
		else
			{ 
			eval(strOVeld).value=txt
			//juni07			oDocForm(strVeldNM).value = txt 
			}		//let op, veld  mag niet readonly zijn 
		strVeldNM2 = strVeldNM.substr(0,strVeldNM.length-1)
//alert(strVeldNM2 + " inhoud "+txt) BIJV. MELDING_OBSERVE 
		if (oDocForm.name=="FormOrganon" )	
			{ oDocForm(strVeldNM2).value = txt }		//let op, veld  mag niet readonly zijn 	
		else
			{ if (strVeldNM.indexOf("_TB")>0)		//werkt alleen correct bij combo ofwel 1 keuze
				{	oDocForm(strVeldNM).value=txtzondercode }
			}
		}

if (oDocForm.name=="FormIMS")
	{ if (oDocForm.btOpslaan.disabled) {alert(strBericht)} 
	opener.window.status=strBericht
	}
return true

}
//---------------------------------------------------------------------------------------------------
function cbjavaVerwijderMeldingLOCK(strLocation, strVraag)
//Feitelijk verwijderen van de melding zelf
{
strBericht="Moment, de knop `wijzigen´ wordt geschakeld. Druk a.u.b. nogmaals op Verwijderen...";
if (cojsTAAL=="gb") { strBericht="Moment, the edit-button will be toggled. Please, press `delete´ again..." };
if (cojsTAAL == "fr") { strBericht = "Moment, «changer» le bouton est activé. Appuyez à nouveau sur Supprimer, s'il vous plaît ... " };
cbjsLockFormIMS("LOCK");
if (document.forms[0].btOpslaan.disabled) { alert(strBericht); return false; }
return cbjavaVerwijderMelding(strLocation, strVraag)
}
//---------------------------------------------------------------------------------------------------
function cbjavaVerwijderMelding(strLocation, strVraag)
//functie dialoog  verwijderen en aanroep: LET WEL: alle tabellen, dus niet alleen melding
// Internet Explorer only
{
    var keuze1, keuze2, strVraag2, strDump, strPrompt=""
//alert(document.title)
if (strVraag=="" || strVraag == null) {
	strVraag="Wilt u deze echt verwijderen?"
	if (cojsTAAL=="gb") { strVraag="Delete this record?" }
	if (cojsTAAL == "fr") { strVraag ="Pensez-vous vraiment supprimer?"}
	}
keuze1 = confirm(strVraag)
if (keuze1 == true)
{
	if (strVraag.substr(0,1)== "·")
		{
			 window.location=strLocation		//geen 2e vraag stellen
		}
	else
		{ 
			strVraag2="Weet u het absoluut zeker?"
			if (cojsTAAL=="gb") { strVraag2="Are you REALY sure?" }
			if (cojsTAAL == "fr") { strVraag2 = "Êtes-vous sûr?" }
			keuze2 = confirm(strVraag2)
			try
			{
				if (document.forms[0].name=="FormIMS" && keuze2) {document.forms[0].CB_IS_SAVED.value="Y"}; 	//Markeer dat het formulier verlaten mag worden
			}
			catch (err)			{}		//geen formulier bekend
			if (strLocation=="") 
				{ return keuze2 }
			else	
				{ if (keuze2 == true) {

				    window.location = strLocation; 
					return true
					} 
				}		//keuze2
		} 
}
else
	{ return false }
}
//---------------------------------------------------------------------------------------------------
function cbjavaVerwijderNaam(strLocation, strVraag)
//functie dialoog  verwijderen en aanroep: LET WEL: alle tabellen, dus niet alleen melding
// Internet Explorer only
{
    var keuze1, keuze2, strVraag2, strDump, strPrompt = ""
    //alert(document.title)
    if (strVraag == "" || strVraag == null) {
        strVraag = "Wilt u deze echt verwijderen?"
        if (cojsTAAL == "gb") { strVraag = "Delete this record?" }
        if (cojsTAAL == "fr") { strVraag = "Pensez-vous vraiment supprimer?" }
    }
    keuze1 = confirm(strVraag)
    if (keuze1 == false) { return true }
    strVraag2 = "INFO: \nNaam Actiehouder/Eigenaar registratie user-id, vervangen. \n \nDe optie `Snelzoeken´ (of Selecteren) geeft de mogelijkheid de naam in elk veld te doorzoeken en een overzicht hiervan te maken. ;  \n \n Via Beheer-Database onderhoud is het ook nog achteraf mogelijk de naam te vervangen via ZOEK EN VERVANG VELDWAARDE \n \n De VOLGENDE optie geeft u de keuze tussen direct vervangen of laten staan..."

        if (cojsTAAL == "gb") { strVraag2 = "Replace name at registrations with: (empty: do not replace. Via Speedsearch you can later select all records with that name in it) " }
        if (cojsTAAL == "fr") { strVraag2 = "Replace name at registrations with / Nome" }
        if (cojsTAAL == "nl") {
            alert(strVraag2)
            strVraag2 = "Naam Actiehouder/Eigenaar registratie user-id, vervangen met...?  (Annuleren: naam laten staan)"
        }
        
        strPrompt = prompt(strVraag2, "");
      strLocation = strLocation + "&strLijst=" + strPrompt;

    if (keuze1 == true) 
       {

            strVraag2 = "Ook als Contactpersoon verwijderen?"
            if (cojsTAAL == "gb") { strVraag2 = "Delete also contactperson?" }
            if (cojsTAAL == "fr") { strVraag2 = "Delete also contactperson?" }
            keuze2 = confirm(strVraag2)
            if (keuze2 == true)
                     {
                   window.location = strLocation+"&strPagina=C";
                   return true
                   }
            else
                    {
                   window.location = strLocation;
                   return true
                   }
            
        }
    else
    { return false }
}
//---------------------------------------------------------------------------------------------------
function cbjsSortTref(strLocation)
//functie dialoog complete melding verwijderen en aanroep
// Internet Explorer only
{
var keuze1, keuze2, strVraag2, strVraag
if (strVraag=="" || strVraag == null) {
	strVraag="Wilt u deze lijst op trefwoord (i.p.v. code) sorteren? (sorteren kan alleen op het LAAGSTE niveau, maak vooraf een backup of afdruk)"
	if (cojsTAAL=="gb") { strVraag="Do you want to sort this category?" }
	if (cojsTAAL == "fr") { strVraag = "Trier category?" }
	}
keuze1 = confirm(strVraag)
if (keuze1 == true)
{
	strVraag2="Weet u het absoluut zeker?"
	if (cojsTAAL == "gb") { strVraag2 = "Are you REALY sure?" }
	if (cojsTAAL == "fr") { strVraag2 = "Êtes-vous sûr?" }
	keuze2 = confirm(strVraag2)
	if (strLocation=="") 
		{ return keuze2 }
	else	
		{ if (keuze2 == true) { window.location=strLocation } }
//document.location
//history.go(-2)
}
else
	{ return false }
}
//---------------------------------------------------------------------------------------------------
function cbROpenMilieu(lngSys_Key, strParentForm)
{
var oDocForm, strV1H, lngSys_KeyF
//novv04 oDocForm=eval("document." + strParentForm)		//document.forms[0], dus niet opener....
oDocForm=document.forms[0];
lngSys_KeyF=oDocForm("Sys_Key").value
strV1H=oDocForm("cboKeuzeV1").value
//alert(lngSys_KeyF)
//alert(strV1H)

cbOpenPopWindow2(800,400,100,100,"cbs_multipurp.asp?intActie=55&strPagina=" + lngSys_KeyF + "&strLijst=" + strV1H)
}

//---------------------------------------------------------------------------------------------------
function cbROpenBijlagen(lngSys_Key, strParentForm, nAantal)
{
//screen.width,screen.height ipv 800-400
var strBericht="Let op: Bijlage venster is nog geopend. \n \n Toch verder gaan?"
if (!vWinflyout || vWinflyout.closed) 
	{
	vWinflyout=cbOpenPopWindow2(800,screen.height-100,100,50,"cbs_multipurp.asp?intActie=56&strPagina=" + lngSys_Key + "&strLijst=" + strParentForm + "&strVeld=" + nAantal)
	vWinflyout.focus()
	}
else
	{ 
	    if (cojsTAAL!="nl") {strBericht="Attention: Attachment-window is still opened \n \n Continue?"}
	    if (cojsTAAL == "fr") { strBericht = "Attention: fenêtre est ouverte. \n \n Continuer malgré tout?" }
		if (confirm(strBericht )==false)	{ return (false);}
	}
//window.name="BIJLAGEN": mag NIET want dan klopt de targerframe niet meer!!!
}
//---------------------------------------------------------------------------------------------------
function cbRVulBijlagen(strParentForm, nAantal)
{
var oDocForm, oVeld, i
//oDocForm=eval("document." + strParentForm)
//oDocForm=eval("opener.document." + strParentForm)
oDocForm=opener.document.forms[0];
for (i = 1; i<=nAantal; ++ i)
	{
		oVeld=eval("FormBijlagen.HLink" + i)
		if (oDocForm("HLink" + i).value  != " " && oDocForm("HLink" + i).value  != null && oDocForm("HLink" + i).value != "NOTCHANGED")
		{		oVeld.value=oDocForm("HLink" + i).value }
	}
//document.FormBijlagen.HLink1.value="test1"
}
//---------------------------------------------------------------------------------------------------
function cbRBijlagenKopie(t, i)
//Kopieer de veldinhoud van type File naar ander veld type text.
{
var oVeld
if (t.name=="HLink"+i+"a")
	{oVeld=eval("FormBijlagen.HLink" + i);
	oVeld.value=t.value;
	//oVeld=eval("FormBijlagen.btUpload");
	document.FormBijlagen.btUpload.disabled=false;
	//oVeld.disabled=false;
	}
if (t.name=="HHLink"+i+"a")
	{//oVeld=eval("FormCSC.HHLink" + i);
	//oVeld.value=t.value;
	document.FormCSC("HHLink" + i).value=t.value;
	document.FormCSC.btShort2.disabled=false;
	}
//hlink i type:text
//alert(oVeld.name + "w: " + oVeld.type)
}
//---------------------------------------------------------------------------------------------------

function cbRBijlagen(fOForm, strParentForm, nAantal)
//Bewaar de bijlagen in het tekstveld
{
var  i, oDocVeld, oDocForm, oVeld
//Kopieer de velden naar het hoofdformulier
//nov04 oDocForm=eval("opener.document." + strParentForm)
oDocForm=opener.document.forms[0];
//for (i = 1; i<=nAantal; ++i)		
	//er is maar 1 invoerveld !!!!!!!
i=1
if (fOForm.name=="FormOrganon")
{	oVeld=eval(fOForm.name + ".HLink" + i)
	// max 5 op hoofdformulier
	if (oVeld.value != " " && oVeld.value != null )  { oDocForm("HLink" + i).value = oVeld.value }
//window.close();
}
return true
}
//---------------------------------------------------------------------------------------------------
function cbOpenMaatreg(t,lngVolgnr, nRegel)
//Open het formulier met voortgangscontrole, vForKey: veldnaam voor foreignkey (default volgnr)
{
var oDocForm=document.forms[0]
var lngSys_Key=oDocForm.Sys_Key.value		//hidden op hoofdformulier
var iItemnr
var waardekey
var vItem=""
//bestaande meldingen hoeven niet persé een item gekoppeld hebben
//var waardekey=document.forms[0](vForKey).[iItemnr].value	
waardekey=0
//iItemnr=t.parentNode.rowIndex;
//alert(lngVolgnr)
//alert(waardekey)
//window.open("cbs_multipurp.asp?intActie=401&strPagina="+iItemnr+"&strVeld="+waardekey+"&lngSys_Key="+lngSys_Key)
//var vWinVoort =window.open("cbs_multipurp.asp?intActie=401&strPagina="+iItemnr+"&strVeld="+waardekey+"&lngSys_Key="+lngSys_Key, "Voortgang","resizable=yes,scrollbars=yes,width=800,height=600,top=100,left=100");
if (!vWinVoort || vWinVoort.closed)
	{
	vWinVoort =window.open("cbs_multipurp.asp?intActie=402&strPagina="+nRegel+"&strVeld="+lngVolgnr+"&lngSys_Key="+lngSys_Key, "Voortgang","resizable=yes,scrollbars=yes,width=screen.availWidth,height=screen.availHeight,top=10,left=10");
	}
   else 
   	{
   	    if (cojsTAAL == "gb") { strBericht = "Action window is already opened" }
   	    if (cojsTAAL == "fr") { strBericht = "Attention: fenêtre est ouverte." } 
	      alert(strBericht);
		  vWinVoort.focus()
    }
}

//---------------------------------------------------------------------------------------------------
function cbOpenVoortgang(t,vForKey)
//Open het formulier met voortgangscontrole, vForKey: veldnaam voor foreignkey (default volgnr)
{
var oDocForm=document.forms[0]
var iItemnr, specs
var waardekey, strBericht="Actie/Voortgangs -venster is al geopend"
var vItem=""
var lngSys_Key=oDocForm.Sys_Key.value		//hidden op hoofdformulier
//bestaande meldingen hoeven niet persé een item gekoppeld hebben
//var waardekey=document.forms[0](vForKey).[iItemnr].value	
waardekey=0
iItemnr=0	//Default
if (typeof oDocForm.MAATREG_VOLGNR.length== "undefined") 
	{ waardekey=oDocForm.MAATREG_VOLGNR.value }		//feitelijk weten we al <=0
else
	{ 
	iItemnr=t.parentNode.parentNode.rowIndex;
	try
		{
    	 waardekey=oDocForm.MAATREG_VOLGNR[iItemnr-1].value 
		}
	catch(err)	
		{
		try
			{
			 iItemnr=t.parentNode.rowIndex;
			 //alert(iItemnr)
			 waardekey=oDocForm.MAATREG_VOLGNR[iItemnr-1].value 
			}
		catch(err)	
			{
			 iItemnr=oDocForm("NRIJ_MAATREG").value
			 //alert(iItemnr)
			 waardekey=oDocForm.MAATREG_VOLGNR[iItemnr-2].value //1rij maar aanwzig
			}
		}
	}
//alert(waardekey)
//window.open("cbs_multipurp.asp?intActie=401&strPagina="+iItemnr+"&strVeld="+waardekey+"&lngSys_Key="+lngSys_Key)
//var vWinVoort =window.open("cbs_multipurp.asp?intActie=401&strPagina="+iItemnr+"&strVeld="+waardekey+"&lngSys_Key="+lngSys_Key, "Voortgang","resizable=yes,scrollbars=yes,width=800,height=600,top=100,left=100");
//specs = "toolbar=yes,location=no,directories=no,status=no,menubar=no,resizable=no,copyhistory=no,scrollbars=yes" + ",width=" + w + ",height=" + h;
specs= "resizable=yes,status=yes,scrollbars=yes,width=1010,height=700,top=1,left=1"   

if (!vWinVoort || vWinVoort.closed)
	{
	vWinVoort =window.open("cbs_multipurp.asp?intActie=401&strPagina="+iItemnr+"&strVeld="+waardekey+"&lngSys_Key="+lngSys_Key, "Voortgang", specs);
	//alert("Open window")
	}
   else 
   	{
 		if (cojsTAAL=="gb") {strBericht="Action window is already opened"}
 		if (cojsTAAL == "fr") { strBericht = "Attention: fenêtre est ouverte." } 
	    //okt09 vervelvend alert(strBericht); //in bepaalde omstandigheden kan de functie 2x aangeroepen worden: onClick='cbMaatregClick(this)' uit labels verwijderen bij veld
		window.status=strBericht
		vWinVoort.focus()
    }


}

//---------------------------------------------------------------------------------------------------
function cbRVoortgangOUD(iItemnr, cbs_userid, nDom, daFormat)
//sla de voortgang bij de actie op. lDom: dynamische opbouw gebruikt
// datumformat nodig ivm auto invullen datum afgedaan
{
var i, strVeld, strTref, strToe, oDocForm, strPaFo, oVeld, oVeld2, strHulp, lAfg, vItem, cbs_useridOrg
var strBericht="U heeft geen status/toelichting aangegeven."
var d = new Date()
if (typeof nDom== "undefined")	{ nDom=0 }
if (nDom==0)
	{ vItem="" }
else { 
	vItem="[iItemnr-1]"
 	if (parseInt(opener.document.forms[0].NRIJ_MAATREG.value)<3) {vItem=""}  		//vItem="" of vItem=[ ]
	 }
cbs_useridOrg=cbs_userid		//orginele inhoud bewaren
strToe=document.FormVoort.strToelichting.value
if (document.FormVoort.strActieNaam1.value!="")		//geen naam ingevuld? Dan user-id nemen
	{ cbs_userid=document.FormVoort.strActieNaam1.value }
//alert(document.FormVoort.strActieNaam.value oude waarde)

strVeld=document.FormVoort.cboKeuzeST
strTref=""
for (i = 0; i<strVeld.length; ++ i)
	{
		if (strVeld[i].checked)	{strTref= strVeld[i].value}
	}
if (strTref=="" && strToe=="")
	 {
 		if (cojsTAAL=="gb") {strBericht="Status not defined!"}
 		if (cojsTAAL == "fr") { strBericht = "le statut n'est pas défini" }
		alert(strBericht)
		 i=0
	 }		//dummy
else
	{  
	i=1
	oDocForm=opener.document.forms[0];
	strPaFo=oDocForm.name;
	if (strToe != "")
		{
		//Toeliching
		if (nDom==0)
			{ 
			oVeld=eval("opener.document." + strPaFo + ".strToe" + iItemnr);
			oVeld.value=strToe;
			oVeld=eval("opener.document." + strPaFo + ".btVoort" + iItemnr);
			oVeld.title=strToe;
			oVeld=eval("opener.document." + strPaFo + ".strActie" + iItemnr);
			if (oVeld.value=="")	{oVeld.value=strToe}
			//button
			}
		else
			{
				oVeld=eval("opener.document.forms[0].AKTIENEMERS_TOELICHTING"+vItem);
				oVeld.value=strToe;	
				oVeld=eval("opener.document.forms[0].butAKTIENEMERS"+vItem);
				oVeld.title=strToe;	
				oVeld=eval("opener.document.forms[0].MAATREG_AKTIE"+vItem);
				if (oVeld.value=="")	{oVeld.value=strToe}
				oVeld=eval("opener.document.forms[0].AKTIENEMERS_MUTNAAM"+vItem);
				oVeld.value=cbs_useridOrg		//naam vd gene die muteert....datum? default waard nemen?
				//opener.document.forms[0].AKTIENEMERS_TOELICHTING[iItemnr-1].value=strToe
			}
		}	//strToe

	if (strTref != "")
		{
		//Status
		if (nDom==0)
			 { 	oVeld=eval("opener.document." + strPaFo + ".strStatus" + iItemnr); }
		else {	oVeld=eval("opener.document.forms[0].MAATREG_STATUS"+vItem);}	
		oVeld.value=strTref.substr(10);
		strHulp="VR:" + strTref.substr(10);
		if (nDom==0)
			{ 	oVeld=eval("opener.document." + strPaFo + ".btVoort" + iItemnr); }
		else
			{ 	
			oVeld=eval("opener.document.forms[0].AKTIENEMERS_VOORTGANG"+vItem); 
			oVeld.value=strTref.substr(10);
			oVeld=eval("opener.document.forms[0].butAKTIENEMERS"+vItem); 
			}
		//alert(oDocForm.name + ".btVoort" + iItemNr);
		//oVeld=eval(strPaFo+ ".strActie1")
		//oVeld.value=strHulp.substr(0,22);
		oVeld.value=strHulp;	//hele lengte meegeven
		if (nDom==0)		
			{ oVeld=eval("opener.document." + strPaFo + ".strActie" + iItemnr); }
		else
			{ oVeld=eval("opener.document.forms[0].MAATREG_AKTIE"+vItem); }
		if (oVeld.value=="")	{oVeld.value=strTref.substr(10)}
		
		if (strTref.substr(8,2)=="99")		//markering dat de melding afgedaan is
			{
				if (nDom==0) 
					{	oVeld=eval("opener.document." + strPaFo + ".daAfDay" + iItemnr); }
				else
					{	oVeld=eval("opener.document.forms[0].MAATREG_DD_KLAAR_DAY"+vItem); }
				oVeld.value=d.getDate();
				if (nDom==0) 
					{	oVeld=eval("opener.document." + strPaFo + ".daAfMonth" + iItemnr); }
				else
					{	oVeld=eval("opener.document.forms[0].MAATREG_DD_KLAAR_MONTH"+vItem); }
				oVeld.value=d.getMonth()+1;
				if (nDom==0) 
					{	oVeld=eval("opener.document." + strPaFo + ".daAfYear" + iItemnr);
					}
				else
					{	oVeld=eval("opener.document.forms[0].MAATREG_DD_KLAAR_YEAR"+vItem); 
					    oVeld2=eval("opener.document.forms[0].DA_MAATREG_DD_KLAAR_YEAR"+vItem); 
						oVeld2.value=cbjsFormatDate(d, daFormat)
					}
				oVeld.value=d.getFullYear();
				
			}
		else		//wis die datum	
			{
				if (nDom==0) 
					{	oVeld=eval("opener.document." + strPaFo + ".daAfDay" + iItemnr); }
				else
					{	oVeld=eval("opener.document.forms[0].MAATREG_DD_KLAAR_DAY"+vItem); }
				oVeld.value="";
				if (nDom==0) 
					{	oVeld=eval("opener.document." + strPaFo + ".daAfMonth" + iItemnr); }
				else
					{	oVeld=eval("opener.document.forms[0].MAATREG_DD_KLAAR_MONTH"+vItem); }
				oVeld.value="";
	
				if (nDom==0) 
					{	oVeld=eval("opener.document." + strPaFo + ".daAfYear" + iItemnr); 
					}
				else
					{	oVeld=eval("opener.document.forms[0].MAATREG_DD_KLAAR_YEAR"+vItem);
						oVeld2=eval("opener.document.forms[0].DA_MAATREG_DD_KLAAR_YEAR"+vItem);
		 				oVeld2.value="";
					}
				oVeld.value="";

			}
		}
	if (nDom==0)
		{	oVeld=eval("opener.document." + strPaFo + ".nwVoortRec" + iItemnr); 
			oVeld.value="N"		//zet op nieuw
			oVeld=eval("opener.document." + strPaFo + ".strActieNaam" + iItemnr + "1");
			oVeld.value=cbs_userid 	//jan 2005: was is dit???
			oVeld=eval("opener.document." + strPaFo + ".strActieNaam" + iItemnr + "1a");
			//overschrijf de status / actienemers!!! niet aanvullen
			oVeld.value=cbs_userid 	//jan 2005: was is dit???
		}
	else
		{
			oVeld=eval("opener.document.forms[0].AKTIENEMERS_NAAM"+vItem);
			oVeld.value=cbs_userid 	//we kunnen eventueel een default meegeven in labels en deze laten staan
		}
	if (false && cbs_userid!=oVeld.value)		//zie hierboven, dit hier wordt nooit uitgevoerd.
		{ 
			alert("Slechts 1 actienemer is in te vullen/One Name/Un nom")
			strHulp=oVeld.value + ";"
			strHulp=strHulp.toUpperCase()
			if (strHulp.indexOf(cbs_userid.toUpperCase() + ";")<0)		//-1 is niet gevonden, let op case sentive
			    {
				if (oVeld.value!="") {cbs_userid=cbs_userid + ";" }
				oVeld.value=cbs_userid + oVeld.value 
				oVeld=eval("opener.document." + strPaFo + ".strActieNaam" + iItemnr + "1");
				oVeld.value=cbs_userid + oVeld.value 
				}
		}
	}		//vanaf pos. 10 + strToe)}
//oDocForm.strActie1.value=strTref.substr(10) + strToe
//strActie
//opener.document.forms[0].("btVoort"+iItemNr).value=strTref.substr(10) + strToe
//if (i==1) { return true } 
return (i==1)
	//{window.close()}
}

//---------------------------------------------------------------------------------------------------
function cbROpenV1(strParentForm)
{
var oDocForm, strV1H
//oDocForm=eval("document." + strParentForm)
oDocForm=opener.document.forms[0];
strV1H=oDocForm("cboKeuzeV1").value	// actuele inhoud
window.open("cbs_multipurp.asp?intActie=50&strVeld=cboKeuzeV1a&strLijst=" + strV1H)
}
//---------------------------------------------------------------------------------------------------

function cbROpenPLetsel(lngSys_Key, strParentForm)
//Open een popup venster met x-invoerblokken voor persoonlijk letsel
{
var oDocForm, fOFrom, strVeld, lngSys_Key2
//nov04f OForm=eval("document." + strParentForm);
fOForm=document.forms[0];
xAantal=fOForm.intGetroffenen.value;
lngSys_KeyF=fOForm("Sys_Key").value
if ( xAantal<=99 && xAantal>=0)
	{ 
		if (xAantal>1)
		  {
			strVeld=fOForm.PLetselTot.value;		//runtime waarde ophalen
			if (xAantal>2 && screen.height>600)		//rekeninghouden met resolutie
				{
				cbOpenPopWindow2(800,screen.height-50,0,100,"cbs_multipurp.asp?intActie=57&strPagina=" + lngSys_KeyF + "&strLijst=" + xAantal + "&strVeld=" + strVeld);
				//alert(arrPLetsel[0][2]);
				//alleen wanneer het formulier actief is....document.FormPLetsel.strPersNummer2.value="nummer1waarde"
				}
			else
				{
				cbOpenPopWindow2(800,400,100,100,"cbs_multipurp.asp?intActie=57&strPagina=" + lngSys_KeyF + "&strLijst=" + xAantal  + "&strVeld=" + strVeld);
				}
		  } 
		else
		  { return true }
	}		  
else
	{ alert("Vul een getal in tussen 0 en 99/Number 0..99"); 
		return false 
	}
return true
}
//---------------------------------------------------------------------------------------------------

function cbPLDelete(j)
{
var  i, oDocVeld, oDocForm, oVeld, nAantal, strTotaal, strStart, nStart, strVeld, vWaarde, iWaarde
var strBericht="Weet u zeker dat u de gegevens van item " + j + " wilt wissen?"
if (cojsTAAL=="gb") {strBericht="Are you sure to delete data for item "+j+"?"}
if (cojsTAAL == "fr") { strBericht = "Etes-vous sûr de vouloir supprimer? #" + j  }

if (confirm(strBericht))
 {
	oDocForm=document.forms[0]
	nAantal=oDocForm.elements.length
	strTotaal="¦";
	strStart=oDocForm.elements[0].name
	for (i = 0; i<nAantal; ++ i)
	{
		strVeld=oDocForm.elements[i].name
		if (strVeld.substring(0,4)=="IPL" + j && strVeld!="IPL"+j+"_TELLER")
		{
			oDocForm.elements[i].value=""
		}	//eerste posities
	}
 }
}

//---------------------------------------------------------------------------------------------------
function cbPrintOrga1(strParentForm, lngSys_Key)
// Validatie formulier Organon. Indien lActie=-1 dan de acties ook valideren
{
//Valideer datumvelden (als complete datum)
// mm-dd-jjjj
//relateer datumvelden aan elkaar.
//Valideer trefwoordcodes; cq. rubrieken accepteren als leeg
var  strDatum, strVeld, i, strMaand, strDag, strOccMaand, strOccDag, strOccJaar, dDoc, strMailBody
//datum gebeurtenis
fOForm=eval("document." + strParentForm)
strOccMaand = fOForm.daOccMonth.value 
strOccDag = fOForm.daOccDay.value
strOccJaar = fOForm.daOccYear.value
strDatum= strOccDag + "/" + strOccMaand+ "/"  + strOccJaar
strMailBody=strMailBody + "<html><body><H1 align='center'>Record: " + lngSys_Key + "</H6>"
strMailBody=strMailBody + "<table width='100%' class='tabelprint' border='1' cellspacing='0' cellpadding='1'>"
strMailBody=strMailBody + "<tr><td>Nummer:</td><td>" + lngSys_Key + "</td></tr>"
strMailBody=strMailBody + "<tr><td>Datum gebeurtenis:</td><td>" +strDatum + " (dd/mm/yy)</td></tr>" 
//strMailBody=strMailBody + " of " + strDatum.toLocaleString()
strMailBody=strMailBody + "</Table>"
strMailBody=strMailBody + "</body></html>"
//cbOpenPopWindow("")
dDoc=window.open("", "PrintWindow")		//beter is een html documentsjabloon te openene
dDoc.document.write(strMailBody)
return true
}
//---------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------------------------------------
function cbSWInfo(lPa, strInfo)
{
var strBericht=" (Moment, wacht tot de pagina is geladen)"
if (cojsTAAL!="nl") { strBericht=" (Moment...) " } 
if (strInfo != null && strInfo != "")
	{ parent.document.title=strInfo
	//else
	//	{document.title=strInfo}	
	  window.status=strInfo + strBericht
	}
}
//---------------------------------------------------------------------------------------------------

function cbOrgaPrint(oForm)
//TEST
{
var window2
var x = document.cbsFPrint
window2=window.open("cbs_report.asp?strPrintOut=print","window2");
window2.document.write(x.strBody.value);
window2.focus()
window2.print();
return true
}
 // done hiding -->
//---------------------------------------------------------------------------------------------------
function cbjsTrefNivo(nSpaties, nV)
//nV is + of - 1
{
var nNivo, strTrefv, i, strSpaties
nNivo=parseInt(document.FormTrefwrd.strNivo.value)
nNivo += parseInt(nV)
if (nNivo<0) { nNivo=0}
if (nNivo>30) {nNivo=30}
document.FormTrefwrd.strNivo.value=nNivo
strTrefv=LTrim(document.FormTrefwrd.strTref.value)
strSpaties=""
for (i=0; i < nNivo; i++) 
	{     
	strSpaties+="          "			//lengte van 10 telkens
	}
document.FormTrefwrd.strTref.value=strSpaties+strTrefv
}
//---------------------------------------------------------------------------------------------------
function cbSVolgorde(t)
{
var nVolgnr, strVeld, nH, i, nW, nRTel
strVeld=t.value
nH=document.FormSjabloon.hoogste.value
if (t.checked)
	{
	document.FormSjabloon(strVeld).value = ++nH
	document.FormSjabloon.hoogste.value=nH
	}
else
	{
	nW=parseInt(document.FormSjabloon(strVeld).value)
	document.FormSjabloon(strVeld).value = ""
	if (nW==document.FormSjabloon.hoogste.value)
		{
		document.FormSjabloon.hoogste.value--
		document.FormSjabloon(strVeld).value = ""
		}
	else
		{
			nRTel=document.FormSjabloon.nRTel.value		//aantal elementen
			document.FormSjabloon.hoogste.value--		//hoogste 1 minder
			for (i=0; i < nRTel; i++) 
			{     
				if (document.FormSjabloon.chkV[i].checked)
					{
					//ITEM IS AANGEVINKT
					strVeld=document.FormSjabloon.chkV[i].value
					if (parseInt(document.FormSjabloon(strVeld).value)>nW)
					
						{ //alert(strVeld + "--" + nW + " checkp " + document.FormSjabloon(strVeld).value)
							document.FormSjabloon(strVeld).value-- }
					}
			}
		}		//waarde was al de hoogste
	}	
}
//---------------------------------------------------------------------------------------------------
function cbIVerplicht(t, veld)
{
var vWaarde
var strBericht=": invoer verplicht."
vWaarde=t(veld).value
if (vWaarde != null && vWaarde != "")
	{ return true }
else
	{	
		if (cojsTAAL=="gb") {strBericht=": input required."}
		if (cojsTAAL == "fr") { strBericht = ": d'entrée requis" }
		alert(t(veld).title + strBericht)
		t(veld).focus()
		return false
	}
}
//---------------------------------------------------------------------------------------------------
function cbInvVerplicht(t, veldlabel)
//t=this dus het veld zelf, veldlabel: veldlaben en de tekst
{
if (t.value.length>0)
	{ return true }
else
	{	alert(veldlabel)
		t.focus()
		t.value="?"
		return false //false: kan bij het volgende veld vast komen te zitten als dat ook verpl is.
	}
}
//---------------------------------------------------------------------------------------------------
function cbInvGewenst(t)
//t=this dus het veld zelf. Invoer gewenst veld markeren
{
var strBericht=	"Invoer gewenst", vRood="#FF8080"
if (t.value.length>0)
	{ t.style.backgroundColor="";}
else
	{ t.style.backgroundColor=vRood;
	if (cojsTAAL=="gb") {strBericht="Input desirable"}
	if (cojsTAAL == "fr") { strBericht = "D'entrée souhaitable" }
	window.status=strBericht
	} 

return true	
}
//---------------------------------------------------------------------------------------------------
function cbDefaultDatum(vDag, vMaand, vJaar)
//Vul de default/actuele detum in
{
var d=new Date()
vWaarde=vDag.value
if (vWaarde == null ||  vWaarde == "")
	{
	vDag.value = d.getDate()
	vMaand.value = d.getMonth()+1
	vJaar.value = d.getFullYear()
	}
}
//---------------------------------------------------------------------------------------------------
function cbDefDatumDOM(vDag, vMaand, vJaar, strTabel)
//Vul de default/actuele detum in, DOM
{
var d=new Date()
var vWaarde
var oForm=document.forms[0]
var nRij=parseInt(oForm("NRIJ_"+strTabel).value)		//hoogste rijnummer
try
{
	
if (nRij>=3)	
	{ 
	vWaarde=oForm(vDag)[nRij-2].value
	if (vWaarde == null ||  vWaarde == "")
		{
		oForm(vDag)[nRij-2].value   = d.getDate()		//let op-2 want gaat om ELEMENT!!! niet om rij
		oForm(vMaand)[nRij-2].value = d.getMonth()+1
		oForm(vJaar)[nRij-2].value  = d.getFullYear()
		//oForm("DA_"+vJaar).value=  cbjsFormatDate(d, daFormat)		//ja toch...
		oForm("DA_"+vJaar)[nRij-2].value  = cbjsFormatDate(d, daFormat);		//aangepast: aug2010
		}
	}
else
	{
	vWaarde=oForm(vDag).value
	if (vWaarde == null ||  vWaarde == "")
		{
		oForm(vDag).value   = d.getDate()
		oForm(vMaand).value = d.getMonth()+1
		oForm(vJaar).value  = d.getFullYear()
		oForm("DA_"+vJaar).value  = cbjsFormatDate(d, daFormat);
		}		
	}
}
catch (err)
	{}
}
//---------------------------------------------------------------------------------------------------
function validateBrowserAlert()
{
var strBericht
if (validateBrowserOnly()!="iex5")
	{
	strBericht="Let op: deze website is specifiek ontwikkeld voor Microsoft Internet Explorer 5 of hoger. \n \n Met uw browser, "+navigator.appName+", zullen mogelijk niet alle onderdelen naar behoren functioneren."
	if (cojsTAAL=="gb") {strBericht="Attention: this website is designed for Microsoft Internet Explorer 5 or higher" }
	if (cojsTAAL == "fr") { strBericht = "Attention: ce site est optimisé pour Microsoft Internet Explorer" }
	alert(strBericht)
	}
}
//---------------------------------------------------------------------------------------------------
function validateBrowserOnly()
{
var strMsgGetIE, strVers, strName, strPlat, intIndex1, intIndex2, intVer
	strVers=navigator.appVersion
	strName=navigator.appName
	strPlat=navigator.platform
	intIndex1=strVers.indexOf("MSIE");
	intIndex1=intIndex1+5
	intIndex2=strVers.lastIndexOf(";");
	intVer=strVers.substring(intIndex1, intIndex2)
	intVer=parseInt(intVer)
	if (strName=="Microsoft Internet Explorer" && strPlat=="Win32" && intVer>="5")
		{return "iex5"}	//bijv. iex5
	else
	{ return strName }      //dec10, stond strNaam
}
//---------------------------------------------------------------------------------------------------
function validateBrowser() {
// Controleer de versie vd browser icm Office Web Components
var strMsgGetIE, strVers, strName, strPlat, intIndex1, intIndex2, intVer
	strVers=navigator.appVersion
	strName=navigator.appName
	strPlat=navigator.platform
	intIndex1=strVers.indexOf("MSIE");
	intIndex1=intIndex1+5
	intIndex2=strVers.lastIndexOf(";");
	intVer=strVers.substring(intIndex1, intIndex2)
	intVer=parseInt(intVer)
	if (strName=="Microsoft Internet Explorer" && strPlat=="Win32" && intVer>="5") {
		validateOWC();
			//alert(strName+"-"+strPlat+"-"+intVer)
	}
	else {
		strMsgGetIE="<TABLE cellSpacing=0 cellPadding=0 width='95%' border=0 height='8'><TR>"
		strMsgGetIE+="<TD bgColor='#336699' height=25 width=15>&nbsp;</TD><TD bgColor='#666666' width=500px><FONT face=Tahoma "
		strMsgGetIE+="size=4 color=white><b>&nbsp; Data Access-page</B></FONT></TD></TR>"
		strMsgGetIE+="<TR><TD bgColor='#cccccc' width=15>&nbsp;</TD><TD bgColor='#cccccc' width=500px><BR>"
		strMsgGetIE+="<p><font face='Tahoma' size='2'>"
		if (cojsTAAL=="gb")
			 { strMsgGetIE+="For this page is Microsoft Windows IE 5.0 of higher required.</p>" }
		else
			 { strMsgGetIE+="Voor deze pagina is Microsoft Windows IE 5.0 of hoger vereist.</p>" }
		strMsgGetIE+="<a href='http://www.microsoft.com/isapi/redir.dll?Prd=Office&Sbp=Access&Pver=10&Ar=DPdesigner&Sba=IEhome&Plcid=1043'><p align='center'>"
		if (cojsTAAL=="gb")
			 {  strMsgGetIE+="Click here to install to most recent version.</a></font></p><br></TD></TR></TABLE>" }
		else
			 { strMsgGetIE+="Klik hier om de meest recente versie van Internet Explorer te installeren.</a></font></p><br></TD></TR></TABLE>" }
			document.write(strMsgGetIE)
	}
}
//---------------------------------------------------------------------------------------------------
function validateOWC() {
// Office Web Components geïnstalleerd?
var strMsgGetOWC
if (ChartSpace1.object==null) {
//if (MSODSC.object==null) {
		strMsgGetOWC="<TABLE width='95%' cellpadding=0 cellspacing=0 border=0 height='8'>"
		strMsgGetOWC+="<TR><TD bgColor='#336699' height=25 width=15>&nbsp;</TD><TD bgColor='#666666' width=500px>"
		strMsgGetOWC+="<FONT face=Tahoma color=white size=4><B>&nbsp;&nbsp;"
		strMsgGetOWC+="OWC NOT INSTALLED ON YOUR COMPUTER</B></FONT></TD></TR><TR><TD bgColor='#cccccc' width=15>&nbsp;</TD>"
		strMsgGetOWC+="<TD bgColor='#cccccc' width='500px'><BR>"
		strMsgGetOWC+="<p><font face='Tahoma' size='2'>"

			strMsgGetOWC+= "Voor grafiek/datasheet weergave is Microsoft Office Web Components vereist.</p>"
			strMsgGetOWC+="<p align='center'>Installeer Microsoft Office Web Components vanaf uw Office CD (Office 2000 of hoger).</p>"
			strMsgGetOWC+="</font><p><font face='Tahoma' size='2'>of download deze via de <a HRef='http://office.microsoft.com/office/redirect/10/MSOWCPub.asp?&amp;HelpLCID=1043'>Microsoft Office-website</a>"
			strMsgGetOWC+=",<br><BR>of kies voor uitvoer van de gegevens naar Excel."

			strMsgGetOWC+= "<hr><p>Microsoft Office Web Components required for this page.</p>"
			strMsgGetOWC+="<p align='center'>Install Microsoft Office Web Components from your Office CD (Office 2000 or higher).</p>"
			strMsgGetOWC+="</font><p><font face='Tahoma' size='2'>or download at <a HRef='http://office.microsoft.com/office/redirect/10/MSOWCPub.asp?&amp;HelpLCID=1043'>Microsoft Office-website</a>."
			strMsgGetOWC+=",<br><br>or export data to Excel."

		strMsgGetOWC+="</font></p><BR></TD></TR></TABLE>"
		document.write(strMsgGetOWC)
		return true	//soms is toestemming nodig om de dll uit te vereon
	}
}
//---------------------------------------------------------------------------------------------------
function messageBox()
// Example:
// value1 = 3; value2 = 4;
// messageBox("text message %s and %s", value1, value2);
// this message box will display the text "text message 3 and 4"
{
  var i, msg = "", argNum = 0, startPos;
  var args = messageBox.arguments;
  var numArgs = args.length;
  if(numArgs)
  {
    theStr = args[argNum++];
    startPos = 0;  endPos = theStr.indexOf("%s",startPos);
    if(endPos == -1) endPos = theStr.length;
    while(startPos < theStr.length)
    {
      msg += theStr.substring(startPos,endPos);
      if (argNum < numArgs) msg += args[argNum++];
      startPos = endPos+2;  endPos = theStr.indexOf("%s",startPos);
      if (endPos == -1) endPos = theStr.length;
    }
    if (!msg) msg = args[0];
  }
  alert(msg);
}
//---------------------------------------------------------------------------------------------------
function cbVulSelCombo(i, oThis, lCT)
//content2.asp, vullen van comboboxen met operators bij selecteren: NOG VERTALEN
//i is index vh veld
//lCT=true=-1: kruistabel, false=0: selectie
{
var oCBO, oCBOop, aOptieT=new Array(11), aOptieV=new Array(11), n, n2, nArrLengte, cRu, vWa, vWaa, strType
var tRIJ, tCEL, strHulp, strLst, strNVT, strBericht
var oDocForm=document.forms[0];
// strVA: de opties strTA: teksten (event.vertaald)
// <input name='coVA' type='HIDDEN' value='=~<>~between~>~<~>=~<=~*!~*~a*~*a~**~*!*'><input name='coWA' type='HIDDEN' value='
//0 Gelijk aan~1 Niet gelijk aan~2 Bereik~3 Groter dan~4 Kleiner dan~5 Groter of gelijk aan~6 Kleiner of gelijk aan~7 Leeg~8 Niet leeg
//~9 Begint met de waarde~10 Eindigd met de waarde~11 Bevat de waarde~12 Bevat de NIET waarde'></td>
var strVA=oDocForm.coVA.value
var strWA=oDocForm.coWA.value
var aOptieV=strVA.split("~")		//maak array uit de string
var aOptieT=strWA.split("~")
nArrLengte=aOptieV.length
//Item 0: is elke waarde (niet voor selecties, alleen voor kruistabellen
oCBO=oDocForm.cboLabels[i]
oCBOop=oDocForm.cboOperator[i]
vWa =eval("document.forms[0].cboWaarde"+i)			//hierin wordt de codewaarde opgeslagen
vWaa=eval("document.forms[0].cboWaarde"+i+"a")		//hierin wordt de waarde weergegeven
strType=""
//komt de tekst niet voor in...
//document.forms[0].Toelichting.value=document.forms[0].Toelichting.value+" vs "+oCBO.options[oCBO.selectedIndex].text
strHulp=oCBO.options[oCBO.selectedIndex].text
if (strHulp.indexOf(strNChar)<0)
	{ 
	n= strHulp.indexOf(":")
	if (n<0)
		strHulp=""
	else
		{strHulp=strHulp.substring(n+2)}
	}
else		//trefwoord
	{ strHulp=strHulp.substring(1) }		// reeds gedaan in label(tr.) eraf halen , strHulp.length-6
oDocForm.txtlabel[i].value=strHulp
oDocForm.butInv[i].disabled=(oCBO.value.length<1 || oCBOop.value=="E")
oDocForm.butInv2[i].disabled=document.forms[0].butInv[i].disabled
vWaa.disabled=false	//oDocForm.butInv[i].disabled

//document.forms[0].butInv2[i].disabled=(oCBO.value.length<1 || oCBOop.value=="E")
//vWaa.disabled=(oCBO.value.length<1)
if (lCT==-1 && i>=0) { document.getElementById("samenv"+i).style.display="none" }
if (oCBO.value.length>1)
{
 if (oCBO.value.indexOf(".[")<0 && oCBO.value.length>1)	 //Trefwoordveld	
	{
	//Trefwoordveld	
	if (lCT==-1 && i>=0) { document.getElementById("samenv"+i).style.display="block"} 
	if (lCT==-1 && i>=0) { document.getElementById("TxtShowRange"+i).style.display="block"} 
	nArrLengte=2	//1 extra, 0 t/m 2
	cRu=oCBO.value.substring(0,2)
	if (cRu!=vWa.value.substring(0,2)) 
		{
		vWa.value=""; 
		vWaa.value=""
		}
	if (lCT==0 || lCT==1) 		//automatisch openen bij selecteren, niet bij kruistabel, maar wel via knop
		{ window.open("cbs_multipurp.asp?intActie=521&strVeld=cboWaarde"+i+"a&strPagina="+cRu+"&strLijst="+vWa.value)
		}
}
 else
	{
		strType=oCBO.value.substr(oCBO.value.length-2)
		if (strType=="DA")
			{
		// (w,h,t,l
//marco if (lCT==0) {nArrLengte=9} else {nArrLengte=2}		//0 reeds gevuld
				//aOptieV[1]=aOptieV[1]				//nieuw feb07
				
				//aOptieV[2]=aOptieV[8]
				//aOptieT[2]=aOptieT[8]
				
				//aOptieV[3]=aOptieV[9]
				//aOptieT[3]=aOptieT[9]
				//aOptieV[1]=aOptieV[3]				//"between"
				//aOptieT[1]=aOptieT[3]
				//aOptieV[4]=aOptieV[7]
				//aOptieT[4]=aOptieT[7]
				cbOpenPopWindow2(700,500,10,10,"cbs_multipurp.asp?intActie=91&strVeld=cboWaarde"+i+"&strLijst="+lCT)
				oDocForm.butInv2[i].disabled=false		//juni08 om toch te kunnen corrigeren
				//strHulp="<select name='cboDatum' size='1' class='cbo'>"//strHulp+="<option value='ddddd'>Datum (geheel)</option>"
				//tCEL.innerHTML="<input name='cboWaardeX' type='text' value='konijn' class='input'>"
			}
		else
			{ 
			strNVT="Doesn´t apply"
			strBericht="Equatation changed in ´Equal´"
			if (cojsTAAL=="nl")
					{ strBericht="Vergelijking is veranderd in 'Gelijk aan'."
					  strNVT	="Niet van toepassing."
			}
			if (cojsTAAL == "fr") {
			    strBericht = "L'équation est modifiée: 'est égal à'."
			    strNVT = "Pas applicable"
			}					
			if (strType=="YE")
				{
				nArrLengte=3		//0 reeds gevuld
				aOptieV[1]="M"
				aOptieT[1]="M/N/0/H" 
				aOptieV[2]="V"
				aOptieT[2]="V/F/Y/J/Q/-1/X"
				vWa.value=""		//wis waarden
				vWaa.value=""
				if (oThis.name.substr(0,9)=="cboWaarde")
					{ oThis.value=strNVT }
				}
			else
				//elk ander veldtype
				{
				// eerst operator bekend
				strLst=oThis.name
				if (strLst!="cboLabels" && oCBOop.value!="*" && oCBOop.value!="*!" && oCBOop.value!="null" )
			
					{ //oCBOop.options[oCBOop.selectedIndex].text)
						//geef de naam vd waardevariabele en de vergelijkingsoperator¦tekstueelvergelijking
						if (strLst=="butInv2" && oCBOop.value=="between")
							{alert(strBericht); oCBOop.value="="}
						strHulp="cbs_multipurp.asp?intActie=911&strLst="+strLst+"&strLabel="+oCBO.value+"&strVeld=cboWaarde"+i+"&strPagina="+oCBOop.value+"¦"+oCBOop.options[oCBOop.selectedIndex].text+"&strLijst="+vWa.value
						cbOpenPopWindow2(720,screen.height-100,10,10, strHulp) 

					}
				else
					{ 
					//vWaa.disabled=true 
					if (strLst!="cboLabels")				{vWaa.value="";	vWa.value="";}
					if (strLst.substr(0,9)=="cboWaarde")	{ oThis.value=strNVT}

					}
				}
			}  //strType YE
	}
}	//veld gekozen?
else
{ vWaa.value=""; vWa.value=""; }
n2=0		//
if (oThis.name=="cboLabels")
	{
oCBOop.length=nArrLengte
//	if (lCT==0) 
//		{oCBOop.length=nArrLengte}		//wis de rest, object telt bij 1
//	else
//		{oCBOop.length=nArrLengte+1}		//wis de rest, object telt bij 1
//
	for (n = 0; n < nArrLengte; n++)
		{
			n2=n
			//if (lCT==0) { n2=n+1 }		//0: selecteren, -1=kruistabel
			oCBOop.options[n].text=aOptieT[n2]
			oCBOop.options[n].value=aOptieV[n2]
		}
	}
}
//---------------------------------------------------------------------------------------------------
function unHiderSel(lHide)
//meer als voorbeeld, div1/div2 is een veldnaam. netScape ondersteund dit mogelijk niet!
{
//document.all.div1.style.display = 'block';
//document.all.div2.style.display = 'none';
document.forms[0].daOccDay.disabled=(lHide==false)
document.forms[0].daOccMonth.disabled=(lHide==false)
document.forms[0].daOccYear.disabled=(lHide==false)
document.forms[0].daOccDayT.disabled=(lHide==false)
document.forms[0].daOccMonthT.disabled=(lHide==false)
document.forms[0].daOccYearT.disabled=(lHide==false)
document.forms[0].DA_daOccYearT.disabled=(lHide==false)
if (lHide==true)
	{ 
	document.all.vVan.style.display="none";
	document.all.vTot.style.display="none"
	document.forms[0].dadeela.value="";
	}
else
	{
	document.all.vVan.style.display="block";
	document.all.vTot.style.display="block";
	document.forms[0].daOccYear.value="";
	document.forms[0].daOccDay.value="";
	document.forms[0].daOccMonth.value="";
	document.forms[0].daOccYearT.value="";
	document.forms[0].DA_daOccYearT.value="";
	document.forms[0].daOccDayT.value="";
	document.forms[0].daOccMonthT.value="";
	document.forms[0].nDagen.value=0;
	}
}
//---------------------------------------------------------------------------------------------------
function cbSelDatumSluit(strVeldNM, nSQLSERVER)
//bij afsluiten van popvenster
//nSQLSERVER: 1 dan syntax voor sqlserver maken
//			: 0 access sql
{
var strCBS, strWa, vWaa, lOB, nR, oCBOop
lOB=true		//beperk keuzelijst operators
nR=strVeldNM.substr(strVeldNM.length-1,1)
if (document.forms[0].dadeela.value=="")
	{

	//strCBS="DateSerial("+
//	strWa= "tussen (dd/mm/jj)"+document.forms[0].daOccDay[0].value+"/"+document.forms[0].daOccMonth[0].value+"/"+document.forms[0].daOccYear[0].value
//	strWa= strWa+" en "+document.forms[0].daOccDay[1].value+"/"document.forms[0].daOccMonth[1].value+"/"+document.forms[0].daOccYear[1].value  
	if (nSQLSERVER!=9)
	{
		strWa="tussen (dd/mm/yy): "
		if (cojsTAAL=="gb") { strWa= "between (dd/mm/yy): " }
		if (cojsTAAL == "fr") { strWa = "entre (dd/mm/yy): " }  

		strWa+=document.forms[0].daOccDay.value+"/"+document.forms[0].daOccMonth.value+"/"+document.forms[0].daOccYear.value 
		if (document.forms[0].dadeel[1].checked)
			{
				if (cojsTAAL=="nl") 
					{	strWa= "'Vandaag'-"+document.forms[0].nDagen.value+" dagen" }
					else {

					    strWa = "'Today'-" + document.forms[0].nDagen.value + " days"
					    if (cojsTAAL == "fr") { "'Aujourd´hui'-" + document.forms[0].nDagen.value + " jours" }  
					}
			}
		else
			{strWa+= " - "+document.forms[0].daOccDayT.value+"/"+document.forms[0].daOccMonthT.value+"/"+document.forms[0].daOccYearT.value  }
	}		//niet voor crosstabel =9
	else
	{
		strWa="-"
	}
	//Zou handig zijn om direct al de vb-code erin te zetten
	//	strSQL   = strSQL & " And (Melding.OccDate Between Dateserial(" & iJaarVan & ", " & iMaandVan & ", " & iDagVan & ") And "
	//	strSQL   = strSQL & " Dateserial(" & iJaarTot & ", " & iMaandTot & ", " & iDagTot & ") & ' 23:59:59')"
	// in Access versie werken we met CDate(...) --> converteerd veld naar datumwaarde dat was o.a. i.v.m de tijd
	vWaa=eval("opener.document.forms[0]."+strVeldNM+"a")
	vWaa.value=strWa
	if (document.forms[0].dadeel[3].checked)		//okt08 item 2
		{	
		//dag 31+1 wordt automatisch dag 1 dat doet de dateserial functie
		if (nSQLSERVER==0)
			{ 	strWa= "Now()-"+document.forms[0].nDagen.value }
		else
			{ 	strWa= "DATEADD(d, -"+document.forms[0].nDagen.value+", GETDATE())" }
			//alert(strWa)
		vWaa=eval("opener.document.forms[0]."+strVeldNM)		//hidden
		vWaa.value="ddddx¦"+strWa
		lOB=true		///stond op false
		}
	if (document.forms[0].dadeel[1].checked)		//okt08 item 1 (NIET INGEVULD)
		{
		opener.document.forms[0].cboOperator[nR].value="*!"
		//opener.document.forms[0].cboOperator[nR].length=2 
		lOB=false
		vWaa.value=""
		}
	if (document.forms[0].dadeel[2].checked)		//okt08 item 1 (INGEVULD)
		{
		//oCBOop=opener.document.forms[0].cboOperator[nR]
		//oCBOop.options[1].text=oCBOop.options[9].text		//GEVULD		//aOptieT[n2]
		//oCBOop.options[1].value="*"
		//oCBOop.options[0].text=oCBOop.options[8].text		//leeg
		//oCBOop.options[0].value="*!"
		opener.document.forms[0].cboOperator[nR].value="*"
		//opener.document.forms[0].cboOperator[nR].length=2 
		lOB=false
		vWaa.value=""
		}
	if (document.forms[0].dadeel[0].checked)		//okt08 item 1 (LEEG)
		{	
		if (nSQLSERVER==0)
			{
				strWa= "Between DateSerial("+document.forms[0].daOccYear.value+","+document.forms[0].daOccMonth.value+","+document.forms[0].daOccDay.value+")"
				//dag 31+1 wordt automatisch dag 1 dat doet de dateserial functie
				//juni08 strWa= strWa+" And DateSerial("+document.forms[0].daOccYearT.value+","+document.forms[0].daOccMonthT.value+","+document.forms[0].daOccDayT.value+"+1)" 
				strWa= strWa+" And DateSerial("+document.forms[0].daOccYearT.value+","+document.forms[0].daOccMonthT.value+","+document.forms[0].daOccDayT.value+") & ' 23:59:59'" 

			}
		if (nSQLSERVER==1)
			{
				strWa= "Between CONVERT(DATETIME, '"+document.forms[0].daOccYear.value+"-"+document.forms[0].daOccMonth.value+"-"+document.forms[0].daOccDay.value+" 00:00:00', 102)"
				//dag 31+1 wordt automatisch dag 1 dat doet de dateserial functie
				strWa= strWa+" And  CONVERT(DATETIME, '"+document.forms[0].daOccYearT.value+"-"+document.forms[0].daOccMonthT.value+"-"+document.forms[0].daOccDayT.value+" 23:59:59', 102)" 
			}
			vWaa=eval("opener.document.forms[0]."+strVeldNM)		//hidden
			vWaa.value="ddddd¦"+strWa
		}	///[0]
	}	
else
	{
	strWa=document.forms[0].vVan.value+" - "+document.forms[0].vTot.value
	vWaa=eval("opener.document.forms[0]."+strVeldNM+"a")
	vWaa.value=strWa
	strWa="Between "+document.forms[0].vVan.value+" And "+document.forms[0].vTot.value
	vWaa=eval("opener.document.forms[0]."+strVeldNM)		//hidden
	vWaa.value=document.forms[0].dadeela.value+"¦"+strWa
//opener.document.forms[0].cboWaarde1a.value=document.forms[0].dadeela.value;
	}
 if (lOB)	
	 { opener.document.forms[0].cboOperator[nR].length=1 }	//oDocForm.cboOperator[i]
window.close()
}
//---------------------------------------------------------------------------------------------------
function cbSelOperatorK()
//Na keuze van de vergelijkingoperator
//OVERBODIG!!!
{
var oCBO, oCBOop, aOptieT=new Array(11), aOptieV=new Array(11), n, nArrLengte, cRu, vWa, vWaa, strType
var tRIJ, tCEL, strHulp
oCBO=document.forms[0].cboLabels[i]
oCBOop=document.forms[0].cboOperator[i]
strType=""
if (oCBO.value.indexOf(".[")<0 && oCBO.value.length>1)	 //Trefwoordveld	
	{	//reeds gestart
		}
else	
	{
	strType=oCBO.value.substr(oCBO.value.length-2)
	if (strType!="DA")
		{
			cbOpenPopWindow2(700,400,10,10,"cbs_multipurp.asp?intActie=911&strVeld=cboWaarde"+i)
		}
	}
}
//---------------------------------------------------------------------------------------------------
function cbSelWaardenSluit(strVeldNM, nMax)
//bij afsluiten van popvenster
{
var strCBS, strWa, vWaa, vVerg, vVerg1, strWeg, strBericht, lkeerleeg, l_tm=" t/m "
var oDocForm=document.forms[0]
if (cojsTAAL!="nl") { l_tm=" - " }
vVerg=oDocForm.vergelijking.value		//between
strWa=""
strWa2=""
i=0
lkeerleeg=0	//lkeer een leeg veld is stoppen
if (nMax!=99)
	while (i<nMax)
			
		{
		if (oDocForm.vWaarde[i].value.length>0)
			{
			strWa += oDocForm.vWaarde[i].value
			strWa2+= oDocForm.vWaarde[i].value
			if (vVerg=="between")
				{
				  i++
				  strWa += "~"+oDocForm.vWaarde[i].value+";"
				  strWa2+=l_tm+oDocForm.vWaarde[i].value+";"	
				}
			else
				{ 
				  strWa +=";"; 			
				  strWa2+=";"	
				}
			i++
			}
		else			//veld is leeg
			{ 
			//i=nMax+1		//toch alles behandelen sept08. indien 5x lege waarden dan stoppen
			i++
			if (lkeerleeg++>20)  { i=nMax+1		}
			}		
				
		}	// einde loop
else	//Keuzelijst doorlopen
	{
		nMax=oDocForm.cboUWaarden.length
		for (i = 0; i<nMax; ++ i)
			{
				if (oDocForm.cboUWaarden[i].selected)
					{
						strWa +=oDocForm.cboUWaarden[i].value+";"
						strWa2+=oDocForm.cboUWaarden[i].value+";"
					}
			}
		
	}
i=0
while (strWa.indexOf("'")>-1)
	{
		
	strWa=strWa.replace("'", "")	
	strWa2=strWa2.replace("'", "")	//niet de ; eruit halen
	if (++i==1)
		{
		strBericht="On characters like ' and ; can not be searched. They'll be removed from the searchstring"
		if (cojsTAAL=="nl") {strBericht="Op tekens zoals ' en ; kan NIET gezocht worden. Deze zijn uit de zoekstring verwijderd."}
		if (cojsTAAL == "fr") { strBericht = "Sur des personnages tels que ' et ; ne peut être sondé. Ce sont retirés de la chaîne de recherche." }
		alert(strBericht)
		}
	}	//end while
vWaa=eval("opener.document.forms[0]."+strVeldNM)		//hidden
vWaa.value=strWa
vWaa=eval("opener.document.forms[0]."+strVeldNM+"a")
vWaa.value=strWa2
window.close()
}
//---------------------------------------------------------------------------------------------------
function cbSelTestWaarde(vWa)
//Eenvoudige funtie om te testen of er geen ; of ' is ingevoerd: % "#
{
var strBericht
if (vWa.value.indexOf("'")>-1 || vWa.value.indexOf("*")>-1 || vWa.value.indexOf("&")>-1 || vWa.value.indexOf(";")>-1 || vWa.value.indexOf("%")>-1 || vWa.value.indexOf("/"/"")>-1 || vWa.value.indexOf("%")>-1 || vWa.value.indexOf("#")>-1 ) 
	{
		strBericht="Characters like ' and ; %# *& are not allowed."
		if (cojsTAAL=="nl") {strBericht="Tekens zoals ' en ;%#*& zijn niet toegestaan."}
		if (cojsTAAL == "fr") { strBericht = "Caractères tels que 'et ;%#*& ne sont pas autorisés." }
		alert(strBericht); 	
		return false
	}
else
	{return true}
}
//---------------------------------------------------------------------------------------------------
function cbSelTestWaarde2(vWa)
//Eenvoudige funtie om te testen of er geen ; of ' is ingevoerd: % "#
{
var strBericht
if (vWa.value.indexOf("'")>-1 || vWa.value.indexOf(";")>-1 ) 
	{
		strBericht="Characters like ' and ;  are not allowed."
		if (cojsTAAL == "nl") { strBericht = "Tekens zoals ' en ; zijn niet toegestaan." }
		if (cojsTAAL == "fr") { strBericht = "Caractères tels que ' et ; ne sont pas autorisés." }
		alert(strBericht); 	
		vWa.value=vWa.value.replace("'", "`" ) 
		vWa.value=vWa.value.replace(";", " " ) 		
		return false
	}
else
	{return true}
}
//---------------------------------------------------------------------------------------------------
function cbjsMaximize()
{	//maximaliseer het scherm
window.moveTo(0,0);
//window.resizeTo(screen.width,screen.height-30);		//maximize. Rekening houden met Windows menu-balk onderin.
window.resizeTo(screen.availWidth,screen.availHeight);		//maximize. Rekening houden met Windows menu-balk onderin.
}
//---------------------------------------------------------------------------------------------------
function cbAutoCheckTref(tcode, cVarNaam)
//Na de klik op de hoofdcode automatisch de onderliggende codes aanvinken
{
var i, vWaa, nEind, nBegin=0, nNivo=0, nNivo2=0,strV, strBericht="Auto-select-all hier niet mogelijk"
//vWaa=eval("document.forms[0]."+cVarNaam)
if (cojsTAAL=="gb") {strBericht="autoselect-all not allowed from inputform"}
if (cojsTAAL == "fr") { strBericht = "autoselect-all n'est pas possible ici" }
try {if (opener.document.forms[0].name=="FormIMS") 	{ window.status=strBericht; return }	}	//niet vanuit het invoer formulier
catch (err)	{ if(document.forms[0].name=="FormIMS") { window.status=strBericht; return }	} //alleen vanuit invoerformulier
vWaa=document.forms[0](cVarNaam)
//alert(tcode)
for (i = 0; i<vWaa.length; ++ i)
	{
		strV=vWaa[i].value
		if (strV.substr(0,10)==tcode) //V102200110Kleine materiële schade
			{ 
			nBegin=i 
			vWaa[i].checked=false	//altijd
			nNivo=parseInt(strV.substr(strV.length-2,2))
			i=vWaa.length+1
			}	//start positie bekend, hierop wordt geklikt.
	}
for (i = nBegin+1; i<vWaa.length; ++ i)
	{		//if (vWaa[i].value.substr(0,7)==tcode.substr(0,7))
	strV=vWaa[i].value
	if (strV.substr(9,1)=="H" || strV.substr(9,1)=="h") 
		{ 
		nNivo2=parseInt(strV.substr(strV.length-2,2))
		if (nNivo2<=nNivo)
			{ i=vWaa.length+1 } 
		}	//exit loop
	else	
		{ vWaa[i].checked=(vWaa[i].checked==false) } 
	}
}
//---------------------------------------------------------------------------------------------------
function cbSelWisselNr(i)
{
	var n, oCBO, oCBO2, oCBOop,oCBOop2, vWa, vWaa, vWa2, vWaa2, vHulp, strBericht, strBericht2
	var isTref1="none", isTref2="none", strShowRangeI="block", strShowRangeN="block"
	//i begint bij 0, de regel is voor de gebruiker 1
	strBericht="Swap with line-no.: "
	if (cojsTAAL=="nl") {strBericht="Met welke regel wilt u wisselen?"}
	if (cojsTAAL == "fr") { strBericht = "Quelle règle changeriez-vous?" }
	strBericht2="Swapping error? Please, check fields"
	if (cojsTAAL=="nl") { strBericht2="Wisselen mogelijk niet gelukt. Controleer de velden" }
	if (cojsTAAL == "fr") { strBericht2 = "Exchange ne peut pas être réussie. Vérifiez les champs" } 

	n=prompt(strBericht, i+1)
	oCBO=document.forms[0].cboLabels[i]

	if (n != null && n>0 && n<11 && n-1!=i && oCBO.value.length>1)
	{

		n--		//laag 1 af voor de juiste index
		oCBOop=document.forms[0].cboOperator[i]
		oCBOop2=document.forms[0].cboOperator[n]
		oCBO2=document.forms[0].cboLabels[n]		
		vWa=eval("document.forms[0].cboWaarde"+i)			//hierin wordt de codewaarde opgeslagen
		vWaa=eval("document.forms[0].cboWaarde"+i+"a")		//hierin wordt de waarde weergegeven
		vWa2=eval("document.forms[0].cboWaarde"+n)			//hierin wordt de codewaarde opgeslagen
		vWaa2=eval("document.forms[0].cboWaarde"+n+"a")		//hierin wordt de waarde weergegeven
		//Wissel via en hulpvariabele
		vHulp=oCBO.value
		if (vHulp.indexOf(".[")<0 )	{isTref1="block"}	 //Trefwoordveld	
		oCBO.value=oCBO2.value
		oCBO2.value=vHulp
		if (oCBO.value.indexOf(".[")<0 )	{isTref2="block"}	 //Trefwoordveld	

		//
		vHulp=oCBOop.value
		oCBOop.value=oCBOop2.value
		oCBOop2.value=vHulp

							 
		if (oCBOop.value=="E" || oCBOop.value=="=") {	strShowRangeI="none" }
		if (vHulp=="E" || vHulp=="=") {	strShowRangeN="none" }
		
		//
		vHulp=vWa.value
		vWa.value=vWa2.value
		vWa2.value=vHulp
		//
		vHulp=vWaa.value
		vWaa.value=vWaa2.value
		vWaa2.value=vHulp
		//operator
		try
		{
		vHulp=document.forms[0].cboEnOf[i].value
		if (i==1) 
			{ 
			//document.forms[0].cboEnOf[i].options[0].selected=true
			document.forms[0].cboEnOf[i].value="And"
			}

		else
			{ document.forms[0].cboEnOf[i].value=document.forms[0].cboEnOf[n].value }
		document.forms[0].cboEnOf[n].value=vHulp
		}
		catch(err)	{ alert(strBericht2)}		
		//label hidden
		vHulp=document.forms[0].txtlabel[i].value
		document.forms[0].txtlabel[i].value=document.forms[0].txtlabel[n].value
		document.forms[0].txtlabel[n].value=vHulp
		//nivo
		try
		{		//alleen voor kruistabellen
		vHulp=eval("document.forms[0].nNivo"+i).value
		eval("document.forms[0].nNivo"+i).value=eval("document.forms[0].nNivo"+n).value
		eval("document.forms[0].nNivo"+n).value=vHulp
		document.getElementById("samenv"+i).style.display=isTref2
		document.getElementById("samenv"+n).style.display=isTref1
		vWaa=eval("document.forms[0].ShowRange"+i)			//hierin wordt de codewaarde opgeslagen
		vWaa2=eval("document.forms[0].ShowRange"+n)
		vHulp=vWaa.value
		vWaa.value=vWaa2.value
		vWaa2.value=vHulp
		
		vHulp=vWaa.checked
		vWaa.checked=vWaa2.checked
		vWaa2.checked=vHulp
		strShowRangeI=document.getElementById("TxtShowRange"+i).style.display
		document.getElementById("TxtShowRange"+i).style.display=document.getElementById("TxtShowRange"+n).style.display			//strShowRangeI
		document.getElementById("TxtShowRange"+n).style.display=strShowRangeI			//strShowRangeN
}
		catch(err)	{}

}
	else {
		strBericht="Canceled."
		if (cojsTAAL=="nl") {strBericht="Wisselen geannuleerd."}
		if (cojsTAAL == "fr") { strBericht = "Annulée" }
		alert(strBericht)
		}
}
//---------------------------------------------------------------------------------------------------
function cbBlokVeld(strBericht)
//Blokkeer de veldinvoer wanneer deze wordt aangeklikt of met de toetsen
// onKeyDown='cbBlokVeld(....);' en onClick='cbBlokVeld(....);' 
{
if (strBericht=="")
	{ 
	strBericht="You can´t edit this field directly. \n Use the inputbutton or click in the field."
	if (cojsTAAL=="nl") {strBericht="U kunt niet rechtstreeks in dit veld invoeren.  \n Gebruik de invoerknop bij het veld of (dubbel)klik in het veld."}
	if (cojsTAAL == "fr") { strBericht = "Vous ne pouvez pas entrer directement.  \n Utilisez le bouton d'entrée au double-cliquez." }

	}
alert(strBericht)
return false
}

//---------------------------------------------------------------------------------------------------

function cbOpenPopUpForm(cbnWindow, strTabel)
{
var oDocForm, strV1H, lngSys_KeyF, nStatus
//novv04 oDocForm=eval("document." + strParentForm)		//document.forms[0], dus niet opener....
//cbnWindow is het nummer van de labelid-set
oDocForm=document.forms[0];
lngSys_KeyF=oDocForm("Sys_Key").value
if (oDocForm(strTabel).length>0)
	{ nStatus=oDocForm(strTabel)(0).value }
else
	{ nStatus=oDocForm(strTabel).value }
if (nStatus>0 && strTabel!="MELDING") {strTabel=""}	//maak de tabel weer leeg want hoeven niet opnieuw te koppelen 
//strV1H=oDocForm("cboKeuzeV1").value
//w(800), h(400), t(100), l(100)
cbOpenPopWindow2(screen.width-100,screen.height-150,10,50,"cbs_multipurp.asp?intActie=551&strPagina=" + cbnWindow + "&lngSys_Key=" + lngSys_KeyF + "&strVeld=" + strTabel)
}
//---------------------------------------------------------------------------------------------------
function cbValidateIMS(fOForm)
// Validatie formulier IMS. Indien lActie=-1 dan de acties ook valideren
{
//Valideer datumvelden (als complete datum)
// mm-dd-jjjj
//relateer datumvelden aan elkaar.
//Valideer trefwoordcodes; cq. rubrieken accepteren als leeg
var  strDatum, strVeld, i, strMaand, strDag, strOccMaand, strOccDag, strOccJaar, strVeldenV, nL, j, nChecked, strRadioChk, nTotDom, nDom
var strBericht, strATI, lSkipCheck=false
//datum gebeurtenis
try
{
	strOccMaand = fOForm.MELDING_OCCDATE_MONTH.value 
	strOccDag   = fOForm.MELDING_OCCDATE_DAY.value
	strOccJaar  = fOForm.MELDING_OCCDATE_YEAR.value
}
catch(err)
{
	var dt_datetime = new Date()
	strOccJaar=dt_datetime.getYear()
	strOccMaand=dt_datetime.getMonth()+1
	strOccDag=dt_datetime.getDate()
}
strDatum    = strOccMaand+ "/" + strOccDag + "/" + strOccJaar
//is de "Vorige" / Previeus button gebruikt om terug te gaan???? Kijk dan of het record al niet bewaard is
if (fOForm.LISSAVED.value=="VALIDATEDOK" && fOForm.Sys_Key.value<1)
{
	strBericht="Attention: this record is possibly already processed. Are you sure to continue? "
	if (cojsTAAL=="nl") {strBericht="LET OP: deze record is mogelijk al verwerkt/toegevoegd. Weet u zeker dat u deze nogmaals wilt toevoegen?"}
	if (confirm(strBericht))
		{ fOForm.LISSAVED.value="NOTVALIDATED" }
	else
		{ return (false) }
	
}
fOForm.LISSAVED.value="NOTVALIDATED"	//Markeer veld
// in theorie zou men 31 feb kunnen invullen, wordt 2 maart bij opslaan
if (isDate(strDatum,1)==false)
{
	fOForm.MELDING_OCCDATE_DAY.focus();
    return (false);
}
if (strOccDag.length==1) { strOccDag = "0" + strOccDag }

if (strOccMaand.length==1) { strOccMaand = "0" + strOccMaand }
//alarmdatum, aftesten van 3 velden, niet ingevuld geeft //  oftwel true

//Tekststring met verplichte velden gescheiden door ;	
nTotDom=0
try
	{ 
		nTotDom=fOForm.strVeldenVerplichtDOM.length; 
	}	//totaal aantal DOM-velden
catch(err) 
	{
	try
		{
			nTotDom=0
			if (fOForm.strVeldenVerplichtDOM.value.length>2) { nTotDom=1 }		//1 dom rubriek
		}
	catch(err) {nTotDom=0}
	}		//zet op 0
strVeldenV=fOForm.strVeldenVerplicht.value
strVeldNM=""
//alert("Aantal:  " + nTotDom)
//alert("v1:" + fOForm("cboKeuzeV1")[0].type): bijv. radio
if (typeof nTotDom== "undefined" || nTotDom== "undefined" )	{ nTotDom=0 }		//dec08
try 
{
	for (nDom=-1;nDom<nTotDom;nDom++)
	//bijv. ;cboKeuzeV1;MELDING_RECOGNITION;		// in het codeveld , komma gescheiden opslaan	//als nDom gelijk is aan -1 dan wordt het strVeldenGewenst van het hoofdform genomen
	{
		if (nDom>=0) {strVeldenV=fOForm.strVeldenVerplichtDOM[nDom].value;}
		//alert(strVeldenV)
		if (strVeldenV.length>2 ) //is het veld ingevuld, echter DOM velden moeten we ook afgaan. Dus verplaatst na init strVeldeV voor dom
		{ 
		for (i = 1; i <strVeldenV.length; i++)
			{
			lSkipCheck=false		//sla controle over als het veld niet zichtbaar is (display style)	
			if (strVeldenV.charAt(i)==";" && strVeldNM.length>0)
					//Einde vh veld, kijk direct of het veld is ingevuld....
				{
					if (strVeldNM.indexOf("LA")+strVeldNM.indexOf("S2")+strVeldNM.indexOf("LP")+strVeldNM.indexOf("SW")>-1 && strVeldNM.indexOf("PLETSEL")>-1)
						{ 
						//DEC09 EIS: 1 ANDER VELD UIT PLETSEL MOET VERPLICHT ZIJN INDIEN S2 OF SW
						lSkipCheck=(document.getElementById("TBL_PLETSEL").style.display=="none"); 
						}		//sla over als item niet zichtbaar is
					if (strVeldNM.indexOf("UDF_DBF")>-1 && lSkipCheck==false)
						{ lSkipCheck=(document.getElementById("TBL_UDF_DBF").style.display=="none"); }		//sla over als item niet zichtbaar is

					if (lSkipCheck==false)
					{
						if (nDom>=0) 
							{ 
							//alert("document.forms[0]."+strVeldNM+"[0]")
							if (strVeldNM.substring(0,3)=="cbo")	//de 0-index moet eraf
								{ oVeld=eval("document.forms[0]."+strVeldNM);}
							else
								{ oVeld=eval("document.forms[0]."+strVeldNM+"[0]")	}
							}
						else	//(nDom>=0) 
							{ 
							oVeld=fOForm(strVeldNM)
							}		
						nChecked=0	//niet vantoepassing=0; >0 van checkboxen/radios
						strRadioChk=""
						try
							{
							if (oVeld[0].type=="radio"  || oVeld[0].type=="checkbox") {strRadioChk="rc" } 	//markeer veld radio of check
							}
						catch(err)
							{
							strRadioChk="input"
							}
						//nDom<1 want anders worden verborgen velden ook gecontroleerd. bijv. 1e rij is ingevuld en er zijn nog 4 hidden.
						if ((strVeldNM.substring(0,3)=="cbo" || strRadioChk=="rc") )		//controleer radio of checkbox
							{ 
							//[0] geeft fout als er maar 1 van is! .length>0 of is UnDefined (result=false)
							if (nDom>=0 && strVeldNM.indexOf("__0")<0)
								{	nChecked=0  }	//overslaanokmdat verborgen velden niet gecontroleerd hoeven te worden
							else	
								{ 
									if (oVeld.length>0)
									 { 
										if (oVeld[0].type=="radio" || oVeld[0].type=="checkbox")
										{ //alert(strVeldNM+"lengte:"+fOForm(strVeldNM).length) 
											nL=oVeld.length
											nChecked=-1	//niets
											for (j = 0; j < nL; j++) 
												{ if (oVeld[j].checked) {nChecked=1} }
										}	//radio or check
										else
											{	//if (nDom>=0 && oVeld.value.length>0) {alert(oVeld.value); nChecked=1} 
												nChecked=0
											}

									 }	//.length>0
									 else
									 { nChecked=0 }	//fOForm(strVeldNM).value.length
								}
							}	//cbo-veld, kan echter ook comboveld zijn +fOForm(strVeldNM)[0].value.substr(10
						if (nChecked==-1) 
							{ strBericht="Input required (an item is marked)."
							  if (cojsTAAL=="nl") {strBericht="Invoer verplicht (een keuze uit de rubriek is geel gemarkeerd)"}
							  alert(strBericht+nDom); 
							  try
							  {
							  oVeld[1].style.background="#FFFF80"; 
							  oVeld[1].focus();
							  }
							  catch(err) { }
							  return false
							 }
						if (nChecked==0)
							{																													
								if (nDom>=0) 
									{ oVeld=eval("document.forms[0]."+strVeldNM+"[0]")	
										try
											{ 
											if (strVeldNM.substring(0,3)=="cbo")
												{oVeld=fOForm(strVeldNM); }
											else
												{strVeld=oVeld.value; }	//niet voor combo!
											}
									  catch(err)
											{oVeld=fOForm(strVeldNM); }		
									}
								else	
									{ 	
										oVeld=fOForm(strVeldNM)
									} 		//trefwoordcodes mogen niet eindigen op 00000000 of H
		
								strVeld=oVeld.value		//trefwoordcodes mogen niet eindigen op 00000000 of H
							//if (fOForm(strVeldNM).length>1) {alert(strVeldNM+OForm(strVeldNM).length)}
	
							//oDocForm.elements[i].type=="radio")
								//if (nDom>=0) { alert(strVeldNM +":" + strVeld+fOForm("cboKeuzeLA__0").value) }
                                //BLOKKEER BIJ DOM-VELDEN MEI11
								if (oVeld.disabled == false && (strVeldNM.indexOf("__") < 0) && (strVeld.length == 0 || strVeld.substr(0, 1) == "#" || strVeld.substr(0, 1) == "*" || strVeld.substr(2, 8) == "00000000" || (strVeldNM.substr(0, 3) == "cbo" && strVeld.substr(9, 1) == "H")))
								{
									//via GetElementByID zouden we label title kunnen achterhalen of zo
									strBericht="Input required"
									if (cojsTAAL=="nl") {strBericht="Invoer verplicht"}
									strBericht += "..." + oVeld.title + " \n \n (" + oVeld.name + "/" + strVeldNM + ")" 
									window.status=oVeld.name+"/"+strVeldNM
									if (oVeld.type != "hidden" && oVeld.currentStyle.display != "none" && strVeldNM.indexOf("__")<0)	//ook niet voor disabled!
										{
										    alert(strBericht);
											try
											{ oVeld.focus(); 
											}
											catch (err) {}
											oVeld.style.background="#FFFF80";
										}		//kan niet bij hidden fields....
									else 
										{
										    if (oVeld.name.substring(0, 3) == "cbo" )
											{ //strVeld="but"+fOForm(strVeldNM).name.substring(8);
												//fOForm(strVeld).focus()
												if (fOForm(strVeldNM+"a"))
												 { fOForm(strVeldNM+"a").style.background="#FFFF80"
												   strBericht+="·"+fOForm(strVeldNM+"a").value 
												   fOForm(strVeldNM+"a").focus();
												   }
												else
												{ oVeld.style.background="#FFFF80"
												   strBericht+="·"+oVeld.value }
											}
							                if (strVeldNM.indexOf("__") < 0) { alert(strBericht) };
										}
	
									return (false);
								}	//if strVeld
							}	//( nChecked==0 )
					strVeldNM=""		//maak weer leeg
					 }	//skipcheck
					}	//if ;strVeldenV.charAt(i)==";" && strVeldNM.length>0
				else	
					{ strVeldNM+=strVeldenV.charAt(i) }	//else
			}	//for
		}	//end if strVeldenV.length>2  
	}	//for
//einde rubriek V2
// herbereken RiskRate
// wat als geen RR gebruikt???
	if (fOForm.iRR!=null && fOForm.cboKeuzeKA.disabled==false) 
	{
	if (fOForm.strVeldenGewenst.value.indexOf("RISKRATE")>0)
		{	
			if (fOForm.iRR.value<=0 || fOForm.iRR.value>=99999999)
				{
				strBericht="Attention: RiskRate is not specified. Correct?"
				if (cojsTAAL=="nl") {strBericht="Let op: RiskRate is niet bepaald. Corrigeren?"}
				if (confirm(strBericht) == true )
					{
					fOForm.butRR.focus()
					return (false);
					}
				else
					{fOForm.iRR.value=0}	
				}
		}		//gewenst veld?
	}		//fOForm.iRR!=null
} //try
catch(err) {}

if (1+1==66)

{	for (i = 1; i <= 3; i++)
	{
		strDatum=eval("fOForm.daAlarmMonth"+i+".value") + "/" + eval("fOForm.daAlarmDay"+i+".value") + "/" + eval("fOForm.daAlarmYear"+i+".value")
		if (isDate(strDatum, 0)==false)
			{
				eval("fOForm.daAlarmDay" + i).focus();
				return (false);
			}
		strMaand = eval("fOForm.daAfMonth"+i+".value")
		strDag = eval("fOForm.daAfDay"+i+".value") 
		strDatum = strMaand + "/" + strDag + "/" + eval("fOForm.daAfYear"+i+".value")
		if (isDate(strDatum, 0)==false)
			{
				eval("fOForm.daAfDay" + i).focus();
				return (false);
			}
	 if (strDatum.length>3)
	  {
		//datum gebeurtenis moet <= afhandelingsdatum	
		if (strOccJaar <= eval("fOForm.daAfYear"+i+".value"))
			{ // jaartal is correct
			// let op: maand en dag kunnen 1 of 2 cijferig zijn, bijv. 7 of 07, we maken er een String van
				if  (strOccJaar == eval("fOForm.daAfYear"+i+".value"))
				  {
					if (strDag.length==1) { strDag = "0" + strDag }
					if (strMaand.length==1) { strMaand = "0" + strMaand }
					if (strOccMaand <= strMaand)
					{	// maand is correct, binnen de maand op de dag checken
						if (strOccMaand == strMaand && strOccDag > strDag)	
							{	// dag is fout
								strBericht="Date settled (day) may not be in the past."
						 	    if (cojsTAAL=="nl") {strBericht="Afhandelingsdatum (dag) moet op/na de datum gebeurtenis liggen"}
								alert(strBericht)
								eval("fOForm.daAfDay" + i).focus();
								return (false);	
							}
					}
						else
					{
						strBericht="Date settled (month) may not be in the past."
				 	    if (cojsTAAL=="nl") {strBericht="Afhandelingsdatum (month) moet op/na de datum gebeurtenis liggen"}
						alert(strBericht)
						eval("fOForm.daAfMonth" + i).focus();
						return (false);
					}
				  }		// jaartallen gelijk	
			}
		else
			{
				strBericht="Date settled (year) may not be in the past."
		 	    if (cojsTAAL=="nl") {strBericht="Afhandelingsdatum (jaar) moet op/na de datum gebeurtenis liggen"}
				alert(strBericht)
				eval("fOForm.daAfYear" + i).focus();
				return (false);
			}
	 }	// strDatum.length
	 
	//Commentaar weghalen voor volledige controle
	//	strDatum = eval("fOForm.aDD_AStartMonth"+i+".value") + "/" + eval("fOForm.aDD_AStartDay"+i+".value") + "/" + eval("fOForm.aDD_AStartYear"+i+".value")
	//	if (isDate(strDatum, 0)==false)
	//		{
	//			eval("fOForm.aDD_AStartDay" + i).focus();
	//			return (false);
	//		}
	
		//wat te doen als er geen actie is ingevuld maar wel een datum of actienemers---voorlopig negeren we die
	}
}	//1+1=66 BLOK OVERSLAAN!!!
if ( cbMeldingAf(0, "MAATREG_AKTIE", "MAATREG_DD_KLAAR")==0)
	{//Controleer alle acties en kijk of ze nog openstaand zijn.
	//nMax: aantal actievelden
	strATI="record/melding"
	if (cojsTAAL=="gb") {strATI="record" }
	if (document.forms[0].name=="FormReAct")
	{
		strATI="Re-Act kaart"; 
		if (cojsTAAL=="gb") {strATI="Re-Act card" }
	}
	else
	{
		//strBericht="Alle acties zijn afgesloten of er zijn geen acties Is dit correct? \n \n \n (kies Annuleren indien u een extra actie aanmaken.)"
    	//if (cojsTAAL!="nl") {strBericht="All actions are settled. Is that correct? \n \n \n (choose Cancel to make a new action)."}
		//if (confirm(strBericht )==false)
		//{ return (false);}
	}
}
if (!vWinVoort || vWinVoort.closed) {} 
else
	{ 
		strBericht="Let op: Actie/voortgangs venster is nog geopend. \n \n Toch verder gaan?"
	    if (cojsTAAL!="nl") {strBericht="Attention: Action-windows is still opened \n \n Continue?"}
		if (confirm(strBericht )==false)	{ return (false);}
	}
fOForm.LISSAVED.value="VALIDATEDOK"	//markeer veld in orde (saved weten we nog niet)
fOForm.CB_IS_SAVED.value="Y"		//formulier is bewaard okt08
return (true);
}

//---------------------------------------------------------------------------------------------------
function cbPopUp2Parent(strTabel, nMaxRecords)
//Kopieer de inhoud van het popupscherm naar het parent formulier
{
var i, oDocVeld, oDocForm, oPaForm, oVeld, nAantal, strTotaal, strStart, nStart, strVeld, vWaarde, iWaarde
var txt, txt2, txt3, nRecNr, nPS, nPE, strHulp, strBericht
oPaForm=opener.document.forms[0];
oDocForm=document.forms[0];
nAantal=oDocForm.elements.length;
strTotaal="¦";
strStart=oDocForm.elements[0].name;
nRecNr=oDocForm.nRecNr.value-1		//belangrijk want bepaald het hidden-field waar het naar toe moet
if (nMaxRecords<nRecNr+1)
	{	
		strBericht="This record can not be saved. The maximum number of records is "
	    if (cojsTAAL=="nl") {strBericht="Het record kan niet opgeslagen worden. Maximum aantal records bij de record is "}
		alert(strBericht+nMaxRecords)
		return false
	}
txt =""		//waarde	
txt2=""		//codestring
txt3=""		//tekstdeel
//alert(nRecNr+"--status"+oPaForm(strTabel)[nRecNr].value )
oPaForm(strTabel)[nRecNr].value = 3		//status 3: gewijzigd (0: default, 2: verwijderd, 3: gewijzigd
//alert(nRecNr+"--status"+oPaForm(strTabel)[nRecNr].value )
for (i = 0; i<nAantal; ++ i)
 {
		oDocVeld=oDocForm.elements[i]	//als object
		strVeld =oDocForm.elements[i].name
		strHulp =strVeld
		if (strVeld.substring(0,3)=="cbo")		//trwefwoord item. indexOf>-1 is gevonden
		{
			//alert(strVeld)
			//ingebedde vorm: checked???
			if (oDocForm.elements[i].type=="checkbox" || oDocForm.elements[i].type=="radio" )
			{
			//reeks afhandelen
			while (strVeld==oDocForm.elements[i].name && i<nAantal)
				{	
					if (oDocForm.elements[i].checked)
					{
						txt=oDocForm.elements[i].value
						if (txt != null && txt != "") 
						{
							//{ txt = txt +  ";"}
							txt2=txt2 + txt.substr(0,10) + ";"	//1e 10 tekens
							txt3=txt3 + txt.substr(10) + ";"		//vanaf pos. 10 de tekst
						}		//aangevinkt?
					}	//checked?
					i++;
				}	//while	
				i--;	//1 terug
				//alert(strVeld+":="+txt2)
				oPaForm(strVeld)[nRecNr].value=txt2		//eerste keer veld wissen, dan vullen opbouwen?
				txt2=""
			    oPaForm(strVeld)[nRecNr].title=txt3
				txt3=""
			} 	//geen radio of check
			else	
			{ 
			//wel combolijsten echter hidden items  bijv. cboKeuzeV2 cboKeuzeLP03 (en niet cboKeuzeV2a of cboKeuzeV2b)
			//Niet Hidden niet verwerken en hidden eindigd op "b" niet verwerken
			if (oDocForm.elements[i].value != null && oDocForm.elements[i].type=="hidden")
				{ 
					//alert(strVeld+"-hidden-type: "+oDocForm.elements[i].value)
					//alert(strVeld.charAt(strVeld.length-1))
					if (strVeld.charAt(strVeld.length-1)!="b" && strVeld.indexOf("_changed")<1 && strVeld.indexOf("Afd")<1 && strVeld.indexOf("JAVA")<1) 
						{ 
						  oPaForm(strVeld)[nRecNr].value=oDocForm.elements[i].value;
						  oPaForm(strVeld)[nRecNr].title=oDocForm(strVeld+"a").value;
						  //oPaForm(strVeld.substr(8))[nRecNr].value = 3		//altijd? status 3: gewijzigd (0: default, 2: verwijderd, 3: gewijzigd
						}
				}
			 else		//maar niet cboKeuzeLAa type moet een combo-box zijn: 1 keuze mogelijk
				 {		//
					if (oDocForm.elements[i].type!="text" && strVeld.indexOf("JAVA")<1)		//select-one of select-xxx/|| oForm(vVeld).type=="select-multiple")
					{  oPaForm(strVeld)[nRecNr].value=oDocForm.elements[i].value;	 
						//alert(oDocVeld.options[oDocVeld.selectedIndex].text+" o "+oDocForm.elements[i].value)
					   oPaForm(strVeld)[nRecNr].title=oDocVeld.options[oDocVeld.selectedIndex].text;
					}
				 }
			}	//else type geen radio of check
			
				
		}	//eerste posities CBO
		//geen cbo-item! maar bijv. PLETSEL_STAMNR
		if (strVeld.indexOf(strTabel)>-1 && strVeld!="nRecNr" && strVeld.substring(0,3)!="DA_"	)	//komt de tabelnaam voor in de veldnaam bijv PLETSEL_VERZUIM
			{
				//DATUM VELDEN LEVEREN PROBLEEM OP
				//alert(strVeld+"-"+strTabel+"-"+strVeld.indexOf(strTabel))
				if (oDocForm.elements[i].type=="checkbox" || oDocForm.elements[i].type=="radio" )
					//dit gaat fout bij checkboxen omdat meerdere keuzes mogelijk zijn
					{ if (oDocForm.elements[i].checked)	{ txt=oDocForm.elements[i].value }	}
				else
					{ txt=oDocForm.elements[i].value }
					if ( strVeld.indexOf("_changed")<0 ) //combo naar text veld. item changed bestaat dan niet
						{ oPaForm(strVeld)[nRecNr].value = txt; }
					//}
			}	//PLETSEL_VERZUIM OF UDF_DBF_V3
 }	//for
window.close();
return true
}
//---------------------------------------------------------------------------------------------------
function cbPopUp_valuetable(arrVelden, nAantal, strHeader)
//vul tabel met waarden uit het parentformulier
{
var oDocForm, vWaarde, i, e, vE, nTel, nRecNr, vWaardeTot, nRecNr	//opener.document.forms[0].
var arrVelden, vVeld, j, lRecLeeg, strTR1, strTR2, vWaardeO, strButton, strHulp1, strBericht
//alert(arrVelden[1])
oDocForm  = opener.document.forms[0];
//strButton = "<br><input name='btVerwijder' type='button' disabled='true' value='Verwijder' title='verwijder de aangevinkte items' class='button' onClick='document.title=alert(123)'>"
strButton = ""
vWaardeTot= ""
vWaarde   = ""
vWaardeO  = ""	//indien veld leeg, dan tabel wel opmaken
nRecNr=1
for (j=0; j<nAantal; j++)		//begin bij veld-index 0 (ofwel Record 1) tot nAantal (records) velden
{
	strTR1="<tr><TD align='center' width='5'><input name='btEdit' type='button' value=' #"+(j+1)+"   ' title='Bewerk' class='button' onClick='cbPopUp_valueIn("+j+", arrVelden)'></TD><TD align='center'>"

	//of een van de anderen is aangevinkt....
	//strTR1+="<input name='recs2del' title='delete' type='checkbox' onClick='btVerwijder.disabled=false);' value='"+(j+1)+"'></TD>"
//	strTR1+="<input name='recs2del' title='delete' type='checkbox' onClick='btVerwijder.disabled=false;' value='"+(j+1)+"'></TD>"
//	strTR1+="<input name='btDel' type='button' class='button' title='Verwijder' type='button' onClick='alert(this.value);' value=' #"+(j+1)+"'></TD>"
	strTR1+= "<a><img border='0' width='10' height='10' hspace='1' "
	strTR1+=" src='images/delete.gif' title='Verwijder' onclick='cbPopUp_valueDel("+j+", arrVelden)'></a></TD>"

	vWaardeO=""
	lRecLeeg=true				//default op leeg stellen
	for (i=0; i<arrVelden.length; i++)
		//als alle items in deze for-lus leeg zijn, dan is ook het record leeg.
		{
			vVeld=arrVelden[i]	//veldnaam
			
//			if (oDocForm(vVeld).type=="checkbox" || oDocForm(vVeld).type=="radio" )
			if (vVeld.substring(0,3)!="cbo")	
			{	
   				vWaarde=oDocForm(vVeld)[j].value
				//if (vVeld=="PLETSEL_AFDELING") {alert(vWaarde)}
				if (vWaarde!=null && vWaarde!="")
				{
					lRecLeeg=false
					if (vWaarde=="#del#") {vWaarde="&nbsp;"} 
					//if (isInteger(vWaarde))
					//	{ vWaardeO+=strTR1+"<td align='right'>"+vWaarde+"</td>" }
					//else
					if (vVeld=="PLETSEL_GESLACHT" && vWaarde!="&nbsp;")
						{ if (vWaarde==-1) {vWaarde="<img src='images/female.gif' alt='V F' title='Vrouw Female Femme'>"} 
						  else {vWaarde="<img src='images/male.gif' alt='M' title='Man Homme'>"}
						}
					  vWaardeO+=strTR1+"<td align='center' valign='top'>"+vWaarde+"</td>" 
						
					strTR1=""		//leeg maken
				}
				else
				{ 
					vWaardeO+=strTR1+"<td>&nbsp;</td>"
					strTR1=""		//leeg maken
				}
			}
			else		//trefwoorditems cboLP02 of cboKeuzeLP03
			{
				vWaarde=oDocForm(vVeld)[j].title
				if (oDocForm(vVeld)[j].value=="" || oDocForm(vVeld)[j].value=="#del#" || oDocForm(vVeld)[j].value.substr(9,1)=="H" || oDocForm(vVeld)[j].value.substr(3,10)=="0000000") { vWaarde="&nbsp;" }		// laatste letter H of 0000000
				vWaardeO+=strTR1+"<td align='center' valign='top'>"+vWaarde+"</td>"
				strTR1=""		//leeg maken
			}
		}
	if (lRecLeeg==false) 
		{ vWaardeTot += strHeader+vWaardeO+"</tr>"; 
		nRecNr++;
		strHeader=""; }
}
if (vWaardeTot.length>8)  { vWaardeTot += strButton }
//alert(oDocForm("UDF_DBF_V3")[4].value)
// nRecNr vullen met de juiste hoogste index.
document.forms[0].nRecNr.value=nRecNr
if (nRecNr>nAantal)
	{
//		document.forms[0].strModus.value="NIEUWE RECORDS INVOEREN NIET MOGELIJK, WIJZIG EEN BESTAAND RECORD (MAX="+nAantal+")!"
		strBericht="No more records can be added. The maximum number of records is: "
	    if (cojsTAAL=="nl") {strBericht="Er kunnen geen records meer toegevoegd worden (wijzig een bestaande). Maximum aantal records bij de record is: "}
		vWaardeTot +="<tr><td align='center' colspan='"+(arrVelden.length+2)+"'><b>"+strBericht+nAantal+")</b></td></tr>"
}
return vWaardeTot
}
//---------------------------------------------------------------------------------------------------
function cbPopUp_valueIn(nItem, arrVelden)
//vul met waarden uit het parentformulier (na klikken op Wijzig #nItem)
{
var oDocForm, oForm, vWaarde, i, e, vE, nTel, nRecNr, vWaardeTot, nRecNr	
var  vVeld, j, lRecLeeg, strTR1, strTR2, vWaardeO, strHulp, nTel2, nLengte
oDocForm  = opener.document.forms[0];
oForm     = document.forms[0];
vWaarde   = ""
for (i=0; i<arrVelden.length; i++)
		//als alle items in deze for-lus leeg zijn, dan is ook het record leeg.
		{
			vVeld=arrVelden[i]	//veldnaam
			if (vVeld!="V1012_TCODE")
				{			
				vWaarde=oDocForm(vVeld)[nItem].value		//nItem is vaste waarde
				//if (vWaarde!=null && vWaarde!="")
				if (vWaarde=="#del#") { vWaarde="" }
				//alert(vVeld)
				if (oForm(vVeld).type=="text" || oForm(vVeld).type=="textarea" || oForm(vVeld).type=="hidden")
					{ oForm(vVeld).value=vWaarde 
						//oForm(vVeld).title
					  if (vVeld.substring(0,3)=="cbo") {oForm(vVeld+"a").value=oDocForm(vVeld)[nItem].title}
					}
				else	
					if (oForm(vVeld)[0].type=="checkbox" || oForm(vVeld)[0].type=="radio"  || oForm(vVeld).type=="select-one" || oForm(vVeld).type=="select-multiple")
					{	
						for (nTel2=0; nTel2<oForm(vVeld).length; nTel2++)
							{ 
							//vWaarde is een ; gescheidenlijst, veld is incl naam
							//alert(vVeld+": "+vWaarde+"--veld--"+oForm(vVeld)[nTel2].value.substr(0,10))
							if (oForm(vVeld).type!="select-one" && oForm(vVeld).type!="select-multiple") 
								{ oForm(vVeld)[nTel2].checked=( vWaarde.indexOf(oForm(vVeld)[nTel2].value.substr(0,10))>-1 ) }
							else
								{	//match op code: 1e 10 tekens
									nLengte=vWaarde.length
									if (vWaarde!="" && oForm(vVeld)[nTel2].value!="" && vWaarde.indexOf(oForm(vVeld)[nTel2].value.substr(0,nLengte)) > -1)
									{
										//oForm(vVeld)[nTel2].selected=( vWaarde.indexOf(oForm(vVeld)[nTel2].value.substr(0,10))>-1 )
										oForm(vVeld)[nTel2].selected=true;
									}
								
								
								}
							}

					}
					//else
					//{alert(vVeld + ": "+oForm(vVeld).type)}
					
				}
			//}		//else defaultwaarde-- nee, moeten we overschrijven
		}
document.forms[0].nRecNr.value=(nItem+1)
vVeld=arrVelden[0]
//alert(document.body.offsetWidth)
oForm.strModus.value="BEWERK #" + (nItem+1)
if (cojsTAAL!="nl") {oForm.strModus.value="EDIT #" + (nItem+1) }
if (typeof oForm(vVeld).type != "undefined")	
	{ oForm(vVeld).focus() }		//verplaats focus
return true
}
//---------------------------------------------------------------------------------------------------
function cbPopUp_valueDel(nItem, arrVelden)
//Verwijder de waarden (vul met #del#)
{
var oDocForm, oForm, vWaarde, i, e, vE, nTel, nRecNr, vWaardeTot, nRecNr	
var  vVeld, j, lRecLeeg, strTR1, strTR2, vWaardeO, strHulp
var	strBericht="Are you sure to delete record "+ (nItem+1)+"?"
if (cojsTAAL=="nl") {strBericht="Wilt u echt record "+ (nItem+1)+" verwijderen?"}
if (confirm(strBericht)==false)
	{ return false }
	
oDocForm  = opener.document.forms[0];
oForm     = document.forms[0];
vWaarde   = ""
strHulp=oForm("strTabel").value
oDocForm(strHulp)(nItem).value=2		//verander de status naar 2=verwijderd
//alert(strHulp+"--"+nItem)
for (i=0; i<arrVelden.length; i++)
		//als alle items in deze for-lus leeg zijn, dan is ook het record leeg.
	{
			vVeld=arrVelden[i]	//veldnaam
			if (vVeld!="V1012_TCODE")
			{			
				oDocForm(vVeld)[nItem].value = "#del#"	//nItem is vaste waarde
			}

	}
strBericht="Record "+(nItem+1)+" deleted. You can reuse the record with ´Edit #"+(nItem+1)+"´  The window will be closed..."
if (cojsTAAL=="nl") {strBericht="Record "+(nItem+1)+" gewist. Via de knop ´Wijzig #"+(nItem+1)+"´ kunt u het record eventueel hergebruiken. Het venster wordt gesloten..."}
alert(strBericht)
//window.location.reload() probleem 
window.close()
}
//---------------------------------------------------------------------------------------------------
function cbCharNotAllowed(strTekst)
// ' ; ¦ " NIET ALS INVOER TOESTAAN, toegevoegd: & ivm parameter
{
var arrChar= new Array("¦","'",";", ",", "&"), i, strBericht
for (i=0;i<arrChar.length;i++)
	{	if ( strTekst.indexOf(arrChar[i])>-1 ) 
			{ 	
				strBericht=" character not allowed for input"
				if (cojsTAAL=="nl") {strBericht=" niet toegestaan als invoer."}
				alert(arrChar[i] + " "+strBericht)
				return false
			}
	}
return true
}
//---------------------------------------------------------------------------------------------------

function checkKeyforCharacters(obj)
	// Allow only numbers input from the keyborad
	// input		:Object	-TextBox Object
	// returns		:none
{
		// Clear any previous error messages AB[Z \ a{  90-_{z
		ClearErr();
		if (!((window.event.keyCode >=65  && window.event.keyCode <=92)||
			(window.event.keyCode >=97  && window.event.keyCode <=123)||
			(window.event.keyCode >=48  && window.event.keyCode <=57)||
			(window.event.keyCode == 45)||
			(window.event.keyCode == 95)))
		{
			window.event.keyCode = 0;
			obj.focus();
		}
}
//---------------------------------------------------------------------------------------------------
function cbjsApostrof(t)
// ' vervangen door ´ ivm fouten door html opmaak (kan bij onblur, tijdens input nieuw veld)
{
t.value=t.value.replace(/'/g,"´")		//global replacement of apostrof
return true
}

//---------------------------------------------------------------------------------------------------
function opWin(w,h,url) {
//BANNER: <body onload = javascript:opWin(550,350,'http://generalhosting.com') >
specs = "toolbar=yes,location=no,directories=no,status=no,menubar=no,resizable=no,copyhistory=no,scrollbars=yes" + ",width=" + w + ",height=" + h;
window.open(url,'',specs)
}
//---------------------------------------------------------------------------------------------------
function display_day()
//clientside tijdbepaling en groet
{
date = new Date();
var uur = date.getHours();
var strNacht, strMorgen, strMiddag, strAvond
strNacht="Goedenacht"; strMorgen="Goedemorgen";strMiddag="Goedemiddag";strAvond="Goedenavond";
if  (cojsTAAL=="gb")
	{strNacht="Good night"; strMorgen="Good morning";strMiddag="Good afternoon";strAvond="Good evening"}
if  (uur < 6) document.write(strNacht);
		 if ((uur >= 6)  && (uur < 12)) document.write(strMorgen);
		 if ((uur >= 12) && (uur < 18)) document.write(strMiddag);
		 if  (uur >= 18) document.write(strAvond);
}
//---------------------------------------------------------------------------------------------------
function cbInsRowA()
		{
		var nRij=parseInt(document.forms[0].nRijMA.value)
		//alert(nRij)
		var x=document.getElementById('TBLA').insertRow(nRij)
		var tRij=document.getElementById('TBLA').rows
		var nStartRij=0		//startrij is de oorspronkelijke rij (feitelijk constante waarde). Rij 0 is header
		var tcell=tRij[nStartRij].cells		//cellen van rij 2: dit is de startrij! (0 = start)
		var k0=x.insertCell(0)
		var k1=x.insertCell(1)
		var k2=x.insertCell(2)
		var k3=x.insertCell(3)
		k0.innerHTML=tcell[0].innerHTML
		k1.innerHTML=tcell[1].innerHTML
		k2.innerHTML=tcell[2].innerHTML
		k3.innerHTML=tcell[3].innerHTML

		document.forms[0].nRijMA.value=parseInt(document.forms[0].nRijMA.value)+1

	}	//cbInsRowA  Acties
//---------------------------------------------------------------------------------------------------
function cbInsRow()
		{
		var nRij=parseInt(document.forms[0].nRijMA.value)
		//if (document.forms[0].MAATREG_AKTIE[nRij-nStartRij-1].value=='')
		//	{alert("Bij de vorige rij is geen waarde ingevuld")}
		var nStartRij=2		//startrij is de oorspronkelijke rij (feitelijk constante waarde)
		var x=document.getElementById('TBLREACT').insertRow(nRij)
		var tRij=document.getElementById('TBLREACT').rows
		var tcell=tRij[nStartRij].cells		//cellen van rij 2: dit is de startrij!
		if (nRij-nStartRij-1 > 0 )
			{ 		if (document.forms[0].MAATREG_AKTIE[nRij-nStartRij-1].value=="") 
						{alert("U heeft geen actie ingevuld.");	return 	}
			} 
		else
			{ if (document.forms[0].MAATREG_AKTIE.value=="")
						{alert("U heeft geen actie ingevuld.");	return 	} 
			} 
			
		var k0=x.insertCell(0)
		var k1=x.insertCell(1)
		var k2=x.insertCell(2)
		var strBericht
		k0.innerHTML=''
		//k0.bgColor="#DFDFDF"
//		k1.innerHTML='<b>Actie '+(nRij-1)+':</b><br><i>Acties zonder actie-omschrijving worden niet opgeslagen</i>		<br><input name="nwactie" type="button" class="button" title="Verwijder actie" value="Verwijder" onClick="cbDelRow(this.parentNode.parentNode.rowIndex)">'
		if (cojsTAAL=="nl") 
			{ k1.innerHTML='<b>Actie <input name="actel" width="2" type="text" readonly="true" class="input2b" value='+(nRij-1)+'></b><br><i>Acties zonder actie-omschrijving worden niet opgeslagen</i><br><input name="nwactie" type="button" class="button" title="Verwijder actie" value="Verwijder" onClick="cbDelRow(this.parentNode.parentNode.rowIndex)">' }
		else
			{ k1.innerHTML='<b>Action <input name="actel" width="2" type="text" readonly="true" class="input2b" value='+(nRij-1)+'></b><br><i>Actions without description will not be saved</i><br><input name="nwactie" type="button" class="button" title="Delete action" value="Delete" onClick="cbDelRow(this.parentNode.parentNode.rowIndex)">' }

//		k2.innerHTML=tcell(2).innerHTML
		k2.innerHTML=tcell[2].innerHTML
	
		document.forms[0].nRijMA.value=parseInt(document.forms[0].nRijMA.value)+1
		document.forms[0].MAATREG_AKTIE[nRij-nStartRij].value=''
		document.forms[0].AKTIENEMERS_NAAM[nRij-nStartRij].value=''
		document.forms[0].MAATREG_DD_KLAAR_DAY[nRij-nStartRij].value=''
		document.forms[0].MAATREG_DD_KLAAR_MONTH[nRij-nStartRij].value=''
		document.forms[0].MAATREG_DD_KLAAR_YEAR[nRij-nStartRij].value=''
		document.forms[0].DA_MAATREG_DD_KLAAR_YEAR[nRij-nStartRij].value=''
		document.forms[0].MAATREG_VOLGNR[nRij-nStartRij].value='-99'

	}	//cbInsRow
//---------------------------------------------------------------------------------------------------
function cbDelRow(nRij)
{	//nummering werkt niet lekker. Niet geïmplementeerd, noodzaak niet direct gewenst.
			var nL
			var strBericht="Are you sure to delete this row?"		
			if (cojsTAAL=="nl")  { strBericht="Weet u zeker dat de rij gewist kan worden?"}
			if (confirm(strBericht)==true)
				{ document.getElementById('TBLREACT').deleteRow(nRij)
				  document.forms[0].nRijMA.value=parseInt(document.forms[0].nRijMA.value)-1
				  if (nRij>2) 
				  {		
				  	  nL=document.forms[0].actel.length		//1e element boven is dummy
					  if (nL==null) { nL=1 }
					  nL=nL-1
					  for (i = 0; i<nL; ++i) 	{	document.forms[0].actel[i+1].value=(i+2) }
				  }	//nRij>2
				}	//confirm
}	//cbDelRow
//---------------------------------------------------------------------------------------------------
function cbInsRowAlg(strTabel)
//Algemen functie voor het invoegen v/e rij (DOM)
//parameter meegeven voor identificatie van de teller, bijv. tabelnaam "MAATREG
{
	var k, i, vNaam, vRelNaam, oHulp
	var oForm, tRij, x, iPA=(strTabel.indexOf("OPENER."))
	if (iPA>-1) 
		{	oForm=opener.document.forms[0]
			strTabel=strTabel.replace("OPENER.", "")		//wis
		}
	else
		{	oForm=document.forms[0] }
	//var nRij=parseInt(oForm.NRIJ_MAATREG.value)		//hoogste rijnummer
	var nRij=parseInt(oForm("NRIJ_"+strTabel).value)		//hoogste rijnummer
	var strAlGehad=";"
	var strBericht="No value filled in (previous line)."		
	if (cojsTAAL=="nl")  { strBericht="Geen waarde ingevuld bij de vorige regel"}

	if (strTabel=="MAATREG" && nRij>2) 
		{	
		if (oForm("MAATREG_AKTIE")[nRij-2].value=="")
			{ alert(strBericht); return }
		}
	//voeg de rij toe		//alert(document.forms[0].NRIJ_MAATREG.value)
	if (iPA>-1) 
		{ 	x=opener.document.getElementById('TBL_'+strTabel).insertRow(nRij)
			tRij=opener.document.getElementById('TBL_'+strTabel).rows 
			//tRij[nRij].onmouseover=function (){alert(123456)}
		}
	else
		{ 	x=document.getElementById('TBL_'+strTabel).insertRow(nRij)
			tRij=document.getElementById('TBL_'+strTabel).rows 
		}
	
	var nStartRij=1		//0 is header, startrij is de oorspronkelijke rij (feitelijk constante waarde)
	var tcell=tRij[nStartRij].cells		//cellen van rij x: dit is de startrij!
	var naKol=tcell.length
	for (i=0;i<naKol;i++)
		{			//alert(naKol+"i="+i)
		k=x.insertCell(i)
		k.innerHTML=tcell[i].innerHTML 		//Kopieer de cel
		}
	tRij[nRij].vAlign="top"	//naar boventoe uitlijnen!
//alert(nRij)
	naKol=oForm.length
	vRelNaam="dummynx"		//gerelateerdetabel aktienemers bij maatreg ook meenemen!
	//alert(nRij)
	//if (strTabel=="MAATREG") { vRelNaam="AKTIENEMERS";  oForm("butAKTIENEMERS")[nRij-1].value="Voortgangsrapportage";} //jan08 VERVALLEN
	for (i=0;i<naKol;i++)		//wis meegekopieerde waarden
		{			//alert(naKol+"i="+i)
		vNaam=oForm(i).name
		if (vNaam)
		 {
			 
			if (vNaam.substr(0,strTabel.length)==strTabel || vNaam.substr(0,strTabel.length+3)=="DA_"+strTabel ||  vNaam.substr(0,vRelNaam.length)=="AKTIENEMERS"  ||  vNaam.indexOf("EIGENAAR")>0  || vNaam.indexOf("NAAM")>0)		//bijv. alleen voor "MAATREG_xxx"
			{
				if (vNaam!=strTabel+"_VOLGNR" )
					{ //alert(i+vNaam + ":"+oForm(vNaam)[nRij-1].value) hidden field te kopieren?
					if (typeof oForm(vNaam)[nRij-1]!= "undefined")	
						 { 
						 if (strTabel=="MAATREGx")		//alleen bij maatreg: bij clicken/typen in veld dan popup openen
						 	{ 
								oForm(vNaam)[nRij-1].readOnly =true		//jan2009 voorkom invoer, voeg extra knop om te wijzigen in.
								oForm(vNaam)[nRij-1].onclick=function (){cbMaatregClick(this);} 		//let op: kleine letters voor event onclick						
								oForm(vNaam)[nRij-1].onkeydown=function (){cbMaatregClick(this);}  		//let op: kleine letters voor event onclick
								//MAATREG_PRIORITEIT
								//oForm(vNaam)[nRij-1].setAttribute("onClick", "alert(123)")
							}

						 //echter de waarden voor alarm en startdatum laten staan!?
						 if (vNaam.indexOf("ALARM")>0 || vNaam.indexOf("ASTART")>0 || vNaam.indexOf("EIGENAAR")>0  || vNaam.indexOf("NAAM")>0)
						 	{	oForm(vNaam)[nRij-1].value="" }
						 else
						 	{ oForm(vNaam)[nRij-1].value="" }
						 }
					}
				else
					{ 
					oForm(vNaam)[nRij-1].value="-99"
					oForm(vNaam).value="-99"
					}		//volgnr markeren
				//Maak het veld UNIEK: Whenever a child node has a name we append counter to it. Thus the names of all form fields remain unique.
				//if (oForm(i).type=="radio") //werkt niet, radio blokkeren
					//{ oForm(i).name=oForm(i).name+"AAA" }
			}
		 }	//vNaam
		}	//for
	if  (iPA<0 && strTabel=="MAATREG") 	
		{
		oForm("MAATREG_AKTIE")[nRij-1].focus()
//		oForm("MAATREG_AKTIE")[nRij-1].click()			//direct in wijzig modus popup venster
		cbMaatregClick(oForm("MAATREG_AKTIE")[nRij-1]);
		}
	//oForm.NRIJ_MAATREG.value=parseInt(oForm("NRIJ_"+strTabel).value)+1
	oForm("NRIJ_"+strTabel).value=parseInt(oForm("NRIJ_"+strTabel).value)+1
	//if ((strTabel=="MAATREG") && (oForm.Sys_Key.value>0 ) && (oHulp != null)) { oHulp.click() }			//t.parentNode.parentNode.rowIndex
}	//cbInsRowAlg
//---------------------------------------------------------------------------------------------------
function cbDelRowAlg(strTabel, t)
//Algemene functie voor het invoegen v/e rij (DOM). Jan08: aanpassing gemaakt voor PLetsel
//parameter meegeven voor identificatie van de teller, bijv. tabelnaam "MAATREG
{
var oForm=document.forms[0], strHTML, vVeld
var nRij=t.parentNode.parentNode.rowIndex
var strBericht="Are you sure to delete this record? (marked as #!X!X )"		
var strInfo="(deleted. Do not use this row anymore)"
var tRij=document.getElementById('TBL_'+strTabel).rows
var tcell=tRij[nRij].cells		//cellen van rij x: dit is de startrij!
var naKol=tcell.length
var k, i, vDel, lngSys_Key, s
var oRow=document.getElementById("TBL_"+strTabel).rows
if (cojsTAAL=="nl")
	{ 
	strBericht="Weet u zeker dat deze regel/record gewist kan worden? \n \n (de markering #!X!X wordt aangebracht, zodat het veld niet opgeslagen wordt)"
	if (strTabel!="MAATREG") { strBericht+="	\n \n p.m. Wissen is pas definitief na OPSLAAN van het complete formulier." }
	strInfo="(gewist, svp deze regel niet meer gebruiken)"
	}
//alert(oForm("NRIJ_"+strTabel).value)
if (confirm("["+nRij+"] "+strBericht)==false) { return }
if (strTabel=="MAATREG" && nRij>0) 
	{	
	//if (typeof oDocForm("MAATREG_AKTIE")[nRij-1].value== "undefined") 	{alert("nietdef")}
	if (oForm("NRIJ_"+strTabel).value>2)
		{ oForm("MAATREG_AKTIE")[nRij-1].value="" 		
		vDel=oForm(strTabel+"_VOLGNR")[nRij-1].value
		 }		//wis de tekst. telling begint bij 0
	else
		{ oForm("MAATREG_AKTIE").value="" 
  		  vDel=oForm(strTabel+"_VOLGNR").value
		}
	if (oForm.Sys_Key.value>0 )
		{
			lngSys_Key=oForm.Sys_Key.value
			//return cbjavaVerwijderMelding("cbs_multipurp.asp?intActie=172&lngSys_Key="+lngSys_Key+"&lngVolgnr="+vDel, "" )
			if (cojsTAAL=="nl")
				{ strBericht="Voor een correcte weergave moet het formulier opnieuw worden geladen. \n Kies `Annuleren´ indien u wijziging eerder in het formulier heeft gemaakt en sla daarna het formulier op (de actie wordt dan NIET verwijderd). \n \n Doorgaan met verwijderen van de actie?" }
			else
				{strBericht="This form will be reloaded, for proper display \n Chose `Cancel´ if you want to save other changes in this form and Save this form (action will not be deleted). \n \n Continue deleting action?" }
			if (confirm(strBericht) )
			{
				window.location="cbs_multipurp.asp?intActie=172&lngSys_Key="+lngSys_Key+"&lngVolgnr="+vDel
			}
		}
	else
		{			//teven de oude methode (na opslaan van de melding)
	   if (parseInt(vDel)!=0 && parseInt(vDel)!=-99) { oForm("DEL_"+strTabel).value+=";"+vDel+";" }
		}
	return 
	}
if (strTabel=="PLETSEL" && nRij>0)
	{ 
	if (oForm("NRIJ_"+strTabel).value>2)
		{ 
		try { 		oForm("PLETSEL_VRIJ")[nRij-1].value="#!X!X"; oForm("PLETSEL_VRIJ").value="#!X!X "+strInfo }
		catch(err) {}
		try { 		oForm("PLETSEL_STAMNR")[nRij-1].value="#!X!X"; oForm("PLETSEL_STAMNR").value="#!X!X "+strInfo }
		catch(err) {}
		vDel=oForm("PLETSEL_VOLGNR")[nRij-1].value
		oRow[nRij].style.display="none";
		 }		//wis de tekst. telling begint bij 0
	else
		{ 
		try { 		oForm("PLETSEL_VRIJ").value="#!X!X "+strInfo	 } 
		catch(err) {}
		try { 		oForm("PLETSEL_STAMNR").value="#!X!X "+strInfo	 }
		catch(err) {}	
		vDel=oForm(strTabel+"_VOLGNR").value
		  //oForm("UDF_DBF_V1").disabled=true nee wordt gebruikt als kopieer regel
		}
	   if (parseInt(vDel)!=0 && parseInt(vDel)!=-99) { oForm("DEL_PLETSEL").value+=";"+vDel+";" }
	   //alert(tcell[1].innerHTML)
	   //tcell[1].innerHTML="<verwijderd>"
		return 
	}	
if (strTabel=="UDF_DBF" && nRij>0)
	{ 
	if (oForm("NRIJ_"+strTabel).value>2)
		{ oForm("UDF_DBF_V1")[nRij-1].value="#!X!X" 		
			vDel=oForm(strTabel+"_VOLGNR")[nRij-1].value
		// if ( nRij>1 ) 			{ 		  //oForm("UDF_DBF_V1")[nRij-1].disabled=true

		oForm("UDF_DBF_V1").value="#!X!X "+strInfo	  
		oRow[nRij].style.display="none";
		 }		//wis de tekst. telling begint bij 0
	else
		{ oForm("UDF_DBF_V1").value="#!X!X "+strInfo	
  		  vDel=oForm(strTabel+"_VOLGNR").value
		  //oForm("UDF_DBF_V1").disabled=true nee wordt gebruikt als kopieer regel
		}
	   if (parseInt(vDel)!=0 && parseInt(vDel)!=-99) { oForm("DEL_"+strTabel).value+=";"+vDel+";" }
	   //alert(tcell[1].innerHTML)
	   //tcell[1].innerHTML="<verwijderd>"
		return 
	}	
else
	{
	//try
	//{
	for (i=1;i<naKol;i++)
		{		
		//alert(tcell[i].innerHTML)
		strHTML=tcell[i].innerHTML
		k=strHTML.indexOf(" value=")
		if (k>-1)
			{ 
			//alert(strHTML)
			// tcell[i].innerHTML=strHTML.replace(/ value="/i, " value=#!X!X") 
			//Liever niet met de innerhtmp knoeien, onvoorspelbaar/ondoorzichtig
			k=strHTML.indexOf(" name=")
			k+=6		//lengte  name=
			s=strHTML.indexOf(" ",k)
			if (s<1) {s=strHTML.indexOf(">",k) }		//dan eind-tag
			//alert(strHTML.substr(k, s-k))
			vVeld=strHTML.substr(k, s-k)
			try
			{
				oForm(vVeld)[nRij-1].value= "#!X!X"
			}
			catch(err)
			{
				oForm(vVeld).value= "#!X!X"
			}
			//tcell[i].innerHTML==strHTML.replace(/ value="/i, " value=#!X!X") 
			//strHTML.substring(0,k-1)+" disabled value=#!X!X"+strHTML.substring(k+6)

			} 
		if (tcell[i].innerHTML=="") { tcell[i].innerHTML=strHTML; alert("Kan niet wissen, vul svp handmatig #!X!X in.") } 
		
		}	
	if (oForm("NRIJ_"+strTabel).value>2)
		{
		vDel=oForm(strTabel+"_VOLGNR")[nRij-1].value
//		document.getElementById('TBL_'+strTabel).deleteRow(nRij)
//		oForm("NRIJ_"+strTabel).value=parseInt(oForm("NRIJ_"+strTabel).value)-1
		}
	else
	 	{
			vDel=oForm(strTabel+"_VOLGNR").value+";"
		}
	   if (parseInt(vDel)!=0 && parseInt(vDel)!=-99) { oForm("DEL_"+strTabel).value+=";"+vDel+";" }
	}
}
//---------------------------------------------------------------------------------------------------
function cbShowHideTR(strTabel, nRegel, strDisplay)
{
try
{
var oRow=document.getElementById("TBL_"+strTabel).rows, oForm, nMaxRecords
var i, strBericht, nL=oRow.length, tcell, vDel, nMR, lVraag=true
oForm=document.forms[0]
nMaxRecords=oForm("MAXRECORDS_"+strTabel).value
if (strDisplay=="none")
 { 
	if (strTabel=="PLETSEL") { lVraag=(oForm("PLETSEL_VRIJ")[nRegel].value.substr(0,5)!="#!X!X") }
	if (strTabel=="UDF_DBF") { lVraag=(oForm("UDF_DBF_V1")[nRegel].value.substr(0,5)!="#!X!X") }
	strBericht="Are you sure to delete this record?"		
	if (cojsTAAL=="nl")  { strBericht="Weet u zeker dat deze regel/record gewist kan worden?"}
	if (lVraag==true)
		{ if (confirm(strBericht+ " ["+(nRegel+1)+"]")==false) { return } }

	vDel=oForm(strTabel+"_VOLGNR")[nRegel].value
//if (parseInt(vDel)!=0 && parseInt(vDel)!=-99) { oForm("DEL_"+strTabel).value+=";"+vDel+";" }
	//alert(vDel)
	tcell=oRow[nRegel+1].cells	

	//GAAT NIET GOED: tcell[1].innerHTML=tcell[1].innerHTML.replace("value=", "value=#!X!X")
	if (strTabel=="PLETSEL") { oForm("PLETSEL_VRIJ")[nRegel].value="#!X!X" }
	if (strTabel=="UDF_DBF") { oForm("UDF_DBF_V1")[nRegel].value="#!X!X" }
	
	//alert(tcell[1].innerHTML)
	oRow[nRegel+1].style.display=strDisplay		//huidige regel wissen
	if (nRegel==0)
		{ document.getElementById("TBL_"+strTabel).style.display="none";	} //onzichtbaar maken 

 }
else
 {
	document.getElementById("TBL_"+strTabel).style.display="block";	//altijd zichtbaar maken
	//alert(strTabel+"rg"+nRegel+"rijen: "+nL+" ..maxr."+nMaxRecords)
	nMR=0
	if (nMaxRecords==1) {nL=2}
	for (i=nRegel+1;i<nL;i++)
	{	if (oRow[i].style.display!=strDisplay)  
		{	oRow[i].style.display=strDisplay; 
			nMR=i
			i=nL; //exit for
		}	//eerst volgende vrije regel laten zien.
	}
	if (nMR==0 && nRegel>0)
		{
		strBericht="U kunt niet meer regels toevoegen (de applicatiebeheerder kan dit in het labelbestand wijzigen). Max.="
		if (cojsTAAL=="gb") {strBericht="You can´t add more records (your admin can change this in the lable-table). Maximum="}
		alert(strBericht+(nL-1)); 
		}	//nMR
 }
}
catch(err)
 {		
 	//alert(err.description) 
	//window.status = "DebugInfo: "+err.description	
 }
}
//---------------------------------------------------------------------------------------------------
function cbShowHideName(strName, strDisplay)
{
var oForm, i, oID, nItems
//oID=document.getElementById(strID)
try
{
	oID=document.getElementsByName(strName)
	nItems=oID.length 
	if (nItems==0) {oID=opener.document.getElementsByName(strName)}	//mrt10 opener.document.
	nItems=oID.length 
	if (strDisplay=="") {
		for (i=0;i<nItems;i++)		//toggle: block wordt none of vice-versa
			{	
				if (oID[i].style.display=="inline")		//nov11: inline van gemaakt
					{ oID[i].style.display="none" }			//toUpperCase() ???
				else { oID[i].style.display="inline" }	
			}
	}
	else {							//alles wat niet block/none was wordt block/none
		for (i=0;i<nItems;i++)
		{	
			if (oID[i].style.display!=strDisplay) { oID[i].style.display=strDisplay }			//toUpperCase() ???
		}
	}
	
}
catch(err)
 {		//alert(err) 
 }
}
//---------------------------------------------------------------------------------------------------
function cbInsRowMain(strTabel)
//Algemen functie voor het invoegen v/e rij in hoofdtabel(DOM)
//parameter meegeven voor identificatie van de teller, bijv. tabelnaam "L1
{
var oForm=document.forms[0]
var nL=oForm("cboKeuze"+strTabel).length		//bepaal laatste item en wis de waarde
var strBericht="Item not filled in."		
if (cojsTAAL=="nl")  { strBericht="Item is nog niet ingevuld...."}
if (nL>0)
	{  
	//if (oForm("cboKeuze"+strTabel)[nL-1].value=="")		//gaat fout
	//	{ alert(strBericht); return }
	}
var nMaxRij=document.getElementById('TBL_'+strTabel).rows.length
//Voeg een rij toe
var x=document.getElementById('TBL_'+strTabel).insertRow(nMaxRij)
var tRij=document.getElementById('TBL_'+strTabel).rows
var tcell=tRij[0].cells		//cellen van rij x: dit is de startrij!
var naKol=tcell.length
var k, i, vNaam, vRelNaam
	//var iItemnr=t.parentNode.parentNode.rowIndex;
	for (i=0;i<naKol;i++)
		{			//alert(naKol+"i="+i)
		k=x.insertCell(i)
		k.innerHTML=tcell[i].innerHTML 
		//if (i==0) { k.innerHTML+= "&nbsp;" + (nMaxRij+1) }		//nummering 1,2,etc.
		}	
	nL=oForm("cboKeuze"+strTabel).length		//bepaal laatste item en wis de waarde
	if (nL>0) { nL-- }
	oForm("cboKeuze"+strTabel)[nL].value=""
	oForm(strTabel+"_FACTOR")[nL].value="1"

}
//---------------------------------------------------------------------------------------------------

function cbPrintWindow()
{
	var dDoc, inhoud
	var startHtml
	var n, nRR
inhoud=document.body.innerHTML
//id='butRR' type='button' class='button'
//n=inhoud.indexOf("name=iRR>")
//n=inhoud.indexOf("name=iRR>")
//if (n>-1) { inhoud=inhoud.replace("name=iRR>", "name=iRR>RISKRATE: " ) }
//	{	alert(123); inhoud=inhoud.replace("id='butRR' type='button'", "id='butRR' type='text'") }		//RR-knop moeten we wel zien!
nRR=document.forms[0].iRR.value
while (inhoud.indexOf("button")>-1)
	{	inhoud=inhoud.replace("button", "hidden")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("submit")>-1)
	{	inhoud=inhoud.replace("submit", "hidden")		}	// inhoud=inhoud.replace(/submit/ig, "")		//global case-INsesitive search
while (inhoud.indexOf("reset")>-1)
	{	inhoud=inhoud.replace("reset", "hidden")		}	//

//<body class="bodyr" >
startHtml='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
startHtml+='<html><head>'
startHtml+='<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'
startHtml+='<link rel="stylesheet" href="styles/cbs_style.css" type="text/css">'
startHtml+='<style media="print">'
startHtml+='@page rotated {size: landscape; size: auto;	}'
startHtml+='</style>'
startHtml+='<title>Re-Act!</title>'
startHtml+='<script language="javascript" src="cbs_java.js">'
startHtml+='</script></head>'
startHtml+='<body class="bodyprint">'
//
inhoud+='<script language="javascript" type="text/javascript">document.getElementById("rrlabel").innerHTML="RiskRate: '+nRR+'"; window.print();'
inhoud+='document.getElementById("rrinfo").innerHTML+=" : <b>'+nRR+'</b>";'
if (cojsTAAL=="nl") 
	{ inhoud+='window.status="Via de print-instellingen kunt u horizontaal (landscape) afdrukken"; </script>' }
else
	{ inhoud+='window.status="Landscape etc. print via print-settings"; </script>' }

//""Via de print-instellingen kunt u horizontaal (landscape) afdrukken""
dDoc=window.open("", "PrintWindow")		//beter is een html documentsjabloon te openene
//dDoc.focus()
dDoc.document.writeln(startHtml)
dDoc.document.writeln( inhoud)
dDoc.document.writeln('</body></html>')

dDoc.location.reload()
//window.print()
//alert("Maak vanuit de printdialoogvenster de aanpassingen voor bijv. landscape")
}

//---------------------------------------------------------------------------------------------------
function cbCopyTable(idtable)
//nee 
{
	var tRij=document.getElementById('TBLREACT').rows
	var nL, i, j

}

//--------------------------------------------------------------------------------------------------------
function cbMeldingAf(nMax, vAktie, vDD_Klaar)
//Controleer alle acties en kijk of ze nog openstaand zijn.
//nMax: aantal actievelden
//vAktie: veldnaam van het veld MAATREG_AKTIE
//vDD_Klaar: veldnaam van het veld MAATREG_DD_KLAAR
//vRetour: veld waarin eventueel de retourwaarden worden geschreven
{
var	nAfg=0				//aantal ingevoerde acties die zijn afgehandeld.
var nOpen=0
var nLaatsteActie=1		//Laatst ingevoerde actie
var fOForm=document.forms[0]
var strActie=""
var strJaar=""
var vVeld, iStart
iStart=1
try {
if (nMax==99)
	{ 
	if (fOForm("NRIJ_MAATREG")!=null)
		{
		nMax=fOForm("NRIJ_MAATREG").value
		if (nMax<3)
			{
				strActie=fOForm("MAATREG_AKTIE").value	//=oDocForm("MAATREG_AKTIE").value
				strJaar =fOForm("MAATREG_DD_KLAAR_YEAR").value 
				if (strActie.length>0 && strJaar.length<1) { nOpen++ }
				if (strActie.length>0 && strJaar.length>0) { nAfg++ }		//gebruiken we (nog) niet
			}
		else	
	
			{ for (i = iStart-1; i <= nMax-2; i++)   //iStart oorspronkelijk. Dec10: iStart-1
				{
					//alert(nMax+"-"+iStart+"-"+i)
					strActie=fOForm("MAATREG_AKTIE")[i].value	//=oDocForm("MAATREG_AKTIE").value
					strJaar =fOForm("MAATREG_DD_KLAAR_YEAR")[i].value 
					if (strActie.length>0 && strJaar.length<1) { nOpen++ }
					if (strActie.length>0 && strJaar.length>0) { nAfg++ }		//gebruiken we (nog) niet
			
				}	//for
			 }	//nMax <3
		}	//fOForm("NRIJ_MAATREG")!=null
	}	//99
else
	{
	if (nMax==0 && vAktie=="MAATREG_AKTIE" && fOForm("MAATREG_AKTIE")) 
		{   nMax=fOForm("MAATREG_AKTIE").length; 
			iStart=0;
			if (nMax==null || nMax<=0) 
				{ 
					nMax=-1;
					strActie=fOForm("MAATREG_AKTIE").value	//=oDocForm("MAATREG_AKTIE").value
					strJaar =fOForm("MAATREG_DD_KLAAR_YEAR").value
					if (strActie.length>0 && strJaar.length<1) { nOpen++ }
					if (strActie.length>0 && strJaar.length>0) { nAfg++ }		//gebruiken we (nog) niet
				}
			else { nMax=nMax-1; }
		}
	else
		{  iStart=nMax+1; nOpen=-1 }	//blokkeer de rest
	for (i = iStart-1; i <= nMax; i++)   //iStart-1 dec 10
		{
			//alert(nMax+"-"+iStart+"-"+i)
			if (vAktie=="MAATREG_AKTIE")
				{ 	strActie=fOForm("MAATREG_AKTIE")[i].value	//=oDocForm("MAATREG_AKTIE").value
					strJaar =fOForm("MAATREG_DD_KLAAR_YEAR")[i].value 
				}
			else
				{ strActie=fOForm("strActie"+i).value
				  strJaar =fOForm("daAfYear"+i).value
				}
			if (strActie.length>0 && strJaar.length<1) { nOpen++ }
			if (strActie.length>0 && strJaar.length>0) { nAfg++ }		//gebruiken we (nog) niet
	
		}	//for
}		//nMax=99
}	//try
catch(err)
{
	//acties zijn niet toegankelijk
	nOpen=-99
}
return (nOpen);
}
//--------------------------------------------------------------------------------------------------------
function cbMeldingStatusInfo(lngSys_Key, iMax, vAktie, vDD_Klaar, strATI)
//display statusinformatie
{
var nOpen=0
var strBericht
if (document.forms[0].name=="FormReAct") {strATI="Re-Act kaart"; if (cojsTAAL=="gb") {strATI="Re-Act card" } }
strBericht="Nieuwe "+strATI+" invoeren";
if (cojsTAAL=="gb") {strBericht="Insert "+strATI;}
if (lngSys_Key>0 )
	{	nOpen=cbMeldingAf(iMax, vAktie, vDD_Klaar)
		if (nOpen<1)
			{
			strBericht=strATI + ": "+lngSys_Key
			if (nOpen!=-99) 
				{
				if (cojsTAAL=="gb") 
						{strBericht+=" (no actions to take)";}
				else	{strBericht+=" (geen openstaande acties)" }
				}
			} //-99 niet kunnen bepalen omdat veld disabled was.
		else
			{	
			strBericht=strATI + ": "+lngSys_Key
			if (cojsTAAL=="gb") {strBericht+=" ("+nOpen+" actions to take)";}
			else	{strBericht+=" (openstaande acties: "+nOpen+")" }
			}
		document.getElementById('meldtitel').innerHTML=strBericht
}
window.status=strBericht
parent.document.title=strBericht
}
//--------------------------------------------------------------------------------------------------------
function cbBlokM()
{alert("Print-voorbeeld: muis-functies geblokkeerd.../Print Preview: mouse disabled")
}
//---------------------------------------------------------------------------------------------------
function cbPrintIMSWindow()
{
var dDoc, inhoud, oVeld, nExtra
var startHtml
var n, nRR, nLengte
// 5+Math.round(this.value.length/70);'
var oDocForm=document.forms[0]
var nAantal=oDocForm.elements.length
var i
try		//errorblock maken -begin-einde
{
	
for (i=0;i<nAantal;i++)
{
	if (oDocForm.elements[i].type=="textarea")
	 {
		 oVeld=oDocForm.elements[i]
		 n=oVeld.rows		// aantal rijen (kan handmatig vergroot zijn)
		 inhoud=oDocForm.elements[i].value
		 nLengte=Math.round(inhoud.length/70)
		 nExtra=2		//extra regels
		 if (inhoud.indexOf( "\r" )>0) {nExtra=8}		//extra regels
		 if ( n<nLengte+nExtra )
	 	{ oDocForm.elements[i].rows=(nExtra+nLengte);	} 
	 }
}
inhoud=document.body.innerHTML
//id='butRR' type='button' class='button'
//n=inhoud.indexOf("name=iRR>")
//n=inhoud.indexOf("name=iRR>")
//if (n>-1) { inhoud=inhoud.replace("name=iRR>", "name=iRR>RISKRATE: " ) }
//	{	alert(123); inhoud=inhoud.replace("id='butRR' type='button'", "id='butRR' type='text'") }		//RR-knop moeten we wel zien!
//nRR=document.forms[0].iRR.value: niet altijd aanwezig op formulier

inhoud=inhoud.replace("id=butRR", "type=text")
while (inhoud.indexOf("cbupdateWMTT")>-1)
	{	inhoud=inhoud.replace("cbupdateWMTT", "''")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//while (inhoud.indexOf("class=inputb ")>-1)
//	{	inhoud=inhoud.replace("class=inputb ", "")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//while (inhoud.indexOf("class=inputr ")>-1)
//	{	inhoud=inhoud.replace("class=inputr ", "")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//while (inhoud.indexOf("class=input ")>-1)
//	{	inhoud=inhoud.replace("class=input ", "")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//while (inhoud.indexOf("type=button")>-1)
//	{	inhoud=inhoud.replace("type=button", "type=hidden")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("images/help_info.gif")>-1)
	{	inhoud=inhoud.replace("images/help_info.gif", "images/bul2d.gif")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("button")>-1)
	{	inhoud=inhoud.replace("button", "hidden")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("submit")>-1)
	{	inhoud=inhoud.replace("submit", "hidden")		}	
while (inhoud.indexOf("reset")>-1)
	{	inhoud=inhoud.replace("reset", "hidden")		}	//
//#e4e4e4 kleur vervangen
while (inhoud.indexOf("e4e4e4")>-1)
	{	inhoud=inhoud.replace("e4e4e4", "FFFFFF")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("tabelin")>-1)
	{	inhoud=inhoud.replace("tabelin", "tabelds")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("border=1")>-1)
	{	inhoud=inhoud.replace("border=1", "border=0")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//while (inhoud.indexOf("class=cbo")>-1)
//	{	inhoud=inhoud.replace("class=cbo", "class=cbprint")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("show_calendar")>-1)
	{	inhoud=inhoud.replace("show_calendar", "")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//while (inhoud.indexOf("<TABLE")>-1)
//	{	inhoud=inhoud.replace("<TABLE", "<table onMouseDown='cbBlokM()'")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("width=200")>-1)
	{	inhoud=inhoud.replace("width=200", "width=150")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("images/add.gif")>-1)
	{	inhoud=inhoud.replace("images/add.gif", "images/bul2d.gif")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("images/delete.gif")>-1)
	{	inhoud=inhoud.replace("images/delete.gif", "images/bul2d.gif")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
while (inhoud.indexOf("Maak hier een keuze:")>-1)
	{	inhoud=inhoud.replace("Maak hier een keuze:", "")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//while (inhoud.indexOf("Riskrate: ")>-1)
//	{	inhoud=inhoud.replace("Riskrate: ", "RR:")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
//inhoud=inhoud.replace("120px", "50px")
while (inhoud.indexOf("onclick=")>-1)
	{	inhoud=inhoud.replace("onclick=", "onblur=")		}	//maak knoppen onzichtbaar event.ook via stylesheet te doen!
inhoud=inhoud.replace("cboKeuzeEF_changed>&nbsp;&nbsp;", "cboKeuzeEF_changed></td></tr> <tr><td>&nbsp;</td><td>")
//<body class="bodyr" >
startHtml='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
startHtml+='<html><head>'
startHtml+='<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'
startHtml+='<link rel="stylesheet" href="styles/cbs_style.css" type="text/css">'
startHtml+='<style media="print">'
startHtml+='@page rotated {size: landscape; size: auto;	}'
startHtml+='</style>'
startHtml+='<title>ClassBase print</title>'
//startHtml+='<script language="javascript" src="cbs_java.js"> <XXX/script>' HAAL XXX WEG		//FEB2006: MINDER VASTLOPERS ZO?
startHtml+='</head>'
startHtml+='<body class="bodyprint">'

inhoud+='<script language="javascript" type="text/javascript">window.print();'
//inhoud+='document.getElementById("rrinfo").innerHTML+=" : <b>'+nRR+'</b>";'
if (cojsTAAL=="nl") 
	{ inhoud+='window.status="Via de print-instellingen kunt u horizontaal (landscape) afdrukken"; </script>' }
else
	{ inhoud+='window.status="Landscape etc. print via print-settings"; </script>' }//
//inhoud+='<script language="javascript" type="text/javascript">document.getElementById("rrlabel").innerHTML="RiskRate: '+nRR+'"; window.print();'
//inhoud+='document.getElementById("rrinfo").innerHTML+=" : <b>'+nRR+'</b>";'
//inhoud+='window.status="Via de print-instellingen kunt u horizontaal (landscape) afdrukken"; <-weghalen/script>'
//""Via de print-instellingen kunt u horizontaal (landscape) afdrukken""
}	//try
catch(err)	{}

dDoc=window.open("", "PrintWindow")		//beter is een html documentsjabloon te openene
//dDoc.focus()
//cbMoment()
dDoc.document.writeln(startHtml)
dDoc.document.writeln('<div OnClick="alert(\'Print-voorbeeld: muis-functies geblokkeerd.../Print Preview: mouse disabled\');return false" OnKeyDown="alert(\'blocked\');return false">')
//dDoc.document.writeln('<div OnClick="alert(123)">')

dDoc.document.writeln(inhoud)	
dDoc.document.writeln('</div></body></html>')
//dDoc.status="reload"
dDoc.location.reload()
//dDoc.status="reloaded"
//window.print()
//alert("Maak vanuit de printdialoogvenster de aanpassingen voor bijv. landscape")
}
//--------------------------------------------------------------------------------------------------------
function cbImageResize(nDeler)
//bedoeld om images op een pagina naar een kleiner formaat om te zetten
{
	var i, larr
//alert("hallo")
//alert(t.width+" hoogte: "+t.heigth)
//t.width=t.width/nDeler
//t.heigth=t.heigth/nDeler
//alert(document.images.length)
larr=document.images.length
for (i=0;i<larr;i++)
{
	if (document.images[i].name=="imgZ" && document.images[i].width>75)
//	if (document.images[i].width>75 &&  document.images[i].heigth>75)		//minimumafmeting
	{	document.images[i].width=document.images[i].width/nDeler
		document.images[i].heigth=document.images[i].heigth/nDeler
	}
}
}
//---------------------------------------------------------------------------------------------------
function cbCTDelRijen(tableid, strNivo)
//Verwijder rijen uit een kruistabel die aan de bepaalde conditie voldoen: id >= nNivo
{
var i, nROWS, oRij,Rid, oTable, n, strKleur
//alert(strNivo)
oTable=document.getElementById(tableid)
oRij=document.getElementById("PA2")
while (oRij!=null)
{
	oRij=document.getElementById("PA2")
	if (oRij!=null) 
	{
		n=oRij.rowIndex
		oTable.deleteRow(n)	
	}
}
if (strNivo!="0")
{
	oRij=document.getElementById(strNivo)
	while (oRij!=null)
	{
		oRij=document.getElementById(strNivo)
		if (oRij!=null) 
		{
			n=oRij.rowIndex
			oTable.deleteRow(n)	
		}
	}	//while
}
//oTable=document.getElementById(tableid)
nROWS=oTable.rows.length
for ( i=0;i<nROWS;i++)
	{	if (strKleur=="#ecf4fd")	{strKleur="#FFFFFF"}
		else						{ strKleur="#ecf4fd" }
		oTable.rows(i).style.backgroundColor=strKleur	
	}
}	//einde functie

//---------------------------------------------------------------------------------------------------
function cbUpdateCPOrga(vWaarde, strVeld)
//Organon: V1 Emissieblokje Update rubriek nav click in checkbox
{
var  i, oDocForm, iArr,txt,tCode,txtOrg, strVeld, txtHulp, strType
//VERVALLEN MAART 2006
return		//VERVALLEN DUS???? WERKT NIET  ANDERS
oDocForm=document.forms[0]
//strVeld="cboKeuzeV1"		//veld dat bijgewerkt moet worden
//Als de waarde van het veld erbij staat dan erbij zetten, zo niet dan verwijderen
tCode=vWaarde.substr(0,10) 	//1e 10 tekens
txt=vWaarde.substr(10)		//vanaf pos. 10
if (typeof oDocForm(strVeld).value== "undefined") 	{ return true }
txtOrg=oDocForm(strVeld).value
strType=oDocForm(strVeld).type
if (strType!="select-one" && strType!="undefined")
{
	//alert(strType)
 if (txtOrg != null && txtOrg != "") 	
	{
		if (txtOrg.indexOf(tCode)<0)		//waarde zit er NIET in
		{ 	oDocForm(strVeld).value+=","+vWaarde	// ,gescheiden lijst
			oDocForm(strVeld+"a").value+=";"+txt
		}
		else		//verwijder de waarde
		{
			txtOrg=txtOrg.replace(tCode + ",", "")		//verwijder de tcode uit de lijst
			txtOrg=txtOrg.replace("," + tCode, "")
			txtOrg=txtOrg.replace(tCode, "")	//Nogmaals zonder de komma, dan hebben we alle combinaties gehad
			oDocForm(strVeld).value=txtOrg			
			txtHulp=oDocForm(strVeld+"a").value
		    txtHulp=txtHulp.replace(txt + ";", "")
			txtHulp=txtHulp.replace(txt, "")	//Nogmaals zonder de puntkomma
			oDocForm(strVeld+"a").value=txtHulp
		}
	}
 else		//waarde is leeg altijd eraan toevoegen
	{ 	oDocForm(strVeld).value+=","+vWaarde	// ,gescheiden lijst
		oDocForm(strVeld+"a").value+=";"+txt
	}
}	//type
return true
}
//---------------------------------------------------------------------------------------------------
function cbUpdateCPOrga2(strVeldPA, strTabelID)
{
//cbUpdateCPOrga2("cboKeuzeV1012", "TBL_UDF_DBF")
//Werk het veld bij op het hoofdformulier na het sluiten van het popupvenster
//V1012: Milieu blok zichtbaar ; V1010003/4/5 PLetsel zichtbaar
var strVeldPA2, i, nRegel, j, nR, vRood="#FF8080", lCheckMilieu=false, lCheckLetsel=false
var oRow=opener.document.getElementById(strTabelID).rows
var nL=oRow.length-1
var oDocForm=opener.document.forms[0];
var lChk=false, lInspectie=false
try
{
	lInspectie=true
	//opener.document.getElementById("ARIE1").style.display = "none" 
	//opener.document.getElementById("ARIE2").style.display = "none" 
	//opener.document.getElementById("TBL_S4").style.display= "none"
	opener.document.getElementById("BRZO1").style.display = "none" 
	opener.document.getElementById("BRZO2").style.display = "none" 
	opener.document.getElementById("BRZO3").style.display = "none" 
	opener.document.getElementById("BRZO4").style.display = "none" 
	opener.document.getElementById("BRZO5").style.display = "none" 
	opener.document.getElementById("BRZO6").style.display = "none" 
	for (nR=0; nR<oDocForm("MELDING_RISICOSCORE").length; nR++)
	{ oDocForm("MELDING_RISICOSCORE")[nR].disabled=lChk; 
	  //oDocForm("MELDING_RISICOSCORE")[nR].style.display = "none" 	//werkt niet lekker, alleen de radio's weg
	}
}
catch(err)
	{ lInspectie=false;  }
//strVeldPA="cboKeuzeV1012"   wat als BOOM wijzigd????? dan moet met LABELS aanpassen java
strVeld=document.forms[0]("anaam")
for (nRegel=0; nRegel<nL;nRegel++)
{
	strVeldPA2=oDocForm(strVeldPA+"__"+nRegel)
	for (i = 0; i<strVeld.length; ++ i)
		{
		if (strVeld[i].value.indexOf("V1012")>-1 && strVeld[i].checked  && nRegel==0)				//Milieu paved, alleen eerste regel doen.
			{
			opener.document.getElementById("TBL_UDF_DBF").style.display="block"
			opener.document.getElementById("TBL_UDF_DBF").rows[0].style.display="block";
			opener.document.getElementById("TBL_UDF_DBF").rows[1].style.display="block";
			lCheckMilieu=true		//markeer dec08
			if (oDocForm("UDF_DBF_V6")[nRegel].value.length==0)
				{ oDocForm("UDF_DBF_V6")[nRegel].value=strVeld[i].value.substr(10,40);
				oDocForm("UDF_DBF_V2")[nRegel].style.backgroundColor=vRood;
				}
			if (oDocForm("UDF_DBF_V1")[nRegel].value.length==0 )
				{ oDocForm("UDF_DBF_V1")[nRegel].value="-"; oDocForm("UDF_DBF_V1")[nRegel].style.backgroundColor=vRood; }
			}
		if ( (strVeld[i].value.indexOf("V1010003")>-1 || strVeld[i].value.indexOf("V1010004")>-1 || strVeld[i].value.indexOf("V1010005")>-1) && strVeld[i].checked && nRegel==0)				//alleen eerste regel doen. PLETSEL

			{
				opener.document.getElementById("TBL_PLETSEL").style.display="block"
				opener.document.getElementById("TBL_PLETSEL").rows[0].style.display="block";
				opener.document.getElementById("TBL_PLETSEL").rows[1].style.display="block";
				lCheckLetsel=true
	
			if (oDocForm("PLETSEL_STAMNR")[nRegel].value.length==0)
				{ //oDocForm("PLETSEL_VRIJ")[nRegel].value=strVeld[i].value.substr(10,40);
				oDocForm("PLETSEL_STAMNR")[nRegel].style.backgroundColor=vRood;
				}
			if (oDocForm("PLETSEL_VRIJ")[nRegel].value.indexOf("#")>-1)
				{ //oDocForm("PLETSEL_VRIJ")[nRegel].value=strVeld[i].value.substr(10,40);
				oDocForm("PLETSEL_VRIJ")[nRegel].style.backgroundColor=vRood;
				}
		
			}
		if (strVeld[i].value.indexOf("ARIE")>0 || strVeld[i].value.indexOf("arie")>0 )				//ARIE
			{	lChk=(strVeld[i].checked==false);
				//oDocForm("cboKeuzeS4").disabled=lChk; 
				if (strVeld[i].checked)
					{ alert("LET OP: het is niet de bedoeling nieuwe ARIE's te registeren!")
					 strVeld[i].checked=false; }
				//return false
				//for (nR=0; nR<oDocForm("MELDING_RISICOSCORE").length; nR++)
				//	{ oDocForm("MELDING_RISICOSCORE")[nR].disabled=lChk; 
					  //if (strVeld[i].checked) { opener.document.getElementsByName("MELDING_RISICOSCORE")[nR].style.display = "block" }
				//	}
				//if (strVeld[i].checked) {
					//opener.document.getElementById("TBL_S4").style.display = "block" 
					//strVeld[i].checked=false
					//opener.document.getElementById("ARIE1").style.display = "block" 
					//opener.document.getElementById("ARIE2").style.display = "block" 
					//if (oDocForm("MAATREG_AKTIE").value=="Opvolgen" || oDocForm("MAATREG_AKTIE").value=="")
					//    { oDocForm("MAATREG_AKTIE").value	= "AANBEVOLEN ACTIE:\nCONCRETE ACTIE:\nGEREALISEERDE ACTIE:\n" } 
					//}
			}		//arie
		if (strVeld[i].value.indexOf("BRZO")>0 )				//BRZO
			{				lChk=(strVeld[i].checked==false);
				if (strVeld[i].checked) {
					opener.document.getElementById("BRZO1").style.display = "block" 
					opener.document.getElementById("BRZO2").style.display = "block" 
					opener.document.getElementById("BRZO3").style.display = "block" 
					opener.document.getElementById("BRZO4").style.display = "block" 					
					opener.document.getElementById("BRZO5").style.display = "block" 					
					opener.document.getElementById("BRZO6").style.display = "block" 					
					opener.document.getElementById("diractie").innerHTML = "Actie verwacht door de overheid" 
					if (oDocForm("MAATREG_AKTIE").value=="Opvolgen" || oDocForm("MAATREG_AKTIE").value=="")
					    { oDocForm("MAATREG_AKTIE").value	= "Verbetermaatregel of voorgenomen actie" } 
					}
			}	//BRZO
			lChk=false;
			
		//vervallen
		if (false)
		{
			for (j = 0; j<strVeldPA2.length; ++ j)
				{
				if (strVeld[i].value==strVeldPA2[j].value)		//alleen indien de waar gelijk is
					{ //strVeldPA2[j].checked=( strVeld[i].checked );
					  if (strVeld[i].checked )
						{   strVeldPA2[j].checked=true		//altijd aanzetten
							strVeld[i].checked=false	//zet weer uit op popup formulier
							lChk=true; 
							//Wis item uit de bovenste lijst, want ´t moet naar onderen
							if (oDocForm("UDF_DBF_V1")[nRegel].value.length==0)
								{ oDocForm("UDF_DBF_V1")[nRegel].value="-" }
						}
					}
				}	// 		for (j = 0; j<strVeldPA2.length; ++ j)
		}
		//vervallen hierboven
		}	//(i = 0; i<strVeld.length; ++ i)
} //(nRegel=0; nRegel<nL;nRegel++)
try
{
	oDocForm("MELDING_CHECKMILIEU")[0].checked=lCheckMilieu		//niet in SP-versie
	oDocForm("MELDING_CHECKPLETSEL")[0].checked=lCheckLetsel
	
}
catch (err)	{}

 if (nL>1 && lChk) {alert("Let op: controleer/invoer van deze items bij `Milieu´")}

//}
//catch(err)
	//{
	//opener.window.status="Debugger javascript or labeltable error (non fatal)"
	//}
return true
}
//---------------------------------------------------------------------------------------------------
function cbOrganonHSESIS(cboLijst)
//Koppeling HSE-SIS organon
{
var oDocForm, i, iSelIndex, strK, strVA, vS="block"
var aOptieV
try
{
oDocForm=document.forms[0]
iSelIndex=cboLijst.selectedIndex
strVA=cboLijst.options[iSelIndex].text
aOptieV=strVA.split("|")
oDocForm.MELDING_BS_ID.value=cboLijst.value
//oDocForm.MELDING_CAS_NO.value=aOptieV(1)
oDocForm.MELDING_CAS_NO.value=aOptieV[2]
oDocForm.MELDING_NAME_10.value=aOptieV[1]
oDocForm.cboKeuzeV1[0].checked=false		//wis en zet de markering
oDocForm.cboKeuzeV1[1].checked=false
oDocForm.cboKeuzeV1[2].checked=false
strVA=strVA.toUpperCase()
//FEB10 - vervang R45 door H350 - vervang R49 door H350i - vervang R46 door H340 - vervang R60 door H360F - vervang R61 door H360D
//- vervang R62 door H361F - vervang R63 door H361D - vervang R64 door H362
//- Voeg toe in selectie criteria: H360FD, H360FD, H360DF, H361FD
 //- Remark: H360FD, H360FD, H360DF, H361FD is Reprotoxic
if (strVA.indexOf("R60")>-1  || strVA.indexOf("H360F")>-1 || strVA.indexOf("R61")>-1  || strVA.indexOf("H360D")>-1 || strVA.indexOf("R62")>-1 || strVA.indexOf("H361F")>-1 || strVA.indexOf("H361D")>-1 || strVA.indexOf("R63")>-1 || strVA.indexOf("H362")>-1  || strVA.indexOf("R64")>-1)
	{ //reprotoxisch
	oDocForm.cboKeuzeV1[2].checked=true; vS="none"; oDocForm.MELDING_CONSEQUENTIE.value="nvt"; oDocForm.MELDING_INFO1.value="nvt"; oDocForm.MELDING_TEVERVANGEN[0].checked=true;
	cbShowHideName("AantalP", "block")
	cbShowHideName("CBCONTACTID2", "none")
	cbShowHideName("CBCONTACTID", "none")
	}		
if (strVA.indexOf("R45")>-1 || strVA.indexOf("H350")>-1 || strVA.indexOf("H350I")>-1 || strVA.indexOf("R49")>-1 )
	{ oDocForm.cboKeuzeV1[0].checked=true; vS="block";cbShowHideName("AantalP", "none"); cbShowHideName("CBCONTACTID2", "block"); cbShowHideName("CBCONTACTID", "block") }						//V100880100
if (strVA.indexOf("R46")>-1 || strVA.indexOf("H340")>-1)
	{ oDocForm.cboKeuzeV1[1].checked=true; vS="block"; cbShowHideName("AantalP", "none"); cbShowHideName("CBCONTACTID2", "block"); cbShowHideName("CBCONTACTID", "block")}	
cbShowHideName("MOTI", vS)
cbShowHideName("TBL_UDF_DBF", vS)
}
catch (err)	{}
//document.getElementById("MOTI").style.display=vS
}
//---------------------------------------------------------------------------------------------------
function cbOrganonHSESISZoek(oVeld)
//Koppeling HSE-SIS organon: zoek stof of Casnr
{

return true		//blokkeer, doen we niet meer op deze manier
var strW=oVeld.value.toUpperCase()
var oDocForm, i, iSelIndex, strK, strVA, cboLijst, nL, j
var aOptieV, cboHulp
oVeld.value=strW
oDocForm=document.forms[0]
nL=oDocForm.MELDING_INFO3.length
//nL=cboLijst.length
if (cboGCOPY.length<1) 
	{		
	//cboGCOPY=oDocForm.MELDING_INFO3		//fout: refence
	for (i=0;i<nL;i++)
	 {
		cboGCOPY[i]=new Array (oDocForm.MELDING_INFO3.options[i].value, oDocForm.MELDING_INFO3.options[i].text)		//oorspronkelijke inhoud
			 window.status = i + "/" + nL
	 }
	}
else
	{ nL=cboGCOPY.length	}
//cboLijst=oDocForm.MELDING_INFO3	
//cboLijst.length=0
j=0
oDocForm.MELDING_INFO3.length=1
for (i=1;i<nL;i++)	//sla item 1 over (0: kies etc.)
{
	strK=cboGCOPY[i][1].toUpperCase()
	if (strK.indexOf(strW)>-1 || strW=="*")
	 {
		oDocForm.MELDING_INFO3[j++]=new Option(cboGCOPY[i][1], cboGCOPY[i][0]);
		oDocForm.MELDING_INFO3.length=j		//cboLijst.length+1
	 }
	 window.status = i + "/" + nL
} 
oDocForm.MELDING_INFO3.size=1
if (j>0)
	{
		oDocForm.MELDING_INFO3.size=Math.min(j,20)
		oDocForm.MELDING_INFO3.selectedIndex=0
		if (j==1) { cbOrganonHSESIS(oDocForm.MELDING_INFO3) }
	}
else		//herstel
	{
	for (i=0;i<nL;i++)
		{
		oDocForm.MELDING_INFO3[j++]=new Option(cboGCOPY[i][1], cboGCOPY[i][0]);
		oDocForm.MELDING_INFO3.length=j		//cboLijst.length+1
		 window.status = i + "-/-" + nL
		} 

	}
}
//---------------------------------------------------------------------------------------------------
function cbNwSublijst(cbolijst, strSub, nPos) 
{
// combolijst opnieuw vullen: BAM
// strSub geeft de subcode waaruit de variabele moet worden gegenereerd: bijv. cboKeuzeV2
var tCode, tNr, i
var strName, strName2, strBericht
var intLengte, int2Lengte //= cbolijst.length;
var arrCode=new Array()
var arrTXT=new Array()
var j=0
var oDocForm=document.forms[0]
//var strSub="V2", nPos=7
var ocboSub=oDocForm("cboKeuze"+strSub)	//bijv. cboKeuzeV2
var ocboS2, ocboS2k, strTcode, nMax, nRij, ocboL1k, ocboL1
if (cbolijst.disabled) { return }
tCode=cbolijst.value		//V200001000	
nPos=nPos-2
tNr=tCode.substr(2, nPos);		//eerste 7 pos bepalend: xx00001
//i=cbolijst.selectedIndex
//alert(cbolijst[i].value.substr(0,7))
//vanaf begin doorlopen
intLengte=ocboSub.length
//alert("code: "+tCode+"--"+intLengte+"--"+tNr)
if (1+1==4) 		//forceer einde
{
 oDocForm("PLETSEL_AFDELING")[0].length=0
 j=1
 //MEI08: BLOKKEER FUNCTIE
 for (i=0;i<intLengte;i++)
	{
		if (tNr==ocboSub[i].value.substr(2, nPos) )
			{   if (j==1) { if (ocboSub[i].value.substr(9)=="0") {ocboSub.selectedIndex=i;} else { ocboSub.selectedIndex=i+1;} }
 				j++
			    // i=intLengte+1	//forceer einde
				oDocForm("PLETSEL_AFDELING")[0].length=j-2
				oDocForm("PLETSEL_AFDELING")[0][j-2]=new Option(ocboSub[i].text, ocboSub[i].text)
				//alert(oDocForm("PLETSEL_AFDELING")[0][i].text)													  
			}
	}
 ocboSub.size=j-2
}
//Nieuw
 j=1
 //MEI08: BLOKKEER FUNCTIE
 for (i=0;i<intLengte;i++)
	{
		if (tNr==ocboSub[i].value.substr(2, nPos) )
			{   if (j==1) { if (ocboSub[i].value.substr(9)=="0") {ocboSub.selectedIndex=i;} else { ocboSub.selectedIndex=i+1;} }
 				j++
			}
	}
if (j>3) { ocboSub.size=j-2 }
//alert(ocboSub.selectedIndex	)
oDocForm("PLETSEL_AFDELING")[0].selectedIndex=ocboSub.selectedIndex			//defaultwaarde
//ocboSub.focus();
//verder met S2
nMax=oDocForm("PLETSEL_VOLGNR").length
strTcode=tCode
ocboS2k =oDocForm("cboKeuzeS2__1")		//werkzheden
try
{
ocboS2	=oDocForm("cboKeuzeS2__0")
intLengte=ocboS2.length-1
}
catch(err)
{
	intLengte=0
}
try
{
 ocboL1k =oDocForm("cboKeuzeL1__1")	//functie beroep
 ocboL1	=oDocForm("cboKeuzeL1__0")
 int2Lengte=ocboL1.length-1
}
catch(err) {}
//ocboS2k=oDocForm("cboKeuzeS2__0")	
//ocboS2k.length=0
//oDocForm("cboKeuzeS2__0").length=0
j=1
//alert((ocboS2k[intLengte].value.substr(0,5)=="*NEW*"))// TRUE
//cboS2 bestaan niet voor een "melder"
try
{
	for (i=0;i<=intLengte;i++)		//<= anders wordt NEW niet meegenomen
		{
		if ( i==0 || ocboS2k[i].value.substr(2,5)==strTcode.substr(2,5) || ocboS2k[i].value.substr(2,5)=="00000" || ocboS2k[i].value.substr(0,5)=="*NEW*")
			{
			j++
			ocboS2.length=j-2
			ocboS2[j-2]=new Option(ocboS2k[i].text, ocboS2k[i].value)
			for (k=2;k<nMax;k++)
				{
				oDocForm("cboKeuzeS2__"+k).length=j-2
				oDocForm("cboKeuzeS2__"+k)[j-2]=new Option(ocboS2k[i].text, ocboS2k[i].value)
				}
			}
		}
	if (intLengte>0)
	{
		ocboS2k=oDocForm("cboKeuzeS2__0")	
		intLengte=oDocForm("cboKeuzeS2__0").length
		oDocForm("cboKeuzeS2__1").length=intLengte
		for (i=0;i<intLengte;i++) {oDocForm("cboKeuzeS2__1")[i]=new Option(ocboS2k[i].text, ocboS2k[i].value) }
		intLengte=ocboS2.length-1
	}
}
catch(err)
{
	//cboKeuzeS2 bestaat niet voor melderA
}
//oDocForm("cboKeuzeS2__0").length=0
//idem voor L1
try
{
j=1
for (i=0;i<=int2Lengte;i++)
	{
	if ( i==0 || ocboL1k[i].value.substr(2,5)==strTcode.substr(2,5) || ocboL1k[i].value.substr(2,5)=="00000" || ocboL1k[i].value.substr(0,5)=="*NEW*")
		{
		j++
		ocboL1.length=j-2
		ocboL1[j-2]=new Option(ocboL1k[i].text, ocboL1k[i].value)
		for (k=2;k<nMax;k++)
			{
			oDocForm("cboKeuzeL1__"+k).length=j-2
			oDocForm("cboKeuzeL1__"+k)[j-2]=new Option(ocboL1k[i].text, ocboL1k[i].value)
			}
		}		
	}
ocboL1k=oDocForm("cboKeuzeL1__0")	
int2Lengte=oDocForm("cboKeuzeL1__0").length
oDocForm("cboKeuzeL1__1").length=int2Lengte
for (i=0;i<int2Lengte;i++) {oDocForm("cboKeuzeL1__1")[i]=new Option(ocboL1k[i].text, ocboL1k[i].value) }
}
catch(err) {  } 		//feitelijk is er per melding voor de BAM altijd 1 letsel record
}
//---------------------------------------------------------------------------------------------------
function cbNwSubBAM(t, strSub, strTcode) 
{
//, strSub, nPos, strTcode: trefwoordcode wat "Eigen personeel" aanduid
var oDocForm=document.forms[0], i, nL, lNoStam, iEigen
//var ocboSub=oDocForm("cboKeuze"+strSub)	//bijv. cboKeuzeV2
var nRij=t.parentNode.parentNode.rowIndex-1
var aOptieV=strTcode.split(";")	

try
{
	oDocForm("PLETSEL_AFDELING").disabled=true;
	oDocForm("PLETSEL_AFDELING").style.display = "none"
}
catch (err)
	{
	nRij=0
	oDocForm("PLETSEL_AFDELING")[nRij].disabled=true;
	oDocForm("PLETSEL_AFDELING")[nRij].style.display = "none"
	}
try
{
	oDocForm("PLETSEL_STAMNR")[nRij].style.display = "none"
	oDocForm("nxStamNr")[nRij].style.display = "none"
	lNoStam=false
}
catch(err)
{
	oDocForm("PLETSEL_STAMNR").style.display = "none"
	oDocForm("nxStamNr").style.display = "none"
	lNoStam=true
}

oDocForm("PLETSEL_RELATIENAAM")[nRij].disabled=false;
oDocForm("PLETSEL_RELATIENAAM")[nRij].style.display = "block"
oDocForm("nxNaamWerkRel")[nRij].style.display = "block"
iEigen=0			//15 mei 2007, meerdere 'eigen mensen'
for (i=0;i<aOptieV.length;i++)
{
	if ( t.value.indexOf(aOptieV[i])>=0 )		{ iEigen++ } 
		
}

if ( iEigen>0  )		//S1..50 default, staat voor Eigen personeel
	{ 				//[nRij] weggehaal MRT1010
	oDocForm("PLETSEL_AFDELING")[nRij].disabled=false;
	oDocForm("PLETSEL_AFDELING")[nRij].style.display = "block"
	if (lNoStam==false)
	{ oDocForm("PLETSEL_STAMNR")[nRij].style.display = "block"
	  oDocForm("nxStamNr")[nRij].style.display = "block" }

	oDocForm("PLETSEL_RELATIENAAM")[nRij].value="";
	oDocForm("PLETSEL_RELATIENAAM")[nRij].style.display = "none"
	oDocForm("PLETSEL_RELATIENAAM")[nRij].disabled=true;
	oDocForm("nxNaamWerkRel")[nRij].style.display = "none"


	nL=oDocForm("PLETSEL_AFDELING")[0].length

	if (nRij>0)
		{
			oDocForm("PLETSEL_AFDELING").length=0
			for (i=0; i<nL; i++)
		 	  { 
			  oDocForm("PLETSEL_AFDELING").length=i
			  oDocForm("PLETSEL_AFDELING")[i]=new Option(oDocForm("PLETSEL_AFDELING")[0][i].text)
			  }
		}
//copieer de inhoud over van V2

	//oDocForm("PLETSEL_AFDELING")[1].length=nL
	//for (i=0; i<nL; i++)
	//	{ 
	//	 oDocForm("PLETSEL_AFDELING")[i]=new Option(ocboSub[i].text)
	//	 alert(ocboSub[i].text)
	//	}
	}
else
	{	oDocForm("PLETSEL_AFDELING")[nRij].value="";
		oDocForm("PLETSEL_RELATIENAAM")[nRij].focus()
		}
}
//---------------------------------------------------------------------------------------------------
function cbBAMPL(strTcode)
//show/hide elementen uit Pletsel tbv BAM maatwerk. Activated bij OnClick op tabPletsel
{
//strTcode: code voor eigenpersoneel S!..50
var nS, nS2="block", oDocForm=document.forms[0], nRij=0			///verander indien meerdere letsels ingevoerd kunnen worden
var lNoStam, iEigen, j
var aOptieV=strTcode.split(";")	
var oRow=document.getElementById("TBL_PLETSEL").rows
nS=document.getElementById("TBL_PLETSEL").style.display
if (nS=="block") 
	{ nS="none" }
else 
	{ nS="block"}
// cbShowHideTR("PLETSEL",0,nS);

document.getElementById("TBL_PLETSEL").style.display=nS		//juni07
oRow[1].style.display=nS		//huidige regel wi
nS="none";
if (oDocForm.PLETSEL_OVERLEDEN__0[0].checked) 	{nS="block"; nS2="none"} ;
document.getElementById("OLEDEN").style.display=nS;
document.getElementById("VVERZUIM").style.display=nS2;
nS="none";
if (oDocForm.PLETSEL_ZIEKENHUIS__0[0].checked) 	{nS="block"};		//0:JA
document.getElementById("ZHUIS").style.display=nS
//alert( oDoc.cboKeuzeS1__0[0].checked)
oDocForm("PLETSEL_AFDELING")[nRij].disabled=true;		//Item is toch onzichtbaar[0]
oDocForm("PLETSEL_AFDELING")[nRij].style.display = "none"
try			//kijk of het stamnr bestaat. Zo niet dan boolean zetten
 {
	oDocForm("PLETSEL_STAMNR")[nRij].style.display = "none"		//[nRij] mrt10 weggehaald
	oDocForm("nxStamNr")[nRij].style.display = "none"
	lNoStam=false
}
	catch(err)
 {
	lNoStam=true
 }
try			//ivm met toegansnivo's afvangen
 {
	oDocForm("PLETSEL_RELATIENAAM")[nRij].disabled=false;		//[nRij]
	oDocForm("PLETSEL_RELATIENAAM")[nRij].style.display = "block"
	oDocForm("nxNaamWerkRel")[nRij].style.display = "block"
 }
catch(err)
 { }		//try
//alert(38338)
try
{
	iEigen=0			//15 mei 2007, meerdere 'eigen mensen'
	for (j=0;j<oDocForm.cboKeuzeS1__0.length;j++)
	{
		for (i=0;i<aOptieV.length;i++)
		{
			//if ( oDocForm.cboKeuzeS1__0.value.indexOf(aOptieV[i])>=0 )		{ iEigen++ } 		//oDocForm.cboKeuzeS1__0.[nRij]
			if ( oDocForm.cboKeuzeS1__0[j].checked && oDocForm.cboKeuzeS1__0[j].value.indexOf(aOptieV[i])>=0 )		{ iEigen++ } 		//oDocForm.cboKeuzeS1__0.[nRij]
		}
	}

//if ((oDocForm.cboKeuzeS1__0[0].value.indexOf(strTcode)>-1 && oDocForm.cboKeuzeS1__0[0].checked) || oDocForm("PLETSEL_AFDELING")[nRij].value.length>0 )
	if (iEigen>0 || oDocForm("PLETSEL_AFDELING")[nRij].value.length>0 )	
	{ 
		oDocForm("PLETSEL_AFDELING")[nRij].disabled=false;
		oDocForm("PLETSEL_AFDELING")[nRij].style.display = "block"
		if (lNoStam==false)
		{ oDocForm("PLETSEL_STAMNR")[nRij].style.display = "block"
		  oDocForm("nxStamNr")[nRij].style.display = "block" }
	
		//oDocForm("PLETSEL_RELATIENAAM").value="niet invyullen";
		oDocForm("PLETSEL_RELATIENAAM")[nRij].style.display = "none"
		oDocForm("PLETSEL_RELATIENAAM")[nRij].disabled=true;
		oDocForm("nxNaamWerkRel")[nRij].style.display = "none"
	
	
		nL=oDocForm("PLETSEL_AFDELING").length
	
		if (nRij>0)			// nvt--???
			{
				oDocForm("PLETSEL_AFDELING").length=0
				for (i=0; i<nL; i++)
				  { 
				  oDocForm("PLETSEL_AFDELING").length=i
				  //oDocForm("PLETSEL_AFDELING")[nRij][i]=new Option(oDocForm("PLETSEL_AFDELING")[nRij][i].text)
				  oDocForm("PLETSEL_AFDELING")[i]=new Option(oDocForm("PLETSEL_AFDELING")[i].text)
					}
			}
	}
	else			///nvt
		{	//oDocForm("PLETSEL_AFDELING").value="";
			//oDocForm("PLETSEL_RELATIENAAM").focus()
			}
					 //value.indexOf(strTcode)
 }		//try
catch(err)
	{ window.status="Limited access / beperkt toegangsniveau "+err	}
		
}
//---------------------------------------------------------------------------------------------------
function cbVulS2PLBam(t, strTcode)
//Vul combobox S2 (soort werk) met bijbehorende codes ahv strTcode
{
var oDocForm=document.forms[0], i, nL
//var ocboSub=oDocForm("cboKeuze"+strSub)	//bijv. cboKeuzeV2
//var nRij=t.parentNode.parentNode.rowIndex-1
var intLengte=t.length-1, oCBO
if (strTcode.substr(2,5)=="00000") { return true }
oCBO=t	//kopie
//oCBO.length=0
for (i=0;i<intLengte;i++)
	{
		alert( t.options[i].value.substr(0,5))
		if ( t.options[i].value.substr(2,5)!=strTcode.substr(2,5) && t.options[i].value.substr(2,5)!="00000" && t.options[i].value.substr(0,5)!="*NEW*")
			{ //t.options[i].text="x" 
			}		//wis de waarde
		else
		{ 
			oCBO.length=i
			oCBO[i]=new Option(t.options[i].value, t.options[i].text);
		}
	}
t=oCBO
//		cboOrg.options[i].text=cboLijst.options[i].text
//		cboOrg.options[i].value=cboLijst.options[i].value

}
//---------------------------------------------------------------------------------------------------
function cbKopyBezetVeld(iaTr, iMnd, nSubNiv)
{
//nov09, subnivo's erbij	
var i, nLaatsteD, nLaatsteU, nLaatsteB, nV2, strItem, nKleur, z, strStatus, nTotaal
var oDocForm=document.forms[0]
if (iMnd==1) {return}
document.body.style.cursor="wait"
strStatus="."		//strNChar
nTotaal=iaTr*nSubNiv
for (i=0;i<=iaTr;i++)	
	{
	strStatus+=strStatus
		strItem=(iMnd-1).toString()+"_"+i.toString()
		nLaatsteD=    oDocForm("BEZET2_DAGEN"+strItem).value
		nLaatsteU=     oDocForm("BEZET2_UREN"+strItem).value
		nLaatsteB=oDocForm("BEZET2_BEZETTING"+strItem).value
		strItem=iMnd.toString()+"_"+i.toString()
		//strStatus+="*"
		
		window.status=strStatus+"--Calculate "+i			//+"=%="+Math.round(((i*nV2)/nTotaal*100)).toString()
		if (oDocForm("BEZET2_BEZETTING"+strItem).value==0)	
			{	oDocForm("BEZET2_BEZETTING"+strItem).value=nLaatsteB }
		if (oDocForm("BEZET2_DAGEN"+strItem).value==0)
			{	oDocForm("BEZET2_DAGEN"+strItem).value=nLaatsteD }
		if (oDocForm("BEZET2_UREN"+strItem).value==0 )
			{	oDocForm("BEZET2_UREN"+strItem).value=nLaatsteU }
	}	//for

if (1+1==4)	//blokkeer
{
for (i=0;i<=iaTr;i++)	
	{
	strStatus+=strStatus
	for (nV2=0;nV2<=nSubNiv;nV2++)	
		{
		strItem=(iMnd-1).toString()+"_"+i.toString()+nV2.toString()
		nLaatsteD=    oDocForm("BEZET2_DAGEN"+strItem).value
		nLaatsteU=     oDocForm("BEZET2_UREN"+strItem).value
		nLaatsteB=oDocForm("BEZET2_BEZETTING"+strItem).value
		strItem=iMnd.toString()+"_"+i.toString()+nV2.toString()
		//strStatus+="*"
		
		window.status=strStatus+"--Calculate "+i+"x"+nV2			//+"=%="+Math.round(((i*nV2)/nTotaal*100)).toString()
		if (oDocForm("BEZET2_BEZETTING"+strItem).value==0)	
			{	oDocForm("BEZET2_BEZETTING"+strItem).value=nLaatsteB }
		if (oDocForm("BEZET2_DAGEN"+strItem).value==0)
			{	oDocForm("BEZET2_DAGEN"+strItem).value=nLaatsteD }
		if (oDocForm("BEZET2_UREN"+strItem).value==0 )
			{	oDocForm("BEZET2_UREN"+strItem).value=nLaatsteU }
		}	//For v2
	}	//for
} //blok
window.status=""	
document.body.style.cursor="auto"
}
//---------------------------------------------------------------------------------------------------
// Script featured on: http://javascriptkit.com/script/script2/timestamp.shtml
function show_calendar(str_target, str_datetime, daFormat, t) {
// str_target: veldnaam
// str_datetime: veldwaarde
//UDF_DBF --- MAATREG --- PLETSEL
//t.parentNode.parentNode.rowIndex, str_targetYear
var nPos, n2000, nJaar, nJaar2, nRijC, str_targetKopie=str_target
var oDocForm=document.forms[0];
str_targetYear=str_target.replace(".DA_",".")+".value"		//jaartal exact, 2 of 4 cijfers!
//NIET VOOR DE IND
if ( str_target.indexOf("MAATREG")>-1 && oDocForm.name.toUpperCase()=="FORMIMS") 	{ return } //Blokkeer vanuit hoofdscherm, invoer vanuit Voortgang popup

if (t!=null && oDocForm.name!="FormcbPopUp")
{
 if (str_target.indexOf("PLETSEL")>-1 || str_target.indexOf("MAATREG")>-1 || str_target.indexOf("UDF_DBF")>-1 )
 {
	nPos=t.parentNode.parentNode.rowIndex
	if ( str_target.indexOf("MAATREG")>-1 ) 
	{ 	nRijC=2
		if (oDocForm.name=="FormReAct") //alleen voor reactformulier
			{ 
			if (parseInt(oDocForm.nRijMA.value)>3) 	//Zie ook content2.asp cbActieFormR
				{
				if (parseInt(oDocForm.NRIJ_MAATREG.value)>1 ) {str_target+="["+(nPos-2)+"]"} 
				}
			}
		else {		if (parseInt(oDocForm.NRIJ_MAATREG.value)>2) {str_target+="["+(nPos-1)+"]"} }		//acties op ims formulier
	}	//uitzondering ivm onbeperkt aantal items
	else
	{ 	
		if (nPos>0)	
			{str_target+="["+(nPos-1)+"]"}
		else
		{ 	nPos=t.parentNode.parentNode.parentNode.rowIndex	//<div kan dit veroorzaken
			if (nPos>0)	{str_target+="["+(nPos-1)+"]"}
		}
		if (nPos<2)
		{
			try
			{ var dummy=window.opener(str_target).value	}
			catch (err)
			{ str_target=str_targetKopie }		//herstel bij geen regels
		}
	}
 }
}
	var n_weekstart = 1; // day week starts from (normally 0 or 1)
	//transform to date-format
//	var dt_datetime = 	(str_datetime == null || str_datetime =="" ?  new Date() : str2dt(str_datetime, daFormat));
	var dt_datetime 
		if (str_datetime == null || str_datetime =="" || str_datetime == "undefined" )
		{ dt_datetime=new Date()  }
	else 	
		{ dt_datetime=str2dt(str_datetime, daFormat) }
	var dt_prev_month = new Date(dt_datetime);
	dt_prev_month.setMonth(dt_datetime.getMonth()-1);
	var dt_next_month = new Date(dt_datetime);
	dt_next_month.setMonth(dt_datetime.getMonth()+1);

	var dt_prev_year = new Date(dt_datetime);
	n2000=0		//2 cijferig ingevoerd
	//nJaar=dt_datetime.getFullYear()		//ipv getYear die 2 digits teruggeeft 1900-1999 (daarbuiten 4 digits()
	nJaar=dt_datetime.getYear()		//getYear die 2 digits teruggeeft 1900-1999 (daarbuiten 4 digits()
	try {	nJaar2=eval(str_targetYear) }		//detecteer eeuw, maar zorg ook dat het bladeren goed gaat.
	catch (err) { nJaar2=nJaar }
																									 
	if (nJaar<100 && nJaar2<2000) { nJaar+=1900 }
	// check als we aan het bladeren zijn dan niet
	if (nJaar<30 && nJaar2>1999) {dt_datetime.setYear(nJaar+2000); n2000=2000	}	
	dt_prev_year.setYear(nJaar-1+n2000);
	var dt_next_year = new Date(dt_datetime);
	if (dt_datetime.getYear()+1==100)
		{ 
				dt_next_year.setYear(2000) 
		}
	else	
		{ dt_next_year.setYear(nJaar+1+n2000)}
		
	var dt_firstday = new Date(dt_datetime);
	dt_firstday.setDate(1);
	dt_firstday.setDate(1-(7+dt_firstday.getDay()-n_weekstart)%7);
	var dt_lastday = new Date(dt_next_month);
	dt_lastday.setDate(0);
	var strKop="Kalender", strBericht="Invoer niet mogelijk"
	if (cojsTAAL=="gb") {strKop="Calendar"; strBericht="Input disabled"}	
	// html generation (feel free to tune it for your particular application)
	// print calendar header Calendar
	//if ( oDocForm(str_target).substr(18).disabled ) { strKop+="!"+strBericht }
	var str_buffer = new String (
		"<html>\n"+
		"<head>\n"+
		"	<title>"+ strKop+"</title>\n"+
		"</head>\n"+
//		"<body bgcolor=\"White\" onBlur=\"window.close()\">\n"+
		"<body onBlur='self.focus()' bgcolor=\"White\">\n"+

		"<table class=\"clsOTable\" cellspacing=\"0\" border=\"0\" width=\"100%\">\n"+
		"<tr><td bgcolor=\"#4682B4\">\n"+
		"<table cellspacing=\"1\" cellpadding=\"3\" border=\"0\" width=\"100%\">\n"+
		"<tr>\n	<td bgcolor=\"#4682B4\"><a href=\"javascript:window.opener.show_calendar('"+
//		str_target+"', '"+ dt2dtstr(dt_prev_month)+"'+document.cal.time.value);\">"+
		str_target+"', '"+ dt2dtstr(dt_prev_month, daFormat)+"', '"+daFormat+"', null);\">"+
		"<img src=\"images/prev.gif\" width=\"16\" height=\"16\" border=\"0\""+
		" alt=\"previous month\"></a>"+

		"<a href=\"javascript:window.opener.show_calendar('"+
//		str_target+"', '"+ dt2dtstr(dt_prev_month)+"'+document.cal.time.value);\">"+
		str_target+"', '"+ dt2dtstr(dt_prev_year, daFormat)+"', '"+daFormat+"', null);\">"+
		"<img src=\"images/prevy.gif\" width=\"16\" height=\"16\" border=\"0\""+
		" alt=\"previous year\"></a></td>\n"+

		"	<td align=\"center\" bgcolor=\"#4682B4\" colspan=\"5\">"+
		"<font color=\"white\" face=\"tahoma, verdana\" size=\"2\">"
		//display month and year
		+cbjsMaandNaam( dt_datetime.getMonth()+1 )+" "+dt_datetime.getFullYear()+"</font></td>\n"+
		"	<td bgcolor=\"#4682B4\" align=\"right\"><a href=\"javascript:window.opener.show_calendar('"
//		+str_target+"', '"+dt2dtstr(dt_next_month)+"'+document.cal.time.value);\"'>"+
		+str_target+"', '"+dt2dtstr(dt_next_year, daFormat)+"', '"+daFormat+"', null);\"'>"+
		"<img src='images/nexty.gif' width='16' height='16' border='0'"+
		" alt=\"next year\"></a>"+
		"<a href=\"javascript:window.opener.show_calendar('"
//		+str_target+"', '"+dt2dtstr(dt_next_month)+"'+document.cal.time.value);\"'>"+
		+str_target+"', '"+dt2dtstr(dt_next_month, daFormat)+"', '"+daFormat+"', null);\"'>"+
		"<img src='images/next.gif' width='16' height='16' border='0'"+
		" alt=\"next month\"></a></td>\n</tr>\n"		
	);

	var dt_current_day = new Date(dt_firstday);
	// print weekdays titles
	str_buffer += "<tr>\n";
	for (var n=0; n<7; n++)
		str_buffer += "	<td align=\"center\" bgcolor=\"#87CEFA\">"+
		"<font color=\"white\" face=\"tahoma, verdana\" size=\"2\">"+
		cbjsDagNaam( (n_weekstart+n)%7 )+"</font></td>\n";
	// print calendar table
	str_buffer += "</tr>\n";
	while (dt_current_day.getMonth() == dt_datetime.getMonth() ||
		dt_current_day.getMonth() == dt_firstday.getMonth()) {
		// print row heder
		str_buffer += "<tr>\n";
		for (var n_current_wday=0; n_current_wday<7; n_current_wday++) {
				if (dt_current_day.getDate() == dt_datetime.getDate() &&
					dt_current_day.getMonth() == dt_datetime.getMonth())
					// print current date
					str_buffer += "	<td bgcolor=\"#FFB6C1\" align=\"right\">";
				else if (dt_current_day.getDay() == 0 || dt_current_day.getDay() == 6)
					// weekend days
					str_buffer += "	<td bgcolor=\"#DBEAF5\" align=\"right\">";
				else
					// print working days of current month
					str_buffer += "	<td bgcolor=\"white\" align=\"right\">";

				if (dt_current_day.getMonth() == dt_datetime.getMonth())
					// print days of current month
//					str_buffer += "<a href=\"javascript:window.opener."+str_target+
//					".value='"+dt2dtstr(dt_current_day, daFormat)+"';window.opener."+str_target+".focus(); window.close();\">"+
					str_buffer += "<a href=\"javascript: if (window.opener."+str_target+".disabled==false) {window.opener."+str_target+
					".value='"+dt2dtstr(dt_current_day, daFormat)+"';window.opener."+str_target+".focus();} else {alert('"+strBericht+"')}; window.close();\">"+
					"<font color=\"black\" face=\"tahoma, verdana\" size=\"2\">";
				else 
					// print days of other months
					//str_buffer += "<a href=\"javascript:window.opener."+str_target+
					//".value='"+dt2dtstr(dt_current_day, daFormat)+"';window.opener."+str_target+".focus(); window.close();\">"+
				str_buffer += "<a href=\"javascript: if (window.opener."+str_target+".disabled==false) {window.opener."+str_target+
				".value='"+dt2dtstr(dt_current_day, daFormat)+"';window.opener."+str_target+".focus();} else {alert('"+strBericht+"')};  window.close();\">"+
				"<font color=\"gray\" face=\"tahoma, verdana\" size=\"2\">";
				str_buffer += dt_current_day.getDate()+"</font></a></td>\n";
				dt_current_day.setDate(dt_current_day.getDate()+1);
		}
		// print row footer
		str_buffer += "</tr>\n";
	}
	// print calendar footer

str_buffer +=
		"<form name=\"cal\">\n<tr><td colspan=\"7\" bgcolor=\"#87CEFA\">"+
		"<font color=\"White\" face=\"tahoma, verdana\" size=\"2\">"+
		"<input type=\"hidden\" name=\"time\" value=\""+dt2tmstr(dt_datetime)+
		"\" size=\"8\" maxlength=\"8\"></font></td></tr>\n</form>\n" +
		"</table>\n" +
		"</tr>\n</td>\n</table>\n" +
		"</body>\n" +
		"</html>\n";

	var vWinCal = window.open("", strKop, 
		"width=200,height=250,status=no,resizable=yes,top=200,left=200,menubar=no");
	vWinCal.opener = self;
	var calc_doc = vWinCal.document;
	calc_doc.write (str_buffer);
	calc_doc.close();
}
//---------------------------------------------------------------------------------------------------
// datetime parsing and formatting routimes. modify them if you wish other datetime format
//Regular Expression Tester. RegExp
function str2dt (dtStr, daFormat) {
var vandaag= new Date()
var dDate, pos1, pos2
//vandaag=str_datetime
if (dtStr.length<6) { return vandaag }
if (daFormat == null || daFormat == "") { daFormat="dd-mm-yyyy"}
var dtCh=cbjsDateSep(daFormat)
//dtCh=cbjsDateSep(daFormat)
pos1=dtStr.indexOf(dtCh)				// eerste dd/
pos2=dtStr.indexOf(dtCh,pos1+1)			// tweede dd/mm/
if (daFormat=="dd"+dtCh+"mm"+dtCh+"yyyy") 
	{
	var strDay  =dtStr.substring(0,pos1)
	var strMonth=dtStr.substring(pos1+1,pos2)
	var strYear =dtStr.substring(pos2+1)
	}
if (daFormat=="yyyy"+dtCh+"mm"+dtCh+"dd") 
	{
	var strDay  =dtStr.substring(pos2+1)
	var strMonth=dtStr.substring(pos1+1,pos2)
	var strYear =dtStr.substring(0,pos1)
	}
if (daFormat=="mm"+dtCh+"dd"+dtCh+"yyyy") 
	{
	var strDay  =dtStr.substring(pos1+1,pos2)
	var strMonth=dtStr.substring(0,pos1)
	var strYear =dtStr.substring(pos2+1)
	}
dDate=new Date(strYear, strMonth-1, strDay, 12,12,12)
return dDate
}
//---------------------------------------------------------------------------------------------------
function Astr2dt (str_datetime) {
var re_date = /^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/;
if (!re_date.exec(str_datetime))		//regular expression
		return alert("Invalid Datetime format: "+ str_datetime);
	return (new Date (RegExp.$3, RegExp.$2-1, RegExp.$1, RegExp.$4, RegExp.$5, RegExp.$6));
}
//---------------------------------------------------------------------------------------------------
function dt2dtstr (dt_datetime, daFormat) {
//zie tevens cbjsFormatDate
if (daFormat == null || daFormat == "") { daFormat="dd-mm-yyyy"}
//var dtCh=cbjsDateSep(daFormat)
return cbjsFormatDate(dt_datetime, daFormat)
}
//---------------------------------------------------------------------------------------------------
function dt2tmstr (dt_datetime) {
	return (new String (
			dt_datetime.getHours()+":"+dt_datetime.getMinutes()+":"+dt_datetime.getSeconds()));
}
//---------------------------------------------------------------------------------------------------
function cbjsHelpPopUp(strHelp, strKop)
{
	//document.getElementById("help123").innerHTML="<font color='#0000FF'>"+strHelp+"</font>"
//alert(strHelp)
var strScroll="scrollbars=no"
var nHoogte=100+((strHelp.length/47)*30)		//default is 500, 47 tekens op 1 regel+headerregel niet vergeten
var nIStart=(window.status.indexOf("PopUp")) 

//window.event.keyCode=0	//reset
nHoogte=Math.round(nHoogte)
//alert(nHoogte) background=\"images/helpbg.gif\" nee
var str_buffer = new String (
		"<html>\n"+
		"<head>\n"+
		"	<title>"+strKop+"</title>\n"+
		"</head>\n"+
		"<body onBlur='self.focus()' bgcolor=\"#FFFF99\">\n"+
		strHelp+
		"</body>\n" +
		"</html>\n"
	);
if (nIStart==-1)
	{
	if (nHoogte>(screen.height-220)) {strScroll="scrollbars=yes"; nHoogte=(screen.height-220)}
	var vWinHelp = window.open("", strKop, 	"width=300,height="+nHoogte+","+strScroll+",status=no,resizable=yes,top=200,left=200,menubar=no");
	vWinHelp.opener = self;
	var help_doc = vWinHelp.document;
	help_doc.write (str_buffer);
	help_doc.close();
	}
else
	{ //alert(strHelp)
	cbjsHelpF1(this, "?context="+strHelp)
	}		//er was al een popwindow actief!
}
//---------------------------------------------------------------------------------------------------
function cbjsHelpF1(t, strUrl)
//Feitelijk alleen accepteren van numerieke data en datumscheidingsymbolen /-.: DEZE GEBRUIEN BIJ ONHELP!
{
//Keycode is niet universeel omdat soms shift+ code of alt + etc. gebruikt worden.
var nWidth=screen.width-20
var nHeight=screen.height-20
var nLeft=10
window.event.cancelBubble=true;
window.event.returnValue=false;
if (strUrl==null || strUrl=="")	{ strUrl="include/help1.asp" }
//if (strUrl=="http://" || strUrl=="https://")
if (strUrl.substr(0,1)=="#") { strUrl="include/help1.asp"+strUrl }		//naar anchor
if (strUrl.substr(0,1)=="?") { strUrl="include/help1.asp"+strUrl }		//naar anchor
if (window.status.indexOf("PopUp")>-1) 
	{ 
	nWidth=nWidth/2
	window.moveTo(0,0);
	window.resizeTo(nWidth,nHeight);
	nLeft=nWidth
	}
//Let op: maximaal 2083 tekens in de url
var vWinHelp = window.open(strUrl, "Help", "width="+nWidth+",height="+nHeight+",resizable=yes,scrollbars=yes,top=10,left="+nLeft+",menubar=yes");
}
//---------------------------------------------------------------------------------------------------
function cbjsHelpCB(t, strUrl)
//vang defaultkeys af. F1:112 // kan weg
{
//onkeypress=cbjsHelpCB
if (event.F1Key) { alert("f1"); }
event.cancelBubble=true;
window.event.returnValue=false;
if (window.event.keyCode==112)
	{ 
	alert("Help!"); 
	//event.preventDefault();	//Mozillabrowsers
	//event.stopPropagation();
	window.event.cancelBubble=true;
	window.event.returnValue=false;
	}

}
//---------------------------------------------------------------------------------------------------
function cbUpdateCPBAM()
{
//Werk het veld EF bij op het hoofdformulier na het sluiten van het popupvenster
var strVeldPA2, oDocForm,i, nRegel, nMax, vWaarde, strHulp, iIndex
oDocForm=opener.document.forms[0];
//strVeldPA="cboKeuzeV1012"   wat als BOOM wijzigd????? dan moet met LABELS aanpassen java
strVeldPA="cboKeuzeEF"  
strVeld=document.forms[0]("anaam")		//geselecteerde items
// als veld EFfect is ingevuld alleen waarschuwen.
//for (nRegel=0; nRegel<nL;nRegel++)
//{
strVeldPA2=oDocForm(strVeldPA)
nMax=0
for (i = 0; i<strVeld.length; ++ i)
{
  if (strVeld[i].checked )
	{   
					
	//alert(strVeld[i].value.substr(8,2)+" wordt: "+strVeld[i].value.substr(8,2))
	vWaarde=strVeld[i].value.substr(8,2)
	if (parseInt(vWaarde)>nMax) { 	nMax=parseInt(vWaarde) }
	}
}
if (nMax==10) { iIndex=2 }
if (nMax==20) { iIndex=3 }
if (nMax==30) { iIndex=4 }
if (nMax==40) { iIndex=5 }
if (nMax==50) { iIndex=6 }
if ( strVeldPA2.selectedIndex>0 )
	{ 
		strHulp=strVeldPA2.options[iIndex].text
		alert("Let op: Corrigeer eventueel de RiskRate: ´Effect´ naar waarde: "+strHulp)
		strVeldPA2.focus()	
	}
else
{
	strVeldPA2.selectedIndex=iIndex
	// cbCalcRR(lijst, nWarn, strWA, strKL, strTitle )
	// cbCalcRR(strVeldPA2, 0, "", "", "" )
}
return true
}
//---------------------------------------------------------------------------------------------------
function cbjsPaginaVerloopt()
{ var dToday = new Date()
	
	strBericht="Let op: de pagina verloopt over 3 minuten. S.v.p. de melding opslaan...."
	if (cojsTAAL=="gb") {strBericht="Attention: this page will expire in 3 minutes. Please, save this page...." }
	alert(dt2tmstr(dToday) + "\n \n "+ strBericht)
	//cbjsLockFormIMS("UNLOCK")
}
//---------------------------------------------------------------------------------------------------
function cbBAMShowOverl(t)
{//onClick='
var sT="none";
var sTV="block"; 
//var i=t.parentNode.parentNode.parentNode.rowIndex;
var i=1;
if (t.value=="J") 
	{	sT="block"; 
		sTV="none";
		try
		{
			var oF=cboKeuzeEF; 
			oF.selectedIndex=6;
			cbTrefCheck(oF)
			alert("Check RiskRate");
		}
		catch(err)
		{ //nx
		}
	}
try
{
			OLEDEN[i-1].style.display=sT; 
			VVERZUIM[i-1].style.display=sTV;
			//alert(sT)
}
catch(err)
		{ //nx
		//alert(err)
		OLEDEN.style.display=sT; 
		VVERZUIM.style.display=sTV;
	}
}

//---------------------------------------------------------------------------------------------------
function cbjsMarkeerVerplichteVelden(nWat)
//Indien een bestaaande melding wordt geopend, de verplichte velden markeren (geel) en gewenste velden (rood) sep08
// nWat=0 (default): zowel gewenst als verplicht gemarkeerd aangeven, nWat=1: alleen verplicht, nWat=2: alleen wenst
{
var strDatum, strVeld, i, strMaand, strDag, strOccMaand, strOccDag, strOccJaar, strVeldenV, nL, j, nChecked, nCR, nDom, nTotDom
var strBericht, strVeldenGewenst="", vRood="#FF8080", oVeld
var fOForm=document.forms[0];
//Tekststring met verplichte velden gescheiden door ;	
if (typeof nWat=="undefined") {nWat=0} 
//strVeldenV=fOForm.strVeldenGewenstDOM[0].value
//alert(strVeldenV)
nTotDom=-1
try		//gewenst velden, error afvangen
{
	strVeldenV=fOForm.strVeldenGewenst.value
	//alert(strVeldenV)
	nTotDom=fOForm.strVeldenGewenstDOM.length	//totaal aantal DOM-velden
	if (typeof nTotDom== "undefined" || nTotDom== "undefined" )	{ nTotDom=0 }		//dec08
}
catch(err) { nTotDom=0 }
try
{
for (nDom=-1;nDom<nTotDom;nDom++)
 {
//als nDom gelijk is aan -1 dan wordt het strVeldenGewenst van het hoofdform genomen
	if (nDom>=0) {strVeldenV=fOForm.strVeldenGewenstDOM[nDom].value; }
	//EERSTE DE GEWENST VELDEN MARKEREN
	//Markeer nu de gewenst velden SEPT08
	strVeldNM=""
	//alert("v1:" + fOForm("cboKeuzeV1")[0].type): bijv. radio
	if (strVeldenV.length>2 && (nWat==2 || nWat==0)) 
	{
	//bijv. ;cboKeuzeV1;MELDING_RECOGNITION;
	// in het codeveld , komma gescheiden opslaan
	for (i = 1; i <strVeldenV.length; i++)
		{
		if (strVeldenV.charAt(i)==";" && strVeldNM.length>0)
				//Einde vh veld, kijk direct of het veld is ingevuld....
				{
					if (nDom>=0) 
						{ 
						//alert("document.forms[0]."+strVeldNM+"[0]")
						if (strVeldNM.substring(0,3)=="cbo")	//de 0-index moet eraf
							{ oVeld=eval("document.forms[0]."+strVeldNM)	}
						else
							{ oVeld=eval("document.forms[0]."+strVeldNM+"[0]")	}
						}
					else	
						{ oVeld=fOForm(strVeldNM) }
						
					nChecked=0	//niet vantoepassing=0; >0 van checkboxen/radios
					if (strVeldNM.substring(0,3)=="cbo")		//controleer radio of checkbox
						{ 
						//[0] geeft fout als er maar 1 van is! .length>0 of is UnDefined (result=false)
						if (oVeld.length>0)
							 { 
							 	if (oVeld[0].type=="radio" || oVeld[0].type=="checkbox")
						 		{ 
									nL=oVeld.length
									nChecked=-1	//niets
									for (j = 0; j < nL; j++) 
										{ if (oVeld[j].checked) {nChecked=1} }
								}	//radio or check
							 }	//.length>0
						else
							 { nChecked=0 }	//fOForm(strVeldNM).value.length
						}	//cbo-veld, kan echter ook comboveld zijn +fOForm(strVeldNM)[0].value.substr(10
					if (nChecked==-1) 
						{ 
						// for (nCR=0;nCR<fOForm(strVeldNM).length;nCR++)
						 for (nCR=0;nCR<oVeld.length;nCR++)

							{ oVeld[nCR].style.background=vRood; }
						 }
					if (nChecked== 0)
						{
						if (nDom>=0) 
							{ oVeld=eval("document.forms[0]."+strVeldNM+"[0]")	
							  try
								  	{ strVeld=oVeld.value }
							  catch(err)
							  		{ oVeld=fOForm(strVeldNM) }
									
							}
						else	
							{ 	
								oVeld=fOForm(strVeldNM)
							} 		//trefwoordcodes mogen niet eindigen op 00000000 of H

							strVeld=oVeld.value

						
						//alert( fOForm("PLETSEL_VRIJ")[0].value	)
						if (oVeld.disabled==false && (strVeld.length==0 || strVeld.substr(0,1)=="#" || strVeld.substr(0,1)=="*" || strVeld.substr(2,8)=="00000000" || (strVeldNM.substr(0,3)=="cbo" && strVeld.substr(9,1)=="H") ))
							{
								//via GetElementByID zouden we label title kunnen achterhalen of zo
								if (oVeld.type!="hidden")	//ook niet voor disabled!
									{  	
									    oVeld.style.background=vRood;
									}		//kan niet bij hidden fields....
								else 
									{
										if (oVeld.name.substring(0,3)=="cbo")
										{ //strVeld="but"+fOForm(strVeldNM).name.substring(8);
											//fOForm(strVeld).focus()
											if (fOForm(strVeldNM+"a"))
											 { fOForm(strVeldNM+"a").style.background=vRood
											 }
											else
											{ oVeld.style.background=vRood 
											}
										}
									}
							}	//if strVeld
						}	//( nChecked==0 )
				strVeldNM=""		//maak weer leeg
				}	//if ;
			else	
				{ strVeldNM+=strVeldenV.charAt(i) }	//else
		}	//for
	}	//strVeldenV.length>2
 } //nDom for
} //try -gewenstevelden
catch(err)
	{}		//fout simpelweg afvangen.
//----------------------------------------
try
	{
	nTotDom=-1
	strVeldNM=""
	strVeldenV=fOForm.strVeldenVerplicht.value
	//alert("v1:" + fOForm("cboKeuzeV1")[0].type): bijv. radio
	nTotDom=fOForm.strVeldenVerplichtDOM.length	//totaal aantal DOM-velden
	if (typeof nTotDom== "undefined" || nTotDom== "undefined" )	{ nTotDom=0 }		//dec08
	} 
catch(err)	{}		//fout simpelweg afvangen.
 for (nDom=-1;nDom<nTotDom;nDom++)
 {
  try			//DEC08 in lus gezet, zodat alles wel afgehandeld wordt
   {
//als nDom gelijk is aan -1 dan wordt het strVeldenGewenst van het hoofdform genomen
	if (nDom>=0) {strVeldenV=fOForm.strVeldenVerplichtDOM[nDom].value; }

	if (strVeldenV.length>2 && (nWat==0 || nWat==1) )
	{
	//bijv. ;cboKeuzeV1;MELDING_RECOGNITION;
	// in het codeveld , komma gescheiden opslaan
	for (i = 1; i <strVeldenV.length; i++)
		{
		if (strVeldenV.charAt(i)==";" && strVeldNM.length>0)
				//Einde vh veld, kijk direct of het veld is ingevuld....
				{
					if (nDom>=0) 
						{ 
						//alert("document.forms[0]."+strVeldNM+"[0]")
						if (strVeldNM.substring(0,3)=="cbo")	//de 0-index moet eraf
							{ oVeld=eval("document.forms[0]."+strVeldNM)	}
						else
							{ oVeld=eval("document.forms[0]."+strVeldNM+"[0]")	}
						}
					else	
						{ oVeld=fOForm(strVeldNM) }


					nChecked=0	//niet vantoepassing=0; >0 van checkboxen/radios
					if (strVeldNM.substring(0,3)=="cbo" || (oVeld[0].type=="radio" || oVeld[0].type=="checkbox"))		//controleer radio of checkbox
						{ 
						//[0] geeft fout als er maar 1 van is! .length>0 of is UnDefined (result=false)
						if (oVeld.length>0)
							 { 
							 	if (oVeld[0].type=="radio" || oVeld[0].type=="checkbox")
						 		{ //alert(strVeldNM+"lengte:"+fOForm(strVeldNM).length) 
									nL=oVeld.length
									nChecked=-1	//niets
									for (j = 0; j < nL; j++) 
										{ if (oVeld[j].checked) {nChecked=1} }
								}	//radio or check
							 }	//.length>0
							 else
							 { nChecked=0 }	//fOForm(strVeldNM).value.length
						}	//cbo-veld, kan echter ook comboveld zijn +fOForm(strVeldNM)[0].value.substr(10
					if (nChecked==-1) 
						{ 
						 for (nCR=0;nCR<oVeld.length;nCR++)
						  { oVeld[nCR].style.background="#FFFF80"; } //GEEL;

						}
					if (nChecked== 0)
						{
						if (nDom>=0) 
							{ oVeld=eval("document.forms[0]."+strVeldNM+"[0]")	
							  try
								  { strVeld=oVeld.value }
							  catch(err)
								  { oVeld=fOForm(strVeldNM) }
									
							}
						else	
							{ 	
								oVeld=fOForm(strVeldNM)
							} 		//trefwoordcodes mogen niet eindigen op 00000000 of H

						strVeld=oVeld.value
							//strVeld=fOForm(strVeldNM).value		//trefwoordcodes mogen niet eindigen op 00000000 of H
						if (oVeld.disabled==false && (strVeld.length==0 || strVeld.substr(0,1)=="#" || strVeld.substr(0,1)=="*" || strVeld.substr(2,8)=="00000000" || (strVeldNM.substr(0,3)=="cbo" && strVeld.substr(9,1)=="H") ))
							{
								//via GetElementByID zouden we label title kunnen achterhalen of zo
								if (oVeld.type!="hidden")	//ook niet voor disabled!
									{  	
									    oVeld.style.background="#FFFF80";
									}		//kan niet bij hidden fields....
								else 
									{
										if (oVeld.name.substring(0,3)=="cbo")
										{ //strVeld="but"+fOForm(strVeldNM).name.substring(8);
											//fOForm(strVeld).focus()
											if (fOForm(strVeldNM+"a"))
											 { fOForm(strVeldNM+"a").style.background="#FFFF80"
											 }
											else
											{ oVeld.style.background="#FFFF80" 
											}
										}
									}
							}	//if strVeld
						}	//( nChecked==0 )
				strVeldNM=""		//maak weer leeg
				}	//if ;
			else	
				{ strVeldNM+=strVeldenV.charAt(i) }	//else
		}	//for
	}	//strVeldenV.length>2
 }		//try
 catch(err)	{}		//fout simpelweg afvangen.
}		//for loop

// wat als geen RR gebruikt???
if (fOForm.iRR!=null && fOForm.cboKeuzeKA.disabled==false) 
	{	if (fOForm.iRR.value<=0 || fOForm.iRR.value>=99999999)
		{
			///fOForm.butRR.focus()----KLEUR INSTELLEN
			//mrt09 fOForm.cboKeuzeKA.style.background="#FFFF80"; 
			//mrt09 fOForm.cboKeuzeFR.style.background="#FFFF80"; 
			//mrt09 fOForm.cboKeuzeEF.style.background="#FFFF80"; 
		}
	}		//fOForm.iRR!=null

return (true);
}
//---------------------------------------------------------------------------------------------------
function cbReActStatus(t, vValue, strAfgedaan, strAVPAF)
//Werk de status bij na het verlaten vh afhandelingsveld of AVP (indien van toepassing)
{
var nRij=t.parentNode.parentNode.rowIndex-2
var tNaam=t.name
var fOForm=document.forms[0];
var strStatus=""
var d = new Date()	
//voer datumcontrole uit (niet in verleden tov occdate cbCheckDate2(this, 7, ""MELDING_OCCDATE"", 0)
if (parseInt(fOForm.nRijMA.value)<4) //1 RIJ ZICHTBAAR
 {
	//cbCheckDate2(fOForm.DA_MAATREG_DD_KLAAR_YEAR, 7, "MELDING_OCCDATE", 0); 	//tNaam=="DA_MAATREG_DD_KLAAR_YEAR" || 
	if (tNaam=="DA_MAATREG_DD_ALARM_YEAR") { cbCheckDate2(t, 7, "MELDING_OCCDATE", 0) }
	// if (fOForm.DA_MAATREG_DD_KLAAR_YEAR.value.length>1) 
	//	{	strStatus=strAfgedaan;	//	fOForm.AKTIENEMERS_VOORTGANG.style.backgroundColor="yellow"}			//nee: value=strStatus;
	//else {
	strStatus=fOForm.AKTIENEMERS_VOORTGANG.value;		
	fOForm.MAATREG_STATUS.value=strStatus
	if ( (strStatus==strAfgedaan) || (strStatus==strAVPAF) )	//Afgedaan
		{
		fOForm("MAATREG_DD_KLAAR_DAY").value=d.getDate();
		fOForm("MAATREG_DD_KLAAR_MONTH").value=d.getMonth()+1;
		fOForm("MAATREG_DD_KLAAR_YEAR").value=d.getFullYear();
		fOForm("DA_MAATREG_DD_KLAAR_YEAR").value=cbjsFormatDate(d, daFormat);
		}
	else
		{
		fOForm("MAATREG_DD_KLAAR_DAY").value="";
		fOForm("MAATREG_DD_KLAAR_MONTH").value="";
		fOForm("MAATREG_DD_KLAAR_YEAR").value="";
		fOForm("DA_MAATREG_DD_KLAAR_YEAR").value="";
		//fOForm("DA_MAATREG_DD_ASTART_YEAR").focus();
		//fOForm("DA_MAATREG_DD_ASTART_YEAR").style.backgroundColor="yellow"
		//fOForm("DA_MAATREG_DD_ALARM_YEAR").style.backgroundColor="yellow"
		}
		//}
	//if (fOForm.chkAVP.checked) 		//{if (strStatus==strAfgedaan) {
				//alert("Deze actie is reeds afgehandeld."); fOForm.chkAVP.checked=false: verander de status naar AVP+Afgedaan
				//fOForm.MAATREG_STATUS.value=strAVPAF	}   		else 	{ fOForm.MAATREG_STATUS.value=vValue} }		 
	//else {fOForm.MAATREG_STATUS.value=strStatus	} 
} 
else 
 { 
	if (tNaam=="DA_MAATREG_DD_ALARM_YEAR") { cbCheckDate2(t, 7, "MELDING_OCCDATE", 0) }
	strStatus=fOForm("AKTIENEMERS_VOORTGANG")[nRij].value;		
	fOForm.MAATREG_STATUS[nRij].value=strStatus
	if ( (strStatus==strAfgedaan) || (strStatus==strAVPAF) )	//Afgedaan
		{
		fOForm("MAATREG_DD_KLAAR_DAY")[nRij].value=d.getDate();
		fOForm("MAATREG_DD_KLAAR_MONTH")[nRij].value=d.getMonth()+1;
		fOForm("MAATREG_DD_KLAAR_YEAR")[nRij].value=d.getFullYear();
		fOForm("DA_MAATREG_DD_KLAAR_YEAR")[nRij].value=cbjsFormatDate(d, daFormat);
		}
	else
		{
		fOForm("MAATREG_DD_KLAAR_DAY")[nRij].value="";
		fOForm("MAATREG_DD_KLAAR_MONTH")[nRij].value="";
		fOForm("MAATREG_DD_KLAAR_YEAR")[nRij].value="";
		fOForm("DA_MAATREG_DD_KLAAR_YEAR")[nRij].value="";
		}
 } 
	
}
//---------------------------------------------------------------------------------------------------
function cbshowWMTT(id, strTitel, strHTML) 		//tooltip functies
{
var strInner
//return true
try
{
Tip(strHTML, TITLE, strTitel)
}
catch(err)
	{	}
return 	//MEI 2009
try
	{
	wmtt = document.getElementById(id);
	wmtt.style.display = "block"
	if (strTitel=="") {strTitel="INFO"}
	//strInner="<table  width='100%' ><tr bgcolor='#66CCFF'><td valign='center'><img border='0' align='left' src='images/help_info2.gif'><center><b>"+strTitel+"</b></center></td></tr></table>"
	//strInner="<div class='head'><img border='0'  src='images/help_info2.gif'> "+strTitel+"</div>"
	strInner="<div class='head'>"+strTitel+"</div>"
	strInner+="<div class='content'>"+strHTML+"<br></div>"		//compacter gemaakt, naar 150px
	wmtt.innerHTML=strInner
	// cbupdateWMTT() 
	//wmtt.style.top=20
	}
catch(err)
	{	}
}
//---------------------------------------------------------------------------------------------------
function cbhideWMTT()							//tooltip functies, verberg het div-vak (als het niet bestaat, fot afvangen)
{	
strAutoExp=""	//reset	
UnTip()		//MEI 2009
try
	{ wmtt.style.display = "none"; 
	}
catch(err)
	{	}		//NX
}
//---------------------------------------------------------------------------------------------------
function cbupdateWMTT(e) 						//tooltip functies
{
	//document.all was introduced in Internet Explorer 4, because the W3C DOM hadn't yet standardised a way of grabbing references to elements using their ID. By the time IE 5 came out, document.getElementById() had been standardised and as a result, IE 5 included support for it.
	//If condition is true, the expression has the value of val1. Otherwise it has the value of val2. You can use a conditional expression anywhere you would use a standard expression.
	//x=event.clientX		//rechterkant vh scherm//y=event.clientY
	//cbjsStatusBalk("de y is:"+y+"en de event is:"+event.clientY+"rekening houden met scrooll"+window.event.y + "top"+document.documentElement.scrollTop)
	//x=screen.availWidth-360
var nHo=0, y=0, x=0, yC=0, nBRX=150, nWH=640	//feitelijke windowhoogte default   nBRX=138
	cbGetMouseXY(e)		//sept 08: nMouseY nMouseX
	yC=event.clientY
	if (validateBrowserOnly()=="iex5")
		{
		x=document.body.offsetWidth-nBRX 	//breedte incl. de scrollbar 180 ipv 360...wordt 140
		if (document.documentElement && document.documentElement.scrollTop)	//vanaf iex6
			{ y=event.clientY + document.documentElement.scrollTop //nMouseY
			  nWH=parseInt(document.documentElement.clientHeight)
   			  if (document.documentElement.scrollTop==0) {nWH-=150}	//op de een of andere manier werkt het niet goed wanneer de scrollbar op 0 staat
			}
		else
			{ y = window.event.y + document.body.scrollTop	////nMouseY
			  nWH= document.body.clientHeight-150
   			 // if (document.body.scrollTop==0) {nWH-=300}	//op de een of andere manier werkt het niet goed wanneer de scrollbar op 0 staat
			}
			//window.status = "ex"+nWH+"body"+document.body.clientHeight+"scrolltop"+document.documentElement.scrollTop
		}		//feitelijke window-breedte
	else
		{ 
			x = (document.all) ? window.event.x + document.body.scrollLeft : e.pageX;
			y = (document.all) ? window.event.y + document.body.scrollTop  : e.pageY;
			x=screen.availWidth-nBRX;
			nWH=window.innerHeight;
		}
	try
		{	nHo=wmtt.offsetHeight	}
	catch(err)
		{	nHo=0	}	
	//if ( yC + nHo + 20 > nWH)	{y=20}		//nWH-nHo-20
	//y=event.screenY of screenX geven op het hele beeldscherm de positie aan ipv window
	if (wmtt != null)
	{	//	wmtt.style.left = (x + 20) + "px";	//	wmtt.style.top 	= (y + 20 ) + "px";		
		wmtt.style.left = (x ) + "px";
		//wmtt.style.top 	= (y + 20 ) + "px";		
		//if (wmtt.innerHTML.indexOf("·")>0 || (yC + nHo + 20 > nWH)) {wmtt.style.top=20+document.documentElement.scrollTop}
		wmtt.style.top=20+document.documentElement.scrollTop		//Vaste positiek kiezen geeft meer rust.
	}
	//window.status = "bodem "+yC+"/nHo"+nHo+"/"+screen.availHeight+"/"+nWH
}
//---------------------------------------------------------------------------------------------------
function cbGetMouseXY(e)
{
//var nMouseX = 0; sept08 naar header
//var nMouseY = 0;
var IE = document.all?true:false;
if (!IE) document.captureEvents(Event.MOUSEMOVE)
//document.onmousemove = getMouseXY;
if (IE) { // grab the x-y pos.s if browser is IE
	nMouseX = event.clientX + document.body.scrollLeft;
	nMouseY = event.clientY + document.body.scrollTop;
	//alert(event.clientX)
	}
else {  // grab the x-y pos.s if browser is NS
	nMouseX = e.pageX;
	nMouseY = e.pageY;
	}  
if (nMouseX < 0) {nMouseX = 0;}
if (nMouseY < 0) {nMouseY = 0;}  
return true;
}
//---------------------------------------------------------------------------------------------------
function cbjscodeer()
{
//encryptie-functie
var i, cHulp, cHulp2, cH1, cH2, n1, n2, cPassWord=document.forms[0].password.value
var lP=cPassWord.length
if ( lP == 0) { return true }
//alert(cPassWord)
cHulp2=Math.random()
cHulp=cHulp2.toString()
cH1=cHulp.substr(2,2)
n1=parseInt(cH1)
if (n1<40) { n1=40 }
cHulp2=Math.random()
cHulp=cHulp2.toString()
cH2=cHulp.substr(2,2)
n2=parseInt(cH2)
if (n2<40) { n2=40 }
cHulp = ""
//alert(lP)
for (i = lP-1; i>=0; i--)
	{
	  cHulp += 	String.fromCharCode( cPassWord.charCodeAt(i) -1 )
	}
cHulp=String.fromCharCode(n1+5,n2+2,n1,n2+3) + cHulp +	String.fromCharCode(n2,n1,n2+1,n1+3)
document.forms[0].password.value=cHulp
//alert(cHulp)
return true
}
//---------------------------------------------------------------------------------------------------
function cbjscodeerX()
{
//document.forms[0].password.value=fOForm.password.value + "AAA"
var theText=document.forms[0].password.value
var output = new String;
var Temp = new Array();
var Temp2 = new Array();
var TextSize = theText.length;
for (i = 0; i < TextSize; i++) 
	{
	rnd = Math.round(Math.random() * 122) + 68;
	Temp[i] = theText.charCodeAt(i) + rnd;
	Temp2[i] = rnd;
	}
for (i = 0; i < TextSize; i++) 
	{
	output += String.fromCharCode(Temp[i], Temp2[i]);
	}
document.forms[0].password.value=output
alert(document.forms[0].password.value)
alert(cbjsdecodeer(output))
return true
}
//---------------------------------------------------------------------------------------------------
function cbjsdecodeerX(theText)
{	//nb
output = new String;
Temp = new Array();
Temp2 = new Array();
TextSize = theText.length;
for (i = 0; i < TextSize; i++) 
	{
	Temp[i] = theText.charCodeAt(i);
	if (i < TextSize) { Temp2[i] = theText.charCodeAt(i + 1); } 
	}
for (i = 0; i < TextSize; i = i+2) 
	{
	output += String.fromCharCode(Temp[i] - Temp2[i]);
	}
return output;
}

//---------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------------------------------------
function cbComboSublijst(cbolijst, strSub, nPos) 
{
// combolijst opnieuw vullen na keuze subitem  --this, v2, 7
// strSub geeft de subcode waaruit de variabele moet worden gegenereerd: bijv. cboKeuzeV2
var tCode, tNr, i
var strName, strName2, strBericht
var intLengte, int2Lengte //= cbolijst.length;
var arrCode=new Array()
var arrTXT=new Array()
var j=0
var oDocForm=document.forms[0]
//var strSub="V2", nPos=7
//var ocboSub=oDocForm("cboKeuze"+strSub)	//bijv. cboKeuzeV2
var ocboS2, ocboS2k, strTcode, nMax, nRij, ocboL1k, ocboL1
var vValue=cbolijst.value
j=cbolijst.selectedIndex
//alert(cbolijst[i].text+"----")
// De hele array moet doorschuiven

if (cbolijst.disabled) { return }

intLengte = cbolijst.length;

for (i=0;i<9;i++) 
{ 	
	cbolijst[j+i]=new Option("Jan Klaassen"+i, "000000000");
}
return

tCode=cbolijst.value		//V200001000	
nPos=nPos-2
tNr=tCode.substr(2, nPos);		//eerste 7 pos bepalend: xx00001
//i=cbolijst.selectedIndex
//alert(cbolijst[i].value.substr(0,7))
//vanaf begin doorlopen
intLengte=ocboSub.length
//alert("code: "+tCode+"--"+intLengte+"--"+tNr)
j=1
for (i=0;i<intLengte;i++)
	{
		if (tNr==ocboSub[i].value.substr(2, nPos) )
			{ if (j==1) {ocboSub.selectedIndex=i; }
 				j++
			    // i=intLengte+1	//forceer einde
				oDocForm("PLETSEL_AFDELING")[0].length=j-2
				oDocForm("PLETSEL_AFDELING")[0][j-2]=new Option(ocboSub[i].text, ocboSub[i].text)
				//alert(oDocForm("PLETSEL_AFDELING")[0][i].text)													  
			}
	}
ocboSub.size=j-1
ocboSub.focus();
//verder met S2
nMax=oDocForm("PLETSEL_VOLGNR").length
strTcode=tCode
ocboS2k =oDocForm("cboKeuzeS2__1")		//werkzheden
try
{
ocboS2	=oDocForm("cboKeuzeS2__0")
intLengte=ocboS2.length-1
}
catch(err)
{
	intLengte=0
}
ocboL1k =oDocForm("cboKeuzeL1__1")	//functie beroep
ocboL1	=oDocForm("cboKeuzeL1__0")
int2Lengte=ocboL1.length-1
//ocboS2k=oDocForm("cboKeuzeS2__0")	
//ocboS2k.length=0
//oDocForm("cboKeuzeS2__0").length=0
j=1
//alert((ocboS2k[intLengte].value.substr(0,5)=="*NEW*"))// TRUE
//cboS2 bestaan niet voor een "melder"
try
{
	for (i=0;i<=intLengte;i++)		//<= anders wordt NEW niet meegenomen
		{
		if ( i==0 || ocboS2k[i].value.substr(2,5)==strTcode.substr(2,5) || ocboS2k[i].value.substr(2,5)=="00000" || ocboS2k[i].value.substr(0,5)=="*NEW*")
			{
			j++
			ocboS2.length=j-2
			ocboS2[j-2]=new Option(ocboS2k[i].text, ocboS2k[i].value)
			for (k=2;k<nMax;k++)
				{
				oDocForm("cboKeuzeS2__"+k).length=j-2
				oDocForm("cboKeuzeS2__"+k)[j-2]=new Option(ocboS2k[i].text, ocboS2k[i].value)
				}
			}
		}
	if (intLengte>0)
	{
		ocboS2k=oDocForm("cboKeuzeS2__0")	
		intLengte=oDocForm("cboKeuzeS2__0").length
		oDocForm("cboKeuzeS2__1").length=intLengte
		for (i=0;i<intLengte;i++) {oDocForm("cboKeuzeS2__1")[i]=new Option(ocboS2k[i].text, ocboS2k[i].value) }
		intLengte=ocboS2.length-1
	}
}
catch(err)
{
	//cboKeuzeS2 bestaat niet voor melderA
}
//oDocForm("cboKeuzeS2__0").length=0
//idem voor L1

for (i=0;i<int2Lengte;i++) {oDocForm("cboKeuzeL1__1")[i]=new Option(ocboL1k[i].text, ocboL1k[i].value) }
}
//---------------------------------------------------------------------------------------------------

//---------------------------------------------------------------------------------------------------
function cbCBOexpand(cbolijst, e)
{
//Combobox: autoexpand. OnKeyPress
var intLengte, keynum, cChar, i, strAutoExpH
var strWaarde = cbolijst.options[cbolijst.selectedIndex].text, strH
if(window.event) // IE
{
	keynum = e.keyCode
}
else if(e.which) // Netscape/Firefox/Opera
{
	keynum = e.which
}
cChar = String.fromCharCode(keynum)
if (keynum>=32)	
	{
	strAutoExpH=strAutoExp	
	strAutoExp+=cChar
	window.status=strAutoExp
	intLengte = cbolijst.length;
	//Altijd 1 dummy item toevoegen, de streeptjes tbv de lengte
	for (i=0;i<intLengte;i++)
		{
			strH=cbolijst.options[i].text
			//strH=strH.replace("·", "")	//verwijder de nivo markering in het begin
			while (strH.indexOf(strNChar)>-1) {strH=strH.replace(strNChar, "")}
			if (strH.substr(0,strAutoExp.length).toUpperCase()==strAutoExp.toUpperCase())
				{
				cbolijst.selectedIndex=i
				//alert(strAutoExp.toUpperCase())
				return true
				}
				
		}	
	strAutoExp=strAutoExpH	//niets gevonden is reset naar orginele waarde

	}
else
	{ return true }
}
//---------------------------------------------------------------------------------------------------
//AJAX: bron w3schools
function cbZetKorresStatus(strStatus, lngSys_Key, lAan)
{ 
xmlHttp=GetXmlHttpObject()		//public
if (xmlHttp==null)
{
	alert ("Browser does not support HTTP Request")
return
} 
var nAan=0
if (lAan) { nAan=1 }
var url="cbs_multipurp.asp?intActie=160&strPagina="+strStatus+"&lngSys_Key="+lngSys_Key+"&strLijst="+nAan		//test routine jan07
url=url+"&sid="+Math.random()
xmlHttp.onreadystatechange=stateChanged 
xmlHttp.open("GET",url,true)
xmlHttp.send(null)
}
//---------------------------------------------------------------------------------------------------
function stateChanged() 
{ 
var strRT,i
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	//document.getElementById("txtHint").innerHTML=xmlHttp.responseText 
	strRT=xmlHttp.responseText		//haal op wat met response.write is gegenereerd. Doen we feitelijk niets mee.
	//alert(strRT)
	window.status="Status veranderd"
	} 
} 
//---------------------------------------------------------------------------------------------------
function GetXmlHttpObject()
{ 
var objXMLHttp=null
if (window.XMLHttpRequest)
	{
	objXMLHttp=new XMLHttpRequest()
	}
else if (window.ActiveXObject)
	{
	objXMLHttp=new ActiveXObject("Microsoft.XMLHTTP")
	}
return objXMLHttp
} 
//---------------------------------------------------------------------------------------------------
function cbZoekenVervang(t, strUrl) 
//bepaal ahv het gekozen tabel.veldtype de veldtype
{
var vWa=t.value, oDoc=document.forms[0]
var vL=vWa.length, vType
if ( vL==10 && vWa.indexOf(".")<0 ) 
	{ 
	location.replace(strUrl+"&strRubriek="+vWa.substr(0,2) ) 
	}
else	
	{
	//oDoc("waarde").style.display="block"	
	cbShowHideName("waarde", "block")
	cbShowHideName("sql", "block")
	oDoc.btSQL.disabled=false	
	vType=vWa.substr(vL-2,2)
	//oDoc("strSQL").value=vWa.substr(0, vL-2)
	if (vType=="DA") 
		{
		oDoc("DA_DVDJAAR").style.display="block"	
		oDoc("waardeTE").style.display="none"	
		oDoc("waardeNU").style.display="none"
		oDoc("DA_DVDJAAR").style.display="block"	
		cbShowHideName("calimg", "block")
		oDoc("VwaardeTE").style.display="none"	
		oDoc("VwaardeNU").style.display="none"
		}
	else if (vType=="TE" || vType=="ME")
		{
		oDoc("DA_DDJAAR").style.display="none"	
		oDoc("waardeTE").style.display="block"	
		oDoc("waardeNU").style.display="none"
		oDoc("DA_DVDJAAR").style.display="none"	
		cbShowHideName("calimg", "none")
		oDoc("VwaardeTE").style.display="block"	
		oDoc("VwaardeNU").style.display="none"		
		}
	else if (vType=="NU" || vType=="YE")
		{	 
		oDoc("DA_DDJAAR").style.display="none"	
		oDoc("waardeTE").style.display="none"	
		oDoc("waardeNU").style.display="block"
		oDoc("DA_DVDJAAR").style.display="none"	
		cbShowHideName("calimg", "none")		
		oDoc("VwaardeTE").style.display="none"	
		oDoc("VwaardeNU").style.display="block"		
			}		
	}
}
//---------------------------------------------------------------------------------------------------
function cbZoekenVervangSQL() 
//maak SQL
{
var oDoc=document.forms[0], vWa=oDoc("cboLabels").value
var  vL=vWa.length, vType, strTabel, nPos
var	strSQL, strWhere, vVeld=vWa.substr(0,vL-2)
vType=vWa.substr(vL-2,2)
nPos=vVeld.indexOf(".")
strTabel=vVeld.substr(0,nPos)
strSQL= "UPDATE "+strTabel+" SET "+vVeld+"="
if (vType=="DA") 
		{ 
		strSQL+="Cdate('"+oDoc("DA_DVDJAAR").value+"')" 
		strWhere=" Where "+vVeld+"=Cdate('"+oDoc("DA_DDJAAR").value+"')" 
		}
else if (vType=="TE" || vType=="ME")
	{
		strSQL+="'"+oDoc("VwaardeTE").value+"'"
		strWhere=" Where "+vVeld+"='"+oDoc("waardeTE").value+"'"
	}
else if (vType=="NU" || vType=="YE")
	{		
		strSQL+=oDoc("VwaardeNU").value
		strWhere=" Where "+vVeld+"="+oDoc("waardeNU").value
	}
oDoc("strSQL").value=strSQL+strWhere
oDoc.btSubmit.disabled=false
cbShowHideName("exeknop", "block")
}
//---------------------------------------------------------------------------------------------------
function cbCheckJavaCookie()
//check of java of cookies enabled zijn
{
document.LogOn.cookieexists.value ="true"			
 /* check for a cookie */
  if (document.cookie == "") 
  {
    /* if a cookie is not found - alert user -     change cookieexists field value to false */   // alert("COOKIES need to be enabled!");
    /* If the user has Cookies disabled an alert will let him know         that cookies need to be enabled to log on.*/ 
    document.LogOn.cookieexists.value ="false"  
  } else {
   /* this sets the value to true and nothing else will happen,
       the user will be able to log on*/
    document.LogOn.cookieexists.value ="true"
  }
}
//---------------------------------------------------------------------------------------------------

function cbContactWR(fOForm, strVeldNM)
// Geef gekozen waarden retour in formulier -strParentForm- (generaliseren naar algemene functie voor andere velden)
//fOForm: huidig formulier
//strVeldNM: veldnaam
//strParentForm: doet er niet toe wordt toch opener.document.forms[0];
{
var i, strVeld, oDocForm, nPos1, nPos2, nPos3, strOVeld
var vVeld1="", vVeld2="", vVeld3="", txt1="", txt2="", txt3=""
strVeld=fOForm.anaam		//lijst met radio of checkbox items
strOVeld="opener.document.forms[0]"		//+strVeldNM		//juni07
oDocForm=opener.document.forms[0];		//uitgaande v/e popup formulier
// veld1¦veld2¦veld3  -- max ondersteund 3 stuks
nPos1=strVeldNM.indexOf("¦")
if (nPos1>-1)
	{ 
	vVeld1=strVeldNM.substr(0,nPos1)
	nPos2 =strVeldNM.indexOf("¦", nPos1+1)
	if (nPos2>-1)
		{		//check voor 3e veld
		vVeld3=strVeldNM.substr(nPos2+1) 
		vVeld2=strVeldNM.substr(nPos1+1, nPos2-nPos1-1) 
		}
	else
		{ vVeld2=strVeldNM.substr(nPos1+1) }
	}
else
	{ vVeld1=strVeldNM } 
 for (i = 0; i<strVeld.length; ++ i)
	{ 
		if (strVeld[i].checked)
		{ 
			nPos1=strVeld[i].value.indexOf("¦")		//gekozen waarde
			if (nPos1>-1)
				{
				if (txt1 != "") { txt1 +=";"}
				txt1+=strVeld[i].value.substr(0,nPos1)
				nPos2=strVeld[i].value.indexOf("¦", nPos1+1)		//gekozen waarde
				if (nPos2>-1)
					{
						if (txt3 != "") { txt3 +=";"}
						txt3+=strVeld[i].value.substr(nPos2+1) 
						if (txt2 != "") { txt2 +=";"}
						txt2+=strVeld[i].value.substr(nPos2-nPos1-1) 		
					}
				else
					{
						if (txt2 != "") { txt2 +=";"}
						txt2+=strVeld[i].value.substr(nPos1+1) 		
					}
				}
			
			else		//er is maar 1 veld over te zetten
				{
				if (txt1 != "") { txt1 +=";"}
				txt1+=strVeld[i].value
				}	//else, maar 1 veld 
		}	//checked?
	}	//for

//if (txt1!="") { oDocForm(vVeld1).value=txt1 }
if (txt1!="") { eval(strOVeld+"."+vVeld1).value=txt1 } 
if (txt2!="") { oDocForm(vVeld2).value=txt2 }
if (txt3!="") { oDocForm(vVeld3).value=txt3 }
return true
}
//---------------------------------------------------------------------------------------------------
function cbjsIsSaved(e)
//functie bij het verlaten v/e formulier met een veld issaved (na een wijziging) in feite alleen het hoofdformulier: onbeforeunload
{
var strBericht= "Let op: U heeft het formulier niet opgeslagen! Wilt u de pagina toch verlaten? \n (om op de pagina te blijven kies 2x Annuleren/Cancel; bij verlaten wordt het record weer vrijgegeven)"
var lX=true, strFNaam, j, nMail, nMailChk
try			///als het veld niet bestaat naar de catch
	{
		var oDocForm=document.forms[0]
		strFNaam=oDocForm.name
		//alert(oDocForm("CB_IS_SAVED").value)
		if (oDocForm("CB_IS_SAVED").value=="N" )
			{ 
			//location.href = location.href: zo ben ik de ingevulde info kwijt
			if (cojsTAAL=="gb") {strBericht="ATTENTION: form not saved. Stay on the page? (to stay on the page, press 2x cancel)"}
			//var eventSrcID=(event.srcElement)?event.srcElement.id:'undefined'; event.type + "--" + eventSrcID + "--" +
			//event.returnValue=strBericht
			if (strFNaam=="cbsFPrint") 
				{
					
					try		//kijk of we MOETEN mailen
					{	nMail=0; nMailChk=0;
						for (j=1;j<20;j++)
						{
							if (oDocForm("emailme"+j).style.color.length>0) { nMail++ }
							if (oDocForm("emailme"+j).checked) { nMailChk++ }
							
						}
					}
					catch (err) {}
					
					// for (j=0;oDocForm.emailme2.length;j++)
					//{
					//	alert(oDocForm.emailme2[j].checked);
					//	alert(oDocForm.emailme2[j].style.color);
					//}
				strBericht="U moet het formulier nog mailen. Kies een sjabloon, vul eventueel een toelichting in en druk op E-mail-knop... \n \n Druk op Annuleren (2x) om op de pagina te blijven \n Vink iedereen uit om mailen te voorkomen."
				if (nMail>0) { strBericht+=" \n \n [ OK ] : mails worden automatisch verzonden. "}
				if (cojsTAAL=="gb") {strBericht="Please mail the form before leaving the page"}
				if (nMailChk>0)
				 {
					lX=confirm(strBericht)
					if (lX)		//okay
						{
							//alert(document.cbsFPrint.MAIL.value+"/"+nMailChk)
							if (nMailChk>0)		//blokkkeer
							{	document.cbsFPrint.MAIL.value=1;
								document.cbsFPrint.CB_IS_SAVED.value="Y";
								document.cbsFPrint.submit();
							}
						  	return true;		//cancel event
						  }
					else
						{ 						
							event.returnValue=strBericht 
							//alert(document.cbsFPrint.MAIL.value+"/"+nMailChk)
							//alert(document.cbsFPrint.MAIL.value)
							//alert(nMail)
							if (nMail>9999)	//blokeer
							{	document.cbsFPrint.MAIL.value=1;
								document.cbsFPrint.CB_IS_SAVED.value="Y";
								document.cbsFPrint.submit();
							}
							//event.cancelBubble
						} 
				 }		//mail is aangevinkt
				return true		
				}
			if (strFNaam=="UserAdminEdit") 
				{ 
					strBericht="Wachtwoord NIET opslaan? Dan wordt u uitgelogd! \n Het wachtwoord moet VERPLICHT worden ingevoerd! \n \n Klik op ANNULEREN 2x (indien u op Ok klikt wordt u uitgelogd)"
					lX=confirm(strBericht)
					if (lX)
						{
						  top.document.location.replace("cbs_logout.asp")
						  }
					else
						{ 						
							event.returnValue=strBericht 

							//OK daarna Annuleren en je wordt niet uitgelogd
							//e.stopPropagation();
						} //e.stopPropagation();

					//e.preventDefault(); 		//annuleer het event
					//event.returnValue=strBericht
					
				}		//UserAdminEdit
			else	
			//if (oDocForm.name=="FormIMS") 
				{
				lX=confirm(strBericht)
				if (lX)
					{ 
					  cbjsLockFormIMS("UNLOCK")	//unlock het record en verlaat de pagina
					  //e.preventDefault(); 		//annuleer het event : EVENT BETAAN NIET!
					  //e.returnValue=true; 
					  return true;}		//cancel event
				else
					{ event.returnValue=strBericht } //e.stopPropagation();
				}
// cbjsLockFormIMS("UNLOCK")
			}
	}	 
catch(err)
	{ } 		//geen check
 return true
}
//---------------------------------------------------------------------------------------------------
function cbjsLockFormIMS(strLOCK)
//locking/editing meldingsformulier
{
var strBericht="Moment, locking record..."	
var oDocForm=document.forms[0];		//uitgaande v/e popup formulier	
//window.open("cbs_multipurp.asp?intActie=12345&lngSys_Key="+oDocForm("Sys_Key").value )
//cbLockMelding
//if (oDocForm("btOpslaan").disabled=false;
if (cojsTAAL=="nl") { strBericht="Moment, locking record. U kunt ondertussen al met de invoer starten..."}
window.status=strBericht
if (strLOCK=="")
	{ if (oDocForm("CB_IS_SAVED").value=="Y") 
		{ strLOCK="LOCK" }	 //toggle 
	  else
	  	{ strLOCK="UNLOCK" }	
	}
if (strLOCK=="LOCKOVERULE")
	{ if (event.shiftKey==false)	{ strLOCK="LOCK" }	}  //toggle met normale lock
			
xmlHttp=GetXmlHttpObject()		//public
if (xmlHttp==null)
	{
	alert ("Browser does not support HTTP Request")
	return
	} 
var lngSys_Key=oDocForm("Sys_Key").value	
var url="cbs_multipurp.asp?intActie=12345&strLijst="+strLOCK+"&lngSys_Key="+lngSys_Key		//test routine jan07
url+="&sid="+Math.random()
xmlHttp.onreadystatechange=stateChangedLOCKIMS 
xmlHttp.open("GET",url,true)
xmlHttp.send(null)
}
//---------------------------------------------------------------------------------------------------
function stateChangedLOCKIMS() 
{ 
var strRT,i
var oDocForm=document.forms[0];		//formulier
var strWAAN= "WIJZIGEN AAN"	, strWUIT="Record in gebruik"	
if (cojsTAAL=="gb") {strWAAN="EDIT"; strWUIT="EDIT OFF"}
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	//document.getElementById("txtHint").innerHTML=xmlHttp.responseText 
	strRT=xmlHttp.responseText		//haal op wat met response.write is gegenereerd.
	window.status = strRT
	if ( strRT.indexOf("LOCKED")>=0 )		//recod is succesvol gelockt.
		{
		oDocForm("CB_IS_SAVED").value="N";
		oDocForm("btOpslaan").disabled=false;
		oDocForm("btEditOn").style.backgroundColor="#00FF00"
		oDocForm("btEditOn").value= strWAAN
		oDocForm("btEditOn").disabled=true
		oDocForm("btEditOn2").style.backgroundColor="#00FF00"
		oDocForm("btEditOn2").value= strWAAN
		oDocForm("btEditOn2").disabled=true
		} 
	else
		{
		    //oDocForm.style.backgroundColor="#FF0000"
		    try {
		        oDocForm("btEditOn").style.backgroundColor = "#FF0000"
		        oDocForm("btEditOn").value = strWUIT
		        oDocForm("btEditOn2").style.backgroundColor = "#FF0000"
		        oDocForm("btEditOn2").value = strWUIT
		    }
		    catch (err) { }
		    if (strRT.lenghth>0 && strRT.indexOf("Sess") < 0) 		//sessie niet meer actief
			{ alert(strRT) }
		}
	} 
} 
//---------------------------------------------------------------------------------------------------
function cbCheckPassWord(nLengte, strPassword)
//controle functie ingevoerd wachtwoord, script ook nog een serverside uitvoeren?
{
	var strBericht="Wachtwoord moet minimaal "+ nLengte + " tekens hebben."
	if (cojsTAAL=="gb") {strBericht="Password should have at least "+ nLengte + " characters"}
	if (strPassword.length < nLengte )
	{ 	alert(strBericht)
		document.forms[0]("btOpslaan").style.backgroundColor="#FF8000"		//rood;	
		return false
	}
}
//---------------------------------------------------------------------------------------------------
function cbCheckPassWord2(passwd)
{	//check tekens niet toegestaan
	var strBericht="Enkele/dubbele aanhalingstekens of % in het wachtwoord is niet toegestaan. Voer het wachtwoord opnieuw in...."
	if (cojsTAAL=="gb") {strBericht="Characters like quotes or % are not allowed. Please, re-enter the password"}
if ( passwd.indexOf("'")>-1 || passwd.indexOf('"')>-1 || passwd.indexOf("%")>-1 ) 
	{
	alert(strBericht);
	passwd.value=""
	document.forms[0].reset()
	return false
	}
}
//---------------------------------------------------------------------------------------------------
function testPasswordCss(thispasswd, nLengte, nSterkte)
{
//	var oDocForm=document.forms[0];		//formulier
var passwd=thispasswd.value, strColor
var description = cbVulWWClass()
var intScore   = 0
var strVerdict = 0
var intClass   = 0
var oDocForm   = document.forms[0];		//formulier
// PASSWORD LENGTH
if (nLengte<=0)		//lengte 0 is toegestaan
	{ 
	oDocForm("btOpslaan").disabled = false;
	oDocForm("btOpslaan").style.backgroundColor="#00FF00";
	return true
	}
if (cbCheckPassWord2(passwd)==false)
	{return false}
	
if (passwd.length==0 || !passwd.length)                         // length 0
{	intScore = -1 }
else if (passwd.length>0 && passwd.length<5) // length between 1 and 4
{		intScore = (intScore+3)	}
else if (passwd.length>4 && passwd.length<8) // length between 5 and 7
{		intScore = (intScore+6)	}
else if (passwd.length>7 && passwd.length<12)// length between 8 and 15
{		intScore = (intScore+12)	}
else if (passwd.length>11)                    // length 16 or more
{		intScore = (intScore+18)	}

// LETTERS (Not exactly implemented as dictacted above because of my limited understanding of Regex)
if (passwd.match(/[a-z]/))                              // [verified] at least one lower case letter
{		intScore = (intScore+1)	}
if (passwd.match(/[A-Z]/))                              // [verified] at least one upper case letter
{		intScore = (intScore+5)	}
// NUMBERS
if (passwd.match(/\d+/))                                 // [verified] at least one number
{		intScore = (intScore+5)	}
if (passwd.match(/(.*[0-9].*[0-9].*[0-9])/))             // [verified] at least three numbers
{		intScore = (intScore+5)	}
// SPECIAL CHAR
if (passwd.match(/.[!,@,#,$,%,^,&,*,?,_,~]/))            // [verified] at least one special character
{		intScore = (intScore+5)	}
if (passwd.match(/(.*[!,@,#,$,%,^,&,*,?,_,~].*[!,@,#,$,%,^,&,*,?,_,~])/))
{		intScore = (intScore+5)	}
// COMBOS
if (passwd.match(/([a-z].*[A-Z])|([A-Z].*[a-z])/))        // [verified] both upper and lower case
{		intScore = (intScore+2)	}	
if (passwd.match(/([a-zA-Z])/) && passwd.match(/([0-9])/)) // [verified] both letters and numbers
{			intScore = (intScore+2)	}
if (passwd.match(/([a-zA-Z0-9].*[!,@,#,$,%,^,&,*,?,_,~])|([!,@,#,$,%,^,&,*,?,_,~].*[a-zA-Z0-9])/))
{		intScore = (intScore+2)	}
if(intScore == -1)
{
   intClass=5
   document.getElementById("meterEmpty").style.width= "100%";
   document.getElementById("meterFull").style.width= "0";
}
else if(intScore > -1 && intScore < 16)
{
   intClass=0
   document.getElementById("meterEmpty").style.width= "100%";
   document.getElementById("meterFull").style.width= "0%";
}
else if (intScore > 15 && intScore < 25)
{
	intClass=1
   document.getElementById("meterEmpty").style.width= "100%";
   document.getElementById("meterFull").style.width= "25%";
}
else if (intScore > 24 && intScore < 35)
{
	intClass=2
  document.getElementById("meterEmpty").style.width= "100%";
  document.getElementById("meterFull").style.width= "50%";
}
else if (intScore > 34 && intScore < 45)
{
	intClass=3
    document.getElementById("meterEmpty").style.width= "100%";
    document.getElementById("meterFull").style.width= "75%";
}
else
{
	intClass=4
    document.getElementById("meterEmpty").style.width= "100%";
    document.getElementById("meterFull").style.width= "100%";
}
//echter als de sterkte voldoet	aanh minimum dan groen
strVerdict = description[intClass];
if (intClass>=nSterkte && intClass!=5) 
	{  oDocForm("btOpslaan").disabled=false
	   strColor="#00FF00"   //groen is okay
	}
else
	{   strColor="#FF0000"		//rood //strColor="FFFF00"		//geel
	}
oDocForm("btOpslaan").style.backgroundColor=strColor;	
document.getElementById("meterFull").style.backgroundColor="#0000FF";	
document.getElementById("pwdTest").style.backgroundColor=strColor;	
document.getElementById("Words").innerHTML= (strVerdict)+" (eis="+ description[nSterkte]+")" ;
}
//---------------------------------------------------------------------------------------------------
function cbVulWWClass()
{
var description = new Array();
if (cojsTAAL=="gb")
 { 
	description[0] = "Very weak";		//Minimum Strength Not Met
	description[1] = "Weak";
	description[2] = "Improving";
	description[3] = "Strong";
	description[4] = "Strongest";
	description[5] = "Begin Typing";
 }
else
 {
	description[0] = "Erg zwak";
	description[1] = "Zwak";
	description[2] = "Beter";
	description[3] = "Sterk";
	description[4] = "Sterkste";
	description[5] = "Begin met typen";
 }
return description 
}
//---------------------------------------------------------------------------------------------------
function cbToProperCase(t)
{
var strH= t.charAt(0).toUpperCase(), nL=t.length
i=1
while (i<nL)
{
	if (t.charAt(i)!=" ")
		{ strH+=t.charAt(i).toLowerCase() }
	else
	{ 	i++
		if (i<=nL) 	{	strH+=" " + t.charAt(i).toUpperCase() }
	}
	i++
}
return strH
} 
//---------------------------------------------------------------------------------------------------
function cbOpenWindowIDX(t, strUrl, strVeld, strWaarde)
{	//open de url met de correct veld(INDEX)/WAARDE
var nPos, nRijC, oVeld, strWa="", strVeldOrg=strVeld
var oDocForm   = document.forms[0];	
//alert(t.parentNode.parentNode.rowIndex)
if (strVeld.indexOf("PLETSEL")>-1 || strVeld.indexOf("MAATREG")>-1 || strVeld.indexOf("UDF_DBF")>-1  || strVeld.indexOf("AKTIENEMERS")>-1  || strVeld.indexOf("INTERVIEW")>-1 )
 {
	nPos=t.parentNode.parentNode.rowIndex
	if ( strVeld.indexOf("MAATREG")>-1 || strVeld.indexOf("AKTIENEMERS")>-1 ) 
	{ 	nRijC=2
		if (oDocForm.name=="FormReAct") //alleen voor reactformulier
			{ 
			if (parseInt(oDocForm.nRijMA.value)>3) 	//Zie ook content2.asp cbActieFormR
				{
				if (parseInt(oDocForm.NRIJ_MAATREG.value)>1 ) {strVeld+="["+(nPos-2)+"]"} 
				}
			}
		else {		if (parseInt(oDocForm.NRIJ_MAATREG.value)>2) {strVeld+="["+(nPos-1)+"]"} }		//acties op ims formulier
	}	//uitzondering ivm onbeperkt aantal items
	else		//niet MAATREG of AKTIENEMERS
	{ 	

		if (nPos>0 )	
			{strVeld+="["+(nPos-1)+"]"}
		else
		{ 	nPos=t.parentNode.parentNode.parentNode.rowIndex	//<div kan dit veroorzaken
			if (nPos>0)	{strVeld+="["+(nPos-1)+"]"}
		}
	}
	try
	{
	strWa=eval("document.forms[0]"+"."+strVeld+".value")
	}
	catch(err)
	{		
		try
			{
				strWa=eval("document.forms[0]"+"."+strVeldOrg+".value")
				strVeld=strVeldOrg	//ORGI
			}
			catch(err) {}  //helaas, niet opgelost	
	}
	//alert(strUrl+"&strVeld="+strVeld+"&strLijst="+strWa)
	if (strUrl.indexOf("=48")>-1)		//Call cbContactV(strVeldNM, strPagina, strLijst, "radio")//"cbs_multipurp.asp?intActie=48&strVeld=cNaam¦cNummer&strPagina=A&strLijst=UDF_DBF_V1¦UDF_DBF_V2")'
		{ 
			if (strUrl.indexOf("strPagina")>0)
				{		window.open( strUrl+"&strVeld="+strWaarde+"&strLijst="+strVeld ) }		// zonder pagina index

			else
				{		window.open( strUrl+"&strVeld="+strWaarde+"&strPagina=A&strLijst="+strVeld ) }		// met pagina index
		}
	else	
		if (strUrl.indexOf("=47")>-1)		//Call cbContactV(strVeldNM, strPagina, strLijst, "radio")//"cbs_multipurp.asp?intActie=48&strVeld=cNaam¦cNummer&strPagina=A&strLijst=UDF_DBF_V1¦UDF_DBF_V2")'

		{ 	//sept08: klopt iets niet, strVeld moet in principe altijd cNaam zijn! strVeld (in strLijst) is het veld waarin eht opgeslagen moet worden
			window.open( strUrl+"&strVeld=cNaam&strLijst="+strVeld ) } 
	else
		{	window.open( strUrl+"&strVeld="+strVeld+"&strLijst="+strWa ) } 
 }
}

//---------------------------------------------------------------------------------------------------
function cbtestOrgCMR()
//Testfunctie Organon CMR database bij bewaren
{
var oDocForm=document.forms[0], strAnt
if (oDocForm.cboKeuzeV1[2].checked==true && oDocForm.cboKeuzeV1[0].checked==false && oDocForm.cboKeuzeV1[1].checked==false)
	{ 
	if (oDocForm.MELDING_AANTALPERS.value==0) 
		{ alert("Wijzig het aantal personen > 0"); return false; } 
	}
else
	{
	if (oDocForm.NRIJ_UDF_DBF.value==2)
		{ 
		if (oDocForm.UDF_DBF_V1.value.substr(0,5)=="#!X!X")
			{ alert("Vul minimaal 1 naam in!")
			  return(false)
			}
		};
	}
if (parseInt(oDocForm.Sys_Key.value)>0 ) 
	{ 
		//return(confirm("Weet u zeker dat de BESTAANDE registratie OVERSCHREVEN mag worden?")) 
		 strAnt=prompt("Weet u zeker dat de BESTAANDE registratie OVERSCHREVEN mag worden? (vul in JA of Nee)","Nee")
		 if (strAnt != null && strAnt != "")
			{ return (strAnt.toUpperCase()=="JA") }
		else
			{ return false } 
	};
}
//---------------------------------------------------------------------------------------------------

function cbShowHintHSESIS(strZoek)
{
if (strZoek.length==0)
  { 
  document.getElementById("HSEINP").value="";
  document.getElementById("SISRESULT").innerHTML="-"
  return;
  }
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)
  {
  alert ("Your browser does not support AJAX!");
  return;
  } 
document.getElementById("SISRESULT").innerHTML=  "<B>MOMENT, DE STOFFENLIJST WORDT NU DOORZOCHT....</B><img src='images/zandloper.gif'>"  
window.status = "MOMENT, DE STOFFENLIJST WORDT DOORZOCHT...."  
//var lngSys_Key=oDocForm("Sys_Key").value	
var url="cbs_multipurp.asp?intActie=123456&strLijst="+strZoek				//+"&lngSys_Key="+lngSys_Key		//test routine jan07
url+="&sid="+Math.random()
//alert(url)
xmlHttp.onreadystatechange=stateChangedHSESIS 
xmlHttp.open("GET",url,true)
xmlHttp.send(null)
}
//---------------------------------------------------------------------------------------------------
function stateChangedHSESIS() 
{ 
var strRT,i
var oDocForm=document.forms[0];		//formulier
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	document.getElementById("SISRESULT").innerHTML=xmlHttp.responseText 
	window.status = "MAAK UW KEUZE..."  
	oDocForm.HSEINP.value=""	//maak weer leeg
	oDocForm.MELDING_INFO3.focus()
	} 
} 
//---------------------------------------------------------------------------------------------------
function cbShowHintCONTACT(t)
{
	// ORGANON CMR DATA
var nPos=0
var strZoek=t.value
var oDocForm=document.forms[0];		//formulier
if (strZoek.length<2) { return true }	//2 tekens of meer is minimum
//if (oDocForm.NRIJ_UDF_DBF.value>2) {
	nPos=t.parentNode.parentNode.rowIndex 
//alert(document.getElementsByName("CBCONTACTID").length)
//if (nPos>0 )	{ nPos=nPos-1 }
if (strZoek.length==0)
  { 
	  document.getElementById("CBCONTACTID").innerHTML="-"
	  return;
  }
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)
  {
  alert ("Your browser does not support AJAX!");
  return;
  } 
document.getElementById("CBCONTACTID").innerHTML=  "<B>MOMENT, DE NAMENLIJST WORDT NU DOORZOCHT....</B><img src='images/zandloper.gif'>"  
window.status = "MOMENT, DE NAMENLIJST WORDT DOORZOCHT...."  
//var lngSys_Key=oDocForm("Sys_Key").value	
var url="cbs_multipurp.asp?intActie=1234567&strLijst="+strZoek+"&strPagina="+nPos				//+"&lngSys_Key="+lngSys_Key		//test routine jan07
url+="&sid="+Math.random()
xmlHttp.onreadystatechange=stateChangedCONTACT		//reference to function, parameters niet mogelijk 
xmlHttp.open("GET",url,true)		//open de url via GET (POST, HEAD), true: Asynchroon dus nog voordat de server klaar is met antwoorden
xmlHttp.send(null)					//The parameter to the send() method can be any data you want to send to the server if POST-ing the request
}
//---------------------------------------------------------------------------------------------------
function stateChangedCONTACT() 
{ 
// ORGANON CMR DATA
var strRT,i, nPos=1
var oDocForm=document.forms[0];		//formulier
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	document.getElementById("CBCONTACTID").innerHTML=xmlHttp.responseText 
	window.status = "MAAK UW KEUZE..." 
	//oDocForm.HSEINP.value=""	//maak weer leeg
	} 
} 
//---------------------------------------------------------------------------------------------------
function cbjsVulVeldAan(t, strVeld)
{
var nPos, vWaarde, strOVeld, oVeld, oDocForm=document.forms[0];		//formulier	
// indien het veld+FULL toevoeging aanwezig is dan de complete indexregel erin zetten text
var strVeldFULL=strVeld+"FULL", strOVeldFULL, oVeldFULL, tFULL=t.options[t.selectedIndex].text
//alert(strVeld)
//cbolijst.options[cbolijst.selectedIndex].text	
nPos=strVeld.indexOf("[")	// Meerdere rijen?
if (nPos<1)
 { 
 oVeld=oDocForm(strVeld)
 try 
    {oVeldFULL=oDocForm(strVeldFULL)} 
 catch(err) {};		//veld hoeft niet te bestaan
 vWaarde=oVeld.value
 }
else
 { 
 strOVeld="document.forms[0]."+strVeld
 strOVeldFULL="document.forms[0]."+strVeldFULL
try
 	{ 
	oVeld=eval(strOVeld);  vWaarde=oVeld.value 
	 try {oVeldFULL=oDocForm(strOVeldFULL)} 
	 catch(err) {};		//veld hoeft niet te bestaan
	}
 catch(err)
 	{ 
		strVeld=strVeld.substr(0,nPos)
		strOVeld="document.forms[0]."+strVeld	
		oVeld=eval(strOVeld)
		vWaarde=oVeld.value
	}
 
 }
//catch(err)
//alert(vWaarde)
try
{
	if (vWaarde!="")
	{
		nPos=tFULL.indexOf("|")		//|

		if (strVeld=="strEMailLst")
			{
			if (nPos>-1) { tFULL=tFULL.substr(nPos+1) }
			tFULL=tFULL.replace(")", "")			
			strOVeld="document.forms[0]."+strVeld
			oVeldFULL=eval(strOVeld)		//forceer veld
			}
		else
			{
			if (nPos>-1) { tFULL=tFULL.substr(0, nPos-1) }
			nPos=tFULL.indexOf("(")
			if (nPos>-1) { 	tFULL=tFULL.substr(nPos+1) } 
			}	//strVeld-strEMailLst

						 


		nPos=vWaarde.lastIndexOf(";")	
		if (nPos>1)
		{
			//oDocForm(strVeld).value=oDocForm(strVeld).value.substr(0,nPos+1)+t.value
			oVeld.value=oVeld.value.substr(0,nPos+1)+t.value
			try {oVeldFULL.value=oVeldFULL.value.substr(0,nPos+1)+tFULL   } 
			catch(err) {}		//veld hoeft niet te bestaan, volledig

		}
		else
		{
			oVeld.value=t.value
			try {oVeldFULL.value=tFULL   } 
			catch(err) {}		//veld hoeft niet te bestaan, volledig
		} 
	}
}
catch(err)	{}		//kan zijn dat veld niet gevuld is
}
//---------------------------------------------------------------------------------------------------
function cbShowHintAlg(t, strID, strInfo1, strUrl)
{
// ALGEMENE FUNCTION: t: object (invoer veld), strID: id van tabelkolom of andere, strINfo1: info-test bij zoeken, strUrl: om te leiden naar Url...
// t: this, strId: document.getElementById(strID).xxx, strInfo1: bericht (bijv. moment), strUrl: strUrl: om te leiden naar Url...
var url, nPos=0, strBericht, nPos
var nL, strZoek=t.value
var strVeldNaam=t.name
var oDocForm=document.forms[0];		//formulier
var nPosRow=0 //hiermee zouden we een rij eronder kunnen invoegen
//LET OP: INDEX CORRECITE VOOR REACT IS -2 ZIE CONTENT.ASP, cbNamenAjax()

if (strUrl=="INDEX")
	{ nPosRow=t.parentNode.parentNode.rowIndex; strUrl=""
		if (oDocForm.name=="FormReAct"); {nPosRow--;}
	} 	//replace(strUrl, "INDEX", "")
strJXIDNaam=strID		//Kopieer naar globale variabele: ID waarvan de innerhtml hervuld moet worden
//alert(window.event.keyCode)=186 werkt niet omdat via shift eenandere waarde komt bijv shift+2 geeft keycode 2
nL=strZoek.length
if (strZoek.substr(nL-1)==";")
	{return true } 
if (strZoek.indexOf(";")>1) { nPos=strZoek.lastIndexOf(";"); strZoek=strZoek.substr(nPos+1) } 
nL=strZoek.length
if (nL<2) { return true }	//2 tekens of meer is minimum
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)  {  alert ("Your browser does not support AJAX!");  return;  } 
//'AKTIENEMERS_NAAM_AIDRIJ'
document.getElementById(strID+"RIJ").style.display="block"
document.getElementById(strID+"RIJ").focus()
//document.getElementById(strID+"RIJ").style.top=800
//document.getElementById(strID).style.top=800
strBericht="MOMENT, DE NAMENLIJST WORDT NU DOORZOCHT.... "
if (cojsTAAL=="gb") {strBericht="Moment...searching"}
if (strInfo1.length < 1) { strInfo1 += "<B>" + strBericht + "</B><img src='images/zandloper.gif'>" }
document.getElementById(strID).innerHTML=strInfo1 
//doet niets 
window.status = "..." 
//alert(oDocForm.AKTIENEMERS_NAAM.value)
url = strUrl
if (strUrl.length < 1 || strUrl == "1000020")
	{
	//nPos=t.parentNode.parentNode.rowIndex 	
	    //	url="cbs_multipurp.asp?intActie=123456789&strLijst="+strZoek+"&strVeld="+strVeldNaam		//+"&strPagina="+nPosRow				//+"&lngSys_Key="+lngSys_Key		//test routine jan07
	    if (strUrl == "1000020")   //jan11
	    {
	        nPosRow = t.parentNode.parentNode.rowIndex
	        url = "cbs_multipurp.asp?intActie=1000020&strLijst=" + strZoek + "&strVeld=" + strVeldNaam + "&strPagina=" + nPosRow
         }
	    else
	    { url = "cbs_multipurp.asp?intActie=123456789&strLijst=" + strZoek + "&strVeld=" + strVeldNaam + "&strPagina=" + nPosRow } 				//+"&lngSys_Key="+lngSys_Key		//test routine jan07
	}
url+="&sid="+Math.random()
xmlHttp.onreadystatechange=stateChangedAlg		//reference to function, parameters niet mogelijk 
xmlHttp.open("GET",url,true)		//open de url via GET (POST, HEAD), true: Asynchroon dus nog voordat de server klaar is met antwoorden
xmlHttp.send(null)					//The parameter to the send() method can be any data you want to send to the server if POST-ing the request
}
//---------------------------------------------------------------------------------------------------
function stateChangedAlg() 
{ 
// algemeen: strJXIDNaam is de ID 
var strRT, nPos, nPos2, strH, nCH
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	strRT=xmlHttp.responseText 
	document.getElementById(strJXIDNaam).innerHTML=strRT
	try		//oDocForm.name=="FormReAct")
		{
			if (document.forms[0].name=="FormReAct")
				{
					nCH=screen.availHeight-150;		//document.body.clientHeight-150		//hoogte vd window
					nPos=nMouseY+20
					nPos2=document.getElementById("cboAJAX").length		//lengte in regels a 5px
					if ( nPos+(nPos2*15)>nCH ) { nPos=nPos-(nPos2*15) }
					if (nPos2>20) {nPos=0}
					document.getElementById("cboAJAX").style.top=nPos; document.getElementById("cboAJAX").style.left=nMouseX-20;
				}
		}
	 catch(err) {}		// maakt niet uit, is positioneren

	nPos=strRT.indexOf("~-")
	if (nPos>-1) {nPos2=strRT.indexOf("-",4); strH="* ! ! ! ! ! ! ! ! *" + strRT.substring(nPos+2, nPos2)+"* ! ! ! ! ! ! ! ! *"; window.status=strH+strH } 
	} 
} 
//---------------------------------------------------------------------------------------------------
function cbSHCONP(t, iIndex, strShowVeld, strFilter)
{
//t: this, iIndex: veldindex, strShowVeld: veld waarin resultaten moeten komen, strFilter: eventueel filter (where component contactpersonen tabel)	
var url, strBericht, nPos=-1
var strZoek=t.value
var vInvoerVeld=t.name, vHulp
var oDocForm=document.forms[0];		//formulier
if (strZoek.length<2) { return true }	//2 tekens of meer is minimum
//alert(strFilter)
//if (oDocForm.NRIJ_UDF_DBF.value>2) {
if (iIndex>-1)	
	{ 
	nPos=t.parentNode.parentNode.rowIndex 	//alert(document.getElementsByName("CBCONTACTID").length)	//if (nPos>0 )	{ nPos=nPos-1 }
	vHulp=vInvoerVeld
	try
	{
		oDocForm(vInvoerVeld)[nPos-1].value  		//veld bestaand niet, index nodig
		vInvoerVeld+="["+(nPos-1)+"]"
	}
	 catch(err) 
	 { 	vInvoerVeld=vHulp
	 }	//fout overslaan voor deze groep

	}
document.getElementById(strShowVeld).style.display="block"
document.getElementById("CBCONTACTID2").style.display="block"

if (strZoek.length==0)
  { 
	  document.getElementById(strShowVeld).innerHTML="-"
	  return;
  }
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)
  {
  alert ("Your browser does not support AJAX!");
  return;
  } 
strBericht="MOMENT, DE NAMENLIJST WORDT NU DOORZOCHT.... "
if (cojsTAAL=="gb") {strBericht="Moment...searching"}
document.getElementById(strShowVeld).innerHTML=  "<B>"+strBericht+"</B><img src='images/zandloper.gif'>"  
window.status = strBericht 
//var lngSys_Key=oDocForm("Sys_Key").value	
var url="cbs_multipurp.asp?intActie=12345678&strLijst="+strZoek+"&strPagina="+nPos+"&strVeld="+vInvoerVeld+"&strFilter="+strFilter					//+"&lngSys_Key="+lngSys_Key		//test routine jan07
url+="&sid="+Math.random()
xmlHttp.onreadystatechange=stateChangedCONTACTPERS2
xmlHttp.open("GET",url,true)
xmlHttp.send(null)
}
//---------------------------------------------------------------------------------------------------
function stateChangedCONTACTPERS2() 
{ 
var strRT,i, nPos=1
var oDocForm=document.forms[0];		//formulier
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	strShowVeld="CBCONTACTID"			// Lukt niet om als parameter door te geven. Eventueel via globale variabele...
	document.getElementById(strShowVeld).innerHTML=xmlHttp.responseText 
	window.status = "MAAK UW KEUZE..."  
	//oDocForm.HSEINP.value=""	//maak weer leeg
	} 
} 
//---------------------------------------------------------------------------------------------------
function stateChangedGGO() 
{ 
var strRT,i
var oDocForm=document.forms[0];		//formulier
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	//document.getElementById("OPLER").innerHTML=
	eval(xmlHttp.responseText)
	//alert(xmlHttp.responseText)
	//bijv:
	//oDocForm.MELDING_CGGO_BEDRIJF1.value="ClassBase Inc."
	//oDocForm.MELDING_CGGO_WERKKRING1[1].checked=true
	//oDocForm.cboKeuzeSW04[1].selected=true
	//oDocForm.cboKeuzeSW02[1].checked=true


	//window.status = "MAAK UW KEUZE..."  
	} 
}
//---------------------------------------------------------------------------------------------------
function cbShowGGOopleiding(t, strVeldNaam, strUrl)
{
	// ALGEMENE FUNCTION: t: object (invoer veld), strID: id van tabelkolom of andere, strINfo1: info-test bij zoeken, strUrl: om te leiden naar Url...
var url, nPos=0, strBericht, nPos
var nL, strZoek=t.value
var strVeldNaam=t.name
var oDocForm=document.forms[0];		//formulier
var nPosRow=0 //hiermee zouden we een rij eronder kunnen invoegen
//LET OP: INDEX CORRECITE VOOR REACT IS -2 ZIE CONTENT.ASP, cbNamenAjax()

//strJXIDNaam=strID		//Kopieer naar globale variabele: ID waarvan de innerhtml hervuld moet worden
//alert(window.event.keyCode)=186 werkt niet omdat via shift eenandere waarde komt bijv shift+2 geeft keycode 2
nL=strZoek.length
if (nL<2) { return true }	//2 tekens of meer is minimum
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)  {  alert ("Your browser does not support AJAX!");  return;  } 
//url=strUrl
//if (strUrl.length<1)
	//{
	//nPos=t.parentNode.parentNode.rowIndex 	
//	url="cbs_multipurp.asp?intActie=123456789&strLijst="+strZoek+"&strVeld="+strVeldNaam		//+"&strPagina="+nPosRow				//+"&lngSys_Key="+lngSys_Key		//test routine jan07
	url="cbs_multipurp.asp?intActie=123456&strPagina=GGO&strLijst="+strZoek+"&strVeld="+strVeldNaam			//+"&lngSys_Key="+lngSys_Key		//test routine jan07
	//}
url+="&sid="+Math.random()
xmlHttp.onreadystatechange=stateChangedGGO		//reference to function, parameters niet mogelijk 
xmlHttp.open("GET",url,true)		//open de url via GET (POST, HEAD), true: Asynchroon dus nog voordat de server klaar is met antwoorden
xmlHttp.send(null)					//The parameter to the send() method can be any data you want to send to the server if POST-ing the request
}
//---------------------------------------------------------------------------------------------------
function cbShowInfoAJAX(t, strUrl, strPagina)
{
// APRIL10 ALGEMENE FUNCTION: t: object (invoer veld), strUrl: om te leiden naar Url..., strZoek: vaste intActie
var url, nPos=0, strBericht, nPos
var nL, strZoek=t.value
var strVeldNaam=t.name
var oDocForm=document.forms[0];		//formulier
var nPosRow=0 //hiermee zouden we een rij eronder kunnen invoegen
//LET OP: INDEX CORRECITE VOOR REACT IS -2 ZIE CONTENT.ASP, cbNamenAjax()

//strJXIDNaam=strID		//Kopieer naar globale variabele: ID waarvan de innerhtml hervuld moet worden
//alert(window.event.keyCode)=186 werkt niet omdat via shift eenandere waarde komt bijv shift+2 geeft keycode 2
nL=strZoek.length
if (nL<2) { return true }	//2 tekens of meer is minimum
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)  {  alert ("Your browser does not support AJAX!");  return;  } 
url=strUrl
if (strUrl.length<1 && strPagina.length>0)
	{
	if (strPagina=="BAM") { strVeldNaam=oDocForm.cboKeuzeV3.value;}		//oDocForm.cboKeuzeV3.value; alert(strVeldNaam)
	url="cbs_multipurp.asp?intActie=123456&strPagina="+strPagina+"&strLijst="+strZoek+"&strVeld="+strVeldNaam			//+"&lngSys_Key="+lngSys_Key		//test routine jan07
	}
url+="&sid="+Math.random()
xmlHttp.onreadystatechange=stateChangedGGO		//reference to function, parameters niet mogelijk 
xmlHttp.open("GET",url,true)		//open de url via GET (POST, HEAD), true: Asynchroon dus nog voordat de server klaar is met antwoorden
xmlHttp.send(null)					//The parameter to the send() method can be any data you want to send to the server if POST-ing the request
}

//---------------------------------------------------------------------------------------------------

function cbIVWdisableItems(lPa)
{
if (lPa) 
	{ var oDoc=opener.document.forms[0]; }
else { 
    var oDoc=document.forms[0];
    try {
        if (oDoc.MELDING_OBSERVER.value.length > 6) {
            oDoc.btEditOn.disabled = true;   //apr11
            oDoc.cboKeuzeL1.disabled = true;
            oDoc.cboKeuzeV3a.disabled = true;
            oDoc.cboKeuzeS2a.disabled = true;
            //	oDoc.cboKeuzeV2a.disabled=true;
            oDoc.cboKeuzeS3a.disabled = true;
            oDoc.butV3.disabled = true;
            oDoc.butS2.disabled = true;
            //oDoc.butV2.disabled=true;
            oDoc.butS3.disabled = true;
            oDoc._NAARHAZARD[1].checked = true
            //fOForm(_NAARHAZARD)[j].checked
            //oDoc._NAARHAZARD[1].checked=true
            //oDoc._NAARHAZARD.disabled=true
            //oDoc.getElementById("NHAZ").style.display="none"
            cbShowHideName("NHAZ", "none");
            //oDoc.strVeldenDisabled.value += "cboKeuzeL1;cboKeuzeV3a;cboKeuzeS3a;cboKeuzeS2a"
            //Script kent deze nog niet: document.btOpslaan.visible = false;
           // document.btEditOn2.disabled = true;   //apr11

        }   //if
    }   //try
    catch (err) {
        if (oDoc.MELDING_OBSERVER[1].value.length > 6) {
            oDoc.btEditOn.disabled = true;   //apr11
            oDoc.cboKeuzeL1.disabled = true;
            oDoc.cboKeuzeV3a.disabled = true;
            oDoc.cboKeuzeS2a.disabled = true;
            //	oDoc.cboKeuzeV2a.disabled=true;
            oDoc.cboKeuzeS3a.disabled = true;
            oDoc.butV3.disabled = true;
            oDoc.butS2.disabled = true;
            //oDoc.butV2.disabled=true;
            oDoc.butS3.disabled = true;
            oDoc._NAARHAZARD[1].checked = true
            //fOForm(_NAARHAZARD)[j].checked
            //oDoc._NAARHAZARD[1].checked=true
            //oDoc._NAARHAZARD.disabled=true
            //oDoc.getElementById("NHAZ").style.display="none"
            cbShowHideName("NHAZ", "none");

            //lateroDoc.strVeldenDisabled.value += "cboKeuzeL1;cboKeuzeV3a;cboKeuzeS3a;cboKeuzeS2a"
            //document.btOpslaan.visible = false;
            //document.btEditOn2.disabled = true;   //apr11
            
        }
    }
    }  //if
}
//---------------------------------------------------------------------------------------------------
function cbIVWCheckYear()
{
var vandaag= new Date()		//actuele datum
var curYear= vandaag.getFullYear()		//LET OP!!! niet getYear of 
if (curYear != document.forms[0].MELDING_OCCDATE_YEAR.value)
	{ alert("Jaar in onderzoeksnummer aanpassen?" + document.forms[0].OBSERVER.value ) }
return true			
}
//---------------------------------------------------------------------------------------------------
function cbTelHaakjes(nMax)
{
var nO=0, nS=0, strBericht="Aantal openenings - sluithaakjes moeten gelijk zijn"
var oDocForm=document.forms[0];		//formulier
for (i = 0; i < nMax; i++)		//complete lijst kopiëren
		{
			if (oDocForm.haakje[i].value.length>0)
			{
			if (oDocForm.haakje[i].value.indexOf("(") > -1 ) { nO++ }
			if (oDocForm.haakje[i].value.indexOf(")") > -1 ) { nS++ }
			 //alert(oDocForm.haakje[i].value+":"+i+"/"+nO+"/"+nS)
			}
		}
if (cojsTAAL=="gb"); {strBericht="  number of )( not in balance "}
if (nO!=nS)		{ alert(strBericht+nO+"/"+nS) } 
return (nO==nS)		
}

//---------------------------------------------------------------------------------------------------		
function cbMaatregClick(t)
//indien in het vak met de acties geklikt wordt, moet er een popupvenster komen.
//indien in het popupvenster in hetzelde vak geklikt wordt, mag er nie weer een popupvenster komen
{
var lOokViaRegel=false	
try
	{
		lOokViaRegel=(document.forms[0].MAATREGVIAREGEL.value=="x")		//juni09 ook invoer via de regels, dus niet perse via PopUp
	}
catch(err)	{}
if (document.forms[0].name!="FormVoort" && lOokViaRegel==false)	
		{  cbOpenVoortgang(t, "MAATREG_VOLGNR") }
}
//---------------------------------------------------------------------------------------------------		
function cbMaatRegAfdatum(strTref)
//vul de afhandelingsdatum ahv voortgangSTatus (strTref)
// oForm: opener.document.forms[0] of document.forms[0]
// iItemnr: volgnummer in hoofdformulier of spatie indien n.v.t.
// daFormat als parameter doorgeven???
{
var d = new Date()	
var iItemnr="", strHulp=strTref.toUpperCase()
var oForm=document.forms[0]
//if (strTref.substr(8,2)=="99" || strHulp.indexOf("AFGESLOTEN")>-1 || strHulp.indexOf("AFGEDAAN")>-1 || strHulp.indexOf("VERVALLEN")>-1 || strHulp.indexOf("AFGEROND")>-1)		//markering dat de melding afgedaan is. Code 99, voor ReAct echter tekstcontrole
if (strTref.substr(8,2)=="99")		//markering dat de melding afgedaan is. Code 99, voor ReAct echter tekstcontrole
	{
		oForm("MAATREG_DD_KLAAR_DAY").value=d.getDate();
		oForm("MAATREG_DD_KLAAR_MONTH"+iItemnr).value=d.getMonth()+1;
		oForm("MAATREG_DD_KLAAR_YEAR"+iItemnr).value=d.getFullYear();
		oForm("DA_MAATREG_DD_KLAAR_YEAR"+iItemnr).value=cbjsFormatDate(d, daFormat);
	}
else		//wis die datum	
	{
		oForm("MAATREG_DD_KLAAR_DAY"+iItemnr).value="";
		oForm("MAATREG_DD_KLAAR_MONTH"+iItemnr).value="";
		oForm("MAATREG_DD_KLAAR_YEAR"+iItemnr).value="";
		oForm("DA_MAATREG_DD_KLAAR_YEAR"+iItemnr).value="";
		oForm("DA_MAATREG_DD_ASTART_YEAR"+iItemnr).focus();
		oForm("DA_MAATREG_DD_ASTART_YEAR"+iItemnr).style.backgroundColor="yellow"
		oForm("DA_MAATREG_DD_ALARM_YEAR"+iItemnr).style.backgroundColor="yellow"
	}

}

//---------------------------------------------------------------------------------------------------		
function cbMaatRegVulPopUp(iItemnr)
//vul het popupformulier bij de maatregeln (voortgang)
//NIET GEBRUIKT, WELLICHT IN OUDE METHODE! jan09 aangepast
{ 
var oDocForm=document.forms[0];		//formulier
var oPaForm=opener.document.forms[0];		//formulier
//Bepaal het itemnummer op het scherm
//alert(opener.document.forms[0].MELDING_RECOGNITION.value)
//alert(opener.document.forms[0].MAATREG_AKTIE.value)
//alert( parseInt(opener.document.forms[0].NRIJ_MAATREG.value) )
if (parseInt(opener.document.forms[0].NRIJ_MAATREG.value)<3) 
	{ 
	 //document.write(opener.document.forms[0].MAATREG_AKTIE.value)  
	 oDocForm.MAATREG_AKTIE.value=oPaForm.MAATREG_AKTIE.value
	 oDocForm.DA_MAATREG_DD_ASTART_YEAR.value=oPaForm.DA_MAATREG_DD_ASTART_YEAR.value
	 oDocForm.DA_MAATREG_DD_ALARM_YEAR.value=oPaForm.DA_MAATREG_DD_ALARM_YEAR.value
	 oDocForm.DA_MAATREG_DD_KLAAR_YEAR.value=oPaForm.DA_MAATREG_DD_KLAAR_YEAR.value
	 try
	 {
	 	oDocForm.MAATREG_PRIORITEIT.value=oPaForm.MAATREG_PRIORITEIT.value
		oDocForm.MAATREG_KOSTEN.value=oPaForm.MAATREG_KOSTEN.value
		oDocForm.MAATREG_AKTIEFEIT.value=oPaForm.MAATREG_AKTIEFEIT.value
		oDocForm.MAATREG_DD_VERIFICATIE_YEAR.value=oPaForm.DA_MAATREG_DD_VERIFICATIE_YEAR.value
	}
	 catch(err)
	 { 
		//fout overslaan 
	 }
	//if (opener.document.forms[0].MAATREG_DD_KLAAR_YEAR.value>1930)  
	 // { document.write('<br><br><font color=#FF0000>" & strBericht & "</font><br>')}  
	} 
 else 
	{ 
	//document.write(opener.document.forms[0].MAATREG_AKTIE[" & iItemnr-1 & "].value)
	//alert(oPaForm.MAATREG_AKTIE[iItemnr-1].value)
	 oDocForm.MAATREG_AKTIE.value=oPaForm.MAATREG_AKTIE[iItemnr-1].value
	 oDocForm.DA_MAATREG_DD_ASTART_YEAR.value=oPaForm.DA_MAATREG_DD_ASTART_YEAR[iItemnr-1].value
	 oDocForm.DA_MAATREG_DD_ALARM_YEAR.value=oPaForm.DA_MAATREG_DD_ALARM_YEAR[iItemnr-1].value
	 oDocForm.DA_MAATREG_DD_KLAAR_YEAR.value=oPaForm.DA_MAATREG_DD_KLAAR_YEAR[iItemnr-1].value
	 try
	 {
		oDocForm.MAATREG_PRIORITEIT.value=oPaForm.MAATREG_PRIORITEIT[iItemnr-1].value
		oDocForm.MAATREG_KOSTEN.value=oPaForm.MAATREG_KOSTEN[iItemnr-1].value
		oDocForm.MAATREG_AKTIEFEIT.value=oPaForm.MAATREG_AKTIEFEIT[iItemnr-1].value
		oDocForm.DA_MAATREG_DD_VERIFICATIE_YEAR.value=oPaForm.DA_MAATREG_DD_VERIFICATIE_YEAR[iItemnr-1].value
	 } 
	 catch(err)
		{ 
		//fout overslaan 
		}
//if (opener.document.forms[0].MAATREG_DD_KLAAR_YEAR[" & iItemnr-1 & "].value>1930)  
	 //{ document.write('<br><br><font color=#FF0000>" & strBericht & "</font><br>') }}  AFGEDAAN
	}	//rij
}		//function

//---------------------------------------------------------------------------------------------------
function cbRVoortgang(iItemnr, cbs_userid, nDom, daFormat)
//sla de voortgang bij de actie op. lDom: dynamische opbouw gebruikt: ALTIJD. jan 2008 aangepast
// datumformat nodig ivm auto invullen datum afgedaan
//nDom: -98 nieuwe melding, vanuit het hoofdscherm de data naar het popupscherm kopiëren.
{
var i, strVeld, strTref="", strToe, oDocForm, strPaFo, oVeld, oVeld2, strHulp, lAfg, vItem, cbs_useridOrg, strDocF, strVerplicht
var strBericht="U moet een actie invoeren.", strInVerplicht="Invoer verplicht"
var d = new Date()
//var oDocForm=document.forms[0];		//formulier FormVoort
var oDocForm=document.FormVoort
var oPaForm=opener.document.forms[0];		//formulier
iItemnr=iItemnr-1		//juiste rij
vItem="[iItemnr]"
if (parseInt(oPaForm.NRIJ_MAATREG.value)<3) {vItem=""}  		//vItem="" of vItem=[ ]
cbs_useridOrg=cbs_userid		//orginele inhoud bewaren
i=1
if (nDom!=-98)		//nvt voor nieuwe melding en ophalen data
	{
	if (oDocForm.MAATREG_AKTIE.value=="")
		{ 
			if (cojsTAAL=="gb") {strBericht="Action not filled in!"}
			alert(strBericht); 
			oDocForm.MAATREG_AKTIE.style.background="#FFFF80"; 
			oDocForm.MAATREG_AKTIE.focus();
			return false 
		} 
	strToe=oDocForm.strToelichting.value
	if (oDocForm.strActieNaam1.value!="")		//geen naam ingevuld? Dan user-id nemen
		{ cbs_userid=oDocForm.strActieNaam1.value }
	else
		{
			strBericht="U heeft geen actienemer ingevuld. Bent u zelf de actienemer?"
			if (cojsTAAL=="gb") {strBericht="Name not filled in. Are you the actiontaker"}
			if (confirm(strBericht)==false)	{return false }	;
		}
	//alert(document.FormVoort.strActieNaam.value oude waarde)
	strVeld=oDocForm.cboKeuzeST
	strTref=""
	for (i = 0; i<strVeld.length; ++ i)
		{
			if (strVeld[i].checked)	{strTref= strVeld[i].value}
        }

    if (strTref == "")   //|| strToe==""  verplicht de status invoeren!
		 {
			strBericht="U heeft geen status aangegeven."
			if (cojsTAAL=="gb") {strBericht="Status not defined!"}
			alert(strBericht)
			i = 0		//return false
			if (strTref == "") {return false }    //toch!
		 }		//dummy
		 
	//Verplichte velden	 
	try
	{
	if (oDocForm.strVeldenVerplichtDOM[0].value.length>0)
		{
		if (cojsTAAL=="gb") {strInVerplicht="Input required!"}	
		strVerplicht=oDocForm.strVeldenVerplichtDOM[0].value	
		//bijv. MAATREG_DD_ASTART_YEAR;MAATREG_DD_ASTART_DAY;MAATREG_DD_ASTART_MONTH
		if (strVerplicht.indexOf("MAATREG_DD_ASTART_YEAR")>-1 && oDocForm.MAATREG_DD_ASTART_YEAR.value.length==0) {alert(strInVerplicht);oDocForm.DA_MAATREG_DD_ASTART_YEAR.focus(); return false}
		if (strVerplicht.indexOf("MAATREG_DD_ALARM_YEAR")>-1 && oDocForm.MAATREG_DD_ALARM_YEAR.value.length==0) {alert(strInVerplicht);oDocForm.DA_MAATREG_DD_ALARM_YEAR.focus(); return false}
		if (strVerplicht.indexOf("MAATREG_PRIORITEIT")>-1 && oDocForm.MAATREG_PRIORITEIT.value.length==0) {alert(strInVerplicht);oDocForm.MAATREG_PRIORITEIT.focus();return false}
		if (strVerplicht.indexOf("MAATREG_KOSTEN")>-1 && oDocForm.MAATREG_KOSTEN.value.length==0) {alert(strInVerplicht);oDocForm.MAATREG_KOSTEN.focus();return false}
		}
	}
	catch(err) {}
	
	if (i!=0)
	{  
	i=1
//	eval("opener.document.forms[0].MAATREG_VOLGNR"+vItem).value            =oDocForm.MAATREG_VOLGNR.value  : NOG NIET BEKEND BIJ NIEUWE!
	strDocF="opener.document.forms[0]."
	eval(strDocF+"MAATREG_AKTIE"+vItem).value             =oDocForm.MAATREG_AKTIE.value
	//eval(strDocF+"MAATREG_AKTIE"+vItem).onclick=function (){cbMaatregClick(this)} 		//let op: kleine letters voor event onclick						
	//eval(strDocF+"MAATREG_AKTIE"+vItem).onkeydown=function (){cbMaatregClick(this)} 		//let op: kleine letters voor event onclick
	eval(strDocF+"MAATREG_DD_ASTART_DAY"+vItem).value     =oDocForm.MAATREG_DD_ASTART_DAY.value
	eval(strDocF+"MAATREG_DD_ASTART_MONTH"+vItem).value   =oDocForm.MAATREG_DD_ASTART_MONTH.value
	eval(strDocF+"MAATREG_DD_ASTART_YEAR"+vItem).value    =oDocForm.MAATREG_DD_ASTART_YEAR.value  
	eval(strDocF+"DA_MAATREG_DD_ASTART_YEAR"+vItem).value =oDocForm.DA_MAATREG_DD_ASTART_YEAR.value  
	eval(strDocF+"DA_MAATREG_DD_ALARM_YEAR"+vItem).value  =oDocForm.DA_MAATREG_DD_ALARM_YEAR.value	
	eval(strDocF+"MAATREG_DD_ALARM_DAY"+vItem).value      =oDocForm.MAATREG_DD_ALARM_DAY.value
	eval(strDocF+"MAATREG_DD_ALARM_MONTH"+vItem).value    =oDocForm.MAATREG_DD_ALARM_MONTH.value
	eval(strDocF+"MAATREG_DD_ALARM_YEAR"+vItem).value     =oDocForm.MAATREG_DD_ALARM_YEAR.value
	eval(strDocF+"DA_MAATREG_DD_KLAAR_YEAR"+vItem).value  =oDocForm.DA_MAATREG_DD_KLAAR_YEAR.value
	eval(strDocF+"MAATREG_DD_KLAAR_DAY"+vItem).value      =oDocForm.MAATREG_DD_KLAAR_DAY.value
	eval(strDocF+"MAATREG_DD_KLAAR_MONTH"+vItem).value    =oDocForm.MAATREG_DD_KLAAR_MONTH.value
	eval(strDocF+"MAATREG_DD_KLAAR_YEAR"+vItem).value     =oDocForm.MAATREG_DD_KLAAR_YEAR.value
	eval(strDocF+"AKTIENEMERS_NAAM"+vItem).value=cbs_userid
	if (strToe != "")		//toelichting is ingevuld
		{
		//Toeliching
		eval(strDocF+"AKTIENEMERS_TOELICHTING"+vItem).value=strToe;	
		eval(strDocF+"AKTIENEMERS_MUTNAAM"+vItem).value=cbs_useridOrg	
		// oPaForm("butAKTIENEMERS"+vItem).title=strToe;	//DOEN WE HIER NOG IETS MEE????		//	oVeld=eval(strDocF+"MAATREG_AKTIE"+vItem);		//		if (oVeld.value=="")	{oVeld.value=strToe}
		}	//strToe

	if (strTref != "")
		{
		//Status
		strHulp=strTref.substr(10);	
		eval(strDocF+"MAATREG_STATUS"+vItem).value=strTref.substr(10);
		//strHulp="VR:" + strTref.substr(10);
		eval(strDocF+"AKTIENEMERS_VOORTGANG"+vItem).value=strHulp
		//oPaForm("butAKTIENEMERS")[iItemnr].value=strHulp
		//vul de andere velden in: datum velden (afgedaan al via javascript bepaald)
		}
	try	//error afhandelen indien dit veld niet gedefinieerd is
		 {
		eval(strDocF+"MAATREG_PRIORITEIT"+vItem).value=oDocForm.MAATREG_PRIORITEIT.value
		eval(strDocF+"MAATREG_KOSTEN"+vItem).value=oDocForm.MAATREG_KOSTEN.value
		 }
	catch(err) {  }	//fout overslaan voor deze groep
	try 
		{
		eval(strDocF+"AKTIENEMERS_INFORMEREN"+vItem).value=oDocForm.AKTIENEMERS_INFORMEREN1.value		//let op veld eigenaar1
		eval(strDocF+"AKTIENEMERS_EIGENAAR"+vItem).value=oDocForm.AKTIENEMERS_EIGENAAR1.value		//let op veld eigenaar1
		 }
	catch(err) {  }	//fout overslaan voor deze groep
	try 
		{		 
		eval(strDocF+"MAATREG_AKTIEFEIT"+vItem).value=oDocForm.MAATREG_AKTIEFEIT.value
		eval(strDocF+"DA_MAATREG_DD_VERIFICATIE_YEAR"+vItem).value =oDocForm.DA_MAATREG_DD_VERIFICATIE_YEAR.value
		eval(strDocF+"MAATREG_DD_VERIFICATIE_DAY"+vItem).value  =oDocForm.MAATREG_DD_VERIFICATIE_DAY.value
		eval(strDocF+"MAATREG_DD_VERIFICATIE_MONTH"+vItem).value=oDocForm.MAATREG_DD_VERIFICATIE_MONTH.value
		eval(strDocF+"MAATREG_DD_VERIFICATIE_YEAR"+vItem).value =oDocForm.MAATREG_DD_VERIFICATIE_YEAR.value

		}
	catch(err) {  }	//fout overslaan voor deze groep


//Nieuwe velden	// PROBLEEM EIGENAAR?????
	}		//toelichting is ingevuld
	}	//nDom!=-98
else		//(nDom==-98)		//nvt voor nieuwe melding en ophalen data
	{
	strDocF="opener.document.forms[0]."
	oDocForm.MAATREG_AKTIE.value=eval(strDocF+"MAATREG_AKTIE"+vItem).value  
	oDocForm.MAATREG_DD_ASTART_DAY.value=eval(strDocF+"MAATREG_DD_ASTART_DAY"+vItem).value
	oDocForm.MAATREG_DD_ASTART_MONTH.value=eval(strDocF+"MAATREG_DD_ASTART_MONTH"+vItem).value
	oDocForm.MAATREG_DD_ASTART_YEAR.value=eval(strDocF+"MAATREG_DD_ASTART_YEAR"+vItem).value
	oDocForm.DA_MAATREG_DD_ASTART_YEAR.value=eval(strDocF+"DA_MAATREG_DD_ASTART_YEAR"+vItem).value
	oDocForm.DA_MAATREG_DD_ALARM_YEAR.value=eval(strDocF+"DA_MAATREG_DD_ALARM_YEAR"+vItem).value
	oDocForm.MAATREG_DD_ALARM_DAY.value=eval(strDocF+"MAATREG_DD_ALARM_DAY"+vItem).value
	oDocForm.MAATREG_DD_ALARM_MONTH.value=eval(strDocF+"MAATREG_DD_ALARM_MONTH"+vItem).value 
	oDocForm.MAATREG_DD_ALARM_YEAR.value=eval(strDocF+"MAATREG_DD_ALARM_YEAR"+vItem).value
	oDocForm.DA_MAATREG_DD_KLAAR_YEAR.value=eval(strDocF+"DA_MAATREG_DD_KLAAR_YEAR"+vItem).value
	oDocForm.MAATREG_DD_KLAAR_DAY.value=eval(strDocF+"MAATREG_DD_KLAAR_DAY"+vItem).value 
	oDocForm.MAATREG_DD_KLAAR_MONTH.value=eval(strDocF+"MAATREG_DD_KLAAR_MONTH"+vItem).value
	oDocForm.MAATREG_DD_KLAAR_YEAR.value=eval(strDocF+"MAATREG_DD_KLAAR_YEAR"+vItem).value 
	oDocForm.AKTIENEMERS_NAAM.value=eval(strDocF+"AKTIENEMERS_NAAM"+vItem).value
	oDocForm.strActieNaam1.value=eval(strDocF+"AKTIENEMERS_NAAM"+vItem).value

	strVeld=oDocForm.cboKeuzeST
	strTref=eval(strDocF+"MAATREG_STATUS"+vItem).value
	for (i = 0; i<strVeld.length; ++ i)
		{
			strVeld[i].checked= (strTref==strVeld[i].value.substr(10, strVeld[i].value.length-10))
		}
	try	//error afhandelen indien dit veld niet gedefinieerd is
		 {
			oDocForm.strToelichting.value=eval(strDocF+"AKTIENEMERS_TOELICHTING"+vItem).value	
			oDocForm.MAATREG_PRIORITEIT.value=eval(strDocF+"MAATREG_PRIORITEIT"+vItem).value
		 }
	catch(err) {  }	//fout overslaan voor deze groep
	try 
		{
			oDocForm.AKTIENEMERS_INFORMEREN1.value=eval(strDocF+"AKTIENEMERS_INFORMEREN"+vItem).value		//AKTIENEMERS_INFORMEREN1
			oDocForm.AKTIENEMERS_EIGENAAR1.value=eval(strDocF+"AKTIENEMERS_EIGENAAR"+vItem).value		//let op veld eigenaar1
		}   
	catch(err) {  }	//fout overslaan voor deze groep
	try 
		{	oDocForm.MAATREG_KOSTEN.value=eval(strDocF+"MAATREG_KOSTEN"+vItem).value	}
	catch(err) {  }	//fout overslaan voor deze groep
	}
	try 
		{		 
		oDocForm.MAATREG_AKTIEFEIT.value=eval(strDocF+"MAATREG_AKTIEFEIT"+vItem).value
		//alert(eval(strDocF+"DA_MAATREG_DD_VERIFICATIE_YEAR"+vItem).value)
		oDocForm.DA_MAATREG_DD_VERIFICATIE_YEAR.value=eval(strDocF+"DA_MAATREG_DD_VERIFICATIE_YEAR"+vItem).value
		oDocForm.MAATREG_DD_VERIFICATIE_DAY.value=eval(strDocF+"MAATREG_DD_VERIFICATIE_DAY"+vItem).value
		oDocForm.MAATREG_DD_VERIFICATIE_MONTH.value=eval(strDocF+"MAATREG_DD_VERIFICATIE_MONTH"+vItem).value 
		oDocForm.MAATREG_DD_VERIFICATIE_YEAR.value=eval(strDocF+"MAATREG_DD_VERIFICATIE_YEAR"+vItem).value
        }
	catch(err) {  }	//fout overslaan voor deze groep

//	strToe=oDocForm.strToelichting.value

//if (i==1) { return true } 
return (i==1)
}
//---------------------------------------------------------------------------------------------------
function cbjsIVW_Bedrijven()
{
var i, oPa, oTab, nRijen, nMax,nRegel
var oPaForm=opener.document.forms[0];		//formulier
var oForm=document.forms[0]		//hier in veld kopieeren
var nLC, j, vHulp, vBedrijf, vHulp2
var arrBedrijf=new Array(20)	//grens is normaliter 5 (10)
nRegel=parseInt(oForm("nRegel").value)
//lees bedrijfsnamen uit.
//alert(oPaForm.NRIJ_INTERVIEW.value)
nMax=0
//alert(nRegel)
try
{
	oTab=opener.document.getElementById("TBL_INTERVIEW") 
	nRijen=oTab.rows.length-1
	if (nRijen==1)
	{
		arrBedrijf[0]=oPaForm.INTERVIEW_WFIRM.value
		nMax=1
	}
	else	
	{
		for (i=0;i<nRijen; i++)
		{
			arrBedrijf[i]=oPaForm.INTERVIEW_WFIRM[i].value
			nMax++
		}
	}
}	//try
catch(err)
	{ alert(err) }
nMax--	
if (nRegel>nMax) { nRegel=nMax }	//hoogste afschrermen	
nLC=oForm("cboKeuzeCONTACT").length
vBedrijf=arrBedrijf[nRegel].toUpperCase()

//alert("Max:  " + nMax)
for (j = 0; j < nLC; j++) 
	{
	vHulp2=oForm("cboKeuzeCONTACT")[j].value
	i=vHulp2.indexOf("~")
	vHulp=vHulp2.toUpperCase()
	vHulp=vHulp.substr(vHulp,i)
	//document.write (vBedrijf+"--"+vHulp+"<br>")
	if (vBedrijf==vHulp)
		{
		oForm("cboKeuzeCONTACT")[j].selected=-1
		oForm("cboKeuzeCONTACT").onchange() // click
		//oForm("naw").value=vHulp2.value			//.replace(/~/g, ""\n"")
		j=nLC		//exit for
		}
	}		
if (nRegel>=nMax)
	{ 
	oForm("nRegel").value=0
	}		//start weer op 0
else
	{  oForm("nRegel").value=nRegel+1 } 
}
//---------------------------------------------------------------------------------------------------
function cbjsIVWvulNAW()
//vul blok met NAW gegevens
{
var i, j, oForm=document.forms[0]		//hier in veld kopieeren
var strNAW=oForm.cboKeuzeCONTACT.value, strHulp="", arrNAW
//var arrNAW=new Array(30)
//alert(strNAW)
//arrNAW=strNAW.split(strNAW, "~")
arrNAW=strNAW.split("~")
j=arrNAW.length
//alert(j)
//alert(arrNAW[1])
for (i=1;i<j;i++)
	{
		//this.value.replace(/~/g, ""\n""
		if (i!=4) { strHulp+=arrNAW[i]+"\n"  }
	}
oForm.naw.value=strHulp
//alert(arrNAW[4])
if (strHulp.indexOf("de heer")>-1)
	{ oForm("achternaam").value="heer "+arrNAW[4]	} //Geachte heer X
else
	{ oForm("achternaam").value="mevrouw "+arrNAW[4]	} //Geachte heer X

}
//---------------------------------------------------------------------------------------------------
function cbIVWWORD1()
{
//'automatisch selecteren van de uit te vragen info
//'opener.document.forms[0].cboKeuzeS3.value: tcode
//'opener.document.forms[0].cboKeuzeS3a.value: tekst
//'S300021: Vervoerder: OC01
//'S300022: Aannemers: OC04
//'S300023010: ProRail Rib:  OC03
//'S300023020: ProRail RVL: ahv POST kunnen we de geadresseerde bepalen; OC02
//'S300023030: KLPD	
var nL, nLC, fOForm=document.forms[0], nChecked, j, vPost, vHulp
var vS3=opener.document.forms[0].cboKeuzeS3.value
var vV2=opener.document.forms[0].cboKeuzeV2
//1feb08: probeer ahv geadresseerde al de juiste rubriek aan te vinken

//alert(vS3)
nL=fOForm("cboOC").length
//alert(nL)
if (vS3.indexOf('S300021')>-1) 
	{
	for (j = 0; j < nL; j++) 
		{
			fOForm("cboOC")[j].checked=( fOForm("cboOC")[j].value.substr(0,4)=="OC01" )
		}
		//{ if (fOForm(("cboOC")[j].checked) {nChecked=1} }
	}
if (vS3.indexOf('S300022')>-1) 
	{
	for (j = 0; j < nL; j++) 
		{
			fOForm("cboOC")[j].checked=( fOForm("cboOC")[j].value.substr(0,4)=="OC04" )
		}
		//{ if (fOForm(("cboOC")[j].checked) {nChecked=1} }
	}
if (vS3.indexOf('S300023010')>-1) 
	{
	for (j = 0; j < nL; j++) 
		{
			fOForm("cboOC")[j].checked=( fOForm("cboOC")[j].value.substr(0,4)=="OC03" )
		}
		//{ if (fOForm(("cboOC")[j].checked) {nChecked=1} }
	}
nLC=fOForm("cboKeuzeCONTACT").length
vPost=vV2.options[vV2.selectedIndex].text
if (vS3.indexOf('S300023020')>-1) //ProRail RVL, AHV POST rubriek V2
	{
	//alert(vV2.options[vV2.selectedIndex].text)	
	for (j = 0; j < nL; j++) 
		{
			fOForm("cboOC")[j].checked=( fOForm("cboOC")[j].value.substr(0,4)=="OC02" )
		}
		//{ if (fOForm(("cboOC")[j].checked) {nChecked=1} }
	}
return true
}
//---------------------------------------------------------------------------------------------------
function cbjsCheckAfdGroep()
//controleer of de afdelinginvoer correct gaat (numeric, kommegescheiden of -
{
var nKey=window.event.keyCode	
var strBericht="s.v.p. alleen getallen invoeren met een , als scheidingsteken"
if (nKey>95 && nKey<106) {return true}	//invoer vanaf numeriek toetsenbord
if ((nKey>57 && nKey!=188 && nKey!=189))
{
	if (cojsTAAL=="gb") {strBericht="Please insert only number and separate this with a ',' "}	 
	alert(strBericht)
	window.event.keyCode=0
	return false
}
return true
}
//---------------------------------------------------------------------------------------------------
function cbjsCheckAfdRechten(strAfdgroep, strUserGrp, t)
//controleer of de gebruiker (met strUserGrp als , gescheiden afdelingenlijst) rechten heeft om afdelingsgroep in te voeren
{
var i, j, k, l, oForm=document.forms[0]		//hier in veld kopieeren
var strHulp="", arrAfd, arrUserAfd, nOK
//var strAfdgroep=t.value
var strBericht="U mag alleen binnen uw eigen afdelingsreeks rechten toekennen. "
if (cojsTAAL=="gb") {strBericht="You may apply only your own departmentcodes. "}
if (strAfdgroep=="") { return true }
//alert(strAfdgroep)
strUserGrp=strUserGrp.replace("(","")
strUserGrp=strUserGrp.replace(")","")
//alert(strUserGrp)
arrAfd=strAfdgroep.split(",")
arrUserAfd=strUserGrp.split(",")
j=arrAfd.length
l=arrUserAfd.length
nOK=0
for (i=0;i<j;i++)
	{ //alert(arrUserAfd[i]);
		nOK=0	//reset de teller
		for (k=0;k<l;k++)		//doorloop arrUserAfd. Vergelijk de ingevoerde waarde
		{
			if (arrUserAfd[k]==arrAfd[i] || arrAfd[i]==0)
				{ nOK++; } 
		}
		if (nOK==0)		//niet gevonden in arrUserAfd
			{
			alert(strBericht+" ("+strUserGrp+")" ) 
			t.focus()
			return false		
			}
	}
return true 
}
//---------------------------------------------------------------------------------------------------
function cbReturnCheckedValue(strVeld)
{
//geef de waarde(en) terug van de aanvinkte items radio of checkbox
var i, nL, oForm=document.forms[0], strW
nL=oForm(strVeld).length
strW=""
for (i=0;i<nL;i++)
	{
	if ( oForm(strVeld)[i].checked )
		{ 
		if (strW!="")	{ strW += "~" }		//delimiter
		strW += oForm(strVeld)[i].value
		}
	}
return strW
}
//---------------------------------------------------------------------------------------------------
function cbTestDatum99(t)
//test bij code 99 op de datum, zoniet, dan is de datum niet verplicht
{
var strBericht="Controleer de status"
if (cojsTAAL!="nl") {strBericht="Please, check status"}
if (cbReturnCheckedValue("cboKeuzeHO").substr(8,2)=="99" )
	{  return cbCheckDate2(t, 2,"", -1) }
if (t.value.length>3) {alert(strBericht)}
return true
}
//---------------------------------------------------------------------------------------------------
function cbjsZoekMenu(t, cbs_mform, kC)
{
var strBericht="De pagina is verlopen. Kies een eerst menu-optie..."	
try 
 { 
if (window.event.keyCode==13 || kC==13)
	{ 
	if (cbjsTestNumNM(t,2147483647 ,1) && t.value.indexOf(".")<1 ) 
		{ 
		if (t.value<2)	
			{ parent.mainFrame.location.href("CBS_MultiPurp.ASP?intActie=150&lngSys_Key=-7&strPagina=-999")	}	//bladeren
		else
			{ parent.mainFrame.location.href(cbs_mform+"&sys_key="+t.value) }
		t.value="" 	
		}		//testnum
	else
		{parent.mainFrame.location.href("CBS_MultiPurp.ASP?intActie=161&lngSys_Key="+t.value);t.value="";
		strBericht="Moment...bezig met zoeken"
		if (cojsTAAL=="gb") {strBericht="Moment...searching"}
		window.status=strBericht
		}		//cbZoekUserKey(lngSys_Key)
	} 

if (kC==-1)	
	{ parent.mainFrame.location.href("CBS_MultiPurp.ASP?intActie=150&lngSys_Key=-7&strPagina=999")	}
 }	//try
catch(err)
	{
		if (cojsTAAL!="nl") {strBericht="Attention: the page is expired. First, choose a menu-option..."}
		alert(strBericht)
	}
}
//---------------------------------------------------------------------------------------------------
function cbUnCheckMail()
{
	//vink alle mail items aan uit
var i, oForm=document.forms[0], oVeld, lC, n
try
{
n=document.forms[0].Aantal2Mail.value+1
for (i=1;i<n;i++)
	{
	//oForm("emailme").checked=false
	//oForm("emailme"+i).checked != oForm("emailme"+i).checked 
	oVeld=eval("document.forms[0].emailme"+i)
	lC=oVeld.checked
	oVeld.checked= !lC
	//eval("document.forms[0].emailme"+i+".checked")
	}
}	//try
catch(err) {}
}
//---------------------------------------------------------------------------------------------------
function cbOpenWindowP(strUrl)
//function om te testen of popup venster is geopend. Zo niet, dan openen. 08-april
{
var strBericht="Er is nog een venster geopend"
//alert(strBericht)
if (!vWinTref || vWinTref.closed)
	{
		vWinTref =window.open(strUrl, "","resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no")
	}
   else 
   	{
 		if (cojsTAAL=="gb") {strBericht="Window is already opened"}
		alert(strBericht);
		vWinTref.focus()
    }
}
//---------------------------------------------------------------------------------------------------
function cbOpenWindowZoom(strVeld)
//function om zoom/scroll window voor memo velden te openen
{
var oForm=document.forms[0], vWaarde
vWaarde=oForm(strVeld)[0].value // ---> HIDDEN, werkt niet want het veld is disabled.
cbOpenPopWindow3(540,480,30,30,"","WInfo");
WInfo.document.write(vWaarde);
WInfo.document.title="Zoom"
}
//---------------------------------------------------------------------------------------------------
function cbjsValideerAjax(t, strSQL)
{
	// ALGEMENE FUNCTION: t: object (invoer veld), strID: id van tabelkolom of andere, strINfo1: info-test bij zoeken, strUrl: om te leiden naar Url...
var url, nPos=0, strBericht, lKL
var nL, strZoek=t.value
var oDocForm=document.forms[0];		//formulier
nL=strZoek.length
if (nL<2) { return true }	//2 tekens of meer is minimum
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)  {  alert ("Your browser does not support AJAX!");  return;  } 
//strSQL: veld met sql-validatie-code
strSQL=strSQL.replace("##filterw##", "'"+strZoek+"'")
strJXIDNaam=t		//kopieer veldobject
url="cbs_multipurp.asp?intActie=1000001&strVeld="+t.name+"&strLijst="+strSQL		//+"&strPagina="+nPos				//+"&lngSys_Key="+lngSys_Key		//test routine jan07
url+="&sid="+Math.random()
//alert(url)
xmlHttp.onreadystatechange=stateChangedValideer		//reference to function, parameters niet mogelijk 
xmlHttp.open("GET",url,true)		//open de url via GET (POST, HEAD), true: Asynchroon dus nog voordat de server klaar is met antwoorden
xmlHttp.send(null)					//The parameter to the send() method can be any data you want to send to the server if POST-ing the request
return lKL
}
//---------------------------------------------------------------------------------------------------
function stateChangedValideer() 
{ 
// ORGANON CMR DATA
var strRT,i, nPos=1
var oDocForm=document.forms[0];		//formulier
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	//document.getElementById("CBCONTACTID").innerHTML=xmlHttp.responseText 
	strRT=xmlHttp.responseText
	if (strRT.length>0) 
		{	
			alert(strRT)
			strJXIDNaam.style.backgroundColor="#ff0000"
			//strJXIDNaam.value=""
			strJXIDNaam.focus()		//veldobject focus geven
			return (false)
		}
	else	
		{strJXIDNaam.style.backgroundColor="#ffffff"; return (true) }
	//window.status = xmlHttp.responseText
	//oDocForm.HSEINP.value=""	//maak weer leeg
	} 
} 
//---------------------------------------------------------------------------------------------------
function cbjsLetOpWWchange()
{		//waarschuwen dat men het wachtwoord wil veranderen en dat het verplicht is
strBericht="Let op! U wil het wachtwoord veranderen. Weet u zeker dat u hiermee verder wilt gaan?"
if (cojsTAAL=="gb") {strBericht="ATTENTION: Do you really want to change the password?"}
//return false will also cancel the onclick event.
return confirm(strBericht)
}
//---------------------------------------------------------------------------------------------------
function cbCompareForms()
//Vergelijk historisch formulier met scherformulier
{
var oDocForm=document.forms[0];		//formulier
var oPaForm=opener.opener.document.forms[0];	//parant
var i, nL, j, nRC, strName, strVelden="", strErr="", strType, strType2="text ", weg
var strBericht3="Let op u vergelijkt formulieren met een verschillend ID"
var strBericht2="Huidige waarde: "
var strBericht="Dit archief-formulier wordt vergeleken met het huidige formulier. Het is mogelijk dat niet alle velden gecontroleerd kunnen worden. De velden worden met ROOD gemarkeerd"
if (cojsTAAL=="gb") 
	{strBericht="This archive-form will be compared with the current form. Not all fields can be checked. Differences will be marked in RED"
	strBericht2="Current value: " 
	strBericht3="Attention: you're comparing different form-ID's!!!" 
	} 
nL=oDocForm.length
alert(strBericht)
if (oDocForm("Sys_Key").value!=oPaForm("Sys_Key").value)
	{ alert(strBericht3) }
for (i=0;i<nL;i++)
 {
	strName=oDocForm[i].name
	//alert(oDocForm(strName).type)
	//weg+=strName+" type: UNDEF"+strType+"<br>" 
	try
	{	
		window.status = "Checking: "+strName
		if (typeof oDocForm(strName).value== "undefined")
			{ 	strType=oDocForm(strName)[0].type 
				if (strType=="checkbox" || strType=="radio") 
					{ strType="cr"} 
				else 
					{ strType="textdom" } 	
			}
		else
			{ strType=oDocForm(strName).type } 
		//if (strType2.indexOf(oDocForm(strName).type)<0) {strType2+=oDocForm(strName).type + "x"}
		//if (strName.indexOf("cboKeuze")>-1) { alert(oDocForm(strName)[0].type )} 
		if (strType!="undefined" && strType!="hidden" && strName.indexOf("JAVA")<0  && strName.indexOf("SQLF")<0 )
		{
			if (strType=="cr" || strType=="textdom")
			{
				nRC=oDocForm(strName).length
				for (j=0;j<nRC;j++)
					{
					if (strType=="cr") 	
						{ 
							if (oDocForm(strName)[j].checked!=oPaForm(strName)[j].checked) 
								{ oDocForm(strName)[j].style.backgroundColor="RED" }
						}
					else
						{
							if (oDocForm(strName)[j].value!=oPaForm(strName)[j].value) 
								{  
									oDocForm(strName)[j].style.backgroundColor="RED"
									oDocForm(strName)[j].title="Huidige waarde: "+oPaForm(strName)[j].value 
								} 							
						}
					}	//for
			}
			else
			{
				if (oDocForm(strName).value!=oPaForm(strName).value) 
					{  
						oDocForm(strName).style.backgroundColor="RED"
						oDocForm(strName).title=strBericht2+oPaForm(strName).value 
					} 
			} //else

		}
	}	//try
	catch (err) {}
		
 }	//for
//document.write("<hr>"+weg)
//alert(weg)
//alert(strType2)
//alert(strErr)
//alert(strVelden)
}
//---------------------------------------------------------------------------------------------------
function cbShowHideTref(t, strID, strKnop, strShow)
{
//onClick='this.style.display=""none"";document.getElementById(""btMin" & i & """).style.display=""inline"";document.getElementById(""" & strHKopCode & """).style.display=""inline""'	
//show/hide trefwoordgroepen nov08
// t this
// i teller (uniek)
// strKnop knop naam
// strShow: inline of nonevar objBranch = document.getElementById(branch).style;
var i, strHulp, j
t.style.display="none"		//huidige knop niet zichtbaar
if (strID!="ALL")
	{
	document.getElementById(strKnop).style.display="inline";	// andere knop zichtbaar
	document.getElementById(strID).style.display=strShow;		//<DIV id='O200010002'> toggle
	for (i=1;i<5;i++)
	{
		try
		{
		document.getElementById(strID+i).style.display=strShow;		//<DIV id='O200010002+i'> toggle
		}
		catch (err) {}
	}
	//document.getElementById("K82").style.display="inline";		//<DIV id='O200010002+i'> toggle
}
else
{
	for (i=1;i<100;i++)
	{
		try
		{
		strHulp	= "K"+i
		document.getElementById(strHulp).style.display=strShow;		//<DIV id='O200010002+i'> toggle
		for (j=1;j<5;j++)
			{ document.getElementById(strHulp+j).style.display=strShow;}		//<DIV id='O200010002+i'> toggle
		}		//try
		catch (err) {}
	}	//for
	document.getElementById(strKnop).style.display="inline";	// andere knop zichtbaar
}	//end if
}
//---------------------------------------------------------------------------------------------------
function cbNwSublijstAlg(cbolijst, strSub, nPos) 
{
// combolijst opnieuw vullen aan de hand van een keuze uit een andere lijst
// strSub geeft de subcode waaruit de variabele moet worden gegenereerd: bijv. cboKeuzeV2
var tCode, tNr, i
var strName, strName2, strBericht
var intLengte, int2Lengte //= cbolijst.length;
var arrCode=new Array()
var arrTXT=new Array()
var j=0
var oDocForm=document.forms[0]
//var strSub="V2", nPos=7
var ocboSub=oDocForm("cboKeuze"+strSub)	//bijv. cboKeuzeV2  --- doelllijst
var ocboS2, ocboS2k, strTcode, nMax, nRij, ocboL1k, ocboL1
if (cbolijst.disabled) { return }

tCode=cbolijst.value		//bijv. V200001000	
nPos=nPos-2
tNr=tCode.substr(2, nPos);		//eerste 7 pos bepalend: xx00001 (vast)
i=cbolijst.selectedIndex
// alert(cbolijst[i].value.substr(0,7))
//vanaf begin doorlopen
intLengte=ocboSub.length
//alert("code: "+tCode+"--"+intLengte+"--"+tNr)
//Nieuw
 j=1
for (i=0;i<intLengte;i++)
	{
		if (tNr==ocboSub[i].value.substr(2, nPos) )		//aantal pos.
			//selecteer het eerste item uit de lijst
			{   if (j==1) { if (ocboSub[i].value.substr(9)=="0") {ocboSub.selectedIndex=i;} else { ocboSub.selectedIndex=i+1;} }
 				j++
			}
	}
if (j>3) { ocboSub.size=j-2 }
}
//---------------------------------------------------------------------------------------------------
function cbShowBranch(branch) {
//DEC08
var objBranch, lShowAll=true, vDisplay="none", objbtPM
if (branch.length>9) 	
	{objBranch = document.getElementById(branch);
	 lShowAll=false 
	 objbtPM=document.getElementById("btPM_"+branch)
	 if (objbtPM.src.indexOf("images/mi1n.gif")>-1) {vDisplay="inline"}

	}
else
	{ 		  vDisplay="inline"
			  if (document.forms[0].btPlusM0.src.indexOf("images/mi1n.gif")>-1) {vDisplay="none"}
	}
//Branch: parentcode, dus laat alle elementen zien die beginnen met de branchcode
var i, divname, divs = document.getElementsByTagName('div');
var nL=divs.length
for (i = 0; i < nL; i++){                      
      divname = divs[i].id; 
	  if (lShowAll)
		  { 
		  if (divname.indexOf(branch)==0)		//eerste 2 pos.: gevonden!
		  {
			try {
				document.getElementById(divname).style.display=vDisplay
				objbtPM=document.getElementById("btPM_"+divname)
				if (vDisplay!="none") {objbtPM.src="images/mi1n.gif"}
				else {objbtPM.src="images/plus1.gif"}
				} 
				
			  catch (err) {}
				//if (divname.length==10)	{ document.getElementById(divname).style.display="inline" }
				if (divname.lastIndexOf("H")==divname.length-1)	{ document.getElementById(divname).style.display="inline" }
		  }
		  }
	  else
	  {
	      if(divname.indexOf(branch) > -1 && divname!=branch && divname!=branch+"kopH" ) 
		  { 
			  document.getElementById(divname).style.display=vDisplay
			  //document.getElementById(divname).style.fontsize='40px'			  			  document.getElementById(divname).style.color='red'
			  if (divname.lastIndexOf("H")==divname.length-1 && divname.indexOf("kopH")<0)	
			  		{
					//alert(	"btPM_"+divname )
					objbtPM=document.getElementById("btPM_"+divname)
					if (vDisplay!="none") {objbtPM.src="images/mi1n.gif"}
					}
			 // objBranch = document.getElementById(divname).style
			 // if(objBranch.display=="block" || objBranch.display=="inline")
			//	 objBranch.display="none";
			 // else
				 //objBranch.display="inline";
		  }//if
	  }
}//for

   }
//---------------------------------------------------------------------------------------------------
function cbSetCookie(name, value, expires)
//javascript om een cookie te bewaren. escape om ; spaties ed te verwijeren.
{ 
if (expires<0)
	{ var exp = new Date();     //set new date object 
		exp.setTime(exp.getTime() + (1000 * 60 * 60 * 24 * 30));     //set it 30 days ahead 
		expires=exp
	} 
document.cookie = name + "=" + escape(value) + "; path=/" + ((expires == null) ? "" : "; expires=" + expires.toGMTString());    
}
//---------------------------------------------------------------------------------------------------
function cbGetCookie (name) 
//cookie ophalen
{ 
var dc = document.cookie, begin, end; 
var cname = name + "="; 
if (dc.length > 0) { 
  begin = dc.indexOf(cname); 
  if (begin != -1) { 
	begin += cname.length; 
	end = dc.indexOf("", begin);
	if (end == -1) end = dc.length;
	return unescape(dc.substring(begin, end));
	} 
  } 
return null; 
}
//---------------------------------------------------------------------------------------------------
function cbCheckTCODECombi(cVarNaam, strNoCode)
//functie om trefwoordcode combinaties af te vangen FEB2009
//cVarNaam: cNaam in principe
//strNoCode: string met de codes waarmee niet gecombineerd mag worden
{
    var strVeld = document.forms[0](cVarNaam), txt, lFormIMS = false
    var strBericht = "De combinatie is niet toegestaan met "

try {if (opener.document.forms[0].name=="FormIMS") 	{ lFormIMS=true}	}	//niet vanuit het invoer formulier
catch (err)	{ if(document.forms[0].name=="FormIMS") { lFormIMS=true }	} //alleen vanuit invoerformulier
if (lFormIMS)
	{
	if (cojsTAAL=="gb") {strBericht="Combination not allowed with "}
	for (i = 0; i<strVeld.length; ++ i)
		{
			if (strVeld[i].checked)
			{
			    txt = strVeld[i].value		//tcode(+tekst)
				if (strNoCode.indexOf(txt.substr(0,10))>-1 && txt!=strVeld.value)		//niet hetzelfde veld
					{ 
					alert(strBericht+txt.substr(10))		//+txt.substr(0,10)+" -n- "+strNoCode );
					return false
					}	//code match?
			}	//checked
		}		//for
	}	//alleen vanuit invoerformulier
}		//function cbCheckTCODEComb
//---------------------------------------------------------------------------------------------------	
function cbjsCheckOpenWindows()
//check of er nog popupvenster open staan bij uitloggen ---werkt niet lekker!
{
if ((!vWinflyout || vWinflyout.closed ) && (!vWinTref || vWinTref.closed) && (!vWinVoort || vWinVoort.closed))
	{ return true }
else
	{ alert("Let op er zijn nog vensters geopend"); return false } 
}
//---------------------------------------------------------------------------------------------------	
function cbjsChkDoesExist(t, strOperator, nLoop)
//cbjsChkDoesExist(this, "=", 10)' 
//t=this, strOperator: = % ; nLoop: aantal regels in popupvenster retour
{
var url, nPos=0
var strZoek = t.value
var strVeld1=t.name
var oDocForm=document.forms[0];		//formulier
if (strZoek.length<2) { return true }	//2 tekens of meer is minimum
//	nPos=t.parentNode.parentNode.rowIndex 
//if (nPos>0 )	{ nPos=nPos-1 }
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)
  {
  alert ("Your browser does not support AJAX!");
  return true;
  } 
//document.getElementById("CBCONTACTID").innerHTML=  "<B>MOMENT, DE NAMENLIJST WORDT NU DOORZOCHT....</B><img src='images/zandloper.gif'>"  
//window.status = "MOMENT, DE NAMENLIJST WORDT DOORZOCHT...."  
//var lngSys_Key=oDocForm("Sys_Key").value	
//	elseif intActie=1000002 then		'speciale function; oproepen formulier bij rapportages, zoeken e.d.
//		Call cbChkDoesExist(strVeldNM, strLijst, strPagina, lngSys_Key) 
url = "cbs_multipurp.asp?intActie=1000002&strVeld=" + strVeld1 + "&strOperator=" + strOperator + "&strLijst=" + strZoek + "&strPagina=" + nLoop + "&lngSys_Key=" + oDocForm("Sys_Key").value			
url+="&sid="+Math.random()
//alert(url)
strJXIDNaam=t		//bewaard veld
xmlHttp.onreadystatechange=stateChangedChkDoesExist	//reference to function, parameters niet mogelijk 
xmlHttp.open("GET",url,true)		//open de url via GET (POST, HEAD), true: Asynchroon dus nog voordat de server klaar is met antwoorden
xmlHttp.send(null)					//The parameter to the send() method can be any data you want to send to the server if POST-ing the request
}
//---------------------------------------------------------------------------------------------------
function stateChangedChkDoesExist() 
{ 
// ORGANON CMR DATA
var strRT,i, nPos=1, dDoc, strBericht
var oDocForm=document.forms[0];		//formulier
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	strRT=xmlHttp.responseText 
	if (strRT.length>10) 
		{	
		//Open popup en show result
		//document.getElementById("CBCONTACTID").innerHTML=xmlHttp.responseText 
		//window.status = "MAAK UW KEUZE..." 
		strJXIDNaam.style.backgroundColor="#FFD5AA"
		strBericht="Waarde bestaat al!"
		if (cojsTAAL=="gb") {strBericht="Value already exists!"}
		dDoc=window.open("", "ExistsWindow", "resizable=yes,scrollbars=yes,status=yes,width=360,height=400,top=10,left=400")		//beter is een html documentsjabloon te openene
		strHTML="<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>"
		strHTML+="<html><HEAD>"
		strHTML+="<META http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
		strHTML+="<link rel='stylesheet' href='styles/cbs_style.css' type='text/css'>"
		strHTML+="<script language='javascript' src='cbs_java.js'></script>"
		strHTML+="<title>"+strBericht+"</title>"
		strHTML+="</HEAD><BODY bgcolor='#FFFF00'>"+strRT+"</BODY></HTML>"
		dDoc.document.write(strHTML)
		//oDocForm.HSEINP.value=""	//maak weer leeg
		}
	else
		{ window.status="~" }
	} 
} 
//---------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------------------------------------
function cbShowHintCombo(t, strID, strInfo1, strUrl, e)
{
	// ALGEMENE FUNCTION: t: object (invoer veld), strID: id van tabelkolom of andere, strINfo1: info-test bij zoeken, strUrl: om te leiden naar Url...
var url, nPos=0, strBericht, nPos, strAutoExpH
var nL, strZoek=t.value
var strVeldNaam=t.name
var oDocForm=document.forms[0];		//formulier
var nPosRow=0 //hiermee zouden we een rij eronder kunnen invoegen
var keynum, cChar
if(window.event) // IE
{
	keynum = e.keyCode
}
else if(e.which) // Netscape/Firefox/Opera
{
	keynum = e.which
}
nL=t.length-1
cChar = String.fromCharCode(keynum)
if (keynum>=32)	
	{
	strAutoExpH=strAutoExp	
	strAutoExp+=cChar
	if (nL>999 )
		{
			//alert(nL)
			if (nL<4) {nL=3}	//
			if (cChar=="+") { strAutoExp="|"+t.options[nL-3].value }
		}
	window.status=strAutoExp
	}
strZoek=strAutoExp
//LET OP: INDEX CORRECITE VOOR REACT IS -2 ZIE CONTENT.ASP, cbNamenAjax()
if (strUrl=="INDEX")
	{ nPosRow=t.parentNode.parentNode.rowIndex; strUrl=""
		if (oDocForm.name=="FormReAct"); {nPosRow--;}
	} 	//replace(strUrl, "INDEX", "")
strJXIDNaamCombo=strID		//Kopieer naar globale variabele: ID waarvan de innerhtml hervuld moet worden
//alert(window.event.keyCode)=186 werkt niet omdat via shift eenandere waarde komt bijv shift+2 geeft keycode 2
nL=strZoek.length
if (strZoek.substr(nL-1)==";")
	{return true } 
if (strZoek.indexOf(";")>1) { nPos=strZoek.lastIndexOf(";"); strZoek=strZoek.substr(nPos+1) } //meerdere items invoeren
nL=strZoek.length
if (strZoek=="?") {nL=2} 
if (nL<2) { return true }	//2 tekens of meer is minimum
xmlHttp=GetXmlHttpObject()
if (xmlHttp==null)  {  alert ("Your browser does not support AJAX!");  return;  } 

//document.getElementById(strID+"RIJ").style.display="block"
//document.getElementById(strID+"RIJ").focus()
//--document.getElementById(strID+"RIJ").style.top=800
//--document.getElementById(strID).style.top=800
strBericht="MOMENT, DE LIJST WORDT NU DOORZOCHT.... "
if (cojsTAAL=="gb") {strBericht="Moment...searching"}
//if (strInfo1.length<1) { strInfo1+="<B>"+strBericht+"</B><img src='images/zandloper.gif'>" }
//document.getElementById(strID).innerHTML=strInfo1 
//doet niets 
window.status = strBericht
//alert(oDocForm.AKTIENEMERS_NAAM.value)
url=strUrl
if (strUrl.length<1)
	{
	//nPos=t.parentNode.parentNode.rowIndex 	
//	url="cbs_multipurp.asp?intActie=123456789&strLijst="+strZoek+"&strVeld="+strVeldNaam		//+"&strPagina="+nPosRow				//+"&lngSys_Key="+lngSys_Key		//test routine jan07
	url="cbs_multipurp.asp?intActie=1000010&strLijst="+strZoek+"&strVeld="+strVeldNaam+"&strPagina="+nPosRow				//+"&lngSys_Key="+lngSys_Key		//test routine jan07

	}
url+="&sid="+Math.random()
xmlHttp.onreadystatechange=stateChangedCombo		//reference to function, parameters niet mogelijk 
xmlHttp.open("GET",url,false)		//open de url via GET (POST, HEAD), true: Asynchroon dus nog voordat de server klaar is met antwoorden
//xmlHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=UTF-8");--geen UTF-8 opmaak in asp "iso-8859-1"
xmlHttp.send(null)					//The parameter to the send() method can be any data you want to send to the server if POST-ing the request
window.status = "..."
}
//---------------------------------------------------------------------------------------------------
function stateChangedCombo() 
{ 
// algemeen: strJXIDNaamCombo is de ID 
var strRT, nPos, nPos2, strH, nCH
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
	{ 
	//SetcharacterEncoding("utf-8")
	//var areq = new HTTP.Request; 
	// req.setRequestHeader("Content-Type","application/x-javascript; charset:ISO-8859-1"); 
	strRT=xmlHttp.responseText 
	//document.getElementById(strJXIDNaamCombo).innerHTML=strRT
	document.getElementById(strJXIDNaamCombo).innerHTML=strRT
	//nPos=strRT.indexOf("~-")
	//if (nPos>-1) {nPos2=strRT.indexOf("-",4); strH="* ! ! ! ! ! ! ! ! *" + strRT.substring(nPos+2, nPos2)+"* ! ! ! ! ! ! ! ! *"; window.status=strH+strH } 
	} 
} 
//---------------------------------------------------------------------------------------------------
function cbVinkNamen(strInVeld)
//functie bij de maillijst cbContactOptionChkMail
{
var i, strAnaam
if (strInVeld.length>0)
	{
	for (i = 0; i < document.forms[0].anaam.length; i++)
		{
		strAnaam=document.forms[0].anaam[i].value
		if (strAnaam.length>0) {	document.forms[0].anaam[i].checked=(strInVeld.indexOf(strAnaam)>-1) }
		}		//for
	}
}
//---------------------------------------------------------------------------------------------------
function cbDSMSP()
{
try {
	df1=document.forms[0];
	if (df1.name=="FormVoort")
		{ 
		df=document.forms[0];
		if (opener.document.forms[0].cboKeuzeS3[0].checked==true) {df.MAATREG_AKTIE.value+="-ALERT: ROOD";cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "now",30)};
		if (opener.document.forms[0].cboKeuzeS3[1].checked==true) {df.MAATREG_AKTIE.value+="-ALERT: ORANJE";cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "now",90)};
		if (opener.document.forms[0].cboKeuzeS3[2].checked==true) {df.MAATREG_AKTIE.value+="-ALERT GEEL";cbjsDefaultDate("DA_MAATREG_DD_ALARM_YEAR", "now",180)};
		if (opener.document.forms[0].cboKeuzeS3[3].checked==true) {df.MAATREG_AKTIE.value+="-ALERT GROEN: verander de status naar Afgedaan/Vervallen";df1.DA_MAATREG_DD_ALARM_YEAR.value='';};
	} 
}	
catch(err) {}
}
//---------------------------------------------------------------------------------------------------