function tRek (cRek)
{
        if (isLeeg(cRek)) return(cRek);
        if (cRek.charAt(0) == "P")
       {
                while (cRek.length < 10) cRek = "P0" + cRek.substring(1,cRek.length);
                return(cRek);
        }
        if (cRek.length > 10) return(cRek);
        if (wegVNul(cRek).length < 9) return(wegVNul(cRek));
        if (cRek.charAt(0) == "0") return(cRek.substring(1,5) + "." +
                cRek.substring(5,7) + "." + cRek.substring(7,10));
                return(cRek.substring(0,4) + "." + cRek.substring(4,7) + "." + cRek.substring(7,10));
}

function expRek(cRekNum)
{
        var nPos;
        var cHulpTekst = '';
        cRekNum = rTrim(cRekNum);

        while (((nPos = eIndexOf(cRekNum,'.')) > -1) || ((nPos = eIndexOf(cRekNum,' ')) > -1))
         {
               cHulpTekst += cRekNum.substring(0,nPos);
                cRekNum = cRekNum.substring(nPos + 1);
       }
 
        cHulpTekst += cRekNum;
        if (cHulpTekst.charAt(0).toUpperCase() != "P") while (cHulpTekst.length < 10) cHulpTekst = "0" + cHulpTekst;
        else cHulpTekst = "P" + wegVNul(cHulpTekst.substring(1,cHulpTekst.length));
        return(cHulpTekst);
}

function wegVNul(cTk)
{
        while (cTk.charAt(0) == "0") cTk = cTk.substring(1,cTk.length);
        return(cTk);
}

function isLeeg(cTk)
{
	for (var i=0;i < cTk.length;i++)
	{
		if (cTk.substring(i,i+1) != " ") return(false);
	}
	return(true);
}

function blurI027(iVeld)
{
	if (!isLeeg(iVeld.value))
	{
		iVeld.value = iVeld.value.toUpperCase();
		iVeld.value = tRek(expRek(iVeld.value));
	}
}

function focusI027(iVeld)
{
	var val;
	val=iVeld.value;
	if (!isLeeg(val))
	{
		iVeld.value = "";
		iVeld.value = wegVNul(expRek(val));
		iVeld.focus();
	}
}

function rTrim(cTk)
{
	while (cTk.charAt(cTk.length - 1) == " ") cTk = cTk.substring(0,cTk.length-1);
	return(cTk);
}

function eIndexOf(cVeld,cKarakter)
{
	if (cVeld.length == 0 ) return -1;
	return (cVeld.indexOf(cKarakter));
}