/* Settings. Please read readme.html file for instructions*/
var ppcDF = "m/d/Y";
var ppcMN = new Array("Enero", "Febrero", "Marzo","Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre","Octubre", "Noviembre", "Diciembre");
var ppcWN = new Array("Dom", "Lun", "Mar","Mie", "Jue", "Vie", "Sab");
var ppcER = new Array(4);
ppcER[0] = "Required DHTML functions are not supported in this browser.";
ppcER[1] = "Target form field is not assigned or not accessible.";
ppcER[2] = "Sorry, the chosen date is not acceptable. Please read instructions on the page.";
ppcER[3] = "Unknown error occured while executing this script.";
var ppcUC = false;
var ppcUX = 4;
var ppcUY = 4;
/* Do not edit below this line unless you are sure what are you doing! */
var pccOP=window.navigator.userAgent;
pccOP=(pccOP.indexOf('Opera', 0)>=0);
var ppcIE=(navigator.appName == "Microsoft Internet Explorer");
var ppcNN=((navigator.appName == "Netscape")&&(document.layers));
if (document.all && navigator.appName != "Microsoft Internet Explorer")
{
ppcW3C=true;
}else if(navigator.appCodeName=="Mozilla" && navigator.appVersion.indexOf('5.0')==0 ){
ppcW3C=true;
}else if(document.all && navigator.appName=="Opera"){
ppcW3C=true;
}else{
ppcW3C=false;
}
/*
var ppcW3C=(document.all && navigator.appName != "Microsoft Internet Explorer");//document.getElementById&&!document.all //(document.getElementById?true:false);
ppcW3C=(navigator.appCodeName=="Mozilla" && navigator.appVersion.indexOf('5.0')==0 );
ppcW3C=(document.all && navigator.appName=="Opera");
*/
//class='tablecalendar'
var ppcTT="\n";
var ppcCD=ppcTT;var ppcFT="";var ppcFC=true;
var ppcTI=false;var ppcSV=null;var ppcRL=null;var ppcXC=null;var ppcYC=null;
var ppcML=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var ppcWE=new Array("Dom", "Lun", "Mar","Mie", "Jue", "Vie", "Sab");
var ppcNow=new Date();var ppcPtr=new Date();
if (ppcW3C ) {
//document.addEventListener("mousedown",displaymenu,true)
}
if (ppcNN ) {
window.captureEvents(Event.RESIZE);
window.onresize = restoreLayers;
document.captureEvents(Event.MOUSEDOWN|Event.MOUSEUP);
document.onmousedown = recordXY;
document.onmouseup = confirmXY;}
function displaymenu(e){
el=document.getElementById("PopUpCalendar")
el.style.left=pageXOffset+e.clientX;
el.style.top=pageYOffset+e.clientY;
el.style.visibility="visible";
return false;}
function restoreLayers(e) {
if (ppcNN ) {
with (window.document) {
open("text/html");
write("Restoring the layer structure...");
write("");
write("");
close();}}}
function recordXY(e) {
if (ppcNN ) {
ppcXC = e.x;
ppcYC = e.y;
document.routeEvent(e);}}
function confirmXY(e) {
if (ppcNN ) {
ppcXC = (ppcXC == e.x) ? e.x : null;
ppcYC = (ppcYC == e.y) ? e.y : null;
document.routeEvent(e);}}
function getPageXY(elm)
{
var point = { x: 0, y: 0 };
while (elm)
{
if (point.x<=0){
point.x += elm.offsetLeft;
}
if (point.y<=0){
point.y += elm.offsetTop;
}
elm = elm.offsetParent;
}
return point;
}
function setPageXY(elm, x, y)
{
var parentXY = {x: 0, y: 0 };
if (elm.offsetParent)
{
parentXY = getPageXY(elm.offsetParent);
}
if (!ppcW3C){
elm.style.left = (x ) + 'px';
elm.style.top = (y ) + 'px';
}else{
elm.style.left = (x *10) + 'px';
elm.style.top = (y *10) + 'px';
}
/*
elm.style.left = (x - parentXY.x) + 'px';
elm.style.top = (y - parentXY.y) + 'px';
*/
}
function getCalendarFor(target,rules) {
ppcSV = target;
ppcRL = rules;
if (ppcFC) {setCalendar();ppcFC = false;}
if ((ppcSV != null)&&(ppcSV)) {
if (ppcIE) {
var obj = document.all['PopUpCalendar'];
var point = getPageXY(ppcSV);
//setPageXY(obj, (point.x + document.body.scrollLeft+(document.all['tblcalendar'].width/2)), ( point.x +document.body.scrollTop+(document.all['tblcalendar'].height/2)))
setPageXY(obj, (point.x +(event.clientX-document.all['tblcalendar'].width-60)), ( point.x+(event.clientY-document.all['tblcalendar'].height)))
obj.style.visibility = "visible"}
else if (ppcNN) {
var obj = document.layers['PopUpCalendar'];
obj.left = ppcXC+document.body.scrollLeft;
obj.top = ppcYC+document.body.scrollTop;
obj.visibility = "show";}
else if (ppcW3C){
var obj = document.getElementById("PopUpCalendar");
//obj.style.left = ppcSV.offsetLeft+document.body.scrollLeft;
//obj.style.top = ppcSV.offsetTop+document.body.scrollTop;
var point = getPageXY(ppcSV);
setPageXY(obj, (point.x +ppcSV.offsetLeft), ( point.x+ppcSV.offsetTop ))
obj.style.visibility = "visible";}
else {showError(ppcER[0]);}}
else {showError(ppcER[1]);}
if (ppcIE || ppcW3C) {
//return false;
}
}
function switchMonth(param) {
if (ppcIE) {obj = document.ppcYearList.sItem;}
else if (ppcNN) {obj = document.layers['PopUpCalendar'].document.layers['yearSelector'].document.ppcYearList.sItem;}
else if (ppcW3C){obj = document.getElementById("PopUpCalendar");}
var anio =obj.value;
//var tmp = param.split("|");
//setCalendar(tmp[0],tmp[1]);}
mes=param ;
setCalendar(anio,mes);}
function switchYear(anio) {
if (ppcIE) {
obj = document.ppcMonthList.sItem;
} else if (ppcNN){
obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sItem;
}else if (ppcW3C){obj = document.getElementById("ppcMonthList").sItem;}
var mes =obj.value;
//alert(mes);
setCalendar(anio,mes);}
function moveMonth(dir) {
var obj = null;
var limit = false;
var tmp,dptrYear,dptrMonth;
if (ppcIE) {obj = document.ppcYearList.sItem;}
else if (ppcNN) {obj = document.layers['PopUpCalendar'].document.layers['yearSelector'].document.ppcYearList.sItem;}
else if (ppcW3C){ obj = document.getElementById("ppcYearList").sItem;}
var anio =obj.value;
var obj = null;
if (ppcIE) {obj = document.ppcMonthList.sItem;}
else if (ppcNN) {obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sItem;}
else if (ppcW3C){obj = document.getElementById("ppcMonthList").sItem;}
else {showError(ppcER[0]);}
var mes =obj.value;
if (obj != null) {
if ((dir.toLowerCase() == "back")&&(obj.selectedIndex > 0)) {obj.selectedIndex--;}
else if ((dir.toLowerCase() == "forward")&&(obj.selectedIndex < 12)) {obj.selectedIndex++;}
else {limit = true;}}
if (!limit) {
tmp = obj.options[obj.selectedIndex].value.split("|");
//dptrYear = tmp[0];
//dptrMonth = tmp[1];
setCalendar(anio,mes);}
else {
if (ppcIE) {
obj.style.backgroundColor = "#FF0000";
window.setTimeout("document.ppcMonthList.sItem.style.backgroundColor = '#FFFFFF'",50);}}}
function selectDate(param) {
var arr = param.split("|");
var year = arr[0];
var month = arr[1];
var date = arr[2];
var ptr = parseInt(date);
ppcPtr.setDate(ptr);
if ((ppcSV != null)&&(ppcSV)) {
if (validDate(date)) {ppcSV.value = dateFormat(year,month,date);hideCalendar();}
else {showError(ppcER[2]);if (ppcTI) {clearTimeout(ppcTI);ppcTI = false;}}}
else {
showError(ppcER[1]);
hideCalendar();}}
function setCalendar(year,month) {
if (year == null || year == 'undefined') {
//year = getFullYear(ppcNow);
year = setSelectYearList(ppcNow);
}
if (month == null || month == 'undefined') {month = ppcNow.getMonth(); setSelectList(year,month);}
if (month == 1) {ppcML[1] = (isLeap(year)) ? 29 : 28;}
ppcPtr.setYear(year);
ppcPtr.setMonth(month);
ppcPtr.setDate(1);
updateContent();}
function updateContent() {
generateContent();
if (ppcIE) {document.all['monthDays'].innerHTML = ppcCD;}
else if (ppcW3C){document.getElementById("monthDays").innerHTML = ppcCD;}
else if (ppcNN) {
with (document.layers['PopUpCalendar'].document.layers['monthDays'].document) {
open("text/html");
write("\n\nDynDoc\n\n\n");
write(ppcCD);
write("\n");
close();}}
else {showError(ppcER[0]);}
ppcCD = ppcTT;}
function generateContent() {
var year = getFullYear(ppcPtr);
var month = ppcPtr.getMonth();
var date = 1;
var day = ppcPtr.getDay();
var len = ppcML[month];
var bgr,cnt,tmp = "";
var j,i = 0;
for (j = 0; j < 7; ++j) {
if (date > len) {break;}
for (i = 0; i < 7; ++i) {
bgr = ((i == 0)||(i == 6)) ? "#d1d1d1" : "#ebeeef"; /* borrar*/
if (((j == 0)&&(i < day))||(date > len)) {tmp += makeCell(bgr,year,month,0);}
else {tmp += makeCell(bgr,year,month,date);++date;}}
ppcCD += "\n" + tmp + "
\n";tmp = "";}
ppcCD += "
\n";}
function makeCell(bgr,year,month,date) {
var param = "\'"+year+"|"+month+"|"+date+"\'";
/*style dias del calendario*/
var td1 = " | \n" : "\n";
var evt = "onMouseOver=\"this.style.backgroundColor=\'#0061aa\'\" onMouseOut=\"this.style.backgroundColor=\'"+bgr+"\'\" onMouseUp=\"selectDate("+param+")\" ";
var ext = "";
var lck = "";
var lnk = "";
var cellValue = (date != 0) ? date+"" : " ";
if ((ppcNow.getDate() == date)&&(ppcNow.getMonth() == month)&&(getFullYear(ppcNow) == year)) {
cellValue = ""+cellValue+"";}
var cellCode = "";
if (date == 0) {
if (ppcIE || ppcW3C ) {cellCode = td1+" Style=\"cursor: default\" >"+""+lck+ppcFT+""+cellValue+td2;}
else {cellCode = td1+">"+ppcFT+cellValue+td2;}}
else {
if (ppcIE || ppcW3C) {cellCode = td1+evt+" Style=\"cursor: hand\" >"+ext+""+ppcFT+""+cellValue+td2;}
else {
if (date < 10) {cellValue = " " + cellValue + " ";}
cellCode = td1+">"+lnk+ppcFT+cellValue+td2;}}
return cellCode;}
function setSelectList(year,month) {
var i = 0;
var obj = null;
if (ppcIE) {obj = document.ppcMonthList.sItem;}
else if (ppcNN) {obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sItem;}
else if (ppcW3C){obj = document.ppcMonthList.sItem; } //document.getElementById("ppcMonthList").sItem;
else {obj = document.ppcMonthList.sItem;/* NOP */}
while (i < 12) {
//obj.options[i].value = year + "|" + month;
//obj.options[i].text = year + " • " + ppcMN[month];
obj.options[i].value = month;
obj.options[i].text = ppcMN[month];
i++;
month++;
if (month == 12) {year++;month = 0;}
}}
function hideCalendar() {
if (ppcIE) {document.all['PopUpCalendar'].style.visibility = "hidden";}
else if (ppcNN) {document.layers['PopUpCalendar'].visibility = "hide";window.status = " ";}
else if (ppcW3C){obj = document.getElementById("PopUpCalendar").style.visibility = "hidden";}
else {/* NOP */}
ppcTI = false;
setCalendar();
ppcSV = null;
if (ppcIE) {var obj = document.ppcMonthList.sItem;}
else if (ppcNN) {var obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sItem;}
else if (ppcW3C){obj = document.getElementById("ppcMonthList").sItem;}
else {/* NOP */}
obj.selectedIndex = 0;}
function showError(message) {
window.alert("[ PopUp Calendar ]\n\n" + message);}
function isLeap(year) {
if ((year%400==0)||((year%4==0)&&(year%100!=0))) {return true;}
else {return false;}}
function getFullYear(obj) {
if (ppcNN || ppcW3C || ( ppcIE && pccOP) ) {return obj.getYear() + 1900;}
//else if(ppcIE && ! pccOP) { return obj.getYear() +1;}
else {return obj.getYear();}}
function validDate(date) {
var reply = true;
if (ppcRL == null) {/* NOP */}
else {
var arr = ppcRL.split(":");
var mode = arr[0];
var arg = arr[1];
var key = arr[2].charAt(0).toLowerCase();
if (key != "d") {
var day = ppcPtr.getDay();
var orn = isEvenOrOdd(date);
reply = (mode == "[^]") ? !((day == arg)&&((orn == key)||(key == "a"))) : ((day == arg)&&((orn == key)||(key == "a")));}
else {reply = (mode == "[^]") ? (date != arg) : (date == arg);}}
return reply;}
function isEvenOrOdd(date) {
if (date - 21 > 0) {return "e";}
else if (date - 14 > 0) {return "o";}
else if (date - 7 > 0) {return "e";}
else {return "o";}}
function dateFormat(year,month,date) {
if (ppcDF == null) {ppcDF = "m/d/Y";}
var day = ppcPtr.getDay();
var crt = "";
var str = "";
var chars = ppcDF.length;
for (var i = 0; i < chars; ++i) {
crt = ppcDF.charAt(i);
switch (crt) {
case "M": str += ppcMN[month]; break;
case "m": str += (month<9) ? ("0"+(++month)) : ++month; break;
case "Y": str += year; break;
case "y": str += year.substring(2); break;
case "d": str += ((ppcDF.indexOf("m")!=-1)&&(date<10)) ? ("0"+date) : date; break;
case "W": str += ppcWN[day]; break;
default: str += crt;}}
return unescape(str);}
function getYears(){
var year = getFullYear(ppcPtr);
var Anio = "";
for (I=year;I>=1920;I--){
Anio+=I+",";
}
return Anio;
}
function setSelectYearList(obj) {
var i = getFullYear(obj);
var returnI = i
var objlst = null;
if (ppcIE) {objlst = document.ppcYearList.sItem;}
else if (ppcNN) {objlst = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcYearList.sItem; }//alert("Es posible que su explorador no soporte correctamente esta funcionalidad");
else if (ppcW3C){objlst = document.ppcYearList.sItem;}//document.getElementById("ppcYearList").sItem;}
else {objlst =document.ppcYearList.sItem;/* NOP */}
for ( z = objlst.options.length; z >= 0; z--){
objlst.options[z] = null;
}
while (i > 1920) {
newOpt = new Option(i,i,false);
objlst.options[objlst.options.length] = newOpt;
//objlst.options[i].value = i;
//objlst.options[i].text = i;
i--;
}
objlst.options[0].selected=true;
return returnI;
}
/*Inicia escribiendo el codigo de la estructura*/
if (document.all || ppcW3C) {
document.writeln("");}
else if (document.layers) {
document.writeln("");
document.writeln(" ");} //
else {/*NOP*/}