// hace el submit de la forma y modifica su propiedad "action"
	function submitTheForm(theFormName,action){
		if(action!='')
			document.forms[theFormName].action = action;
		document.forms[theFormName].submit()
	}
	
// Valida la un campo text como requerido y con una longitud maxima, imprime el nombre del campo o un texto opcional
	function validaCampo(nombreForma,nombreCampo){
	var strTexto
	var chrTipoDeDato
	var longitud
	var minimo
	var requerido
	
		//checo si argumentos extra
		if(arguments.length>=6)
			longitud = arguments[5]; // numero que representa longitud maxima
			
		if(arguments.length>=7)
			minimo = arguments[6];	// numero que representa longitud minima

		if(arguments.length>=4)
			requerido = arguments[3]; // 1 si es requerido, 0 sino lo es
	
		if(arguments.length>=3)			//texto que se imprimira el los alerts
			 strTexto = arguments[2]
		else
			 strTexto = nombreCampo;
	  
		if(arguments.length>=5)			
			 chrTipoDeDato = arguments[4] // A=texto, 9=entero, D=decimal;
		
					 
		// valida el campo como requerido
		if(requerido)
			if (document.forms[nombreForma].elements[nombreCampo].value == "")
			{
			  alert("Porfavor introduzca un valor para: [" + strTexto + "] .")
			  document.forms[nombreForma].elements[nombreCampo].focus();
			  return (false);
			}
		
		//valida la logitud maxima
		
		if (!isNaN(longitud)){
			if (document.forms[nombreForma].elements[nombreCampo].value.length > longitud)
			{
			  alert("Porfavor introduzca solo " + longitud + " caracteres en el campo [" + strTexto + "] .");
			  document.forms[nombreForma].elements[nombreCampo].focus();
			  return (false);
			}
		}			
		
		//valida la logitud minima
		if (!isNaN(minimo)){
			if (document.forms[nombreForma].elements[nombreCampo].value.length < minimo)
			{
			  alert("Porfavor introduzca almenos " + minimo + " caracteres en el campo [" + strTexto + "] .");
			  document.forms[nombreForma].elements[nombreCampo].focus();
			  return (false);
			}
		}
		// valida que sea solo texto	
		if (chrTipoDeDato=='A'){
		  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzƒŠŒŽšœžŸÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ \t\r\n\f";
		  var checkStr = document.forms[nombreForma].elements[nombreCampo].value;
		  var allValid = true;
		  for (i = 0;  i < checkStr.length;  i++)
		  {
		    ch = checkStr.charAt(i);
		    for (j = 0;  j < checkOK.length;  j++)
		      if (ch == checkOK.charAt(j))
		        break;
		    if (j == checkOK.length)
		    {
		      allValid = false;
		      break;
		    }
		  }
		  if (!allValid)
		  {
		    alert("Por favor introduzca solo letras para: [" + strTexto + "]");
		    document.forms[nombreForma].elements[nombreCampo].focus();
		    return (false);
		  }
		}

		// valida si es Entero valido
		if (chrTipoDeDato=='9'){
		  var checkOK = "0123456789-,";
		  var checkStr = document.forms[nombreForma].elements[nombreCampo].value;
		  var allValid = true;
		  var decPoints = 0;
		  var allNum = "";
		  for (i = 0;  i < checkStr.length;  i++)
		  {
		    ch = checkStr.charAt(i);
		    for (j = 0;  j < checkOK.length;  j++)
		      if (ch == checkOK.charAt(j))
		        break;
		    if (j == checkOK.length)
		    {
		      allValid = false;
		      break;
		    }
		    if (ch != ",")
		      allNum += ch;
		  }
		  if (!allValid)
		  {
		    alert("Por favor introduzca solo números enteros para: [" + strTexto + "] Ej: 99,999");
		    document.forms[nombreForma].elements[nombreCampo].focus();
		    return (false);
		  }
		}

		//valida si es decimal 
		if (chrTipoDeDato=='D'){
		  var checkOK = "0123456789-.,";
		  var checkStr = document.forms[nombreForma].elements[nombreCampo].value;
		  var allValid = true;
		  var decPoints = 0;
		  var allNum = "";
		  for (i = 0;  i < checkStr.length;  i++)
		  {
		    ch = checkStr.charAt(i);
		    for (j = 0;  j < checkOK.length;  j++)
		      if (ch == checkOK.charAt(j))
		        break;
		    if (j == checkOK.length)
		    {
		      allValid = false;
		      break;
		    }
		    if (ch == ".")
		    {
		      allNum += ".";
		      decPoints++;
		    }
		    else if (ch != ",")
		      allNum += ch;
		  }
		  if (!allValid)
		  {
		    alert("Por favor introduzca solo números decimales en: [" + strTexto + "] Ej: 9,999.99");
		    document.forms[nombreForma].elements[nombreCampo].focus();
		    return (false);
		  }

		  if (decPoints > 1)
		  {
		    alert("Formato de número decimal incorrecto en: [" + strTexto + "] Ej: 9,999.99");
		    document.forms[nombreForma].elements[nombreCampo].focus();
		    return (false);
		  }
		}
			
		//valida si es fecha del tipo MM/DD/AAAA
		if (chrTipoDeDato=='F'){
			var allValid = true;
			var checkStr = document.forms[nombreForma].elements[nombreCampo].value;
			
			if(!checkStr.length==10) 
				allValid = false;
			
				if(isNaN(checkStr.charAt(0))) allValid = false;
			
			if(isNaN(checkStr.charAt(1))) allValid = false;
			if(isNaN(checkStr.charAt(3))) allValid = false;
			if(isNaN(checkStr.charAt(4))) allValid = false;
			if(isNaN(checkStr.charAt(6))) allValid = false;
			if(isNaN(checkStr.charAt(7))) allValid = false;
			if(isNaN(checkStr.charAt(8))) allValid = false;
			if(isNaN(checkStr.charAt(9))) allValid = false;
			if(checkStr.charAt(2)!='/') allValid = false;
			if(checkStr.charAt(5)!='/') allValid = false;
			
			var dia = checkStr.charAt(0)+checkStr.charAt(1)
			var mes = checkStr.charAt(3)+checkStr.charAt(4)
			var anio =checkStr.charAt(6)+checkStr.charAt(7)+checkStr.charAt(8)+checkStr.charAt(9)
			
			if(parseInt(mes,10)<1 || parseInt(mes,10)>12) allValid = false;
			if(parseInt(dia,10)<1 || parseInt(dia,10)>31) allValid = false;
			if(parseInt(anio)<1900) allValid = false;

		  if (!allValid)
		  {
		    alert("Formato de fecha invalido en el campo: [" + strTexto + "] debe usar DD/MM/AAAA");
		    document.forms[nombreForma].elements[nombreCampo].focus();
		    return (false);
		  }
		}
		
		
		return(true);
	}
	
