var cadena="                                                    Redytel Computer S.L. - Siempre Cerca de TI";
var ancho=4000;
var cabeza=0;
var cola=ancho;
var longitud=cadena.length;


function Marquesina(){
var muestracadena;
if(cabeza<cola)
	muestracadena=cadena.substring(cabeza,cola)
else
	muestracadena=cadena.substring(cabeza,longitud) + cadena.substring(0,cola);
cabeza=(cabeza+1)%longitud;
cola=(cola+1)%longitud;
window.status=muestracadena;
TimerID=setTimeout("Marquesina()",85);
}

function Arrays(){
argnr=Arrays.arguments.length;
for(var i=0;i<argnr;i++) this[i+1]=Arrays.arguments[i];
return;
}

function SacarFecha(){
var mes=new Arrays("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Novimbre","Diciembre");
var dias=new Arrays("Domingo","Lunes","Martes","Miercoles","Jueves","Viernes","Sabado");
var fecha=new Date();
document.write(dias[fecha.getDay()+1] + " " + fecha.getDate() + " de " + mes[fecha.getMonth()+1]  + " de " +fecha.getFullYear());
}

function SacarMes(){
var mes=new Arrays("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Novimbre","Diciembre");
var fecha=new Date();
document.write( mes[fecha.getMonth()+1]  + " de " +fecha.getFullYear());
}


function agregar(){
if((navigator.appName=="Microsoft Internet Explorer") && (parseInt(navigator.appVersion)>=4)){
	var url="http://www.restaurantepenacabarga.com";
	var titulo="Redytel Computer .::. La Informática cerca de Usted";
	window.external.AddFavorite(url,titulo);
}else{
	if(navigator.appName=="Netscape")
		alert("Presione Ctrl+D para agregar a Favoritos")
}
}

function asd(){

document.getElementById("divi").style["visibility"]="hidden";
document.getElementById("imagen").style["visibility"]="visible";
}

function cambioimg(imagn){
	document.all.imagen.src="imagenes/" + imagn + ".jpg";
}


function iniciar(pers)
{
var texto = new Array();
texto[0] = "<b><u><font color='#d13428'>REDYTEL COMPUTER</font></u></b>";
texto[2] = ":: Se buscan DISTRIBUIDORES a nivel Nacional.<br><a href=contactenos.html><font color=#d13428>CONTACTE</font></a> ::<br><img src=imagenes/rpeq.jpg>";
texto[3] = ":: <font color=#d13428>OFERTAS PUESTOS DE TRABAJO</font> : Necesitamos comerciales ::<br><img src=imagenes/rpeq.jpg>";
texto[4] = "::  Concecido presupuesto del Ayto. Astillero ante varias Empresas ::<br><img src=imagenes/images.jpg>";
texto[1] = "::  Ingresamos en <font color=#d13428>Gobierno de cantabria</font> para la subvención de 300 € por ordenador ::<br><img src='imagenes/raton.jpg'>"
//estilo necesario para Netscape
persiana1 = new oPersiana('Layer1', 30, texto, -1, 60, 'marco');

persiana1.actualizar('persiana1');
}

function aceptarhome() {

	if (document.forms[1].interes.value == '0,00')
	{
		alert("El interés no puede ser cero");
		document.forms[1].interes.focus();
		return false;
	}
	
	if ((document.forms[1].plazo.value < 1) || (document.forms[1].plazo.value > 35))	{
		alert("El plazo de años debe estar entre 1 y 35 años");
		document.forms[1].plazo.focus();
	}	else	{
		if (document.forms[1].opcion.value =="0")		{
			var retorno = calcula_cuota();
		}		else		{
			var retorno = calcula_total();
		}
//		document.forms[1].submit();
	}
}

function limpiar() {
	document.forms[1].opcion.value = "";
//	document.forms[1].submit();		
}

function cambiaTipo(cuota,total) {
	if (document.forms[1].opcion.value =="0") {
		cuota = cuota.split("[factor]")
		cuotaTXT = cuota[0] + form1.comboDIV.value + cuota[1]
		Tipo.innerHTML = cuotaTXT;
	}	

	else{
		Tipo.innerHTML  = total;
		}
}		


