// ------------- CASILLAS TEXT NO VACIAS ---------------

function vacioTexto(cadena,formulario,casilla) // PARA VALIDAR CAMPOS TEXT
	{
	error=0;
	obj=eval("document."+formulario+"."+cadena);
 
	    
	if (obj.value=="")
		{
		alert("Debe introducir datos en la casilla "+casilla);
		obj.focus();
		obj.value="";
		error=1;
	    }
	return error;
	}

///---------------------------------------------------------------------

///-----------------------PARA VALIDAR COMBOS-------------------//////	

       
function vacioSelect(cadena,formulario,casilla) 
	{
	obj=eval("document."+formulario+"."+cadena);
	 
	error=0;
	 if (obj.selectedIndex==0)
		{
		alert("La selección de "+casilla+" no es válida.");
		obj.focus();
		error=1;
		} 
	return error;
	}
	
///-----------------------Recomendacion select-------------------//////	

       
function vacioSelectR(cadena,formulario,casilla) 
	{
	obj=eval("document."+formulario+"."+cadena);
	var error=0; 
	var valor=true;
	 
	 if (obj.selectedIndex==0)
		{
		 valor=confirm("Le aconsejamos poner un Incoterm\n¿Desea continuar sin Incoterms?")
		 
		
		}
		if (valor!=true){
		error=1
		}
	
		
		 	return error;
	}  
///-----
	
	
	  
///---------------------------------------------------------------------
function lTrim(cadena){ 
     while (cadena.charAt(0) == " ") 
      cadena = cadena.substr(1, cadena.length - 1); 
    //  alert("x"+cadena+"x");
     return cadena; 
    } 

    function rTrim(cadena){ 
     while (cadena.charAt(cadena.length - 1) == " ") 
      cadena = cadena.substr(0, cadena.length - 1); 
    //  alert("x"+cadena+"x");
     return cadena; 
    } 

    function allTrim(cadena){ 
    //alert("x"+cadena+"x");
     return rTrim(lTrim(cadena)); 
    }
 /// PARA COMPROBAR DOMINIOS -----------------------------------------
 
 function comprobarDominios(entrada)
 {
 encontrado=false;
 dominios=["eu","cat","com","net","org","edu","biz","info","int","museum","ac","ad","ae","af","ag","ai","al","am","an","an","ao","aq","ar","as","at","au","aw","az","ba","bb","bd","bd","be","bf","bf","bg","bh","bi","bj","bm","bn","bo","br","bs","bt","bv","bw","by","bz","ca","cc","cd","cf","cg","ch","ci","ck","cl","cm","cn","co","cr","cu","cv","cv","cx","cy","cz","de","dj","dk","dm","do","dz","ec","ee","eg","er","es","et","fi","fj","fk","fm","fo","fr","ga","gd","ge","gf","gg","gh","gi","gl","gm","gn","gp","gq","gr","gs","gt","gu","gw","gy","hk","hm","hn","hr","ht","hu","id","ie","il","im","in","iq","ir","is","it","je","jm","jo","jp","ke","kg","kh","ki","km","kn","kr","kw","ky","kz","la","lb","lc","li","lk","lr","ls","lt","lu","lv","ly","ly","ma","mc","md","mg","mh","mk","ml","mm","mn","mo","mp","mq","mr","ms","mt","mu","mv","mw","mx","my","mz","na","nc","ne","nf","ng","ni","nl","no","np","nr","nu","nz","om","pa","pe","pf","pg","ph","pk","pl","pm","pn","pr","pt","pw","py","qa","re","ro","ru","rw","sa","sb","sc","sd","se","sg","sh","si","si","sj","sk","sl","sm","sn","so","sr","st","sy","sz","tc","td","tf","tg","th","tj","tk","tm","tn","to","tp","tr","tt","tv","tw","tz","ua","ug","uk","um","us","uy","uz","va","vc","ve","vg","vi","vn","vu","ws","ye","yu","za","zm","zr","zw"];
 for (i=0;i<dominios.length-1;i++)
	{
	if (dominios[i]==entrada.toLowerCase())
		{
		encontrado=true;
		}
	}
return encontrado;
 }   
///------------------------PARA VALIDAR FORMATO EMAIL-------------------

function validaMail(cadena,formulario)
{
   var texto=""

    error=0;
    obj=eval("document."+formulario+"."+cadena)
    obj2=obj.value;
    obj2=allTrim(obj2)
     if (obj2.indexOf(" ")!=-1)
		{
		 
		 
		texto="EL EMAIL NO PUEDE TENER CARACTERES BLANCOS";
		 
		mostrarMensa(texto);
		}
	
     if (obj2.indexOf("@")==-1)
		{
		texto="EL EMAIL DEBE CONTENER UNA ARROBA";
		mostrarMensa(texto); 
		}
		else
			{
			subcadena=obj2.split("@");
			if (subcadena.length > 2)
			{
			texto="EL EMAIL SOLO PUEDE CONTENER UNA ARROBA";
			mostrarMensa(texto);
			}
			 
			subcadena1=subcadena[1];
			subcadena0=subcadena[0];
			subcadena1=allTrim(subcadena1);
			subcadena0=allTrim(subcadena0);
			 
			
			if (subcadena0.length==0)
				{
				texto="DEBE PONER SU DIRECCION DELANTE DE LA ARROBA";
				mostrarMensa(texto); 
				}
				else
					{
					if (subcadena0.charAt(0)==".")
						{
						texto="EL EMAIL NO PUEDE COMENZAR POR UN PUNTO";
						mostrarMensa(texto); 
						}
					if (subcadena0.charAt(subcadena0.length-1)==".")
						{
						texto="DELANTE DE LA ARROBA NO PUEDE IR UN PUNTO"; 
					 mostrarMensa(texto);
						}
					for (i=0;i<subcadena0.length;i++)
						{
						if (subcadena0.charAt(i)=="." && subcadena0.charAt(i+1)==".")
							{
							texto="EL EMAIL NO PUEDE TENER DOS PUNTOS SEGUIDOS";
							mostrarMensa(texto); 
							}
						}
					}
					if (subcadena1.length==0)
						{
						 texto="DEBE PONER UN NOMBRE DE DOMINIO";
						 mostrarMensa(texto);
						}
						else
							{
							if (subcadena1.indexOf(".")==-1)
								{
								texto="DEBE ESPECIFICAR UN DOMINIO";
								mostrarMensa(texto); 
								}
							 
							if (subcadena1.charAt(0)==".")
								{
								texto="DETRAS DE LA ARROBA DEBE IR UN CARACTER DIFERENTE AL PUNTO"; 
								mostrarMensa(texto); 
								}
							if (subcadena1.charAt(subcadena1.length-1)==".")
								{
								texto="EL ULTIMO CARACTER DE UN EMAIL NO PUEDE SER UN PUNTO"; 
								mostrarMensa(texto); 
								}
							for (i=0;i<subcadena1.length;i++)
								{
								if (subcadena1.charAt(i)=="." && subcadena1.charAt(i+1)==".")
									{
									texto="EL EMAIL NO PUEDE TENER DOS PUNTOS SEGUIDOS";
									 mostrarMensa(texto);
									}
								}
							for (i=0;i<subcadena1.length;(i++))
								{
								if (subcadena1.charAt(i)==-1)
									{
									texto="DEBE HABER UN PUNTO EN EL NOMBRE DEL DOMINIO DEL EMAIL";
									 mostrarMensa(texto);
									}
								 
								}
							subcadena3=subcadena1.split(".");
						//	alert(subcadena3[subcadena3.length-1]);
							validoDominio=comprobarDominios(subcadena3[subcadena3.length-1]);
							
							if (! validoDominio)
								{
								texto="LA EXTENSION DE DOMINIO NO PUEDE SER ."+subcadena3[subcadena3.length-1];
								mostrarMensa(texto); 
								}
								 
							}
		  }
     
     return error;
	}
	
//// mostrar mensaje en campo email
function mostrarMensa(texto)
{
error=0;
 if (texto!="")
      {
      alert(texto);
      obj.focus();
      error=1;
      }
       
      
		  
		  
     
     
	 return error;
}
function enMayusculas(formulario,entrada)
{
var obj;
obj=eval("document."+formulario+"."+entrada+".value");

obj=obj.toUpperCase();
eval("document."+formulario+"."+entrada+".value=''");
eval("document."+formulario+".focus();");
 
eval("document."+formulario+"."+entrada+".value='"+obj+"'");
}

function aMayusculas(formulario,entrada)
{
var obj;
obj=eval("document."+formulario+"."+entrada+".value");

obj=obj.toUpperCase();


eval("document."+formulario+"."+entrada+".value=''");
eval("document."+formulario+".focus();");
 
eval("document."+formulario+"."+entrada+".value='"+obj+"'");
 
bloqueaCif(obj)
}	

function bloqueaCif(entrada)
{
 document.envio.letraF.disabled=false;
switch(entrada){
	     case "A":
		    valido=true;
		    desactivar=true;
		   
		    break;
		 case "B":
		   valido=true;
		    desactivar=true;
		    
		    break;
		 case "C":
		    valido=true;
		    desactivar=true;
		 
		    break;
		 case "D":
		   valido=true;
		    desactivar=true;
		    
		    break;
		 case "E":
		    valido=true;
		    desactivar=true;
		    
		    break;
		 case "F":
		    valido=true;
		    desactivar=true;
		    
		    break;
		 case "G":
		   valido=true;
		    desactivar=true;
		    
		    break;
		 case "Q":
		   valido=true;
		    desactivar=true;
		    
		    break;
		 case "S":
		    valido=true;
		    desactivar=true;
		   
		    break;
		 case "X":
		   valido=true;
		    desactivar=false;
		    
		    break;
		 case "":
			valido=true;
		    desactivar=false;
		    
		    break;
		default:
			valido=false;
		    desactivar=false;
		    
		    break;
        }
if (desactivar)
	{
	document.envio.letraF.disabled=true;
	 
	document.envio.letraF.value="";
	document.envio.nif.focus();
	}
if (! valido)	
		{
		//document.envio.letraF.disabled=true;
		alert("LETRA INCORRECTA")
		//document.envio.letraI.value="";
		//document.envio.letraI.focus();
		}
 
}

function soloNumeros()
{
 
if (event.keyCode <48 || event.keyCode >57)
	{
	 
	event.returnValue=false;
	}
}
function noCaracteres()
{
 
 
if (event.keyCode!=45 && event.keyCode!=46 && event.keyCode != 95 && event.keyCode != 65 && event.keyCode != 90 && event.keyCode != 64 && event.keyCode!=32 && event.keyCode!=209 && event.keyCode!=241 &&(event.keyCode<65 || event.keyCode>90) && (event.keyCode<97 || event.keyCode>122) && (event.keyCode<48 || event.keyCode>57))
	 {
event.returnValue=false;
	 }
}
///// compara el pasword en dos campos----------
function cadenaCorrecta(formulario,cadena,numero)
{
error=0;
numer=parseInt(numero);
obj=eval("document."+formulario+"."+cadena+".value");
if (obj.length != numero)
	{
	error=1;
	alert("ESTA CASILLA DEBE CONTENER " + numero + " DIGITOS");
	eval("document."+formulario+"."+cadena+".focus()");
	}
return error;
} 
		