// Funciones para agregar o eliminar elementos de una lista de selección multiple a otra


	// función para agregar los elementos seleccionados de la lista 1 a la lista 2 y quitar de la lista 1
	function cmdMove(strNombreForma,strListaUno,strListaDos) {

		// Agregamos todos los elementos
		for (intContador=0; intContador< document.forms[strNombreForma].elements[strListaUno].length; intContador++ ) {
		
			// Identificamos los elementos que han sido seleccinados
			if ( document.forms[strNombreForma].elements[strListaUno].options[intContador].selected ) {

				blnSubIndicadorEncontrado = 0;

				// Agregamos solamente los elementos que no existan en el destino
				for (intContadorExistencias=0; intContadorExistencias < document.forms[strNombreForma].elements[strListaDos].length; intContadorExistencias++ )
					if ( document.forms[strNombreForma].elements[strListaUno].options[intContador].value == document.forms[strNombreForma].elements[strListaDos].options[intContadorExistencias].value )
						blnSubIndicadorEncontrado = 1;

				if ( blnSubIndicadorEncontrado == 0 ) {
					objElemento = document.createElement('OPTION');
					objElemento.text = document.forms[strNombreForma].elements[strListaUno].options[intContador].text;
					objElemento.value = document.forms[strNombreForma].elements[strListaUno].options[intContador].value;
					document.forms[strNombreForma].elements[strListaDos].add(objElemento);

				}
			}
		}
		
		// Eliminamos los elementos seleccionados 
		if ( document.forms[strNombreForma].elements[strListaUno].length > 0 ) {
			for(i=0;i<document.forms[strNombreForma].elements[strListaUno].length;i++){
				if (document.forms[strNombreForma].elements[strListaUno].options[i].selected){
					//alert(document.forms[strNombreForma].elements[strListaUno].options[i].text);				
					document.forms[strNombreForma].elements[strListaUno].remove( document.forms[strNombreForma].elements[strListaUno].selectedIndex );
					i--;			
				}
			}
		}		
		
	}
	
	// función para agregar los elementos seleccionados de la lista 1 a la lista 2
	function onclick_cmdAgregar(strNombreForma,strListaUno,strListaDos) {

		// Agregamos todos los elementos
		for (intContador=0; intContador< document.forms[strNombreForma].elements[strListaUno].length; intContador++ ) {
		
			// Identificamos los elementos que han sido seleccinados
			if ( document.forms[strNombreForma].elements[strListaUno].options[intContador].selected ) {

				blnSubIndicadorEncontrado = 0;

				// Agregamos solamente los elementos que no existan en el destino
				for (intContadorExistencias=0; intContadorExistencias < document.forms[strNombreForma].elements[strListaDos].length; intContadorExistencias++ )
					if ( document.forms[strNombreForma].elements[strListaUno].options[intContador].value == document.forms[strNombreForma].elements[strListaDos].options[intContadorExistencias].value )
						blnSubIndicadorEncontrado = 1;

				if ( blnSubIndicadorEncontrado == 0 ) {
					objElemento = document.createElement('OPTION');
					objElemento.text = document.forms[strNombreForma].elements[strListaUno].options[intContador].text;
					objElemento.value = document.forms[strNombreForma].elements[strListaUno].options[intContador].value;
					document.forms[strNombreForma].elements[strListaDos].add(objElemento);				
					
				}
			}
		}
	}
	
	//función para remover los elementos seleccionados de la lista2
	function onclick_cmdEliminar(strNombreForma,strListaDos) {
		// Eliminamos los elementos seleccionados 
		if ( document.forms[strNombreForma].elements[strListaDos].length > 0 ) {
			for(i=0;i<document.forms[strNombreForma].elements[strListaDos].length;i++){
				if (document.forms[strNombreForma].elements[strListaDos].options[i].selected){
									
					//document.forms[strNombreForma].elements[strListaDos].remove( document.forms[strNombreForma].elements[strListaDos].selectedIndex );
					document.forms[strNombreForma].elements[strListaDos].options[i] = null;
					//intElementos--				
				}
			}
		}
	}
	
	// esta función deve ir en el onCLick del boton para salvar o enviar los elementos configurados en la lista 2
	// sirve para seleccionarlos ya que sino el metodo POST no manda los valores.
	
	function cmdSalvarOnClick(strNombreForma,strListaDos){
		var i;
		for(i=0;i<document.forms[strNombreForma].elements[strListaDos].length;i++){
			document.forms[strNombreForma].elements[strListaDos].options[i].selected = 1;
		}
	}

