//

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 MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}

function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

//function RClick(boton){
//var msg = "Botón Deshabilitado.";
//if (document.layers && boton.which == 3) {
//alert(msg); return false; }
//if (document.all && event.button == 2 || event.button == 3) {
//alert(msg); return false; }
//}
//document.onmousedown = RClick
//-->

//
function VF_FORMFECHA1(){ //v2.0
<!--start_of_saved_settings-->
<!--type,text,name,TFechaF,required,true,isDate,D/M/YY,errMsg,Debes introducir la Fecha Final en formato D/M/A (dia/mes/año)-->
<!--type,text,name,TFechaI,required,true,isDate,D/M/YY,errMsg,Debes introducir la Fecha Inicial en formato D/M/A (dia/mes/año)-->
<!--end_of_saved_settings-->
	var theForm = document.FORMFECHA1;
	var dte_TFechaFRE = /^(0[1-9]|[12][0-9]|3[01]|[1-9])\/(0[1-9]|1[012]|[1-9])\/\d\d$/;
	var dte_TFechaIRE = /^(0[1-9]|[12][0-9]|3[01]|[1-9])\/(0[1-9]|1[012]|[1-9])\/\d\d$/;
	var errMsg = "";
	var setfocus = "";

	if (!dte_TFechaFRE.test(theForm['TFechaF'].value)){
		errMsg = "Debes introducir la Fecha Final en formato D\/M\/AA \(dia\/mes\/año\)";
		setfocus = "['TFechaF']";
	}
	if (!dte_TFechaIRE.test(theForm['TFechaI'].value)){
		errMsg = "Debes introducir la Fecha Inicial en formato D\/M\/AA \(dia\/mes\/año\)";
		setfocus = "['TFechaI']";
	}
	if (errMsg != ""){
		alert(errMsg);
		eval("theForm" + setfocus + ".focus()");
	}
	else theForm.submit();
}

//
function VF_Pedido(){ //v2.0
<!--start_of_saved_settings-->
<!--type,checkbox-g,name,prod,isChecked,errMsg,Al menos tienes que marcar un producto-->
<!--end_of_saved_settings-->
	var theForm = document.Pedido;
	var gFlg_prod = false;
	var gArr_prod = new Array("CPostesEsp","CPostesRec","CPostesRed","Clamas","Ccrucetas","Cpletinas","Ctrabajos","Cvallas","Cvigas","Cgarrotes","Canclajes","Ctubos","Cbandejas","Cchapas","Csenales","Creductores","Ctripodes","COtros");
	var errMsg = "";
	var setfocus = "";

	for(var g0=0;g0<gArr_prod.length;g0++){if(eval("theForm['"+gArr_prod[g0]+"'].checked")){gFlg_prod=true;break;}}

	if (!gFlg_prod){
		errMsg = "Al menos tienes que marcar un producto";
		setfocus = "['" + gArr_prod[0] + "']";
	}
	if (errMsg != ""){
		alert(errMsg);
		eval("theForm" + setfocus + ".focus()");
	}
	else theForm.submit();
}