function paswIgual(formulario,cadena1,cadena2)   
	{
	error=0;
	 
	obj1=eval("document."+formulario+"."+cadena1+".value");
	obj2=eval("document."+formulario+"."+cadena2+".value");
	 
	if (obj1!=obj2)
		{
		alert("Contraseña incorrecta");
		error=1;
		obj.focus();
		obj.value="";
		}
	return error;
	} 
///--------------------------------------------------------------------------------------------

function comparaLetra(entrada)
{
  letra=entrada.toUpperCase();
switch(letra){
	     case "A":
		    valido=false;
		     
		   
		    break;
		 case "B":
		   valido=false;
		    
		    break;
		 case "C":
		    valido=false;
		   
		    break;
		 case "D":
		   valido=false;
		  
		    
		    break;
		 case "E":
		    valido=false;
		    
		    
		    break;
		 case "F":
		    valido=false;
		   
		    break;
		 case "G":
		   valido=false;
		    
		    
		    break;
		 case "Q":
		   valido=false;
		    
		    
		    break;
		 case "S":
		    valido=false;
		    
		   
		    break;
		 case "X":
		   valido=true;
		   
		    
		    break;
		 case "":
			valido=true;
		    
		    break;
		default:
			valido=true;
		    
		    
		    break;
        }
        
return valido;
}

/// calculo de NIF

function CalculaNif()
{
var error=0;
var valorpais,nombrepais;

valorpais=document.envio.pais.value;
nombrepais=document.envio.pais.options[document.envio.pais.selectedIndex].text;

valorpais=parseInt(valorpais)
var dni=document.envio.nif.value;

dni=dni.replace(" ","")
dni=dni.replace("_","")
dni=dni.replace("-","")
 dni=dni.toUpperCase();
 document.envio.nif.value=dni;
  
switch(valorpais){
	case 182:
		error=calculanifAustria(dni)
		if (error==0){
			document.envio.nif2.value="AT"+dni
		}
		break;
	case 3:
		error=calculanifAlemania(dni)
		if (error==0){
			document.envio.nif2.value="DE"+dni
		}
		break; 
	case 19:
		error=calculanifbelgica(dni)
		if (error==0){
			document.envio.nif2.value="BE"+dni
		}
		break;
	case 27:
		error=calculanifBulgaria(dni)
		if (error==0){
			document.envio.nif2.value="BG"+dni
		}
		break;
	case 34:
		error=calculanifChipre(dni)
		if (error==0){
			document.envio.nif2.value="CY"+dni
		}
		break;
	case 46:
		error=calculanifDinamarca(dni)
		if (error==0){
			document.envio.nif2.value="DK"+dni
		}
		break;
	case 54:
		error=calculanifEslovaquia(dni)
		if (error==0){
			document.envio.nif2.value="SK"+dni
		}
		break;
	case 55:
		error=calculanifEslovenia(dni)
		if (error==0){
			document.envio.nif2.value="SI"+dni
		}
		break;
	case 56:
		error=calculanifespana(dni)
		 
		if (error==0){
			document.envio.nif2.value="ES"+dni
		}
		 
		break;
	case 58:
		error=calculanifEstonia(dni)
		if (error==0){
			document.envio.nif2.value="EE"+dni
		}
		break;
	case 61:
		error=calculanifFinlandia(dni)
		if (error==0){
			document.envio.nif2.value="FI"+dni
		}
		break;
	case 62:
		error=calculanifFrancia(dni)
		if (error==0){
			document.envio.nif2.value="FR"+dni
		}
		break;
	case 67:
		error=calculanifGrecia(dni)
		if (error==0){
			document.envio.nif2.value="EL"+dni
		}
		break;
	case 76:
		error=calculanifholanda(dni)
		if (error==0){
			document.envio.nif2.value="NL"+dni
		}
		break;
	case 83:
		error=calculanifIrlanda(dni)
		if (error==0){
			document.envio.nif2.value="IE"+dni
		}
		break;
	case 88:
		error=calculanifItalia(dni)
		if (error==0){
			document.envio.nif2.value="IT"+dni
		}
		break;
	case 98:
		error=calculanifLetonia(dni)
		if (error==0){
			document.envio.nif2.value="LV"+dni
		}
		break;
	case 102:
		error=calculanifLituania(dni)
		if (error==0){
			document.envio.nif2.value="LT"+dni
		}
		break;
	case 107:
		error=calculanifMalta(dni)
		if (error==0){
			document.envio.nif2.value="MT"+dni
		}
		break;
	case 137:
		error=calculanifPolonia(dni)
		if (error==0){
			document.envio.nif2.value="PL"+dni
		}
		break;
	case 138:
		error=calculanifPortugal(dni)
		if (error==0){
			document.envio.nif2.value="PT"+dni
		}
		break;
	case 141:
		error=calculanifInglaterra(dni)
		if (error==0){
			document.envio.nif2.value="GB"+dni
		}
		break;
	case 143:
		error=calculanifRumania(dni)
		if (error==0){
			document.envio.nif2.value="RO"+dni
		}
		break;
	case 160:
		error=calculanifSuecia(dni)
		if (error==0){
			document.envio.nif2.value="SE"+dni
		}
		break;
	case 184:
		error=calculanifHungria(dni)
		if (error==0){
			document.envio.nif2.value="HU"+dni
		}
		break;
	case 185:
		error=calculanifChequia(dni)
		if (error==0){
			document.envio.nif2.value="CZ"+dni
		}
		break;
	case 192:
		error=calculanifLuxemburgo(dni)
		if (error==0){
			document.envio.nif2.value="LU"+dni
		}
		break;
	}
 
return error;
}

function calculanifMalta(parametro){
	var error=0;
	
	switch(parametro.length){
		case 8:
			error=nifMalta(parametro)
			break;
		default:
			error=1;
			break;
	}
	
	
	if (error==1){
		alert("CIF MALTÉS INEXISTENTE")
	}

	return error;
}


function nifMalta(parametro){
	var error=0;
	
	if (isNaN(parametro)){
		error=1;
		return error;
	}
	
	var centro;
	
	centro=parseInt(parametro.substring(0,6))
	var suma;
	
	if (centro<=100000){
		error=1;
		return error;
	}
	
	suma=3*parseInt(parametro.substring(0,1))+4*parseInt(parametro.substring(1,2))+6*parseInt(parametro.substring(2,3))+7*parseInt(parametro.substring(3,4))+8*parseInt(parametro.substring(4,5))+9*parseInt(parametro.substring(5,6)) 

	
  
	suma=37-(suma%37)
	
 
	
	if (parseInt(centro)!=parseInt(parametro.substring(6,8))){
		error=1;
		
	}
	
	
	return error;
	
}


function calculanifLuxemburgo(parametro){
	var error=0;
	
	switch(parametro.length){
		case 8:
			error=nifLuxemburgo(parametro)
			break;
		default:
			error=1;
			break;
	}
	
	
	if (error==1){
		alert("CIF LUXEMBURGUÉS INEXISTENTE")
	}
	
	return error;
}


function nifLuxemburgo(parametro){
	
	var error=0;
	
	if (isNaN(parametro)){
		error=1;
		return error;
	}
	
	var centro;
	
	centro=parametro.substring(0,6)
	
	for (i=0;i<6;i++)
		{
			if (parametro.substring(i,i+1)==0){
			error=1;
		return error;
			}
		}
	
	centro=parseInt(centro)
	
	if (centro==0){
		error=1;
		return error;
	}
	
	centro=centro%89
	
 
	
	if (centro.toString()!=parametro.substring(6,8).toString()){
		error=1;
		
	}
	
	
	return error;
	
}


function calculanifChipre(parametro){
	var error=0;
	
	switch(parametro.length){
		case 9:
			error=nifChipre(parametro)
			break;
		default:
			error=1;
			break;
	}
	
	if (error==1){
		alert("NIF CHIPRIOTA INEXISTENTE")
	}
	
	
	return error;
	
}

function valorarChipre(entrada){
var valor;

	switch(entrada){
		case 0:
			valor=1			
			break;
		case 1:
			valor=0			
			break;
		case 2:
			valor=5			
			break;
		case 3:
			valor=7			
			break;
		case 4:
			valor=9		
			break;
		case 5:
			valor=13		
			break;
		case 6:
			valor=15		
			break;
		case 7:
			valor=17			
			break;
		case 8:
			valor=19			
			break;
		case 9:
			valor=21			
			break;
	}
	return valor;
}

function nifChipre(parametro){
	var error=0;
	var suma;
	var digito;
	var valor1,valor2,valor3,valor4,valor5,valor6,valor7,valor8
	
	valor1=parseInt(parametro.substring(0,1))
	valor1=valorarChipre(valor1)
	valor2=parseInt(parametro.substring(1,2))
	valor3=parseInt(parametro.substring(2,3))
	valor3=valorarChipre(valor3)
	
	valor4=parseInt(parametro.substring(3,4))
	valor5=parseInt(parametro.substring(4,5))
	valor5=valorarChipre(valor5)
	
	valor6=parseInt(parametro.substring(5,6))
	valor7=parseInt(parametro.substring(6,7))
	valor7=valorarChipre(valor7)
	
	valor8=parseInt(parametro.substring(7,8)) 
	
	
	
	
	var control=new Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
	
	if (isNaN(parametro.substring(0,8))){
		error=1;
		return error;
	}
	 
 suma=valor1+valor2+valor3+valor4+valor5+valor6+valor7+valor8
 
 
	
	suma=suma%26
	
	digito=control[suma]
	
 

if (digito.toString()!=parametro.substring(8,9)){
error=1;
}
return error;
}


function calculanifEslovaquia(parametro){
var error=0;

switch(parametro.length){
case 10:
	error=nifEslovaquia(parametro)
	break;
default:
	error=1;
	break;
}



if (error==1){
alert("CIF ESLOVACO INEXISTENTE")
}
return error;
}

function nifEslovaquia(parametro){
	var error=0;
	var suma;
	
	
	if (isNaN(parametro)){
	error=1;
	return error;
	}
	
	suma=parametro.substring(0,2)
 
	if (parseInt(suma)!=0)
	{
	error=1;
	return error;
	}
	
	suma=8*parseInt(parametro.substring(2,3))+7*parseInt(parametro.substring(3,4))+6*parseInt(parametro.substring(4,5))+5*parseInt(parametro.substring(5,6))+4*parseInt(parametro.substring(6,7))+3*parseInt(parametro.substring(7,8))+2*parseInt(parametro.substring(8,9)) 

	
	suma=11-suma%11;
	 
	 
	 if ((suma==10) || (suma==11)){
		suma+=1;
	 }
  
	  if (parametro.substring(9,10).toString()!=suma.toString()){
    error=1;
    }
	 
 return error;	
}