//	VARIABLES QUE REQUIEREN LAS FUNCIONES
	var intPaginaActual = 0;
	
// ESTE CÓDIGO ASP VA EN LA PÁGINA DONDE VA LA PAGINACIÓN DENTRO DE UN <SCRIPT>
//	<%If IsArray(vntResultado) Then
//		intTotalPaginas = (Ubound(vntResultado,2)+1) Mod 5
//		If intTotalPaginas > 0 Then 
//			intTotalPaginas = Fix((Ubound(vntResultado,2)+1)/5) + 1
//		Else
//			intTotalPaginas = (Ubound(vntResultado,2)+1)/5
//		End If%>
//	var intTotalPaginas = <%=intTotalPaginas-1%>;
//	<%End If%>

	
	function IsNets(){
		return navigator.appName == 'Netscape';
	}


//		FUNCIONES QUE CONTROLAN EL CAMBIO DE PÁGINAS 

	function escondePaginas(){
		var intSegmento
		if(IsNets()){
			for(intSegmento=0;intSegmento<=intTotalPaginas;intSegmento++){
					document.layers['S'+intSegmento].visibility = "hide";
			}
		}else{
			for(intSegmento=0;intSegmento<=intTotalPaginas;intSegmento++){
					document.all['S'+intSegmento].style.display = 'none';
			}
		}
	}
	
	function cambiaPaginaAdelante(n) {
		if (intPaginaActual < intTotalPaginas){
			escondePaginas();
			if(IsNets()){
				document.layers['S' + n].visibility='show';
				//document.layers['Titulo'].document.write('Pagina ' + n + ' De ' + intTotalPaginas);
			}else{
				document.all['S' + n].style.display = '';
				//document.all.Titulo.innerHTML = 'Pagina ' + n + ' De ' + intTotalPaginas;
			}
			intPaginaActual = intPaginaActual + 1
		}
	}
	
	function cambiaPaginaAtraz(n) {
		if (intPaginaActual > 0){
			escondePaginas();
			if(IsNets()){
				document.layers['S' + n].visibility="show";
				//document.layers['Titulo'].document.write('Pagina ' + n + ' De ' + intTotalPaginas);
			}else{
				document.all['S' + n].style.display = '';
				//document.all.Titulo.innerHTML = 'Pagina ' + n + ' De ' + intTotalPaginas;
			}
			intPaginaActual = intPaginaActual - 1
		}
	}
	


function ventana_Grafica() {
var Imprimevw=window.open("","Imprimew",config="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=auto,resizable=yes,left=20,top=20,width=550,height=290");
Imprimevw.focus();
}

function Pantalla(w,h,var1) {
var Pantallapw=window.open(var1,"Pantalla1","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,left=20,top=20,width=" + w + ",height=" + h +"");
Pantallapw.focus();
}