//
function VF_Login(){ //v2.0
<!--start_of_saved_settings-->
<!--type,text,name,TextClave2,required,true,isEqualTo,TextClave,errMsg,Debes introducir la misma Clave en los dos campos-->
<!--type,text,name,TextUsuario,required,true,errMsg,Introduce el Nombre de Usuario-->
<!--type,text,name,TextMail,required,false,isEmail,errMsg,El email introducido no parece tener una sintaxis válida&comma; comprueba que está escrita la @-->
<!--type,text,name,TextFax,required,false,isNum,errMsg,El Nº de Fax solo puede contener números-->
<!--type,text,name,TextPobl,required,true,errMsg,Debes introducir la Población donde se encuentra la Empresa-->
<!--type,text,name,TextCP,required,false,isNum,errMsg,El Código Postal solo puede contener números-->
<!--type,text,name,TextTlf,required,true,isNum,errMsg,Debes introducir el Teléfono de la Empresa y tiene que ser solo números-->
<!--type,text,name,TextCif,required,true,isAlpha,errMsg,Debes introducir el NIF/CIF de la Empresa y solo puede contener letras y números&comma; sin símbolos-->
<!--type,text,name,TextEmpre,required,true,errMsg,Debes introducir el Nombre de la Empresa-->
<!--end_of_saved_settings-->
	var theForm = document.frmPresupuesto;
	var numRE = /^\d+$/;
	var alphaRE = /^[a-zA-Z0-9]+$/;
	var emailRE = /^([a-zA-Z0-9_.-])+@(([a-zA-Z0-9-])+.)+([a-zA-Z0-9]{2,4})+$/;
	var errMsg = "";
	var setfocus = "";

	if (theForm['TextClave2'].value == "" || (theForm['TextClave2'].value != theForm['TextClave'].value)){
		errMsg = "Debes introducir la misma Clave en los dos campos";
		setfocus = "['TextClave2']";
	}
	if (theForm['TextUsuario'].value == ""){
		errMsg = "Introduce el Nombre de Usuario";
		setfocus = "['TextUsuario']";
	}
	if (theForm['TextMail'].value != ""){
		if (!emailRE.test(theForm['TextMail'].value)){
			errMsg = "El email introducido no parece tener una sintaxis válida, comprueba que está escrita la @";
			setfocus = "['TextMail']";
		}
	}
	if (theForm['TextFax'].value != ""){
		if (!numRE.test(theForm['TextFax'].value)){
			errMsg = "El Nº de Fax solo puede contener números";
			setfocus = "['TextFax']";
		}
	}
	if (theForm['TextPobl'].value == ""){
		errMsg = "Debes introducir la Población donde se encuentra la Empresa";
		setfocus = "['TextPobl']";
	}
	if (theForm['TextCP'].value != ""){
		if (!numRE.test(theForm['TextCP'].value)){
			errMsg = "El Código Postal solo puede contener números";
			setfocus = "['TextCP']";
		}
	}
	if (!numRE.test(theForm['TextTlf'].value)){
		errMsg = "Debes introducir el Teléfono de la Empresa y tiene que ser solo números";
		setfocus = "['TextTlf']";
	}
	if (!alphaRE.test(theForm['TextCif'].value)){
		errMsg = "Debes introducir el NIF\/CIF de la Empresa y solo puede contener letras y números, sin símbolos";
		setfocus = "['TextCif']";
	}
	if (theForm['TextEmpre'].value == ""){
		errMsg = "Debes introducir el Nombre de la Empresa";
		setfocus = "['TextEmpre']";
	}
	if (errMsg != ""){
		alert(errMsg);
		eval("theForm" + setfocus + ".focus()");
	}
	else theForm.submit();
}//-->

function VF_form1(){ //v2.0
<!--start_of_saved_settings-->
<!--type,textarea,name,Ttexto,required,true,errMsg,Debe Introducir el contenido de la noticia-->
<!--type,text,name,Ttitulo,required,true,errMsg,Debe introducir el Título de la Noticia-->
<!--type,text,name,Tfecha,required,true,isDate,DD/MM/YYYY,errMsg,Debe instroducir la fecha de la noticia-->
<!--end_of_saved_settings-->
	var theForm = document.form1;
	var dte_TfechaRE = /^(0[1-9]|[12][0-9]|3[01])\/(0[1-9]|1[012])\/(19|20)\d\d$/;
	var errMsg = "";
	var setfocus = "";

	if (theForm['Ttexto'].value == ""){
		errMsg = "Debe Introducir el contenido de la noticia";
		setfocus = "['Ttexto']";
	}
	if (theForm['Ttitulo'].value == ""){
		errMsg = "Debe introducir el Título de la Noticia";
		setfocus = "['Ttitulo']";
	}
	if (!dte_TfechaRE.test(theForm['Tfecha'].value)){
		errMsg = "Debe instroducir la fecha de la noticia";
		setfocus = "['Tfecha']";
	}
	if (errMsg != ""){
		alert(errMsg);
		eval("theForm" + setfocus + ".focus()");
	}
	else theForm.submit();
}//-->

