// JavaScript Document

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function YY_checkform() { //v4.71
//copyright (c)1998,2002 Yaromat.com
  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;
  for (i=1; i<a.length;i=i+4){
    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}
    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));
    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));
    v=o.value;t=a[i+2];
    if (o.type=='text'||o.type=='password'||o.type=='hidden'){
      if (r&&v.length==0){err=true}
      if (v.length>0)
      if (t==1){ //fromto
        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}
      } else if (t==2){
        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;
      } else if (t==3){ // date
        ma=a[i+1].split("#");at=v.match(ma[0]);
        if(at){
          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];
          dte=new Date(cy,cm,cd);
          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};
        }else{err=true}
      } else if (t==4){ // time
        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}
      } else if (t==5){ // check this 2
            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!o1.checked){err=true}
      } else if (t==6){ // the same
            if(v!=MM_findObj(a[i+1]).value){err=true}
      }
    } else
    if (!o.type&&o.length>0&&o[0].type=='radio'){
          at = a[i].match(/(.*)\[(\d+)\].*/i);
          o2=(o.length>1)?o[at[2]]:o;
      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}
      if (t==2){
        oo=false;
        for(j=0;j<o.length;j++){oo=oo||o[j].checked}
        if(!oo){s+='* '+a[i+3]+'\n'}
      }
    } else if (o.type=='checkbox'){
      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}
    } else if (o.type=='select-one'||o.type=='select-multiple'){
      if(t==1&&o.selectedIndex/1==0){err=true}
    }else if (o.type=='textarea'){
      if(v.length<a[i+1]){err=true}
    }
    if (err){s+='* '+a[i+3]+'\n'; err=false}
  }
  if (s!=''){alert('Falta la siguiente información o es incompleta:\t\t\t\t\t\n\n'+s)}
  document.MM_returnValue = (s=='');
}

function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}

function GP_popupConfirmMsg(msg) { //v1.0
  document.MM_returnValue = confirm(msg);
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}


function esperaPeticionEN()
{
	var vEstado=document.getElementById("estado");
	var vId=document.getElementById("id");
	var now = new Date( );
	Include('../../scriptLibrary/ajaxv2/peticiones.asp?id=' + vId.value,vEstado);
	if (vEstado.value=="COMPLETADA") {
			var form=document.getElementById("calculo");
			form.submit();
	} else if (vEstado.value=="EN ESPERA") {
			var form=document.getElementById("calculo");
			form.action="correo.asp";
			form.submit();
	}
	setTimeout('esperaPeticionEN()',2000);
}

function compruebaCreditos()
{
	var vCreditos=document.getElementById("creditos");
	var vCreditoMensaje=document.getElementById("creditoMensaje");
	var vCreditoSubmit=document.getElementById("creditoSubmit");
	Include('/web/precios/creditos.asp',vCreditos);
	if (IsNumeric(vCreditos.value)==false) {
		vCreditos.value="0";
	}
	if (vCreditos.value!="0") {
		vCreditoMensaje.style.visibility="visible";
		vCreditoSubmit.style.visibility="visible";
		alert("Se ha completado la compra de informes, si lo desea puede continuar con la petición");
	} else {
		vCreditoMensaje.style.visibility="hidden";
		vCreditoSubmit.style.visibility="hidden";
		setTimeout('compruebaCreditos()',1000)	;
	}
	window.status="Comprobando creditos " + vCreditos.value;	
}

function Include(xUrl,Objeto,Tipo) {
  var xmlhttp = false;
  var bIncludeSelecciona = 0;

 /*@cc_on @*/
  /*@if (@_jscript_version >= 5)
  try {
    xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
   } catch (e) {
      try {
        xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
      } catch (E) {
        xmlhttp = false;
      }
   }
  /*@end @*/
  
  if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
    xmlhttp = new XMLHttpRequest();
  }
  xmlhttp.open("GET", xUrl,true);
  xmlhttp.onreadystatechange=function() {
	  if (xmlhttp.readyState==4) {
		if (Tipo=="select") {
			varSalida = HtmlDecode(xmlhttp.responseText);

			splitString = varSalida.split("|");
			Objeto.options.length = 0;
			
			for(i=0;i<(splitString.length);i++) 
				if (splitString[i]!='') {
					splitString2 = splitString[i].split(";");
					Objeto.options[i] = new Option(splitString2[1],splitString2[0]);
					 if (Objeto.name=='cp') bIncludeSelecciona++;
				}
				
		  if (Objeto.name=='cp') {
			if (bIncludeSelecciona>1) {
				var OpcionVacia = new Option('Selecciona...','0');
				try {
					  Objeto.add(OpcionVacia, Objeto.options[0]);
					} catch(ex) {
					  Objeto.add(OpcionVacia, 0);
					}
				}
			if (Objeto.options.length>0) Objeto.selectedIndex = 0;
		  }
  	  } else {
			varSalida = xmlhttp.responseText;
			Objeto.value=varSalida;
	  }
	}
  }
  xmlhttp.send(null)
}

function Salir()
{
  alert(confirm("¿Desea abandonar PREVEO?"));
}

function addEvent(obj, evType, fn){ 
 if (obj.addEventListener){ 
    obj.addEventListener(evType, fn, true); 
    return true; 
 } else if (obj.attachEvent){ 
    var r = obj.attachEvent("on"+evType, fn); 
    return r; 
 } else { alert("Error al vincular evento"); } 
}