function calculanifEslovenia(parametro){
var error=0;

switch(parametro.length){
case 8:
	error=nifEslovenia(parametro)
	break;
default:
	error=1;
	break;
}



if (error==1){
alert("CIF ESLOVENO INEXISTENTE")
}
return error;
}

function nifEslovenia(parametro){
	var error=0;
	var suma;
	
	
	if (isNaN(parametro)){
	error=1;
	return error;
	}
	
	suma=parametro.substring(0,7)
 
	if (parseInt(suma)<=999999)
	{
	error=1;
	return error;
	}
	
	suma=8*parseInt(parametro.substring(0,1))+7*parseInt(parametro.substring(1,2))+6*parseInt(parametro.substring(2,3))+5*parseInt(parametro.substring(3,4))+4*parseInt(parametro.substring(4,5))+3*parseInt(parametro.substring(5,6))+2*parseInt(parametro.substring(6,7)) 
	
	suma=11-suma%11;
	 
	 
	 if ((suma==10) || (suma==11)){
		suma+=1;
	 }
  
	  if (parametro.substring(7,8).toString()!=suma.toString()){
    error=1;
    }
	 
 return error;	
}

function calculanifSuecia(parametro){

var error=0;
	switch(parametro.length){
		case 12:
			error=nifSuecia(parametro);
			break;
		default:
			error=1;
			break
	}


if (error==1){
	alert("CIF SUECO INEXISTENTE")
}
return error;

}


function nifSuecia(parametro){
	var error=0;
	
	if(isNaN(parametro)){
		error=1;
		return error;
	}
	var suma,digito,control;
	
	control=parametro.substring(10,12)
	
	if(parseInt(control)==0){
	error=1;
	return error;
	}
 
	var valor1,valor2,valor3,valor4,valor5,valor6,valor7,valor8,valor9
	
	valor1=parseInt(parametro.substring(0,1))
	valor1=2*valor1
	valor1=valor1.toString()
	valor1=resumar(valor1)
	
	valor2=parseInt(parametro.substring(1,2))
	 valor2=valor2.toString()
	valor2=resumar(valor2)
	
	valor3=parseInt(parametro.substring(2,3))
	valor3=2*valor3
	valor3=valor3.toString()
	valor3=resumar(valor3)
	
	valor4=parseInt(parametro.substring(3,4))
	 valor4=valor4.toString()
	valor4=resumar(valor4)
	
	valor5=parseInt(parametro.substring(4,5))
	valor5=2*valor5
	valor5=valor5.toString()
	valor5=resumar(valor5)
	
	valor6=parseInt(parametro.substring(5,6))
	 valor6=valor6.toString()
	valor6=resumar(valor6)
	
	valor7=parseInt(parametro.substring(6,7))
	valor7=2*valor7
	valor7=valor7.toString()
	valor7=resumar(valor7)
	
	valor8=parseInt(parametro.substring(7,8))
	 valor8=valor8.toString()
	valor8=resumar(valor8)
	
	valor9=parseInt(parametro.substring(8,9))
	valor9=2*valor9
	valor9=valor9.toString()
	valor9=resumar(valor9)
	
	
	suma=valor1+valor2+valor3+valor4+valor5+valor6+valor7+valor8+valor9
	
	
	digito=10-(suma%10)
	
	if (digito==10){
	digito=0;
	}
	
    if (parametro.substring(8,9).toString()!=digito.toString()){
    error=1;
    }
	
	return error;
	
}


function calculanifPolonia(parametro){
var error;
error=0;

	switch(parametro.length){
		case 10:
			error=nifPolonia(parametro)
			break;
		default:
			error=1
			break;
	}

if (error==1)
	{
	alert("CIF POLACO INEXISTENTE")
	}
return error;
}

function nifPolonia(parametro){
	var error=0;
	var suma;
	var digito;
	
	if (isNaN(parametro)){
		error=1;
		return error;
	}
	
	suma=6*parseInt(parametro.substring(0,1))+5*parseInt(parametro.substring(1,2))+7*parseInt(parametro.substring(2,3))+2*parseInt(parametro.substring(3,4))+3*parseInt(parametro.substring(4,5))+4*parseInt(parametro.substring(5,6))+5*parseInt(parametro.substring(6,7))+6*parseInt(parametro.substring(7,8))+7*parseInt(parametro.substring(8,9))
	
	suma=suma%11
	
	if(suma==10){
		error=1;
		return error;
	}
	
	
	if(suma.toString()!=parametro.substring(9,10).toString())	{
	error=1;
	return error;
	}
 
	
return error;
}

function calculanifLetonia(parametro){
var error=0;
	switch(parametro.length)
	{
	case 11:
		error=nifLetonia(parametro)
		break;
	default:
		error=1;
		break;
	}
	
	if(error==1){
	alert("NIF LETON INEXISTENTE")
	}
return error;
}


function nifLetonia(parametro){

var error=0;
	
var suma;
var control;

if(parseInt(parametro.substring(0,1))<=3){
	error=1;
	return error
}

suma=9*parseInt(parametro.substring(0,1))+1*parseInt(parametro.substring(1,2))+4*parseInt(parametro.substring(2,3))+8*parseInt(parametro.substring(3,4))+3*parseInt(parametro.substring(4,5))+10*parseInt(parametro.substring(5,6))+2*parseInt(parametro.substring(6,7))+5*parseInt(parametro.substring(7,8))+7*parseInt(parametro.substring(8,9))+6*parseInt(parametro.substring(9,10))
	
if ((parseInt(parametro.substring(0,1))==9) && (suma%11==4)){
suma=suma-45
}

if (suma%11==4){
control=4-(suma%11 )
}

if (suma%11>4){
control=14-(suma%11)
}
if (suma%11<4){
control=3-(suma%11)
}

 

if (control.toString()!=parametro.substring(10,11).toString())
{
error=1;
}



return error;
}




function calculanifLituania(parametro){
	var error=0;
	switch(parametro.length)
		{
		case 9:
			error=nifLituania(parametro)
			break;
			
		default:
			error=1;
			break;
			
		}
	if (error==1)
	{
	alert("NIF LITUANO INEXISTENTE")
	}
	return error;
}

function nifLituania(parametro){
	var error;
	error=0;
	var suma;
	var digito;
	
	if (parseInt(parametro.substring(7,8))!=1){
		error=1;
		return error;
	}
	
	
	//S=
//si S%11=10, S=
//C(1)=S%11; si C(1)=10, C(1)=0 
	suma=1*parseInt(parametro.substring(0,1))+2*parseInt(parametro.substring(1,2))+3*parseInt(parametro.substring(2,3))+4*parseInt(parametro.substring(3,4))+5*parseInt(parametro.substring(4,5))+6*parseInt(parametro.substring(5,6))+7*parseInt(parametro.substring(6,7))+8*parseInt(parametro.substring(7,8)) 
	
	if (suma%11==10)
	{
	suma=3*parseInt(parametro.substring(0,1))+4*parseInt(parametro.substring(1,2))+5*parseInt(parametro.substring(2,3))+6*parseInt(parametro.substring(3,4))+7*parseInt(parametro.substring(4,5))+8*parseInt(parametro.substring(5,6))+9*parseInt(parametro.substring(6,7))+1*parseInt(parametro.substring(7,8)) 
	}

suma=suma%11

if (suma==10){
	suma=0
}
	
  
	if (suma.toString()!=parametro.substring(8,9).toString())
		{
		error=1;
		 
		}
	
	
	return error;
}





function calculanifIrlanda(parametro){
	var error=0;
	switch (parametro.length)
		{
		case 8:
			error=nifIrlanda(parametro)
			break;
		default:
			error=1;
		}
	if(error==1){
		alert("CIF IRLANDES INEXISTENTE")
	}
	
	if (error==0){
	
	}
	return error;
}


function nifIrlanda(parametro){
	var error=0;
	var digito;
	var control;
	var cadena;
	var suma
 	digito=new Array("W","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V")
	var suma;
	
	cadena=parametro.substring(0,7)
	 
	 
	 
	if (!isNaN(parametro)){
 
	error=1;
	return error;
	}
	
	if (isNaN(cadena)){
 
	error=1;
	return error;
	}
	
	suma=8*parseInt(parametro.substring(0,1))+7*parseInt(parametro.substring(1,2))+6*parseInt(parametro.substring(2,3))+5*parseInt(parametro.substring(3,4))+4*parseInt(parametro.substring(4,5))+3*parseInt(parametro.substring(5,6))+2*parseInt(parametro.substring(6,7)) 
	suma=suma%23
	
	 
	
	cadena=parametro.substring(7,8)
	if (digito[suma]!=cadena){
		error=1;
	}
	
	return error;
}


function calculanifHungria(parametro){
	var error=0;
	switch(parametro.length){
		case 8:
			error=nifHungria(parametro)
			break;
		default:
			error=1;
	}
	if (error==1){
	alert("NIF HUNGARO INEXISTENTE")
	return error;
	}
	
}

function nifHungria(parametro)
{
var error=0;

if (isNaN(parametro)){
	error=1;
	return error;
}

if (parseInt(parametro.substring(0,1))==0){
	error=1;
	return error;
}


var suma,digito;
suma=9*parseInt(parametro.substring(0,1))+7*parseInt(parametro.substring(1,2))+3*parseInt(parametro.substring(2,3))+1*parseInt(parametro.substring(3,4))+9*parseInt(parametro.substring(4,5))+7*parseInt(parametro.substring(5,6))+3*parseInt(parametro.substring(6,7))

suma=10-(suma%10)

if(suma==10){
	suma=0;
}

digito=parseInt(parametro.substring(7,8))
 

if (suma!=digito){
	error=1;
}

return error;
}





function calculanifFinlandia(parametro){
var error=0;

 

switch(parametro.length)

{
case 8:
	error=nifFinlandia(parametro)
	break;
default:
	error=1;
	break;
}

 
if(error==1){
	alert("NIF FINLANDES INEXISTENTE")
}
return error;
}


function nifFinlandia(parametro){
var error;
error=0;
 
 
for (i=0;i<7-1;i++)
{
if (parametro.substring(i,i+1)>7)
	{
	
	error=1;
	return error;
	break;
	
	}
}

var suma;
var total

suma=7*parseInt(parametro.substring(0,1))+9*parseInt(parametro.substring(1,2))+10*parseInt(parametro.substring(2,3))+5*parseInt(parametro.substring(3,4))+8*parseInt(parametro.substring(4,5))+4*parseInt(parametro.substring(5,6))+2*parseInt(parametro.substring(6,7))


total=11-(suma%11); 
 
if(total==11){
total==0
}

if(total==10){
error=1;
return error
}

if(total.toString()!=parametro.substring(7,8).toString()){
	error=1;
	return error;
}

return error;
}

function calculanifEstonia(parametro){
	var error=0;
	switch(parametro.length){
		case 9:
			error=nifEstonia(parametro);
			break;
		default:
			error=1;
			break;
	}
	
	if (error==1)
		{
		alert("CIF ESTONIO INEXISTENTE")
		}
}