function Pantalla2(w,h,var1) {
var Pantallapw=window.open(var1,"Pantalla2","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=20,top=20,width=" + w + ",height=" + h +"");
Pantallapw.focus();
}

function Ventana(w,h,var1) {

	msgWindow = window.open(var1, "Ventana1", "toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,left=20,top=20,width=" + w + ",height=" + h +"");
	msgWindow.name = "Ventana1";
	msgWindow.focus();
}
function Orden(w,h,var1) {

var Pantallaow=window.open(var1,"Orden1","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,left=20,top=20,width=" + w + ",height=" + h +"");
Pantallaow.focus();
}

   function nodisponible()
   {if (event.button==2)
      {alert('Funcion no disponible !!!') }

   }
   //onmousedown='nodisponible();'
  

   function sobreImagen(iNombre,estatus,iImagen)
   {if (estatus)
     {document[iNombre].src=iImagen + "1.gif"}
    else
     {document[iNombre].src=iImagen + "0.gif"}
   }

   function salir()
   {window.close()}

      function setselect (obj,valor) {
       	for (var i = 0; i < obj.length; i++) {
                 if (obj.options[i].value == valor)
               	{
       		obj.options[i].selected = true;
       		}
       	}
      }

      function setopc (obj,valor) {
       	for (var i = 0; i < obj.length; i++) {
                 if (obj[i].value == valor)
               	{
       		obj[i].checked = true;
       		}
       	}
      }

      function setchk (obj,valor) {
	obj.checked = true;

      }

      function settext (obj,valor) {
      	obj.value = valor;
      }
	

        //      Funcion que regresa el caracter de newline, de acuerdo a la plataforma.
        //      Es util para desplegar en TextAreas y respetar los "carriage returns"
        function newline()
        {   if (navigator.appVersion.lastIndexOf('Win') != -1)
                return "\r\n"
                else
                        return "\n"
        }
                
        function Text_Invert(exp)
        {       var cr=null, pos=exp.indexOf("`")
        
                cr = newline()
                if (pos != -1)
                {       exp=exp.substring(0,pos-1) + cr + exp.substring(pos+1,exp.length)
                        return Text_Invert(exp)
                }
                else
                        return exp
        }
        

      function setmemo (obj,valor) {
      	obj.value = Text_Invert(valor);
      }

      function setmemo2 (obj,valor) {
      	obj.value = valor;
      }

      function updmemo (obj) {
      	obj.value = obj.value;
      }

function showhide(what){
if (what.style.display=='none'){

what.style.display='';
	}
else{
what.style.display='none'

	}
}

var weekend = [0,6];
var weekendColor = "#e0e0e0";
var fontface = "Verdana";
var fontsize = 2;

var gNow = new Date();
var ggWinCal;
isNav = (navigator.appName.indexOf("Netscape") != -1) ? true : false;
isIE = (navigator.appName.indexOf("Microsoft") != -1) ? true : false;

Calendar.Months = ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio",
"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"];

// Non-Leap year Month days..
Calendar.DOMonth = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
// Leap year Month days..
Calendar.lDOMonth = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];

function Calendar(p_item, p_WinCal, p_month, p_year, p_format) {
	if ((p_month == null) && (p_year == null))	return;

	if (p_WinCal == null)
		this.gWinCal = ggWinCal;
	else
		this.gWinCal = p_WinCal;
	
	if (p_month == null) {
		this.gMonthName = null;
		this.gMonth = null;
		this.gYearly = true;
	} else {
		this.gMonthName = Calendar.get_month(p_month);
		this.gMonth = new Number(p_month);
		this.gYearly = false;
	}

	this.gYear = p_year;
	this.gFormat = p_format;
	this.gBGColor = "white";
	this.gFGColor = "black";
	this.gTextColor = "black";
	this.gHeaderColor = "black";
	this.gReturnItem = p_item;
}

Calendar.get_month = Calendar_get_month;
Calendar.get_daysofmonth = Calendar_get_daysofmonth;
Calendar.calc_month_year = Calendar_calc_month_year;
Calendar.print = Calendar_print;

function Calendar_get_month(monthNo) {
	return Calendar.Months[monthNo];
}

function Calendar_get_daysofmonth(monthNo, p_year) {
	/* 
	Check for leap year ..
	1.Years evenly divisible by four are normally leap years, except for... 
	2.Years also evenly divisible by 100 are not leap years, except for... 
	3.Years also evenly divisible by 400 are leap years. 
	*/
	if ((p_year % 4) == 0) {
		if ((p_year % 100) == 0 && (p_year % 400) != 0)
			return Calendar.DOMonth[monthNo];
	
		return Calendar.lDOMonth[monthNo];
	} else
		return Calendar.DOMonth[monthNo];
}