function VF_FormEditNovedad(){ //v2.0
<!--start_of_saved_settings-->
<!--type,textarea,name,Ttexto,required,true,errMsg,Introduce el Texto de la Novedad-->
<!--type,text,name,Tfecha,required,true,isDate,DD/MM/YYYY,errMsg,Debes Introducir la Fecha de la forma DD/MM/AAAA-->
<!--end_of_saved_settings-->
	var theForm = document.FormEditNovedad;
	var dte_TfechaRE = /^(0[1-9]|[12][0-9]|3[01])\/(0[1-9]|1[012])\/(19|20)\d\d$/;
	var errMsg = "";
	var setfocus = "";

	if (theForm['Ttexto'].value == ""){
		errMsg = "Introduce el Texto de la Novedad";
		setfocus = "['Ttexto']";
	}
	if (!dte_TfechaRE.test(theForm['Tfecha'].value)){
		errMsg = "Debes Introducir la Fecha de la forma DD\/MM\/AAAA";
		setfocus = "['Tfecha']";
	}
	if (errMsg != ""){
		alert(errMsg);
		eval("theForm" + setfocus + ".focus()");
	}
	else theForm.submit();
}//-->

//
function VF_formleido(){ //v2.0
<!--start_of_saved_settings-->
<!--type,checkbox,name,checkbox,isChecked,errMsg,Debes Marcar la Casilla de Leído-->
<!--end_of_saved_settings-->
	var theForm = document.formleido;
	var errMsg = "";
	var setfocus = "";

	if (!theForm['checkbox'].checked){
		errMsg = "Debes Marcar la Casilla de Leído";
		setfocus = "['checkbox']";
	}
	if (errMsg != ""){
		alert(errMsg);
		eval("theForm" + setfocus + ".focus()");
	}
	else theForm.submit();
}//-->

//

function WM_setCookie (name, NS_value, IE_value, hours, path, domain, evalValue) {


    daValue = (navigator.appName == 'Netscape')?NS_value:IE_value;

    //fix layer ref if not supported (thanks, Ken Sundermeyer!)

    if ((daValue.indexOf('document.layers[')==0 && document.layers==null)|| (daValue.indexOf('document.all[')==0 && document.all==null)) {

      daValue = 'document'+daValue.substring(daValue.substring(0,daValue.lastIndexOf('.')).lastIndexOf('.'),daValue.length);

    }


    if(evalValue == 1) daValue = eval(daValue + '.value');


  // set the cookie, adding any parameters that were specified

  // (convert hours to milliseconds (*3600000) and then to a GMTString)

    document.cookie = name + '=' + daValue + ((hours)?(';expires=' + ((new Date((new Date()).getTime() + parseInt(hours)*3600000)).toGMTString())):'') + ((path)?';path=' + path:'') + ((domain)?';domain=' + domain:'');

}

function WM_readCookie(name, NS_outputElement, IE_outputElement) {

  // if there's no cookie, don't do anything

  if(document.cookie != '') {

    var actualValue, outputElement, firstChar, lastChar;


    // get the entire cookie string (this may have other name=value pairs in it

    var theBigCookie = document.cookie;

    // grab just this cookie from theBigCookie string

    // find the start of 'name'

    firstChar = theBigCookie.indexOf(name);

    // if you found it

    if(firstChar != -1) {

      // skip 'name' and '='

      firstChar += name.length + 1;

      // find the end of the value string (i.e. the next ';')

      lastChar = theBigCookie.indexOf(';', firstChar);

      if(lastChar == -1) lastChar = theBigCookie.length;

      // return the value

      actualValue = theBigCookie.substring(firstChar, lastChar);

    } else {

      // if there was no cookie, return false

      actualValue = false;

    }


    outputElement = (navigator.appName == 'Netscape')?NS_outputElement:IE_outputElement;

    //fix layer ref if not supported (thanks, Ken Sundermeyer!)

    if ((outputElement.indexOf('document.layers[')==0 && document.layers==null)|| (outputElement.indexOf('document.all[')   ==0 && document.all   ==null)) {

      outputElement = 'document'+outputElement.substring(outputElement.substring(0,outputElement.lastIndexOf('.')).lastIndexOf('.'),outputElement.length);

    }


    if(outputElement && actualValue) {

      eval(outputElement+".value = '"+actualValue+"'");

    }

  }

}