function nifEstonia(parametro){
var error=0;
var suma,digito;
suma=3*parseInt(parametro.substring(0,1))+7*parseInt(parametro.substring(1,2))+1*parseInt(parametro.substring(2,3))+3*parseInt(parametro.substring(3,4))+7*parseInt(parametro.substring(4,5))+1*parseInt(parametro.substring(5,6))+3*parseInt(parametro.substring(6,7))+7*parseInt(parametro.substring(7,8)) 
digito=10-(suma%10); //si C(1)=10, C(1)=0 
if (digito==10){
digito=0;
}
 

if (digito.toString()!=parametro.substring(8,9))
error=1;
return error
}

function calculanifDinamarca(parametro){
	var error=0;
	switch(parametro.length){
		case 8:
			error=nifDinamarca(parametro);
			break;
		default:
			error=1;
			break;
	}
	
	if (error==1)
		{
		alert("CIF DANES INEXISTENTE")
		}
}

function nifDinamarca(parametro){
	var error=0;
	
	var suma;
	
	if (parseInt(parametro.substring(0,1))==0){
		error=1;
		return error;
	}
	
	 
	
	
	suma=2*parseInt(parametro.substring(0,1))+7*parseInt(parametro.substring(1,2))+6*parseInt(parametro.substring(2,3))+5*parseInt(parametro.substring(3,4))+4*parseInt(parametro.substring(4,5))+3*parseInt(parametro.substring(5,6))+2*parseInt(parametro.substring(6,7))+parseInt(parametro.substring(7,8)) 
 
	
	if (suma%11!=0){
	error=1;
	}
	
	return error;
}


function calculanifChequia(parametro){

var error=0;
	
	switch(parametro.length)
	{
	case 8:
		error=nifChequia(parametro);
		break;
	default:
		error=1;
	}
if (error==1)
	{
	alert("NIF CHECO INEXISTENTE")
	}
}


function nifChequia(parametro){
	var error=0;
	
	var suma,total;
	
	suma=8*parseInt(parametro.substring(0,1))+7*parseInt(parametro.substring(1,2))+6*parseInt(parametro.substring(2,3))+5*parseInt(parametro.substring(3,4))+4*parseInt(parametro.substring(4,5))+3*parseInt(parametro.substring(5,6))+2*parseInt(parametro.substring(6,7)) 
	
	suma=11-suma%11
	
	if (suma==10){
	suma=0;
	}
	
	if (suma==11){
	suma=1;
	}
	
	 
	 if (suma.toString()!=parametro.substring(7,8).toString()){
	 error=1;
	 }
	 else{
		  for(i=0;i<8;i++){
			if (parseInt(parametro.substring(i,i+1))>8){
					error=1;
					return error;
			}
		  }
	 }
	 return error;
}

function calculanifAustria(parametro){
	var error;
	error=0
	
	if (isNaN(parametro.substring(1,8))){
		alert("CIF AUSTRIACO INEXISTENTE")
		error=1;
		return error;
	}
	if (parametro.substring(1,8).length!=9){
		alert("CIF AUSTRIACO INEXISTENTE")
		error=1;
		return error;
	}
	
	if (parametro.substring(0,1).toUpperCase()!="U"){
		alert("CIF AUSTRIACO INEXISTENTE")
		error=1;
		return error;
	}
	if(error==0){
		error=nifAustria(parametro)
	}
return error;
}

function nifAustria(parametro)
{
var error;
var valor1,valor2,valor3,valor4,valor5,valor6,valor7
var suma;
var digito;

valor1=parseInt(parametro.substring(1,2))

valor2=parseInt(parametro.substring(2,3))*2
valor2=resumar(valor2.toString())

valor3=parseInt(parametro.substring(3,4)) 

valor4=parseInt(parametro.substring(4,5))*2
valor4=resumar(valor4.toString())

valor5=parseInt(parametro.substring(5,6)) 

valor6=parseInt(parametro.substring(6,7))*2
valor6=resumar(valor6.toString())

valor7=parseInt(parametro.substring(7,8)) 


suma=valor1+valor2+valor3+valor4+valor5+valor6+valor7

digito=10-((suma+4)%10)

if (digito==10){
	digito=0;
}

if (parametro.substring(8,9).toString()!=digito.toString()){
	error=1;
}
return error;
}


function calculanifRumania(parametro){
var error=0;
if (isNaN(parametro)){
error=1;
alert("CIF RUMANO INEXISTENTE");
return error;
}

if(parametro.length!=10){
error=1;
alert("CIF RUMANO INEXISTENTE");
return error;
}

if (error==0)
{
error=nifRumania(parametro)

}
return error;

}




function nifRumania(parametro){
	var error=0;
	var s;
	var total;
	
	s=7*parseInt(parametro.substring(0,1))+5*parseInt(parametro.substring(1,2))+3*parseInt(parametro.substring(2,3))+2*parseInt(parametro.substring(3,4))+1*parseInt(parametro.substring(4,5))+7*parseInt(parametro.substring(5,6))+5*parseInt(parametro.substring(6,7))+3*parseInt(parametro.substring(7,8))+2*parseInt(parametro.substring(8,9))
total=s*10%11; 



if (total==10){
total=0;
}

if (total.toString!=parametro.substring(9,10)){
	error=1;
}


return error;

}

function calculanifholanda(parametro){
var error=0;
if (parametro.length!=12){

	error=1;
	alert("CIF HOLANDES INEXISTENTE")
	return error;
}

if (isNaN(parametro.substring(1,8))){
	error=1;
	alert("CIF HOLANDES INEXISTENTE")
	return error;

}

if (isNaN(parametro.substring(10,12))){
	error=1;
	alert("CIF HOLANDES INEXISTENTE")
	return error;

}

 

if (parametro.substring(9,10)!="B"){
	error=1;
	alert("CIF HOLANDES INEXISTENTE")
	return error;

}
if(error==0)
	{
	error=nifHolanda(parametro)
	if (error==1)
		{
		alert("CIF HOLANDES INEXISTENTE")
		}
	}
return error;
}


function nifHolanda(parametro)
{
var error=0;

var valor


var valor1=parametro.substring(0,1)
var valor2=parametro.substring(1,2)
var valor3=parametro.substring(2,3)
var valor4=parametro.substring(3,4)
var valor5=parametro.substring(4,5)
var valor6=parametro.substring(5,6)
var valor7=parametro.substring(6,7)
var valor8=parametro.substring(7,8)

valor=9*valor1+8*valor2+7*valor3+6*valor4+5*valor5+4*valor6+3*valor7+2*valor8 
//C(1)=S%11; si C(1)=10, incorrecto 
 
valor=valor%11

if (valor==10)
	{
	error=1;
	}
	else{
		if(valor.toString!=parametro.substring(8,9))
			{
			error=1;
			}
	}



 return error;

}


function calculanifGrecia(parametro){
	var error=0;
	
	if (isNaN(parametro)){
		error=1;
		alert("CIF GRIEGO INEXISTENTE")
		return error;
	}
	
 
	
	if (error==0){
		error=nifGrecia(parametro);
	}
	
	
	
	return error;
}


function nifGrecia(parametro){

var error=0;

var s=0;

var valor=parametro.length
 for (i=0;i<valor-1;i++)
{
eval("var valor"+ (i+1) +"=parametro.substring("+i+","+ (i+1) +")")
 
}

 

switch(valor){
	case 8:
		s=128*valor1+64*valor2+32*valor3+16*valor4+8*valor5+4*valor6+2*valor7 
		
		break;
	case 9:
		s=256*valor1+128*valor2+64*valor3+32*valor4+16*valor5+8*valor6+4*valor7+2*valor8

		break;
	default:
		error=1;
		
		break;
}

if (error==0)
{
s=s%11

if(parseInt(s)==10){
s=0;
}


if (s.toString!=parametro.substring(valor-1,valor).toString)
{
error=1
}

}

if (error==1){
alert("NIF GRIEGO INEXISTENTE")
}
return error;
}

function calculanifbelgica(parametro){
var error;
error=0;
	if(isNaN(parametro)){
		error=1;
		alert("CIF BELGA INEXISTENTE")
		return error;
		
	}
	
	if (parametro.substring(1,2)<2)
	{
	alert("CIF BELGA INEXISTENTE")
		return error;
		
	}
	
	if(parametro.length!=10){
		error=1;
		alert("CIF BELGA INEXISTENTE")
		return error;
		
	}
	
	if(error==0)
		{
		error=nifBelgica(parametro);
		}
	return error;
}

function nifBelgica(parametro){

var error;
error=0;
var cadena=parametro.substring(0,8)
var valor;

var finalcadena=parametro.substring(8,10)
 

valor=97-cadena%97

 

if (parseInt(valor)==parseInt(finalcadena))
{
error=1;
}
return error;

}


function calculanifItalia(parametro){
var error;
error=0;

var valor;

	if(isNaN(parametro)){
		error=1;
		alert("CIF ITALIANO INEXISTENTE")
		return error;
		
	}
 
	if(parametro.length!=11)
	{
	error=1;
	alert("CIF ITALIANO INEXISTENTE")
	return error;
	}
	
	for(i=0;i<7;i++)
		{
		if(parseInt(parametro.substring(i,i+1))==0){
			error=1;
			alert("CIF ITALIANO INEXISTENTE")
			return error;
		}
		}
		
		 
		if ((parseInt(valor)==120) || (parseInt(valor)==121)) {
		error=0
		}
		else{
			if (parseInt(valor)>100)
				{
				error=1;
				}
			
		}
	 
	if (error==0)
	{
	
	
	error=nifItalia(parametro)
	
	}
	
if(error==1){
	alert("CIF ITALIANO INEXISTENTE")
	
}
return error;
}

function resumar(entrada)
{


var valor1,valor2;
var total;
 
if (parseInt(entrada)>9){
	valor1=parseInt(entrada.substring(0,1));
	 
	valor2=parseInt(entrada.substring(1,2));
	 
}
else{
	valor1=parseInt(entrada)
	valor2=0
}

total=valor1+valor2

return total;
}

function nifItalia(parametro){

var s;
s=0;

 var error;
 error=0;
 

var valor1,valor2,valor3,valor4,valor5,valor6,valor7,valor8,valor9,valor10

valor1=parseInt(parametro.substring(0,1))
valor2=parseInt(parametro.substring(1,2))*2
valor2=valor2.toString()
valor2=resumar(valor2)
 
valor3=parseInt(parametro.substring(2,3))
valor4=parseInt(parametro.substring(3,4))*2
valor4=valor4.toString()
valor4=resumar(valor4)
 
valor5=parseInt(parametro.substring(4,5))
valor6=parseInt(parametro.substring(5,6))*2
valor6=valor6.toString()
valor6=resumar(valor6)
  
valor7=parseInt(parametro.substring(6,7))
valor8=parseInt(parametro.substring(7,8))*2
valor8=valor8.toString()
valor8=resumar(valor8)
 
valor9=parseInt(parametro.substring(8,9))
valor10=parseInt(parametro.substring(9,10))*2
valor10=valor10.toString()
valor10=resumar(valor10)
 

var digito;

 
for (i=1;i<11;i++)
	{
	eval("s=s+valor"+i+"+0")
	}
 

digito=10-(s%10)

if(digito==10){
digito=0;
}

 
 
 if(digito.toString()!=parametro.substring(10,11).toString())
 {
 error=1;
 }
 
return error;

}

