function _openURL(strURL, strFrame) {
if (strURL.substr(0,3) == "PM:") {
if (pmURL) {
strURL = pmURL + strURL.substr(3);
}
}
switch(strFrame) {
case 'Body' :
// Open the body frameset with URL in argument!
var pathdb = strURL.substring(0,(strURL.lastIndexOf('.nsf')+5));
if (top.Content.Body) {
top.Content.Navigation.location = pathdb+'p-WebNavigation!OpenPage&BaseTarget=Body';
top.Content.Body.location = strURL;
} else {
var docContent = top.Content.document;
docContent.writeln('');
docContent.writeln('');
docContent.writeln('');
docContent.writeln('');
docContent.writeln('');
}
break;
case 'Content' :
top.Content.location = strURL;
break;
case '_top' :
top.location = strURL;
break;
default :
window.open(strURL, strFrame);
break;
}
return false;
}
function makeArray(n) {
this.length = n;
return this;
}
var dayWidth = 20;
var oneMinute = 60 * 1000;
var oneHour = 60 * oneMinute;
var oneDay = 24 * oneHour;
var oneWeek = 7 * oneDay
var monthNames = new makeArray(12);
monthNames[1] = "januari"
monthNames[2] = "februari"
monthNames[3] = "maart"
monthNames[4] = "april"
monthNames[5] = "mei"
monthNames[6] = "juni"
monthNames[7] = "juli"
monthNames[8] = "augustus"
monthNames[9] = "september"
monthNames[10] = "oktober"
monthNames[11] = "november"
monthNames[12] = "december"
var dayNames = new makeArray(7);
dayNames[1] = "zo"
dayNames[2] = "ma"
dayNames[3] = "di"
dayNames[4] = "wo"
dayNames[5] = "do"
dayNames[6] = "vr"
dayNames[7] = "za"
var strDebug = '';
function write(str) {
document.write(str);
encoded_html=str.replace(/\&/g,"&");
encoded_html=encoded_html.replace(/>/g,">");
encoded_html=encoded_html.replace(/");
strDebug += encoded_html;
}
function writeln(str) {
document.writeln(str);
encoded_html=str.replace(/\&/g,"&");
encoded_html=encoded_html.replace(/>/g,">");
encoded_html=encoded_html.replace(/");
strDebug += encoded_html;
}
function printMonthHeader(d) {
writeln('
' + monthNames[d.getMonth()+1] + ' ' + d.getYear()+ ' |
');
write('');
for (var t = 1; t<=7; t++) {
write('| '+dayNames[t]+' | ')
}
writeln('
')
}
function doCalendar() {
writeln('');
var dDate = new Date()
var msToday = dDate.getTime();
dDate.setTime(dDate.getTime() - dDate.getDay() * oneDay);
printMonthHeader(dDate);
for (var w = 1; w<=5; w++) {
write('');
for (var t = 1; t<=7; t++) {
var dOldMonth = dDate.getMonth();
if (dDate.getTime() >= msToday && dDate.getDay() != 0 && dDate.getDay() != 6) {
var strDate = "'" + dDate.getDate()+'-'+(dDate.getMonth()+1)+'-'+dDate.getYear() + "'"
write('| ' + dDate.getDate() + ' | ');
} else {
write('' + dDate.getDate() + ' | ');
}
dDate.setTime(dDate.getTime() + oneDay);
if (dOldMonth < dDate.getMonth()) {
if (t<7) writeln(' |
');
printMonthHeader(dDate);
if (t<7) write('| | ');
}
}
writeln('
')
}
writeln('
');
}
function createSelectDatum(fldName) {
if (!bRead) {
var obj = document.getElementById('DatePicker');
if (obj == null) {
writeln('');
}
write('
');
}
}
function getTop(obj) {
var pobj = obj.parentElement
var top = obj.offsetTop;
while (pobj != null) {
if (pobj.tagName != "FORM" && pobj.tagName!="TR") {
top += pobj.offsetTop;
}
pobj = pobj.parentElement;
}
return top;
}
function getLeft(obj) {
var pobj = obj.parentElement
var left = obj.offsetLeft;
while (pobj != null) {
if (pobj.tagName != "FORM" && pobj.tagName!="TR") {
left += pobj.offsetLeft;
}
pobj = pobj.parentElement;
}
return left;
}
function createMonth(obj) {
var im = obj.month;
var iy = obj.year;
var table = '';
table += ' | ';
table += ''+monthNames[im]+' | ';
table += ''+iy+' | ';
table += ' |
';
table +='';
for (var t = 1; t<8; t++) {
table +='| '+dayNames[t]+' | ';
}
table +='
';
var dToday = new Date();
dToday.setHours(12); dToday.setMinutes(0); dToday.setSeconds(0);
var dat = new Date(iy,im-1,1,12,0,0);
dat.setTime(dat.getTime() - dat.getDay() * oneDay);
var datTWS = new Date(dToday.getTime() - (dToday.getDay()+1) * oneDay);
var datTWE = new Date(datTWS.getTime() + 7 * oneDay);
while ( (dat.getMonth() == im-1) || (dat.getMonth()+1 == im-1) || (dat.getMonth()+1 == im+11) ) {
table += '';
for (var t = 1; t<=7; t++) {
var d = dat.getDate();
var y = dat.getYear();
var m = dat.getMonth()+1;
var c = 'sq-date-picker-tm';
if (im != m) c = 'sq-date-picker-om';
if (datTWS.getTime() <= dat.getTime() && dat.getTime() < datTWE.getTime()) c = 'sq-date-picker-tw';
if (dToday.getDate() == dat.getDate() && dToday.getMonth() == dat.getMonth() && dToday.getYear() == dat.getYear()) c = 'sq-date-picker-td';
var id = 'd' + (d>9?d:'0'+d) +'-' + (m>9?m:'0'+m) + '-' + y;
table += '| ' + d + ' | ';
dat.setTime(dat.getTime()+oneDay);
}
table += '
';
}
table +='
';
return table;
}
function selectDatum(objDate) {
var objDP = document.getElementById('DatePicker');
var w = 15;
var dToday = new Date();
objDP.style.top = getTop(objDate);
objDP.style.left = getLeft(objDate);
objDP.month = dToday.getMonth()+1;
objDP.year = dToday.getYear();
objDP.innerHTML = createMonth(objDP);
objDP.objDate = objDate;
}
function moverDate(obj) {
obj.oldBorderColor = obj.style.borderColor
obj.style.borderColor = "black";
}
function moutDate(obj) {
obj.style.borderColor = obj.oldBorderColor;
}
function mclickNextMonth() {
var objDP = document.getElementById('DatePicker');
if (objDP.month == 12) {
objDP.month = 1;
objDP.year++;
} else {
objDP.month++;
}
objDP.innerHTML = createMonth(objDP);
}
function mclickPreviousMonth() {
var objDP = document.getElementById('DatePicker');
if (objDP.month == 1) {
objDP.month = 12;
objDP.year--;
} else {
objDP.month--;
}
objDP.innerHTML = createMonth(objDP);
}
function mclickDate(obj) {
obj.style.borderColor = "red";
var objDP = document.getElementById('DatePicker');
var objDate = objDP.objDate;
document.forms[0].elements[objDate.id].value = obj.id.slice(1);
objDP.innerHTML="";
}
function leaveDatePicker() {
var objDP = document.getElementById('DatePicker');
objDP.timer = setTimeout(closeDatePicker, 1000);
}
function clearTimer() {
var objDP = document.getElementById('DatePicker');
clearTimeout(objDP.timer);
}
function closeDatePicker() {
var objDP = document.getElementById('DatePicker');
objDP.innerHTML = '';
}
function clearTimerTime() {
var objTP = document.getElementById('TimePicker');
if (objTP) clearTimeout(objTP.timer);
}
function createSelectTime(fldName, s, e) {
if (!bRead) {
var obj = document.getElementById('TimePicker');
if (obj == null) {
writeln('');
var obj = document.getElementById('TimePicker');
}
if (s==null) {
s = 6;
}
if (e==null) {
e = 23;
}
write('
');
}
}
function createTimePicker(obj) {
var innerHTML = '';
for (var t=obj.StartHour; t<=obj.EndHour; t++) {
innerHTML += '| '+(t>9?t:'0'+t)+':00 |
';
}
innerHTML +='
';
return innerHTML;
}
function selectTime(objTS, s, e) {
var objTP = document.getElementById('TimePicker');
if (s==null) {
objTP.StartHour = 6;
} else {
objTP.StartHour = s;
}
if (e==null) {
objTP.EndHour = 23;
} else {
objTP.EndHour = e;
}
closeDatePicker();
objTP.style.top = getTop(objTS);
objTP.style.left = getLeft(objTS);
objTP.innerHTML = createTimePicker(objTP);
objTP.objTime = objTS;
clearTimeout(objTP.timer);
}
var mouseX = 0;
var mouseY = 0;
function dragTimebox() {
var objTP = document.getElementById('TimePicker');
var tf=Math.floor((mouseY - getTop(objTP.objTime))/5)+2;
var hr= Math.floor(tf/4) + (objTP.StartHour-1);
var mn= (tf%4) * 15;
var objTime = objTP.objTime;
document.forms[0].elements[objTime.id].value = (hr>9?hr:"0"+hr) + ":" + (mn==0?"00":mn);
}
function leaveTimePicker() {
var objTP = document.getElementById('TimePicker');
objTP.timer = setTimeout(closeTimePicker, 1000);
}
function closeTimePicker() {
var objTP = document.getElementById('TimePicker');
if (objTP) objTP.innerHTML = '';
}
var IE = document.all?true:false
// If NS -- that is, !IE -- then set up for mouse capture
if (!IE) document.captureEvents(Event.MOUSEMOVE)
// Set-up to use getMouseXY function onMouseMove
document.onmousemove = getMouseXY;
// Temporary variables to hold mouse x-y pos.s
var tempX = 0
var tempY = 0
// Main function to retrieve mouse x-y pos.s
function getMouseXY(e) {
if (IE) { // grab the x-y pos.s if browser is IE
tempX = event.clientX + document.body.scrollLeft
tempY = event.clientY + document.body.scrollTop
} else { // grab the x-y pos.s if browser is NS
tempX = e.pageX
tempY = e.pageY
}
// catch possible negative values in NS4
if (tempX < 0){tempX = 0}
if (tempY < 0){tempY = 0}
// show the position values in the form named Show
// in the text fields named MouseX and MouseY
mouseX = tempX;
mouseY = tempY;
return true;
}