// JavaScript Document 10/07/2006
/****************************************************************************************
* Funcion que genera el calendario para seleccion de fechas *
* *
*****************************************************************************************/
var festivos = [5,6];
var festivosColor = "#00CCFF";
var familia_fuente = "Verdana";
var size_fuente = 2;
var ahora = new Date();
var calculo;
if (document.layers)
isNav = true;
else if (document.all)
isIE = true;
Calendario.Meses = ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Deciembre"];
Calendario.DiasMes = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
Calendario.BisiestoDiasMes = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
function Calendario(p_item, p_WinCal, mes, anyo, formato)
{
if ((mes == null) && (anyo == null))
return;
if (p_WinCal == null)
this.gWinCal = calculo;
else
this.gWinCal = p_WinCal;
if (mes == null)
{
this.dameMes = null;
this.dameNumeroMes = null;
this.dameAnyo = true;
}
else
{
this.dameMes = Calendario.get_month(mes);
this.dameNumeroMes = new Number(mes);
this.dameAnyo = false;
}
this.gYear = anyo;
this.gFormat = formato;
this.gBGColor = "#336699";
this.gFGColor = "black";
this.gTextColor = "black";
this.gHeaderColor = "WHITE";
this.gReturnp_item = p_item;
}
Calendario.get_month = Calendario_get_month;
Calendario.get_diasdelmes = Calendario_get_diasdelmes;
Calendario.calcula_mes_anyo = Calendario_calcula_mes_anyo;
Calendario.print = Calendario_print;
function Calendario_get_month(monthNo)
{
return Calendario.Meses[monthNo];
}
function Calendario_get_diasdelmes(monthNo, anyo)
{
if ((anyo % 4) == 0)
{
if ((anyo % 100) == 0 && (anyo % 400) != 0)
return Calendario.DiasMes[monthNo];
return Calendario.BisiestoDiasMes[monthNo];
}
else
return Calendario.DiasMes[monthNo];
}
function Calendario_calcula_mes_anyo(mes, anyo, incremento)
{
var ret_arr = new Array();
if (incremento == -1)
{
if (mes == 0)
{
ret_arr[0] = 11;
ret_arr[1] = parseInt(anyo) - 1;
}
else
{
ret_arr[0] = parseInt(mes) - 1;
ret_arr[1] = parseInt(anyo);
}
}
else if (incremento == 1)
{
if (mes == 11)
{
ret_arr[0] = 0;
ret_arr[1] = parseInt(anyo) + 1;
}
else
{
ret_arr[0] = parseInt(mes) + 1;
ret_arr[1] = parseInt(anyo);
}
}
return ret_arr;
}
function Calendario_print()
{
calculo.print();
}
Calendario.prototype.getMonthlyCalendarioCode = function()
{
var vCode = "";
var vHeader_Code = "";
var vData_Code = "";
vCode = vCode + "";
vHeader_Code = this.cal_header();
vData_Code = this.cal_data();
vCode = vCode + vHeader_Code + vData_Code;
vCode = vCode + "
";
return vCode;
}
Calendario.prototype.show = function()
{
var vCode = "";
this.gWinCal.document.open();
this.wwrite("");
this.wwrite("Calendario ");
this.wwrite("");
this.wwrite("");
this.wwriteA("");
this.wwriteA(this.dameMes + " " + this.gYear);
this.wwriteA(" Calendario ");
this.wwrite("");
this.wwrite("");
this.wwrite("");
this.wwrite("");
this.wwrite("Year : " + this.gYear);
this.wwrite(" ");
else if (isNav)
this.wwrite("");
this.dameNumeroMes = i;
this.dameMes = Calendario.get_month(this.dameNumeroMes);
vCode = this.getMonthlyCalendarioCode();
this.wwrite(this.dameMes + "/" + this.gYear + "
");
else if (isNav)
this.wwrite("");
}
this.wwrite("";
vCode = vCode + "Lunes Martes Miercoles Jueves Viernes Sábado Domingo ";
return vCode;
}
Calendario.prototype.cal_data = function()
{
var vDate = new Date();
vDate.setDate(1);
vDate.setMonth(this.dameNumeroMes);
vDate.setFullYear(this.gYear);
var vFirstDay=vDate.getDay()-1;
var vDay=1;
var vLastDay=Calendario.get_diasdelmes(this.dameNumeroMes, this.gYear);
var vOnLastDay=0;
var vCode = "";
vCode = vCode + "";
if(vFirstDay==-1)
{
for (i=0; i<6; i++)
{
vCode = vCode + " " +
"" +
this.format_day(vDay) +
" " +
" ";
}
for (j=vFirstDay; j<7; j++)
{
vCode = vCode + "" +
"" +
this.format_day(vDay) +
" " +
" ";
for (k=2; k<7; k++)
{
vCode = vCode + "";
for (j=0; j<7; j++)
{
vCode = vCode + "" +
"" +
this.format_day(vDay) +
" " +
" ";
if (vOnLastDay == 1)
break;
}
for (m=1; m<(7-j); m++)
{
if (this.dameAnyo)
vCode = vCode + " " + m + " " + vday + " sAno1) bRes = true;
else {
if (sAno0 == sAno1){
if (sMes0 > sMes1) bRes = true;
else {
if (sMes0 == sMes1)
if (sDia0 >= sDia1) bRes = true;
}
}
}
return bRes;
}
/****************************************************************************************
* Funcion que retira todos los espacio a la derecha e izquierda de una cadena *
* *
*****************************************************************************************/
//Variables Globales
cont=0;
function trim(cadena)
{
for(i=0; i=0; i=cadena.length-1)
{
if(cadena.charAt(i)==" ")
cadena=cadena.substring(0,i);
else
break;
}
return cadena;
}
/****************************************************************************************
* Funcion que evita el reenvio de formularios *
* *
*****************************************************************************************/
function enviado() {
if (cont == 0)
{
cont++;
return true;
}
else
{
alert("El siguiente formulario ya ha sido enviado, muchas gracias.");
return false;
}
}
/****************************************************************************************
* Funcion que valida el ingreso de solo numeros en un campo de texto*
* *
*****************************************************************************************/
function acceptFloat(evt){
// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57
var nav4 = window.Event ? true : false;
var key = nav4 ? evt.which : evt.keyCode;
//return (key <= 13 || (key >= 48 && key <= 57) || key == 46);
return (key <= 13 || (key >= 48 && key <= 57));
}
/****************************************************************************************
* Funcion para combos dependientes *
* *
*****************************************************************************************/
var peticion = false;
var testPasado = false;
try {
peticion = new XMLHttpRequest();
} catch (trymicrosoft) {
try {
peticion = new ActiveXObject("Msxml2.XMLHTTP");
} catch (othermicrosoft) {
try {
peticion = new ActiveXObject("Microsoft.XMLHTTP");
} catch (failed) {
peticion = false;
}
}
}
if (!peticion)
alert("ERROR AL INICIALIZAR!");
function cargarCombo (url, comboAnterior, element_id) {
//Obtenemos el contenido del div
//donde se cargaran los resultados
var element = document.getElementById(element_id);
//Obtenemos el valor seleccionado del combo anterior
var valordepende = document.getElementById(comboAnterior)
var x = valordepende.value
//construimos la url definitiva
//pasando como parametro el valor seleccionado
var fragment_url = url+x;
element.innerHTML = ' 
';
//abrimos la url
peticion.open("GET", fragment_url);
peticion.onreadystatechange = function() {
if (peticion.readyState == 4) {
//escribimos la respuesta
element.innerHTML = peticion.responseText;
}
}
peticion.send(null);
}
/***********************************************************************************
07/08/2006
Marvin Zabala
Permite la entrada de numeros, letras y espacio en una cadena; sin caracteres especiales
***********************************************************************************/
/*function esalfanum(cadena)
{
if(cadena.value.match(/[^a-z,ñ,0-9, \ ]/))
{
cadena.value=cadena.value.replace(/[^a-z,ñ,0-9, \ ]/gi,"")
}
}*/
/***********************************************************************************
07/08/2006
Marvin Zabala
Valida entrada de formato de correo
***********************************************************************************/
function esemail_old(valor,obj)
{
var mail=0;
if (/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(valor))
{
mail=1;
}
else
{
alert("La dirección de correo es incorrecta.");
obj.value="";
//obj.focus();
mail=2;
}
return mail;
}
function esemail(valor,obj)
{
var pos1, pos2, bOk = true;
var sDir = valor;
pos1 = sDir.indexOf('@', 0);
pos2 = sDir.indexOf('.', 0);
pos3 = sDir.indexOf(' ', 0);
bOk = bOk && (pos1 > 0);
bOk = bOk && (pos2 != -1);
bOk = bOk && (pos3 < 0);
bOk = bOk && (pos2 < sDir.length - 1);
if (!bOk){
alert("Dirección de correo inválida");
obj.value="";
mail = 2;
}
else{
mail = 1;
}
return mail;
}
/***********************************************************************************
15/08/2006
Rafael Salinas
Rutina para impresion de vistas preliminares
***********************************************************************************/
function printIt(nombre) {
ficha = window.document.getElementById(nombre);
win = window.open('','Vent','height=400,width=600,scrollbars=yes');
self.focus();
win.document.open();
win.document.write(""+ficha.innerHTML);
win.document.close();
win.print();
win.close();
}
function printIt2(nombre) {
ficha = window.document.getElementById(nombre);
win = window.open('','Vent','height=400,width=600,scrollbars=yes');
self.focus();
win.document.open();
win.document.write(""+ficha.innerHTML);
win.document.close();
win.print();
win.close();
}
/***********************************************************************************
15/08/2006
Angi Arias
Rutina para ocultar vinculos en bara de estado
***********************************************************************************/