function Calendar_calc_month_year(p_Month, p_Year, incr) {
	/* 
	Will return an 1-D array with 1st element being the calculated month 
	and second being the calculated year 
	after applying the month increment/decrement as specified by 'incr' parameter.
	'incr' will normally have 1/-1 to navigate thru the months.
	*/
	var ret_arr = new Array();
	
	if (incr == -1) {
		// B A C K W A R D
		if (p_Month == 0) {
			ret_arr[0] = 11;
			ret_arr[1] = parseInt(p_Year) - 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) - 1;
			ret_arr[1] = parseInt(p_Year);
		}
	} else if (incr == 1) {
		// F O R W A R D
		if (p_Month == 11) {
			ret_arr[0] = 0;
			ret_arr[1] = parseInt(p_Year) + 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) + 1;
			ret_arr[1] = parseInt(p_Year);
		}
	}
	
	return ret_arr;
}

function Calendar_print() {
	ggWinCal.print();
}

function Calendar_calc_month_year(p_Month, p_Year, incr) {
	/* 
	Will return an 1-D array with 1st element being the calculated month 
	and second being the calculated year 
	after applying the month increment/decrement as specified by 'incr' parameter.
	'incr' will normally have 1/-1 to navigate thru the months.
	*/
	var ret_arr = new Array();
	
	if (incr == -1) {
		// B A C K W A R D
		if (p_Month == 0) {
			ret_arr[0] = 11;
			ret_arr[1] = parseInt(p_Year) - 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) - 1;
			ret_arr[1] = parseInt(p_Year);
		}
	} else if (incr == 1) {
		// F O R W A R D
		if (p_Month == 11) {
			ret_arr[0] = 0;
			ret_arr[1] = parseInt(p_Year) + 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) + 1;
			ret_arr[1] = parseInt(p_Year);
		}
	}
	
	return ret_arr;
}

// This is for compatibility with Navigator 3, we have to create and discard one object before the prototype object exists.
new Calendar();

Calendar.prototype.getMonthlyCalendarCode = function() {
	var vCode = "";
	var vHeader_Code = "";
	var vData_Code = "";
	
	// Begin Table Drawing code here..
	vCode = vCode + "<TABLE WIDTH='100%' style='border-left: 1px solid black; border-right: 1px solid black; border-top: 1px solid; border-bottom: 1px solid black;'  BGCOLOR=\"" + this.gBGColor + "\">";
	
	vHeader_Code = this.cal_header();
	vData_Code = this.cal_data();
	vCode = vCode + vHeader_Code + vData_Code;
	
	vCode = vCode + "</TABLE>";
	
	return vCode;
}

Calendar.prototype.show = function() {
	var vCode = "";
	
	this.gWinCal.document.open();

	// Setup the page...
	this.wwrite("<html>");
	this.wwrite("<head><title>Calendar</title>");
	this.wwrite(" <link rel='stylesheet' type='text/css' href='style.css'> ");
	this.wwrite("</head>");

	this.wwrite("<body onBlur='self.focus();' " + 
		"link=\"" + this.gLinkColor + "\" " + 
		"vlink=\"" + this.gLinkColor + "\" " +
		"alink=\"" + this.gLinkColor + "\" " +
		"text=\"" + this.gTextColor + "\">");
	this.wwriteA("<FONT FACE='" + fontface + "' SIZE=2><B>");
	this.wwriteA(this.gMonthName + " " + this.gYear);
	this.wwriteA("</B><BR>");

	// Show navigation buttons
	var prevMMYYYY = Calendar.calc_month_year(this.gMonth, this.gYear, -1);
	var prevMM = prevMMYYYY[0];
	var prevYYYY = prevMMYYYY[1];

	var nextMMYYYY = Calendar.calc_month_year(this.gMonth, this.gYear, 1);
	var nextMM = nextMMYYYY[0];
	var nextYYYY = nextMMYYYY[1];
	
	this.wwrite("<TABLE WIDTH='100%' style='border-left: 1px solid black; border-right: 1px solid black; border-top: 1px solid; border-bottom: 1px solid black;' CELLSPACING=0 CELLPADDING=0 BGCOLOR='#e0e0e0'><TR><TD ALIGN=center>");
	this.wwrite("<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)-1) + "', '" + this.gFormat + "'" +
		");" +
		"\"><<<\/A></TD><TD ALIGN=center>");
	this.wwrite("<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + prevMM + "', '" + prevYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\"><<\/A></TD><TD ALIGN=center>");
	//this.wwrite("[<A HREF=\"javascript:window.print();\">Print</A>]</TD><TD ALIGN=center>");
	this.wwrite("<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + nextMM + "', '" + nextYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\">><\/A></TD><TD ALIGN=center>");
	this.wwrite("<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)+1) + "', '" + this.gFormat + "'" +
		");" +
		"\">>><\/A></TD></TR></TABLE><BR>");

	// Get the complete calendar code for the month..
	vCode = this.getMonthlyCalendarCode();
	this.wwrite(vCode);

	this.wwrite("</font></body></html>");
	this.gWinCal.document.close();
}