function calculanifAlemania(parametro)
{
var error;
error=0;
if (isNaN(parametro)){
	error=1;
	return error;
}

if(parametro.length!=9){
	error=1;
	return error;
}
 
if (error==0){
	error=nifAlemania(parametro)
}
if (error==1)
{
alert("CIF ALEMAN INEXISTENTE")
}
return error;
}

function nifAlemania(parametro){

var s;
var i;
 
var valor;
var error;
var x;
error=0;
x=0;
 
 
 if (parametro.substring(0,1)==0)
	{
	error=1;
	return error;
	}

s=0;
for (i=0;i<parametro.length-1;i++){
			x=s;
			s=parseInt(2*(((parseInt(parametro.substring(i,i+1))+x+9)%10)+1)%11 )
			 	 alert(eval("'2*((("+parametro.substring(i,i+1)+"+"+x+"+9)%10)+1)%11'"))
			 	 
 
			 
			 
			}
valor=11-s

alert(valor)
if (valor!=parseInt(parametro.substring(8,9))){
	error=1
}

return error;
}


function calculanifInglaterra(parametro)
{
 
 
 var mensaje;
 
 var juridica;
 var error;
 
 error=0;
 
 juridica=document.envio.juridica.value;
 
 longitud=parametro.length;
 
 
 if (isNaN(parametro))
 {
 error=1;
 return error;
 }
 
 
 
 switch(parseInt(juridica))
 {
 case 1:
 
	if (longitud!=10)
	{
	 error=1 
	 
	}
	else{
		 
		error=nifSociedadIngles(parametro,'0')
		 
		}
	break;
  case 0:
	if (longitud!=9)
	{
	 error=1 
	 
	}
	else{
		error=nifFisicaIngles(parametro,'1')
		}
	break;
 }
 
 if (error==1){
	alert("CIF BRITANICO INEXISTENTE")
 }
 
}
 

function nifSociedadIngles(parametro,como)
{
	var error;
	var valor;
	var a,b,c
	 
error=0; 
	
	a=8*parametro.substring(0,1)+7*parametro.substring(1,2)+6*parametro.substring(2,3)+5*parametro.substring(3,4)+4*parametro.substring(4,5)+3*parametro.substring(5,6)+2*parametro.substring(6,7)+10*parametro.substring(7,8)+parametro.substring(8,9) 

b=a%97
 alert(b)
if (b!=0){
error=1;
return error;
}

if (parseInt(como)==0)
{
	if ((parametro.substring(9,10))!=(parametro.substring(3,4)))
	{
	error=1;
	return error;
}

return error;
}

}


function calculanifBulgaria(parametro)
{
var error;
error=0;
switch(parametro.length)
{
case 10:
	error=nifBulgaria(parametro);
		 
	break;
	
default:
	error=1;
	break;
}
 
if (error==1)
{
alert("CIF BULGARO INEXISTENTE")
}
return error;
}


function nifBulgaria(parametro)
{
var error;
error=0;

var a,b,c



if (isNaN(parametro)){
	error=1;
	return error;
}
 
a=4*parseInt(parametro.substring(0,1))+3*parseInt(parametro.substring(1,2))+2*parseInt(parametro.substring(2,3))+7*parseInt(parametro.substring(3,4))+6*parseInt(parametro.substring(4,5))+5*parseInt(parametro.substring(5,6))+4*parseInt(parametro.substring(6,7))+3*parseInt(parametro.substring(7,8))+2*parseInt(parametro.substring(8,9)) 

 

b=11-(a%11)
 
 
 
if (b==11)
	{
	b=0;
	}
	
if (b==0){
error=1;
return error;
}	

if (parametro.substring(9,10).toString()!=b.toString()){
error=1;
}



 
return error;

}

function calculanifPortugal(parametro)
{
var error;
error=0;
switch(parametro.length)
{
case 9:
	error=nifPortugal(parametro);
		 
	break;
	
default:
	error=1;
	break;
}
 
if (error==1)
{
alert("CIF PORTUGUES INEXISTENTE")
}
return error;
}



function nifPortugal(parametro)
{
var error;
error=0;

var a,b,c


if (isNaN(parametro)){
	error=1;
	return error;
}

if (error==0)
{
a=9*parametro.substring(0,1)+8*parametro.substring(1,2)+7*parametro.substring(2,3)+6*parametro.substring(3,4)+5*parametro.substring(4,5)+4*parametro.substring(5,6)+3*parametro.substring(6,7)+2*parametro.substring(7,8) 
b=11-a%11

if ((b==10) || (b==11))
	{
	b=0;
	}
		c=parametro.substring(8,9)
		if (parseInt(c)!=parseInt(b))
			{
			error=1;
			}
}

 
return error;

}


function nifFrancia(parametro){
var error;
var diccon;
var dc;
error=0;
if (isNaN(parametro)){
	error=1;
	return error;
}

if (error==0){

dc=(parametro.substring(2,11)*100+12)%97 


diccon=parametro.substring(0,2)
 
if (diccon!=dc)
	{
	error=1;
	 
	return error;
	}

 }

 
}


function calculanifFrancia(parametro)
{
 


switch(parametro.length)
 {
 case 11:
	 
		error=nifFrancia(parametro)
		 
	break;
 default:
	error=1;
	break;
 }
if (error==1)
{
alert("CIF FRANCES INEXISTENTE")
}
}

function calculanifespana(parametro)
{

 
 var mensaje;
 
 var juridica;
 var error;
 
 error=0;
 
 juridica=document.envio.juridica.value;
 
 longitud=parametro.length;
 
 //switch(longitud)
// {
 //case 9:
	if (juridica==1)
	{
		
	error=nifSociedad(parametro);
	
	 
	}
	else{
		error=nifFisica(parametro)
		}
//	break;
//case 10:
//	error=nifFisica(parametro);
//	break;
// default:
//	error=1;
// }
 
 if (error==1){
	alert("CIF ESPAÑOL INEXISTENTE")
 }
 return error;
 }


function nifSociedad(parametro)
{
var error;
error=0;

var valor,valorF,cuerpo,numerofinal;
valor=parametro.substring(0,1)
valorF=parametro.substring(1,9)
numerofinal=parametro.substring(8,9)
 

 
var valorB
   var i;
    
   var suma;
   var valor1,valor2,valor3,valo4,valor5,valor6,valor7
   
   valor1=parseInt(parametro.substring(1,2))
   valor1=2*valor1
   valor1=resumar(valor1.toString())
 
   
   valor2=parseInt(parametro.substring(2,3))
   
   valor3=parseInt(parametro.substring(3,4))
   valor3=2*valor3
   valor3=resumar(valor3.toString())
   
   valor4=parseInt(parametro.substring(4,5))
   
   valor5=parseInt(parametro.substring(5,6))
   valor5=2*valor5
   valor5=resumar(valor5.toString())
   
   valor6=parseInt(parametro.substring(6,7))
      
   valor7=parseInt(parametro.substring(7,8))
   valor7=2*valor7
   valor7=resumar(valor7.toString())
   
   var errorletra;
   errorletra=0;
 
    
  var letraini=new Array("A","B","C","D","E","F","G","H","J","U","W")  
   
   
 for (i=0;i<letraini.length;i++)
 {
	if (valor==letraini[i]){
		errorletra=1;
	}
}

if (errorletra==0){
	error=1;
	 
	return error;
}

if (isNaN(valorF)){
	error=1;
	 
	return error;
}


suma=valor1+valor2+valor3+valor4+valor5+valor6+valor7

suma=10-(suma%10)

if(suma==10){
suma=0;
}
 
 
	if(suma.toString()!=numerofinal.toString()){
		error=1;
	}
	 
 
 
  return error;  
}



 
	

 function nifFisica(entrada)
{	var resultado;
var error;
error=0;
var a,b,c;

var cuerpo;

var primera,ultima,valorTotal;
var letrainicial;
letrainicial=entrada.substring(0,1)


 cuerpo=entrada.substring(0,entrada.length-1)
 
 while(cuerpo.length<8)
	{
	cuerpo="0"+cuerpo;
	}
 primera=cuerpo.substring(0,8)
 valorTotal=cuerpo.substring(1,9)
 ultima=entrada.substring(entrada.length-1,entrada.length)
 resultado=cuerpo+""+ultima
 
if ((letrainicial=="X")||(letrainicial=="x"))
{
 cuerpo=entrada.substring(1,entrada.length-1)
 
 while(cuerpo.length<8)
	{
	cuerpo="0"+cuerpo;
	}
 
 
primera=cuerpo.substring(1,9)
 valorTotal=cuerpo.substring(2,10)
 ultima=entrada.substring(entrada.length-1,entrada.length)
 resultado=letrainicial+""+cuerpo+""+ultima
}


 
 var queletras=new Array("T","R","W","A","G","M","Y","F","P","D","X","B","N","J","Z","S","Q","V","H","L","C","K","E") 

if (!isNaN(ultima)){
	error=1;
	// alert("tonto")
	return error;
}

if (isNaN(primera) ){
	error=1;
	 
	return error;
}



if (error==0){
a=0;
 
 
 a=primera%23

 
 
	if (queletras[a].toString()!=ultima.toString()){
		 error=1;
	}
	
	//alert(queletras[a].toString())
	
}// de if error==0

	
	//alert(resultado);
	 
 if(error==0){
 document.envio.nif.value=resultado
 }
 
  return error;  
}
 







//------------- para calcular la letra del nif	
////////////////////////////////////////////////////////////////////////
function calculaNif(campoentrada)
	{
	var numeroDni=parseFloat(campoentrada) //eval("document."+formulario+"."+campoentrada+".value");
	var numeroDividido=parseFloat(numeroDni)/23;
	var sindeci=Math.floor(numeroDividido); // devuelve parte entera
	var sindeciMultip= parseInt(sindeci)*23;
	 var totos=numeroDni%23
	
	
	var queletras=new Array("T","R","W","A","G","M","Y","F","P","D","X","B","N","J","Z","S","Q","V","H","L","C","K","E") 
 
	 
	var numeroLetra=parseInt(numeroDni)-parseInt(sindeciMultip);
	var letraNif=""
	if (numeroDni==0)
		{
		letraNif="";
		}
		else
			{
			switch (numeroLetra)
				{
				case 0:letraNif="T"
					break;
				case 1:letraNif="R"
					break;
				case 2:letraNif="W"
					break;
				case 3:letraNif="A"
					break;
				case 4:letraNif="G"
					break;
				case 5:letraNif="M"
					break;
				case 6:letraNif="Y"
					break;
				case 7:letraNif="F"
					break;
				case 8:letraNif="P"
					break;
				case 9:letraNif="D"
					break;
				case 10:letraNif="X"
					break;
				case 11:letraNif="B"
					break;
				case 12:letraNif="N"
					break;
				case 13:letraNif="J"
					break;
				case 14:letraNif="Z"
					break;
				case 15:letraNif="S"
					break;
				case 16:letraNif="Q"
					break;
				case 17:letraNif="V"
					break;
				case 18:letraNif="H"
					break;
				case 19:letraNif="L"
					break;
				case 20:letraNif="C"
					break;
				case 21:letraNif="K"
					break;
				case 22:letraNif="E"
					break;
				case 23:letraNif="T"
					break;
				}
			}
	//eval("document."+formulario+"."+camposalida+".value=letraNif");
	//eval("document."+formulario+"."+camposalidahidden+".value=letraNif");
	return letraNif;
	}