//****************************************************************************************************
//****************************************************************************************************
function ComprobarNumerico(objeto,comas,puntos,decimales,longitud) {
	var retorno,valor;
	valor = objeto.value
	
	if (!EsNumerico(objeto,objeto.value,puntos)){
		alert ("El valor introducido es erróneo: '" + valor + "'");
		objeto.focus();
		return false;
	}
	if (!ContadorComas(objeto,objeto.value,comas)) {
		alert ("El valor introducido es erróneo");
		objeto.focus();
		return false;
	}
	if (objeto.value.length>0) {
		objeto.value=(FormatearImporte(objeto.value,puntos,decimales,longitud));
	}
	return true;
}	
	

//****************************************************************************************************
//****************************************************************************************************
function EsNumerico(obj,dato,puntos)
{
	var i;
	var longitud;
	var caracter;
	var sumo = 0;
	longitud = dato.length;
	valido = "0123456789,";
	if (puntos=='s')
	{
		valido = valido + ".";
	}
	for ( i=0; i <= longitud; i++)
	{
		caracter = dato.substring(i,i+1)
		if (valido.indexOf(caracter) == -1)
		{
			obj.value = dato.substring(0,i);
			return false;
		}
	}
	return true;
}
//****************************************************************************************************
//****************************************************************************************************
function ContadorComas(obj,dato,comas)
{
  var contador;
  var i;
  contador = 0;
  for (i=0;i<dato.length;i++)
  {
		if (dato.substring(i,i+1)==",")
    {
			contador++;
      if (contador > comas)
			{
				obj.value = dato.substring(0,i);
				return false;
			}
    }
	}
	return true;		
}

//****************************************************************************************************
//****************************************************************************************************
function FormatearImporte(dato,puntos,decimales,longitud)
{
	var entero;
	var decimal;
	var i;
	var posicion;
	var enteroSin,enteroCon;
	var decimalSin,decimalCon;
	
	posicion = dato.length
  for (i=0;i<dato.length;i++)
  {
		if (dato.substring(i,i+1)==",")
		{	
			posicion = i;
		}
	}
	// Recuperamos la parte entera
	entero = dato.substring(0,posicion);
	
	// Recuperamos la parte decimal
	decimal = dato.substring(posicion + 1,dato.length);
	
	// Eliminamos los puntos de la parte entera
	enteroSin = QuitarPuntos(entero);
	
	// Quitamos los ceros a la izquierda
	enteroSin = String(QuitarCerosIzq(enteroSin));

	// Si el campo lleva puntos, se los ponemos
	enteroCon = enteroSin;
	if (puntos=='s')
		enteroCon = PonerPuntos(enteroSin);

	// Eliminamos los puntos en la parte decimal
	decimalSin = QuitarPuntos(decimal);

	// Formateamos la parte decimal
	if (decimales=='s')
	{
		decimalCon = ParteDecimal(decimalSin,longitud);
		return (enteroCon + ',' + decimalCon);
	}
	else
	{
		return (enteroCon);
	}
}

//****************************************************************************************************
//****************************************************************************************************
function QuitarPuntos(dato)
{
	var aux,i;
	aux = '';

	for (i=0;i<dato.length;i++)
	{
		if (dato.substring(i,i+1)!=".")
			aux = aux + dato.substring(i,i+1);
	}
	return aux;
}

//****************************************************************************************************
//****************************************************************************************************
function PonerPuntos(dato)
{
	var aux,i;
	aux = '';

	for (i=0;i<dato.length;i++)
	{
		if (((dato.length-i)%3)==0 && (i>0))
			aux = aux + '.';
		aux = aux + dato.substring(i,i+1);
	}
	return aux;
}

//****************************************************************************************************
//****************************************************************************************************
function ParteDecimal(dato,longitud)
{
	var aux;

	if (longitud!=dato.length)
	{
		switch (dato.length)
		{	
			case 0:
				aux = "00";
				break;
			case 1:
				aux = dato + "0";
				break;
			default :
				aux = dato.substring(0,2);
		}
	}
	else
	{
		aux = dato.substring(0,2);
	}
	return aux;
}

//****************************************************************************************************
//****************************************************************************************************
function QuitarCerosIzq(dato)
{
	aux = dato * 1;
	return aux;
}