Calendar.prototype.showY = function() {
	var vCode = "";
	var i;
	var vr, vc, vx, vy;		// Row, Column, X-coord, Y-coord
	var vxf = 285;			// X-Factor
	var vyf = 200;			// Y-Factor
	var vxm = 10;			// X-margin
	var vym;				// Y-margin
	if (isIE)	vym = 75;
	else if (isNav)	vym = 25;
	
	this.gWinCal.document.open();

	this.wwrite("<html>");
	this.wwrite("<head><title>Calendar</title>");
	this.wwrite("<style type='text/css'>\n<!--");
	for (i=0; i<12; i++) {
		vc = i % 3;
		if (i>=0 && i<= 2)	vr = 0;
		if (i>=3 && i<= 5)	vr = 1;
		if (i>=6 && i<= 8)	vr = 2;
		if (i>=9 && i<= 11)	vr = 3;
		
		vx = parseInt(vxf * vc) + vxm;
		vy = parseInt(vyf * vr) + vym;

		this.wwrite(".lclass" + i + " {position:absolute;top:" + vy + ";left:" + vx + ";}");
	}
	this.wwrite("-->\n</style>");
	this.wwrite("</head>");

	this.wwrite("<body onBlur='self.focus();' " + 
		"link=\"" + this.gLinkColor + "\" " + 
		"vlink=\"" + this.gLinkColor + "\" " +
		"alink=\"" + this.gLinkColor + "\" " +
		"text=\"" + this.gTextColor + "\">");
	this.wwrite("<FONT FACE='" + fontface + "' SIZE=2><B>");
	this.wwrite("Year : " + this.gYear);
	this.wwrite("</B><BR>");

	// Show navigation buttons
	var prevYYYY = parseInt(this.gYear) - 1;
	var nextYYYY = parseInt(this.gYear) + 1;
	
	this.wwrite("<TABLE WIDTH='100%' style='border-left: 1px solid black; border-right: 1px solid black; border-top: 1px solid; border-bottom: 1px solid black;' CELLSPACING=0 CELLPADDING=0 BGCOLOR='#e0e0e0'><TR><TD ALIGN=center>");
	this.wwrite("[<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', null, '" + prevYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\" alt='Prev Year'><<<\/A>]</TD><TD ALIGN=center>");
	this.wwrite("[<A HREF=\"javascript:window.print();\">Print</A>]</TD><TD ALIGN=center>");
	this.wwrite("[<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', null, '" + nextYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\">>><\/A>]</TD></TR></TABLE><BR>");

	// Get the complete calendar code for each month..
	var j;
	for (i=11; i>=0; i--) {
		if (isIE)
			this.wwrite("<DIV ID=\"layer" + i + "\" CLASS=\"lclass" + i + "\">");
		else if (isNav)
			this.wwrite("<LAYER ID=\"layer" + i + "\" CLASS=\"lclass" + i + "\">");

		this.gMonth = i;
		this.gMonthName = Calendar.get_month(this.gMonth);
		vCode = this.getMonthlyCalendarCode();
		this.wwrite(this.gMonthName + "/" + this.gYear + "<BR>");
		this.wwrite(vCode);

		if (isIE)
			this.wwrite("</DIV>");
		else if (isNav)
			this.wwrite("</LAYER>");
	}

	this.wwrite("</font><BR></body></html>");
	this.gWinCal.document.close();
}

Calendar.prototype.wwrite = function(wtext) {
	this.gWinCal.document.writeln(wtext);
}

Calendar.prototype.wwriteA = function(wtext) {
	this.gWinCal.document.write(wtext);
}

Calendar.prototype.cal_header = function() {
	var vCode = "";
	
	vCode = vCode + "<TR>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#400000'><B>Do</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>Lu</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>Ma</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>Mi</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>Ju</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>Vi</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='16%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#400000'><B>Sa</B></FONT></TD>";
	vCode = vCode + "</TR>";
	
	return vCode;
}

