function FormatoTexto(tipo,link) {
var formato;
if (document.selection.createRange().text!="") {
    if (tipo==1) {
        formato="<b>"+document.selection.createRange().text+"</b>";
    }
    else if (tipo==2) {
        formato="<i>"+document.selection.createRange().text+"</i>";
    }
    else if (tipo==3) {
        formato="<a href=http://"+ link +" target=_blank>"+document.selection.createRange().text+"</a>";
    }
    else if (tipo==4) {
        formato="<a href=mailto:"+ link +">"+document.selection.createRange().text+"</a>";
    }
    document.selection.createRange().text=formato;
    }
}

function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll;
win = window.open(mypage, myname, winprops);
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}

function formatoimporte(imp) {
var pos = imp.indexOf(",");
var result;
if (pos>-1) {
   result = imp.substring(0,pos)+"."+imp.substring(pos+1,imp.length);
} else {
   result=imp;
}
return result;
}

function longitudcampo(campo,longitud) {
    if (campo.length<longitud) {
        return false;
    }
    else {
        return true;
    }
}
function validaremail(ema) {
    /* Validamos el formato de correo electrónico*/

    /* Verificamos si email tiene formato usuario@dominio. */
    var emailPat=/^(.+)@(.+)$/; 

    /* Verificamos la existencia de caracteres. ( ) < > @ , ; : \ " . [ ] */
    var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"; 

    /* Verificamos los caracteres que son válidos en un email */
    var validChars="\[^\\s" + specialChars + "\]"; 
    var quotedUser="(\"[^\"]*\")"; 

    /* Verificamos si el e-mail está representado con una IP vàlida */ 
    var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;

    /* Verificamos caracteres inválidos */ 
    var atom=validChars + '+';
    var word="(" + atom + "|" + quotedUser + ")";
    var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
    var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");

    var matchArray=ema.value.match(emailPat);
    if (matchArray==null) {
        return false;
    }
    var user=matchArray[1];
    var domain=matchArray[2];

    /* Validamos si la parte "usuario" es correcta */
    if (user.match(userPat)==null) {
    // Si no
        return false;
    }

    /* Si la dirección IP es válida */
    var IPArray=domain.match(ipDomainPat);
    if (IPArray!=null) {
        for (var i=1;i<=4;i++) {
            if (IPArray[i]>255) {
                return false;
            }
        }
        return true;
    }
    var domainArray=domain.match(domainPat);
    if (domainArray==null) {
        return false;
    }
    var atomPat=new RegExp(atom,"g");
    var domArr=domain.match(atomPat);
    var len=domArr.length;
    if (domArr[domArr.length-1].length<2 || domArr[domArr.length-1].length>3) { 
        return false;
    }
    if (len<2) {
        return false;
    }
    else {
        return true;
    }
}

function FechaCorrecta(fecha) {
	var bOk=true;
	var dia=fecha.substring(0,2);
	var mes=fecha.substring(3,5);
	var any=fecha.substring(6,10);
	var aux1=fecha.substring(2,3);
	var aux2=fecha.substring(5,6);	
	
	if (fecha!="") {		
		if (fecha.length<6) {
			bOk=false;
		}
		if ((aux1!="/") || (aux2!="/")) {
			bOk=false;
		}
		if ((isNaN(mes)) || (isNaN(dia)) || (isNaN(any))) {
			bOk=false;
		}		
		if ((dia>31) || (mes>12))   {
			bOk=false;
		}
		if (bOk==false) {
			alert("Incorrect date format");
		}
	}	
	return bOk;			  
}

function ValidarFormulario(form) {
	if ((form.palabra.value=="") && (form.empresa.value=="")) {
		return;
	}
	form.submit();
}