//-->
function VF_EnviarCorreo(){ //v2.0
<!--start_of_saved_settings-->
<!--type,textarea,name,Tmensaje,required,true,errMsg,Escribe el contenido del mensaje-->
<!--type,text,name,Temail,required,true,isEmail,errMsg,Escribe el Correo y asegúrate de que esté bien escrito-->
<!--type,text,name,Tnombre,required,true,errMsg,Escribe el Nombre-->
<!--end_of_saved_settings-->
	var theForm = document.EnviarCorreo;
	var emailRE = /^([a-zA-Z0-9_.-])+@(([a-zA-Z0-9-])+.)+([a-zA-Z0-9]{2,4})+$/;
	var errMsg = "";
	var setfocus = "";

	if (theForm['Tmensaje'].value == ""){
		errMsg = "Escribe el contenido del mensaje";
		setfocus = "['Tmensaje']";
	}
	if (!emailRE.test(theForm['Temail'].value)){
		errMsg = "Escribe el Correo y asegúrate de que esté bien escrito";
		setfocus = "['Temail']";
	}
	if (theForm['Tnombre'].value == ""){
		errMsg = "Escribe el Nombre";
		setfocus = "['Tnombre']";
	}
	if (errMsg != ""){
		alert(errMsg);
		eval("theForm" + setfocus + ".focus()");
	}
	else theForm.submit();
}//-->

function Openpopup(theURL,winName,features) { window.open(theURL,winName,features); }

function abrirCreditos2 (URL){ 
   window.open(URL,"Creditos","width=250,height=120,scrollbars=NO") 
} 

function abrirCreditos (URL){ 
window.open(URL,'Chat','scrollbars=no,left=' + (screen.width - 250)/2 + ',top=' + (screen.height - 160)/2 + ',width=250,height=160')}

function abrirTestServidorEmail (URL){ 
window.open(URL,'Componentes','scrollbars=no,left=' + (screen.width - 500)/2 + ',top=' + (screen.height - 180)/2 + ',width=500,height=180')}

function abrirTestServidorUpload (URL){ 
window.open(URL,'Componentes','scrollbars=no,left=' + (screen.width - 500)/2 + ',top=' + (screen.height - 200)/2 + ',width=500,height=200')}



/*******************************
 Validación del cif/nif. Por Carlitos. carlosbernad@teleline.es
 Si usas este script, deja intactas estas líneas (créditos). Vale?
 También te agradecería un e-mail con tus comentarios.
 Idea original de validación de cif de KarlanKas
*******************************/

function cif(cif)
{
par = 0
non = 0
letras="ABCDEFGHKLMNPQS"
let=cif.charAt(0)

if (!isNaN(let))
  {
  nif=cif
  validar(nif)
  return false
  }

if (cif.length!=9)
  {
  alert('El Cif debe tener 9 dígitos')
  document.frmPresupuesto.TextCif.focus()
  return false
  }

if (letras.indexOf(let.toUpperCase())==-1)
  {
  alert("El comienzo del Cif no es válido")
  document.frmPresupuesto.TextCif.focus()
  return false
  }

for (zz=2;zz<8;zz+=2)
  {
  par = par+parseInt(cif.charAt(zz))
  }

for (zz=1;zz<9;zz+=2)
  {
  nn = 2*parseInt(cif.charAt(zz))
  if (nn > 9) nn = 1+(nn-10)
  non = non+nn
}

parcial = par + non

control = (10 - ( parcial % 10))

if (control==10) control=0

if (control!=cif.charAt(8))
  {
  alert("El Cif no es válido, el formato debe de ser X12345678")
  document.frmPresupuesto.TextCif.focus()
  return false
  }
//alert("El Cif es válido")
}

function validar(abc)
{
dni=abc.substring(0,abc.length-1)
let=abc.charAt(abc.length-1)
if (!isNaN(let))
 {
  alert('Falta la letra')
  document.frmPresupuesto.TextCif.focus()
  return false
 }
else
 {
  cadena="TRWAGMYFPDXBNJZSQVHLCKET"
  posicion = dni % 23
  letra = cadena.substring(posicion,posicion+1)
  if (letra!=let.toUpperCase())
   {
    alert("Nif no válido, el formato debe de ser 12345678X")
    document.frmPresupuesto.TextCif.focus()	
    return false
   }
 }
//alert("Nif válido")
}