Calendar.prototype.cal_data = function() {
	var vDate = new Date();
	vDate.setDate(1);
	vDate.setMonth(this.gMonth);
	vDate.setFullYear(this.gYear);

	var vFirstDay=vDate.getDay();
	var vDay=1;
	var vLastDay=Calendar.get_daysofmonth(this.gMonth, this.gYear);
	var vOnLastDay=0;
	var vCode = "";

	/*
	Get day for the 1st of the requested month/year..
	Place as many blank cells before the 1st day of the month as necessary. 
	*/

	vCode = vCode + "<TR>";
	for (i=0; i<vFirstDay; i++) {
		vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(i) + "><FONT SIZE='2' FACE='" + fontface + "'>&nbsp;</FONT></TD>";
	}

	// Write rest of the 1st week
	for (j=vFirstDay; j<7; j++) {
		vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j) + "><FONT SIZE='2' FACE='" + fontface + "'>" + 
			"<A HREF='#' " + 
				"onClick=\"self.opener.document." + this.gReturnItem + ".value='" + 
				this.format_data(vDay) + 
				"';window.close();\">" + 
				this.format_day(vDay) + 
			"</A>" + 
			"</FONT></TD>";
		vDay=vDay + 1;
	}
	vCode = vCode + "</TR>";

	// Write the rest of the weeks
	for (k=2; k<7; k++) {
		vCode = vCode + "<TR>";

		for (j=0; j<7; j++) {
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j) + "><FONT SIZE='2' FACE='" + fontface + "'>" + 
				"<A HREF='#' " + 
					"onClick=\"self.opener.document." + this.gReturnItem + ".value='" + 
					this.format_data(vDay) + 
					"';window.close();\">" + 
				this.format_day(vDay) + 
				"</A>" + 
				"</FONT></TD>";
			vDay=vDay + 1;

			if (vDay > vLastDay) {
				vOnLastDay = 1;
				break;
			}
		}

		if (j == 6)
			vCode = vCode + "</TR>";
		if (vOnLastDay == 1)
			break;
	}
	
	// Fill up the rest of last week with proper blanks, so that we get proper square blocks
	for (m=1; m<(7-j); m++) {
		if (this.gYearly)
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j+m) + 
			"><FONT SIZE='2' FACE='" + fontface + "' COLOR='gray'>&nbsp;</FONT></TD>";
		else
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j+m) + 
			"><FONT SIZE='2' FACE='" + fontface + "' COLOR='gray'>" + m + "</FONT></TD>";
	}
	
	return vCode;
}

Calendar.prototype.format_day = function(vday) {
	var vNowDay = gNow.getDate();
	var vNowMonth = gNow.getMonth();
	var vNowYear = gNow.getFullYear();

	if (vday == vNowDay && this.gMonth == vNowMonth && this.gYear == vNowYear)
		return ("<FONT COLOR=\"RED\"><B>" + vday + "</B></FONT>");
	else
		return (vday);
}

Calendar.prototype.write_weekend_string = function(vday) {
	var i;

	// Return special formatting for the weekend day.
	for (i=0; i<weekend.length; i++) {
		if (vday == weekend[i])
			return (" BGCOLOR=\"" + weekendColor + "\"");
	}
	
	return "";
}

Calendar.prototype.format_data = function(p_day) {
	var vData;
	var vMonth = 1 + this.gMonth;
	vMonth = (vMonth.toString().length < 2) ? "0" + vMonth : vMonth;
	var vMon = Calendar.get_month(this.gMonth).substr(0,3).toUpperCase();
	var vFMon = Calendar.get_month(this.gMonth).toUpperCase();
	var vY4 = new String(this.gYear);
	var vY2 = new String(this.gYear.substr(2,2));
	var vDD = (p_day.toString().length < 2) ? "0" + p_day : p_day;

	switch (this.gFormat) {
		case "MM\/DD\/YYYY" :
			vData = vMonth + "\/" + vDD + "\/" + vY4;
			break;
		case "MM\/DD\/YY" :
			vData = vMonth + "\/" + vDD + "\/" + vY2;
			break;
		case "MM-DD-YYYY" :
			vData = vMonth + "-" + vDD + "-" + vY4;
			break;
		case "MM-DD-YY" :
			vData = vMonth + "-" + vDD + "-" + vY2;
			break;

		case "DD\/MON\/YYYY" :
			vData = vDD + "\/" + vMon + "\/" + vY4;
			break;
		case "DD\/MON\/YY" :
			vData = vDD + "\/" + vMon + "\/" + vY2;
			break;
		case "DD-MON-YYYY" :
			vData = vDD + "-" + vMon + "-" + vY4;
			break;
		case "DD-MON-YY" :
			vData = vDD + "-" + vMon + "-" + vY2;
			break;

		case "DD\/MONTH\/YYYY" :
			vData = vDD + "\/" + vFMon + "\/" + vY4;
			break;
		case "DD\/MONTH\/YY" :
			vData = vDD + "\/" + vFMon + "\/" + vY2;
			break;
		case "DD-MONTH-YYYY" :
			vData = vDD + "-" + vFMon + "-" + vY4;
			break;
		case "DD-MONTH-YY" :
			vData = vDD + "-" + vFMon + "-" + vY2;
			break;

		case "DD\/MM\/YYYY" :
			vData = vDD + "\/" + vMonth + "\/" + vY4;
			break;
		case "DD\/MM\/YY" :
			vData = vDD + "\/" + vMonth + "\/" + vY2;
			break;
		case "DD-MM-YYYY" :
			vData = vDD + "-" + vMonth + "-" + vY4;
			break;
		case "DD-MM-YY" :
			vData = vDD + "-" + vMonth + "-" + vY2;
			break;

		default :
			vData = vMonth + "\/" + vDD + "\/" + vY4;
	}

	return vData;
}