///
 function letraDeNif(formulario,numero,letraini,letrafin)
 {
 
  
 var numerodni=eval("document."+formulario+"."+numero+".value");
 var letrain=eval("document."+formulario+"."+letraini+".value");
 var letrafi=eval("document."+formulario+"."+letrafin+".value");
 letrafi=letrafi.toUpperCase();
 letraFinal=calculaNif(numerodni);
 
 //alert(letraFinal);
 
 verSiVale=comparaLetra(letrain.toUpperCase());
 
 if (verSiVale)
	{ 
	 
	if (letrafi.toUpperCase() != letraFinal)
		{
		error=1;
		alert("CIF INCORRECTO")
		}
	}
	 
 return error;
 }
///------------PARA REALIZAR EL SUBMIT DESDE LA LIBRERIA----------		
function emulaSubmit(formulario,accion)
	{
	eval("document."+formulario+".action='"+accion+"'");
	eval("document."+formulario+".submit()");
	}
	
///---------------------------------------------------------------------
function activar(formulario,cadena1,cadena2)
{
 
 eval("document."+formulario+"."+cadena2+".disabled=true");
  eval("document."+formulario+"."+cadena2+".value=''");
obj=eval("document."+formulario+"."+cadena1+".selectedIndex");
 
if (obj==7)
	{
	obj=eval("document."+formulario+"."+cadena2+".disabled=false");
	 //alert(eval("document."+formulario+"."+cadena2+".disabled"));
	}
}

function activars(formulario,cadena1,cadena2)
{
 eval("document."+formulario+"."+cadena2+".disabled=true");
 // eval("document."+formulario+"."+cadena2+".value=''");
obj=eval("document."+formulario+"."+cadena1+".selectedIndex");
//alert(obj);
if (obj==7)
	{
	obj=eval("document."+formulario+"."+cadena2+".disabled=false");
	//alert(eval("document."+formulario+"."+cadena2+".disabled"));
	}
}
function vacioCadenaComparacion(formulario,cadena1,cadena2,texto)
{
error=0;
obj=eval("document."+formulario+"."+cadena1+".selectedIndex");
obj2=cadena2

if (obj==7)
{
eval("document."+formulario+"."+cadena2+".disabled=false");
	if (obj2=="")
		{
		error=vacioTexto("moda2","envio"," ACTIVIDAD");
		}
}
return error;
}
function vacioTextoOculta()
{
error=0;
//alert(document.envio.moda.selectedIndex);

if (document.envio.moda.selectedIndex==7)
	{
	document.envio.moda2.disabled=false;
	//alert(document.envio.moda.selectedIndex);
	error=vacioTexto("moda2","envio"," OTRA ACTIVIDAD");
	//alert(error);
	}
	else
		{
		return error;
		}
return error;
}

function noValenNumeros(formulario,cadena)
{
	error=0;
	obj=eval("document."+formulario+"."+cadena);
	obj2=obj.value;
	for (i=0;i<obj2.length-1;i++)
		{
		codigo=obj2.charAt(i);
		if (!isNaN(codigo) || codigo==" ")
			{
			error=1;
			obj.value="";
			obj.focus();

			alert("NO SE PUEDEN PONER NUMEROS")
			break;
			}
	 
		}
return error;
}
function noValenNumeros2(formulario,cadena)
{
	error=0;
	obj=eval("document."+formulario+"."+cadena);
	obj2=obj.value;
	for (i=0;i<obj2.length-1;i++)
		{
		codigo=obj2.charAt(i);
		if (codigo!=" ")
		{
		
		if (!isNaN(codigo))
			{
			error=1;
			obj.value="";
			obj.focus();

			alert("NO SE PUEDEN PONER NUMEROS")
			break;
			}
}
	 
		}
return error;
}
function soloConNumeros(formulario,cadena)
{
error=0;
obj=eval("document."+formulario+"."+cadena);
obj2=obj.value;
for (i=0;i<obj2.length-1;i++)
{
codigo=obj2.charAt(i);
if (isNaN(codigo) || codigo==" ")
	{
	error=1;
		obj.value="";
	obj.focus();

	alert("SOLO NUMERICO")
	break;
	}
	 
}

return error;
}
//----------------VALIDACION DEL FORMULARIO---------------------------

function validaFormularioBack()
	{
	error=vacioTexto("nomb","envio"," NOMBRE o RAZON SOCIAL");
	if (error==0)
		{
		error=vacioTexto("nif","envio"," NIF");
		}
	if (error==0)
		{
		error=vacioTexto("dir","envio"," DIRECCION");
		}
	if (error==0)
		{
		error=vacioTexto("pob","envio"," LOCALIDAD");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","pob");
		}
	if (error==0)
		{
		error=vacioTexto("prov","envio"," PROVINCIA");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","prov");
		}
	if (error==0)
		{
		error=vacioTexto("pais","envio"," PAIS");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","pais");
		}
	if (error==0)
		{
		error=vacioTexto("codp","envio"," CODIGO POSTAL");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","codp","5");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","codp");
		}
	if (error==0)
		{
		error=vacioTexto("tlf","envio"," TELEFONO");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","tlf");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","tlf","9");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","fax");
		}
	if (error==0)
		{
		error=vacioTexto("moda","envio"," ACTIVIDAD");
		}
	if (error==0)
		{
		error=vacioTexto("nombre","envio"," PERSONA DE CONTACTO");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","nombre");
		}
	if (error==0)
		{
		error=vacioTexto("ema","envio"," EMAIL");
		}
	if (error==0)
		{
		error=validaMail("ema","envio");
		}
	  if (error==0)
		{
		error=vacioTexto("usuario","envio"," USUARIO");
		}
	if (error==0)
		{
		error=vacioTexto("clave","envio"," CONTRASEÑA");
		}
	if (error==0)
		{
		error=vacioTexto("preg","envio"," PREGUNTA");
		}
	if (error==0)
		{
		error=vacioTexto("resp","envio"," RESPUESTA");
		}
	if (error==0)
		{
		
		error=emulaSubmit("envio","datosBack.asp");
		}
	}
function validaFormularioBackPruebas()
	{
	error=vacioTexto("nomb","envio"," NOMBRE o RAZON SOCIAL");
	if (error==0)
		{
		error=vacioTexto("nif","envio"," NIF");
		}
	if (error==0)
		{
		error=vacioTexto("dir","envio"," DIRECCION");
		}
	if (error==0)
		{
		error=vacioTexto("pob","envio"," LOCALIDAD");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","pob");
		}
	if (error==0)
		{
		error=vacioTexto("prov","envio"," PROVINCIA");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","prov");
		}
	if (error==0)
		{
		error=vacioTexto("pais","envio"," PAIS");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","pais");
		}
	if (error==0)
		{
		error=vacioTexto("codp","envio"," CODIGO POSTAL");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","codp","5");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","codp");
		}
	if (error==0)
		{
		error=vacioTexto("tlf","envio"," TELEFONO");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","tlf");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","tlf","9");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","fax");
		}
	if (error==0)
		{
		error=vacioTexto("moda","envio"," ACTIVIDAD");
		}
	if (error==0)
		{
		error=vacioTexto("nombre","envio"," PERSONA DE CONTACTO");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","nombre");
		}
	if (error==0)
		{
		error=vacioTexto("ema","envio"," EMAIL");
		}
	if (error==0)
		{
		error=validaMail("ema","envio");
		}
	  if (error==0)
		{
		error=vacioTexto("usuario","envio"," USUARIO");
		}
	if (error==0)
		{
		error=vacioTexto("clave","envio"," CONTRASEÑA");
		}
	if (error==0)
		{
		error=vacioTexto("preg","envio"," PREGUNTA");
		}
	if (error==0)
		{
		error=vacioTexto("resp","envio"," RESPUESTA");
		}
	if (error==0)
		{
		
		error=emulaSubmit("envio","datosBackpruebas.asp");
		}
	}
	
function validaFormularioBackMod()
	{
	error=vacioTexto("nomb","envio"," NOMBRE o RAZON SOCIAL");
	if (error==0)
		{
		error=vacioTexto("dni","envio"," NIF");
		}
	if (error==0)
		{
		error=vacioTexto("dir","envio"," DIRECCION");
		}
	if (error==0)
		{
		error=vacioTexto("pob","envio"," LOCALIDAD");
		}
	 if (error==0)
		{
		error=noValenNumeros2("envio","pob");
		} 
	if (error==0)
		{
		error=vacioTexto("prov","envio"," PROVINCIA");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","prov");
		}
	if (error==0)
		{
		error=vacioTexto("pais","envio"," PAIS");
		}
	 if (error==0)
		{
		error=noValenNumeros2("envio","pais");
		}
	if (error==0)
		{
		error=vacioTexto("cpostal","envio"," CODIGO POSTAL");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","cpostal","5");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","cpostal");
		}
	if (error==0)
		{
		error=vacioTexto("telefono","envio"," TELEFONO");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","telefono");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","telefono","9");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","fax");
		}
	if (error==0)
		{
		error=vacioTexto("actividad","envio"," ACTIVIDAD");
		}
	if (error==0)
		{
		error=vacioTexto("contacto","envio"," PERSONA DE CONTACTO");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","contacto");
		}
	if (error==0)
		{
		error=vacioTexto("email","envio"," EMAIL");
		}
	if (error==0)
		{
		error=validaMail("email","envio");
		}
	  if (error==0)
		{
		error=vacioTexto("usuario","envio"," USUARIO");
		}
	if (error==0)
		{
		error=vacioTexto("clave","envio"," CONTRASEÑA");
		}
	if (error==0)
		{
		error=vacioTexto("pregunta","envio"," PREGUNTA");
		}
	if (error==0)
		{
		error=vacioTexto("respuesta","envio"," RESPUESTA");
		} 
	if (error==0)
		{
		
		error=emulaSubmit("envio","modidatosBack.asp");
		}
	}
	
	
	
	
	
	
