(document.all)?	document.write('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="css/formulariosie.css">') : document.write('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="css/formulariosns.css">');	
var optmoneda="<OPTION VALUE=EUR>Euro</OPTION>";
var moneda=optmoneda.substring(14,17);
var moneda_tar="EUR";  // PARA PROBAR SI SE DESEA CAMBIAR EN OPERATIVA ELIMINAR EL OPION DE PESETAS EN LA VARIABLE optmoneda
function consolida_moneda(mon,indice_pagina)
{
cambio_moneda(mon,indice_pagina);
moneda=mon
}
function cambio_moneda(tipo,indice_pagina,borrar)
{
moneda=tipo;
if(tipo=="ESP")
	movepic(top.PATH_PAG+'images/peseta1.gif',indice_pagina,borrar);
else
	movepic(top.PATH_PAG+'images/euro1.gif',indice_pagina,borrar);
}

function movepic(img_src,indice_pagina,borrar) {
	for(i=0;i<document.images.length;i++)
	{
		if(document.images[i].name.indexOf("MON")!=-1)
			{
			document[document.images[i].name].src=img_src;
			if(moneda!=parent.arriba.moneda_activa[indice_pagina] || borrar)
			{
				document.forms[0].elements[document.images[i].name.substring(document.images[i].name.indexOf("MON_")+4,document.images[i].name.length)].value="";
			}
			}
	}
}
function CadenaNumerica_Var(cadena,tipo)
{
        var i, long_cad=cadena.length;
if(!tipo)
    {
        for ( i=0; i < parseInt(long_cad,10); i++ ) {
                if ( (cadena.substring(i,i+1) < "0") || (cadena.substring(i,i+1) > "9") ) {
                        return (1);
                }
        }
	}
else if(tipo=="ESP")
{
	        for ( i=0; i < parseInt(long_cad,10); i++ ) {
                if ( (cadena.substring(i,i+1) < "0") || (cadena.substring(i,i+1) > "9")) {
                        return (1);
                }
        }
}
else if(tipo=="EUR")
{
	      if(CheckDec(tipo,cadena)!=0 && long_cad>0)
	      {
	      return (1);
	      }
}
	return (0);
}
function EstaRelleno_Var(bvalor){
      if ( bvalor.value.length != 0 )
            return (0);
      else
            return (1);
}
function convierte_numerico(cantidad)
{
	cantidad=cantidad.replace(/,/gi,".");
	
	return(parseFloat(cantidad));
}

function CheckDec(tipo,money) 
{
	var taska=0; 
        var a=0;
if(tipo=="EUR")
{
	if (money.length == 0)
	{
              	return (4);
	} 
        for( var i=0; i<money.length;i++)
	{
        	var ch=money.charAt(i);
	      	if(isNaN(ch) == true || ch==" ")
                {
                	if ( ch !=',') 
					            return (1);    
					else
						{
                        	a++;
                                if (a>1)
						return (2); 
                        }
                }
                if (a==1)
                {
                	taska++;
                        if (taska>3)
                                return (3);
                }
        }
}
	return(0);
}  
/***********PESETA-EURO**********************/
function CreaTextArea_Var(nombre,filas,columnas,max)
{
	var TextArea="";
	TextArea +="<textarea name="+nombre+" wrap=physical cols="+columnas+" rows="+filas;
	TextArea +=" onKeyDown=checkMaxInput(this,"+max+");";
	TextArea +=" onKeyUp=checkMaxInput(this,"+max+")></textarea>";
	document.write(TextArea);
}

function CheckMaxInput_Var(texto,maxLen)
{
	if((event.keyCode>=34 && event.keyCode<=40) || event.keyCode==46 || event.keyCode==8)
	{
	}
	else
	{
		if (text.value.length > longi-1)
		{
		text.value = text.value.substring(0, longi-1);
		alert("Intenta sobrepasar el Limite del campo");
        	}
	}
}

function DarFormatoNum_Var(scantidad,sformato)
{

	if ( (scantidad==null) || (scantidad == ""))
		return ("0");
	if (sformato=='') return (scantidad);
	var sr = '';
	var negativo=false;
	
	var bTieneE = (scantidad.split('E').length >1);
	
	if (scantidad.substring(0,1)=="-")
	{   
	  scantidad=scantidad.substring(1,scantidad.length);
	  negativo=true;
	}
	var bTieneDecimales = (scantidad.split(',').length>1);

	var parteEntera=scantidad.split(',')[0];
	var parteDecimal ;
	if (bTieneDecimales)
		parteDecimal=scantidad.split(',')[1];
		
	var bFormatoConDecimales = (sformato.split(',').length > 1);
	sformatoEntero = sformato.split(',')[0];
	
	switch (sformatoEntero)
	{
	case "p": // separador de miles pesetas
				var inicial = parteEntera;
				var longitud =inicial.length;
				while (longitud > 3)
				{
					sr = '.' + inicial.substring(longitud-3,longitud) + sr;
					inicial = inicial.substring(0,longitud-3);
					longitud=inicial.length;
				}
				sr = inicial.substring(longitud-3,longitud) + sr;
				if (bTieneDecimales)
					sr = sr + ','+parteDecimal.substring(0,2);
				break;
	case "p1d": // entero con separador de miles pesetas con un solo decimal
				var inicial = parteEntera;
				var longitud =inicial.length;
				while (longitud > 3){
					sr = '.' + inicial.substring(longitud-3,longitud) + sr;
					inicial = inicial.substring(0,longitud-3);
					longitud=inicial.length;
				}
				sr = inicial.substring(longitud-3,longitud) + sr;
				if (bTieneDecimales)
					sr = sr + ','+parteDecimal.substring(0,1);
				break;														
	case "m": // cantida a millones y separador de miles
		 		var iCifra = parseInt(parteEntera,10);
				var miles = iCifra/1000;
				var resto = iCifra%1000;
				sr = DarFormatoNum_Var('' + miles+'.'+resto,"p");
				break;
	case "M": // cantida a millones y separador de miles
				var iCifra = parseInt(parteEntera,10);
				var millones = iCifra/1000000;
				var resto = iCifra%1000000;
				sr = DarFormatoNum_Var('' + millones+'.'+resto,"p");
				break;
	case "mM": // cantida a miles de millones y separador de miles
				var iCifra = parseInt(parteEntera,10);
				var milesMillones = iCifra/1000000000;
				var resto = iCifra%1000000000;
				sr = DarFormatoNum_Var('' + milesMillones+'.'+resto,"p");
				break;	
	case 'n':
				sr = parteEntera;
				break;						
	case "nsd": // entero con separador de miles pesetas y sin decimales
				var inicial = parteEntera;
				var longitud =inicial.length;
				while (longitud > 3){
					sr = '.' + inicial.substring(longitud-3,longitud) + sr;
					inicial = inicial.substring(0,longitud-3);
					longitud=inicial.length;
				}
				sr = inicial.substring(longitud-3,longitud)+sr;
				if (bTieneDecimales)
					sr = sr +parteDecimal.substring(0,0);
				break;																					
	case "%":
				if (bTieneE)
					return '0';	
				sr=parteEntera;
				if (bTieneDecimales)
					sr = sr + ','+parteDecimal.substring(0,2);
				break;				
	default: sr=scantidad;		
	}
	
	if (negativo)
	   sr="-"+sr;
	return sr;	
}