function Build(p_item, p_month, p_year, p_format) {
	var p_WinCal = ggWinCal;
	gCal = new Calendar(p_item, p_WinCal, p_month, p_year, p_format);

	// Customize your Calendar here..
	gCal.gBGColor="white";
	gCal.gLinkColor="black";
	gCal.gTextColor="black";
	gCal.gHeaderColor="darkgreen";

	// Choose appropriate show function
	if (gCal.gYearly)	gCal.showY();
	else	gCal.show();
}

function show_calendar() {
	/* 
		p_month : 0-11 for Jan-Dec; 12 for All Months.
		p_year	: 4-digit year
		p_format: Date format (mm/dd/yyyy, dd/mm/yy, ...)
		p_item	: Return Item.
	*/

	p_item = arguments[0];
	if (arguments[1] == null)
		p_month = new String(gNow.getMonth());
	else
		p_month = arguments[1];
	if (arguments[2] == "" || arguments[2] == null)
		p_year = new String(gNow.getFullYear().toString());
	else
		p_year = arguments[2];
	if (arguments[3] == null)
		p_format = "MM/DD/YYYY";
	else
		p_format = arguments[3];

	vWinCal = window.open("", "Calendar", 
		"width=200,height=220,status=no,resizable=no,top=200,left=200");
	vWinCal.opener = self;
	ggWinCal = vWinCal;

	Build(p_item, p_month, p_year, p_format);
}
/*
Yearly Calendar Code Starts here
*/
function show_yearly_calendar(p_item, p_year, p_format) {
	// Load the defaults..
	if (p_year == null || p_year == "")
		p_year = new String(gNow.getFullYear().toString());
	if (p_format == null || p_format == "")
		p_format = "MM/DD/YYYY";

	var vWinCal = window.open("", "Calendar", "scrollbars=yes");
	vWinCal.opener = self;
	ggWinCal = vWinCal;

	Build(p_item, null, p_year, p_format);
}
/*
Replace
*/
function replace(str, replace_what, replace_with)
{
  var ndx = str.indexOf(replace_what);
  var delta = replace_with.length - replace_what.length;

  while (ndx >= 0)
  {
    str = str.substring(0,ndx) + replace_with + str.substring(ndx + replace_what.length);
    ndx = str.indexOf(replace_what, ndx + delta + 1);
  }
  return str;
}


/*
Change Class
*/

var vidx, vtbl;

function chClick(tbl, idx, cls, cls2)
{
	var t, d;

	if (document.getElementById)
		t = document.getElementById(tbl);
	else
		t = document.all(tbl);
	if (t == null) return;
	if (t.getElementsByTagName)
		d = t.getElementsByTagName("TD");
	else
		d = t.all.tags("TD");
	if (d == null) return;
	if (d.length <= idx) return;
   chUnClick(cls2);
	d[idx].className = cls;
   vidx = idx;
   vtbl = tbl;
}

function chUnClick(cls2)
{
	var t, d;

	if (document.getElementById)
		t = document.getElementById(vtbl);
	else
		t = document.all(vtbl);
	if (t == null) return;
	if (t.getElementsByTagName)
		d = t.getElementsByTagName("TD");
	else
		d = t.all.tags("TD");
	if (d == null) return;
	if (d.length <= vidx) return;

	d[vidx].className = cls2;

}

function chHover(tbl, idx, cls)
{
	var t, d;
	if (document.getElementById)
		t = document.getElementById(tbl);
	else
		t = document.all(tbl);
	if (t == null) return;
	if (t.getElementsByTagName)
		d = t.getElementsByTagName("TD");
	else
		d = t.all.tags("TD");
	if (d == null) return;
	if (d.length <= idx) return;

	if (tbl != vtbl) d[idx].className = cls;
}

function chClass(tbl, idx, cls)
{
	var t, d;
	if (document.getElementById)
		t = document.getElementById(tbl);
	else
		t = document.all(tbl);
	if (t == null) return;
	if (t.getElementsByTagName)
		d = t.getElementsByTagName("TD");
	else
		d = t.all.tags("TD");
	if (d == null) return;
	if (d.length <= idx) return;
	d[idx].className = cls;
}