function validaFormulario()   //  formulario de pagina registro.asp
	{
	
	//alert(document.envio.enviapromo.value)
	error=vacioTexto("nomb","envio"," Nombre o Razón Social");
	
	 
	
	if (error==0)
		{
		error=vacioTexto("dir","envio"," Dirección");
		}
	if (error==0)
		{
		error=vacioTexto("pob","envio"," Localidad");
		}
	 if (error==0)
		{
		error=vacioTexto("prov","envio"," Província");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","pob");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","prov");
		}
	
	if (error==0)
		{
		error=vacioTexto("codp","envio"," Código Postal");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","codp","5");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","codp");
		}
	if (error==0)
		{
		error=vacioTexto("nif","envio"," NIF");
		} 
	if (error==0)
		{
		error=CalculaNif()
		}
	if (error==0)
		{
		error=vacioTexto("tlf","envio"," Teléfono");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","tlf");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","tlf","9");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","fax");
		}
	if (error==0)
		{
		error=vacioSelect("moda","envio"," Actividad");
		}
	  if (error==0)
		{ 
		error=vacioTextoOculta()//("envio","moda","moda2"," Otra Actividad");
		 } 
	if (error==0)
		{
		error=vacioTexto("nombre","envio"," Personal de Contacto");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","nombre");
		}
	if (error==0)
		{
		error=vacioTexto("ema","envio"," e-Mail");
		}
	if (error==0)
		{
		error=validaMail("ema","envio");
		}
	 
	 
	if (error==0)
		{
		error=emulaSubmit("envio","datos.asp");
		}
	}
	
function validaFormularioPrueba()   //  formulario de pagina registro.asp
	{
	error=vacioTexto("nomb","envio"," NOMBRE o RAZON SOCIAL");
	if (error==0)
		{
		error=vacioTexto("nif","envio"," NIF");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","nif");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","nif","8");
		}
	if (error==0)
		{
		error=letraDeNif("envio","nif","letraI","letraF")
		}
	if (error==0)
		{
		error=vacioTexto("dir","envio"," DIRECCION");
		}
	if (error==0)
		{
		error=vacioTexto("pob","envio"," LOCALIDAD");
		}
	 if (error==0)
		{
		error=noValenNumeros2("envio","pob");
		} 
	if (error==0)
		{
		error=vacioTexto("prov","envio"," PROVINCIA");
		}
	 if (error==0)
		{
		error=noValenNumeros2("envio","prov");
		} 
	if (error==0)
		{
		error=vacioTexto("pais","envio"," PAIS");
		}
	 if (error==0)
		{
		error=noValenNumeros2("envio","pais");
		} 
	if (error==0)
		{
		error=vacioTexto("codp","envio"," CODIGO POSTAL");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","codp","5");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","codp");
		}
	if (error==0)
		{
		error=vacioTexto("tlf","envio"," TELEFONO");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","tlf");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","tlf","9");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","fax");
		}
	if (error==0)
		{
		error=vacioSelect("moda","envio"," ACTIVIDAD");
		}
	  if (error==0)
		{ 
		error=vacioTextoOculta()//("envio","moda","moda2"," OTRA ACTIVIDAD");
		 } 
	if (error==0)
		{
		error=vacioTexto("nombre","envio"," PERSONA DE CONTACTO");
		}
	 if (error==0)
		{
		error=noValenNumeros2("envio","nombre");
		} 
	if (error==0)
		{
		error=vacioTexto("ema","envio"," EMAIL");
		}
	if (error==0)
		{
		error=validaMail("ema","envio");
		}
	/*if (error==0)
		{
		error=vacioTexto("usua","envio"," USUARIO");
		}
	if (error==0)
		{
		error=vacioTexto("pass","envio"," CONTRASEÑA");
		}
	
	if (error==0)
		{
		error=vacioTexto("pass2","envio"," DE CONFIRMACION DE CONTRASEÑA");
		}
	if (error==0)
		{
		error=paswIgual("envio","pass","pass2");
		}*/
	if (error==0)
		{
		error=vacioTexto("preg","envio"," PREGUNTA");
		}
	if (error==0)
		{
		error=vacioTexto("resp","envio"," RESPUESTA");
		}
	if (error==0)
		{
		error=emulaSubmit("envio","datosprueba.asp");
		}
	}
	
 
	
	function nuevaContra(formulario,casilla2,casilla3)
		{
		error=0;
		obj2=eval("document."+formulario+"."+casilla2+".value");
		obj3=eval("document."+formulario+"."+casilla3+".value");
		if (obj2!="" || obj3!="")
			{
			 
			
		 
			if (error==0)
				{
				error=vacioTexto("pass","envio"," NUEVA CONTRASEÑA");
				}
	
				if (error==0)
				{
				error=vacioTexto("pass2","envio"," CONFIRMACION DE CONTRASEÑA");
				}
				if (error==0)
				{
				error=paswIgual("envio","pass","pass2");
				}
			}
		//
		return error;	
		}


function validarBisiesto(anio)
	{
	var bisiesto;
	 
	 anyo=parseInt(anio);
	 any=anyo % 400;
	 anicu=anyo % 4;
	 annobi=anyo % 100;
	 
	 bisiesto=false;
	 if (anicu==0)
	 {
	 bisiesto=true;
	 }
	 if (annobi==0)
	 {
	 bisiesto=false;
		if (any==0)
			{
			bisiesto=true;
			}
	 }
	  
	 
	return bisiesto;
		 
	}

function validaFecha(formulario,casilla1,casilla2,casilla3,texto)
	{
	var error;
	error=0;
	var mes31;
	var numeroMes;
	var dias30;
	var ano;
	var mes;
	var dia;
	var bisiesto;
	mes31=true;
	ano=eval("document."+formulario+"."+casilla3+".value");
	mes=eval("document."+formulario+"."+casilla2+".value");
	nombreMes=eval("document."+formulario+"."+casilla2+".options[document."+formulario+"."+casilla2+".selectedIndex].text");
	dia=eval("document."+formulario+"."+casilla1+".value");
		bisiesto=validarBisiesto(ano);
		
	var dias30;
	dias30 = new Array ("","2","","4","","6","","","9","","11","");
	 
	if (mes.charAt(0)=="0")
		{
		numeroMes=mes.charAt(1);
		}
		else
		{
		numeroMes=mes;
		}
	 
	
	if (parseInt(mes)==2 || parseInt(mes)==4 || parseInt(mes)==6 || parseInt(mes)==9 || parseInt(mes)==11)
		{
		 mes31=false;
		}
	if (!mes31)
		{
		if (dia==31)
			{
			if (mes!=2)
			{
			alert("Error en fecha de "+texto+"\n"+ nombreMes + " sólo tiene 30 días");
			}
			error=1;
			}
		}
	if (mes==2)
		{
		if (!bisiesto)
			{
			if (dia>28)
				{
				error=1;
				alert("Error en fecha de "+texto+"\n"+ nombreMes + " de "+ano+" sólo tiene 28 días.");
				 
				}
			}
			else
				{
				if (dia>29)
				{alert("Error en fecha de "+texto+"\n"+ nombreMes + " de "+ano+" sólo tiene 29 días");
					error=1;
					}
				}
		}
		if (error==1)
			{
			eval("document."+formulario+"."+casilla1+".focus()");
			}
			 
	 return error;
	}
function fechaMenor(formulario,casilla1,casilla2,casilla3,texto)
	{
	var error;
	error=0;
var ano,dix,mex;
	ano=eval("document."+formulario+"."+casilla3+".value");
	 
	 ano=parseInt(ano);
	mex=eval("document."+formulario+"."+casilla2+".value");
    mex=parseInt(mex);
	dix=String(eval("document."+formulario+"."+casilla1+".value"));
	 
    	 
	var fech=new Date();
	di=fech.getDate();
	
	di=String(di);
	dil=parseInt(di);
	if (di.length==1)
		{
		di="0"+di;
		}
	me=fech.getMonth();
	me=parseInt(me+1);
	an=parseInt(fech.getYear());
	 
	if (ano<an)
		{
		 
		alert(texto);
		eval("document."+formulario+"."+casilla3+".focus();")
		error=1;
		
		}
		
		else
			{
			 if (ano==an && mex<me)
				{
				 
				alert(texto);
				eval("document."+formulario+"."+casilla2+".focus();")
				error=1;
				}
				else
					{
					if (ano==an && mex==me && dix<di)
						{
						 
						 
						alert(texto);
						eval("document."+formulario+"."+casilla1+".focus();")
						error=1;
						}
						else
							{
							error=0;
							}
					}
			}
		 
	return error; 
	}

function asignaFechaini(formulario,casilla1,casilla2,casilla3,salida)
		{
		var fec,error;
		error=0;
		var fe1,fe2,fe3,cadena;
		fe1=eval("document."+formulario+"."+casilla1+".value");
		fe2=eval("document."+formulario+"."+casilla2+".value");
		fe3=eval("document."+formulario+"."+casilla3+".value");
		eval("cadena='"+String(fe1)+"/"+String(fe2)+"/"+String(fe3)+"'")
		//cadena=(fe1+"/"+fe2+"/"+fe3;
		 
		 eval("document."+formulario+"."+salida+".value='"+cadena+"'");
		 return error;
		}
		
function cambiaCiu(formulario,casilla)
{
valor=eval("document."+formulario+"."+casilla+".options[document."+formulario+"."+casilla+".selectedIndex].text");
 

}


function cargaCiudad(ciu,capa,formulario,casilla,carga,letra)
	{
	  
	 		ciudad=eval("document."+formulario+"."+casilla+".options[document."+formulario+"."+casilla+".selectedIndex].text");
	 
	  
	var objXML=new ActiveXObject("Microsoft.XMLDOM");
	var objXSL=new ActiveXObject("Microsoft.XMLDOM");
	objXML.async=false;
	objXSL.async=false;
	 objXML.load("../xml/"+ciudad+letra+".xml");

	objXSL.load("../xml/"+carga+".xsl");
	 
	eval(capa+".innerHTML=objXML.transformNode(objXSL)");
	  
	}

function limpiar(formulario,casilla)
		{var obj,obj2;
		obj=eval("document."+formulario+"."+casilla);
		obj.value="";
		 cuentaString=0;
		 
		 //document.envio.hou.value="";
		}
		
 
	
	function seleccionMinuto(formulario,casilla)
		{ 
		//cuentaString=0;
		 
		if (cuentaString==0)
			{
			 if (event.keyCode>53)
				{
				
				event.returnValue=false;
				 
				}
				else
					{
					cuentaString=1;
					 
					}
			}
		if (cuentaString==1)
			{ 
			event.returnValue=true;
			}
		//cuentaString=0;
		}
		