function Redondeo_Var(number,X) 
{
	X = (!X ? 2 : X);
	return Math.round(number*Math.pow(10,X))/Math.pow(10,X);
}

function EliminaSubCadena_Var(cadena,subcadena)
{
   var aux;

   if(cadena.length==0)
      return cadena;
   if (subcadena)
      scarAquitar=subcadena;
   else
      scarAquitar="";
  
   for(i=0;i<cadena.length;i++) {
      if(cadena.charAt(i)==scarAquitar.substring(0,1)) {
         if(cadena.substring(i,i+scarAquitar.length)==scarAquitar) {
            cadena=cadena.substring(0,i)+cadena.substring(i+scarAquitar.length,cadena.length);
	    i=-1;                 
         }
      }
   }

   return cadena;
}

function ColocaImprimir_Var(nombremarco)
{
var retorno="";
if(!nombremarco)
var nombremarco="";

   if(window.print)
       retorno="<A href=\"JavaScript:Imprimir_Var(\'"+nombremarco+"\')\"><img src=\"images/boton_b_aceptar.gif\" border=0><font color=#2032B3><b>Imprimir</b></font></a>"
    else
	retorno="Pulse <font color=#2032B3><b>Ctrl+P</b></font> para Imprimir";

document.write(retorno);
}

function Imprimir_Var(nombremarco)
{
var navname = navigator.appName.substring(0,8)
var navver = eval(navigator.appVersion.substring(0, 1))
	if (navname == "Microsof") 
 	{
         if(nombremarco!="")
          eval(nombremarco).focus();
	  print();
	}

	if (navname == "Netscape") 
	{
	if(nombremarco!="")
            eval(nombremarco).print();
        else
           print();
	}
}

function comprueba(para1){
	var cont = 0
	var cont2 = 0
	var prohibidas = "&()=?{}Çç¿*^¨."
	para1 = eval("document.forms[0]."+para1+".value")
	for (cont=0;cont<para1.length;cont++)
	{
		for (cont2=0;cont2<prohibidas.length;cont2++)
		{
			if (para1.substring(cont,cont+1)==prohibidas.substring(cont2,cont2+1) )
			{
				return (false)	
			}
		}
	}
	return (true)
} 			

function telefonoVal(telefono,prefijo,provincia)
{
if(isNaN(telefono))
	return(1)
	
 if(!provincia && !prefijo)
 {
	if(sin_prefijo(telefono))
		return(1);
	else
		return(0);	
 }
 if(existe_prefijo(prefijo,provincia))
 	return(1);
 else
 {
 	if(telefono.length+prefijo.length!=9)
	{
 		return(1);
	}
	else
		return(0);
 }
}
function sin_prefijo(telefono)
{
	if(telefono.length!=9)
	  return(1);
var prefijo=telefono.substring(0,3);	  
var prefijo2=telefono.substring(0,2);
	  if(top.tabla_prefijos_moviles[prefijo]==true)
		return(0)
	  else if(top.tabla_prefijos_moviles[prefijo]!=true)
	  {
	  	for(i=1;i<top.tabla_prefijos_fijos.length;i++)
		if(top.tabla_prefijos_fijos[i]==prefijo || top.tabla_prefijos_fijos[i]==prefijo2)
			return(0);
	  }

return(1);
}
function existe_prefijo(prefijo,provincia)
{
var encontrado=1;	
	prefijo=new String(prefijo);
if(top.tabla_prefijos_moviles[prefijo]==true)
	encontrado=0;

else if(!provincia)
	{
	for(i=1;i<top.tabla_prefijos_fijos.length;i++)
		{
		if(top.tabla_prefijos_fijos[i]==prefijo)
				encontrado=0;
		}
	}		
else if(provincia)
	{
		provincia=parseInt(provincia,10);
		if(!top.tabla_prefijos_fijos[provincia])
			return(encontrado);
		else
			{
				if(top.tabla_prefijos_fijos[provincia]!=prefijo)
					return(encontrado);
			}
		encontrado=0;
	}
	return(encontrado);
}