//****************************************************************************************************
//****************************************************************************************************
function calcula_cuota()
{
	var Importe;			/* IMPORTE NOMINAL DE LA OPERACION */
	var IntTecleado		/* INTERES TECLEADO */
	var IntReal;			/* INTERES REAL */
	var Tiempo;				/* TIEMPO EN AÑOS*/
	var PeriodoAnio;	/* NUMERO DE PERIODOS EN UN AÑO */
	var Cuota;				/* VALOR DE CUOTA DE AMORTIZACION */
	var NCuotas;			/* NUMERO DE CUOTAS DE AMORTIZACION */
	var Temporal;			/* OPERANDO TEMPORAL */
	var Posicion;

	// Importe de la operacion
	Importe	= document.forms[1].Importe.value;
	Importe = QuitarPuntos(Importe);
	
	// Cambiamos la coma por un punto
	Posicion = Importe.indexOf(',');
	if (Posicion != -1)
	{
		Importe = Importe.substring(0, Posicion)+'.'+Importe.substring(Posicion+1);
	}

	// Interés tecleado
	IntTecleado = document.forms[1].interes.value;
	// Cambiamos la coma por un punto
	Posicion = IntTecleado.indexOf(',');
	if (Posicion != -1)
	{
		IntTecleado = IntTecleado.substring(0, Posicion)+'.'+IntTecleado.substring(Posicion+1);
	}

	// Tiempo en años
	Tiempo			= document.forms[1].plazo.value;
	
	// Nº de pagos en un años
	
	//PeriodoAnio = "12";
	PeriodoAnio = 12 / document.forms[1].factor.value
		
	if(document.forms[1].nuCuotas)
		{
		PeriodoAnio = document.forms[1].nuCuotas.value
		}
	// Cálculo de la cuota
	IntReal			= IntTecleado / (PeriodoAnio * 100);
	NCuotas			= PeriodoAnio * Tiempo;
	Temporal		= Math.pow((1 + IntReal), NCuotas);
	
	Cuota = (Importe * IntReal * Temporal)/(Temporal - 1);
	Cuota = String(Cuota)
	// Cambiamos el punto por una coma
	Posicion = Cuota.indexOf('.');
	if (Posicion != -1)
	{
		Cuota = Cuota.substring(0, Posicion)+','+Cuota.substring(Posicion+1);
	}
	Cuota = FormatearImporte(Cuota,'s','s','2');
	document.forms[1].salida.value = Cuota;
}

//****************************************************************************************************
//****************************************************************************************************
function calcula_total()
{
	var Importe;			/* IMPORTE NOMINAL DE LA OPERACION */
	var IntTecleado		/* INTERES TECLEADO */
	var IntReal;			/* INTERES REAL */
	var Tiempo;				/* TIEMPO EN AÑOS*/
	var PeriodoAnio;	/* NUMERO DE PERIODOS EN UN AÑO */
	var Total;				/* VALOR DE Total DE AMORTIZACION */
	var NCuotas;			/* NUMERO DE CUOTAS DE AMORTIZACION */
	var Temporal;			/* OPERANDO TEMPORAL */
	var Posicion;

	// Importe de la operacion
	Importe	= document.forms[1].Importe.value;
	Importe = QuitarPuntos(Importe);
	
	// Cambiamos la coma por un punto
	Posicion = Importe.indexOf(',');
	if (Posicion != -1)
	{
		Importe = Importe.substring(0, Posicion)+'.'+Importe.substring(Posicion+1);
	}

	// Interés tecleado
	IntTecleado = document.forms[1].interes.value;
	// Cambiamos la coma por un punto
	Posicion = IntTecleado.indexOf(',');
	if (Posicion != -1)
	{
		IntTecleado = IntTecleado.substring(0, Posicion)+'.'+IntTecleado.substring(Posicion+1);
	}

	// Tiempo en años
	Tiempo			= document.forms[1].plazo.value;

	// Nº de pagos en un años
	PeriodoAnio = "12";
	PeriodoAnio = 12 / document.forms[1].opcion.value

	IntReal			= IntTecleado / (PeriodoAnio * 100);
	NCuotas			= PeriodoAnio * Tiempo;
	Temporal		= Math.pow((1 + IntReal), NCuotas);
	
	Total = (Importe * (Temporal - 1))/(IntReal * Temporal)

	Total = String(Total)
	// Cambiamos el punto por una coma
	Posicion = Total.indexOf('.');
	if (Posicion != -1)
	{
		Total = Total.substring(0, Posicion)+','+Total.substring(Posicion+1);
	}
	Total = FormatearImporte(Total,'s','s','2');
	document.forms[1].salida.value = Total;

}
var nav4 = window.Event ? true : false;
							function acceptNum(evt){
							// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57
							var key = nav4 ? evt.which : evt.keyCode;
							
							return (key != 34);
							}



function acceptNumSolo(evt){
// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57
var key = nav4 ? evt.which : evt.keyCode;
return (key <= 13 || (key >= 48 && key <= 57));
}