var provincia;
	provincia=new Array(53);
	provincia[0]="TODAS";
	provincia[1]="LA CORUÑA";
	provincia[2]="ALAVA";
	provincia[3]="ALBACETE";
	provincia[4]="ALICANTE";
	provincia[5]="ALMERIA";
	provincia[6]="ASTURIAS";
	provincia[7]="AVILA";
	provincia[8]="BADAJOZ";
	provincia[9]="BALEARES";
	provincia[10]="BARCELONA";
	provincia[11]="BURGOS";
	provincia[12]="CACERES";
	provincia[13]="CADIZ";
	provincia[14]="CANTABRIA";
	provincia[15]="CASTELLON";
	provincia[16]="CEUTA";
	provincia[17]="CIUDAD REAL";
	provincia[18]="CORDOBA";
	provincia[19]="CUENCA";
	provincia[20]="GERONA";
	provincia[21]="GRANADA";
	provincia[22]="GUADALAJARA";
	provincia[23]="GUIPUZCOA";
	provincia[24]="HUELVA"
	provincia[25]="HUESCA";
	provincia[26]="JAEN";
	provincia[27]="LA RIOJA";
	provincia[28]="LAS PALMAS";
	provincia[29]="LEON";
	provincia[30]="LERIDA";
	provincia[31]="LUGO";
	provincia[32]="MADRID";
	provincia[33]="MALAGA";
	provincia[34]="MELILLA";
	provincia[35]="MURCIA";
	provincia[36]="NAVARRA";
	provincia[37]="ORENSE";
	provincia[38]="PALENCIA";
	provincia[39]="PONTEVEDRA";
	provincia[40]="SALAMANCA";
	provincia[41]="SANTA CRUZ DE TENERIFE";
	provincia[42]="SEGOVIA";
	provincia[43]="SEVILLA";
	provincia[44]="SORIA";
	provincia[45]="TARRAGONA";
	provincia[46]="TERUEL";
	provincia[47]="TOLEDO";
	provincia[48]="VALENCIA";
	provincia[49]="VALLADOLID";
	provincia[50]="VIZCAYA";
	provincia[51]="ZAMORA";
	provincia[52]="ZARAGOZA";
	
var cpostales	;
cpostales=new Array(53)
	cpostales[1]="15";
	cpostales[2]="01";
	cpostales[3]="02";
	cpostales[4]="03";
	cpostales[5]="04";
	cpostales[6]="33";
	cpostales[7]="05";
	cpostales[8]="06";
	cpostales[9]="07";
	cpostales[10]="08";
	cpostales[11]="09";
	cpostales[12]="10";
	cpostales[13]="11";
	cpostales[14]="39";
	cpostales[15]="12";
	cpostales[16]="51";
	cpostales[17]="13";
	cpostales[18]="14";
	cpostales[19]="15";
	cpostales[20]="17";
	cpostales[21]="18";
	cpostales[22]="19";
	cpostales[23]="20";
	cpostales[24]="21"
	cpostales[25]="22";
	cpostales[26]="23";
	cpostales[27]="26";
	cpostales[28]="35";
	cpostales[29]="24";
	cpostales[30]="25";
	cpostales[31]="27";
	cpostales[32]="28";
	cpostales[33]="29";
	cpostales[34]="52";
	cpostales[35]="30";
	cpostales[36]="31";
	cpostales[37]="32";
	cpostales[38]="34";
	cpostales[39]="36";
	cpostales[40]="37";
	cpostales[41]="38";
	cpostales[42]="40";
	cpostales[43]="41";
	cpostales[44]="42";
	cpostales[45]="43";
	cpostales[46]="44";
	cpostales[47]="45";
	cpostales[48]="46";
	cpostales[49]="47";
	cpostales[50]="48";
	cpostales[51]="49";
	cpostales[52]="50";
	
 	
	
function fechamayoromenor()
	{error="";
	ob1=document.envio.anoOrigen.value;
	ob2=document.envio.anoDestino.value;
	ob1=parseInt(ob1);
	ob2=parseInt(ob2);
	if (ob2<ob1)
		{
		error="Error en fechas";
		document.envio.anoEntrega.focus();
		 
		}
		else
			{
			if (ob1==ob2)
				{
				error=mesmayor();
				}
			} 
	if (error!="")
		{
		alert(error);
		error=1;
		}
	 
	return error;
	
	}
	
	
	
	
function sinespacio(formulario,casilla)
	{
	 
		caja=eval("document."+formulario+"."+casilla+".value");
 
			if (caja=="")
  
				{
	 
				if (event.keyCode==32)
					{
		 
					event.returnValue=false;
					}
				}  
				var valor
				valor=caja.length
				
				var valo
				valo=caja.substring(caja.length-1,caja.length)
				if (valo==" ")
					{
					if (event.keyCode==32)
					{
		 
					event.returnValue=false;
					}
					}
	}  
	
	function asignarMedida(formulario)
	{var medida;
	if (eval("document."+formulario+".unidades[0].checked"))
		{
		 
		medida="cm";
		}
		else
			{
			 
			medida="pg";
			}
		return medida;
	}
	

function horapasada()
{
var ob1, ob2, ob3, ob4
var error;
error=0;

ob1=document.envio.horaOrigen.value;
ob2=document.envio.horaDestino.value;
 
if (parseInt(ob1)>=parseInt(ob2))
	{
	alert("Error en horarios")
	error=1;
	}
	else
		{
		ob3=document.envio.minutoOrigen.value;
		ob4=document.envio.minutoDestino.value;
		if (parseInt(ob3)>=parseInt(ob4))
			{
			alert("Error en horarios")
			error=1;
			}	
		} 
return error;
}



	
function fechaPasada(formulario,entrada,ori,tiem) 
 {var i;
 
	fecha=new Date();
	anoSistema=parseInt(fecha.getFullYear());
	mesSistema=parseInt(fecha.getMonth())+1;
	diaSistema=parseInt(fecha.getDate());
	horaSistema=parseInt(fecha.getHours());
	minutoSistema=parseInt(fecha.getMinutes());
	switch(ori)
		{
		
		case "origen":
			origen=true;
			matriz=["anoOrigen","mesOrigen","diaOrigen","horaOrigen","minutoOrigen"];
			break;
		default:
			origen=false;
			matriz=["anoDestino","mesDestino","diaDestino","horaDestino","minutoDestino"];
		}
		tiempo=[anoSistema,mesSistema,diaSistema,horaSistema,minutoSistema];
		variable=["año","mes","día","hora","minutos"];
	 error=0;
	 i=parseInt(tiem);
	 
	 obj=eval("document."+formulario+"."+matriz[i]+".value");
 
	//obj=parseInt(obj);
 
	 
	if (obj<tiempo[i])
	 {
	 error=1;
	 
	 texto="Selección de "+variable[i]+" incorrecta";
	 alert(texto);
	 eval("document."+formulario+"."+matriz[i]+".focus()");
	 return error;
	 }
	 
	 else
		{
			if (obj==tiempo[i])
			{
				if (i<4)
					{
						i=i+1;
					}
			 
		 	error=eval("fechaPasada('"+formulario+"','"+matriz[i]+"','"+ori+"','"+i+"')");
		
			}
		  
		}
	 
 
 return error;
 
 }
 
function longitud(formulario,casilla,tamano)
	{error=0;
	obj=eval("document."+formulario+"."+casilla+".value"); 
	if (obj.length!=parseInt(tamano))
		{
		error=1;
		alert("EL VALOR INTRODUCIDO NO ES VALIDO");
		eval("document."+formulario+"."+casilla+".focus()");
		}
	return error;
	}
	
function completar(entrada)
	{var ob2;
	obj=String(entrada)
	 
	if (obj.indexOf(".")!=-1)
		{
		 
		 ob2=obj.split(".")
		 cadFinal=ob2[1];
		 cadInicial=ob2[0];
		}
		else
			{
			cadInicial=obj;
			cadFinal="00"
			}
	if (cadFinal.length<2)
		{
		cadFinal=cadFinal+"0";
		}
	obj=cadInicial+""+cadFinal;
	return obj;
	}
	
		
		function redondear(entrada)
			{
			 
			var sl,salida,sal;
			sl=parseFloat(entrada);
			sal=Math.round(sl*100)/100;
			 
			sal=String(sal);
			 salida=completar(sal)
			//salida=sal;
			return salida; 
			}
function aCentimetros(entrada)
	{
	with (parseInt(entrada))
		{
		 
		salida = eval("redondear("+entrada+"*2.54)");
		}
	return salida;
}
function asignarMedida(entrada)
	{var medida;
	medida=aCentimetros(entrada);
	
	return medida;
	}
function asignarPeso(entrada)
	{
	var peso;
	 peso=aKilos(entrada);
 
	return peso;
	}
function aKilos(entrada)
	{
	
	with(parseInt(entrada))
		{
		salida=eval("redondear("+entrada+"/2.20462)");
		}
	return salida;
	}
function cmgesconvierte()
	{
	with (document.cmpulgada)
		{
		pie.value = redondear(cm.value/30.84);
		pulgada.value = redondear(cm.value/2.54);
		}
}

function pulgadatiaconvierte()
	{
	with (document.cmpulgada)
		{
		cm.value = redondear(pulgada.value*2.54);
		pie.value=redondear(pulgada.value/12);
		}
	}

function pielbaconvierte(){
with (document.cmpulgada){
cm.value=redondear(pie.value*30.48);
pulgada.value=redondear(pie.value*12);
}
}



function cargaCiudaXX(ciu,capa,formulario,casilla,carga,letra)
	{
	  
	 		ciudad=eval("document."+formulario+"."+casilla+".options[document."+formulario+"."+casilla+".selectedIndex].text");
	 
	  
	var objXML=new ActiveXObject("Microsoft.XMLDOM");
	var objXSL=new ActiveXObject("Microsoft.XMLDOM");
	objXML.async=false;
	objXSL.async=false;
	 objXML.load("../../xml/"+ciudad+letra+".xml");
	 
	objXSL.load("../../xml/"+carga+".xsl");
	 
	eval(capa+".innerHTML=objXML.transformNode(objXSL)");
	  
	}
	
function validaFormularioMod()   //  formulario de pagina registro.asp
	{
	error=vacioTexto("nomb","envio"," Nombre o Razón Social");
	
	 
	
	if (error==0)
		{
		error=vacioTexto("dir","envio"," Dirección");
		}
	if (error==0)
		{
		error=vacioTexto("pob","envio"," Localidad");
		}
	 if (error==0)
		{
		error=vacioTexto("prov","envio"," Província");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","pob");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","prov");
		}
	
	if (error==0)
		{
		error=vacioTexto("codp","envio"," Código Postal");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","codp","5");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","codp");
		}
	if (error==0)
		{
		error=vacioTexto("nif","envio"," NIF");
		} 
	if (error==0)
		{
		error=CalculaNif()
		}
	if (error==0)
		{
		error=vacioTexto("tlf","envio"," Teléfono");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","tlf");
		}
	if (error==0)
		{
		error=cadenaCorrecta("envio","tlf","9");
		}
	if (error==0)
		{
		error=soloConNumeros("envio","fax");
		}
	 
	  if (error==0)
		{ 
		error=vacioTextoOculta()//("envio","moda","moda2"," Otra Actividad");
		 } 
	if (error==0)
		{
		error=vacioTexto("nombre","envio"," Personal de Contacto");
		}
	if (error==0)
		{
		error=noValenNumeros2("envio","nombre");
		}
	if (error==0)
		{
		error=vacioTexto("ema","envio"," e-Mail");
		}
	if (error==0)
		{
		error=validaMail("ema","envio");
		}
	 if (error==0)
		{
		error=vacioTexto("clave","envio"," Contraseña");
		}
	 if (error==0)
		{
		error=vacioTexto("clave","envio"," Confirmar Contraseña");
		}
	 
	if (error==0)
		{
		error=paswIgual("envio","clave","clave2");
		} 
	if (error==0)
		{
		error=emulaSubmit("envio","modificar_us.asp");
		}
	}