usuario="ictingenieros";
dominio="ictingenieros.com";
conector="@";

function dame_correo(){ 
return usuario + conector + dominio;
} 
function escribe_enlace_correo(){ 
document.write("<a href='mailto:" + dame_correo() + "'>");
} 
function escribe_fin_enlace(){ 
document.write("</a>");
} 

function ventana(a){
var a=0;
alert ("La solicitud de presupuesto ha sido enviada correctamente");
return false;
}

function getRadioButtonSelectedValue(ctrl)
{
    for(i = 0;i < ctrl.length; i++)
        if(ctrl[i].checked) return ctrl[i].value;
}

function ComprobarFormulario(a)
{
var calc =  (document.calculo.calcular.value);
var nombre =  (document.formulario.nombre.value);
var correo =  (document.formulario.correo.value);
var correo1 =  (document.formulario.correo1.value);
var pob =  (document.formulario.pob.value);
var prov =  (document.formulario.prov.value);
var fichero =  (document.formulario.ficheroplantas.value);
var acepto = (document.formulario.Acepto.checked);
var pro =  getRadioButtonSelectedValue (document.calculo.proyecto);

if (pro == "DWG") {
	if (document.calculo.dgt.checked){
		alert (" No podemos realizar el servicio de presentación en Jefatura P. de Telecomunicaciones cuando el proyecto es en formato word sin visar");
		return false;
		}
	if (document.calculo.ar.checked){
		alert (" No podemos realizar el servicio de Acta de Replanteo cuando el proyecto es en formato word sin visar");
		return false;
		}
	}

if (calc == "no") {
	alert (" Debe calcular el presupuesto pulsando: Cálculo Automático");
	return false;
	}

if (nombre == "") {
	alert (" Debe rellenar el campo: Nombre o Razón Social");
	return false;
	}

if (correo == "") {
	alert (" Debe rellenar el campo: Correo electrónico");
	return false;
	}

if (correo1 == "") {
	alert (" Debe rellenar el campo: Repita correo electrónico");
	return false;
	}

if (pob == "") {
	alert (" Debe rellenar el campo: Población");
	return false;
	}

if (prov == "") {
	alert (" Debe rellenar el campo: Provincia");
	return false;
	}

if (correo != correo1) {
	alert (" Los campos de correo no son iguales");
	return false;
	}

if (acepto == false) {
	alert (" Lea la Política de Protección de Datos y acéptela  ");
	return false;
	}
document.formulario.validar.value = "si"
document.formulario.camino.value = fichero
if (a == 10) {
	alert("Pulse Solicitar Presupuesto de ICT ");
	}
if (a == 5) {
	alert("Si ha adjuntado un archivo y dependiendo del tamaño, el envío puede tardar algunos minutos");
	}
}


function Calcular(operacion){
Operando= parseFloat (operacion);
var viv = eval (document.calculo.viviendas.value)
var loc = eval (document.calculo.locales.value)
var of = eval (document.calculo.oficinas.value)
var pau = parseFloat (eval(viv + loc + of))
var uni = eval (document.calculo.unifamiliar.value)
var blq = eval (document.calculo.bloques.value)
var proyecto=  getRadioButtonSelectedValue (document.calculo.proyecto)
var pla =eval (document.calculo.plantas.value)
var cop = eval (document.calculo.copias.value)
var genvio = eval (document.calculo.envio.value)
var dwg = false;
var bc3 = false;
var dgt = false ;
var ar = false;
var pago= eval (document.calculo.pago.value)


var	Admin	=	9.00;
var	Encuaderna	=	2.50;
var	Fundas	=	0.270;
var	Fotocopias	=	0.034;
var	PloteadoA3	=	0.775;
var	PloteadoA2	=	1.034;
var	PloteadoA1	=	1.551;
var	PloteadoA0	=	2.586;
var	FotocopiaA3	=	0.086;
var	FotocopiaA2	=	0.775;
var	FotocopiaA1	=	1.034;
var	FotocopiaA0	=	1.720;
var	nfundas = 0;
var	nfotoc = 110 + (pau * 1.1);
var	nplotA3 = 0;
var	nplotA2 = 0;
var	nplotA1 = 0;
var	nplotA0 = 0;
var	nfotA3 = 0;
var	nfotA2 = 0;
var	nfotA1 = 0;
var	nfotA0 = 0;
var planosdwg = 15;
var medicionbc3 = 10;
var presentaciondgt = 20;
var actaR = 25;
envioPen= 10.65;
envioBal= 13.76
envioIC = 40;

var coste = 0;
var coste1 = 0;
var coste2 = 0;
var coste3 = 0;
var coste4 = 0;
var coste5 = 0;
var incremento = 1.2;
var pvp = 0;
var pvp1 = 0;
var pvp2 = 0;
var gast = 0;
var iva = 0;
var iva_ = 0.18;
var total = 0;
			
var hmin= 3;
var horap= 0.1;
var vis = 0.1;

if (pau > 175) {
alert("La suma total de viviendas, oficinas y locales no debe superar 150"); 
return false;
} 
if (pau < 1) {
alert("La suma total de viviendas, oficinas y locales ha de ser al menos 1"); 
return false;
} 
<!-- Horas de trabajo //-->

	horap = hmin + (pau * 0.1) ;

<!--alert ("PAUS  " + pau + "horas proyecto  " + horap) //-->

<!-- Gastos visado //-->

	if (pau < 21) {
	vis= 44 + (1.5 * pau)
	}
 	else {
	vis= 74 + (1.4 * (pau - 20));
	}

<!-- alert ("vis  " + vis)//-->

if (proyecto == "PDF" ) {
	cop= 0;
	}
if (proyecto == "DWG") {
	cop= 0;
	}
<!-- alert ("copias "+ cop) //-->

<!-- Gastos de impresión //-->

if (cop > 0) {
<!-- Gastos impresión A3 //-->
	nplotA3= 2;
<!-- 	alert ("uni  " + uni);  //-->
<!-- Gastos impresión A2 //-->
	if (pau < 21) {
	nplotA2 = 5;
	}
	if (pau >20) {
	if (pau < 51) {
	nplotA2 = 4;
	}
	}
	if (pau > 50 ) {
	if (pau < 76) {
	nplotA2 = 3;
	}
	}
	if (pau > 75 ) {
	if (pau < 101) {
	nplotA2 = 2;
	}
	}
	if (pau > 100 ) {
	if (pau < 176) {
	nplotA2 = 1;
	}
	}
<!-- Gastos impresión A1 //-->
	if (pau < 21) {
	nplotA1 = 3;
	}
	if (pau >20) {
	if (pau <126) {
	nplotA1 = 4;
	}
	}
	if (pau > 125) {
	if (pau < 176) {
	nplotA1 = 3;
	}
	}
<!-- Gastos impresión A0 //-->
	if (pau < 11) {
	nplotA0 = 0;
	}
	if (pau >10) {
	if (pau <31) {
	nplotA0 = 1;
	}
	}
	if (pau > 30) {
	if (pau < 51) {
	nplotA0 = 2;
	}
	}
	if (pau > 50) {
	if (pau < 76) {
	nplotA0 = 3;
	}
	}
	if (pau > 75) {
	if (pau < 101) {
	nplotA0 = 4;
	}
	}
	if (pau > 100) {
	if (pau < 126) {
	nplotA0 = 5;
	}
	}
	if (pau > 125) {
	if (pau < 176) {
	nplotA0 = 7;
	}
	}
}

<!--alert ("ploteado "+ nplotA3 + "  " + nplotA2 +  "  " +  nplotA1 + "  " + nplotA0)//-->

nfotA3	=	(cop-1) * nplotA3;
nfotA2	=	(cop-1) * nplotA2;
nfotA1	=	(cop-1) * nplotA1;
nfotA0	=	(cop-1) * nplotA0;

<!-- Gastos Fundas //-->
	if (pau < 11) {
	nfundas = 3;
	}
	if (pau > 10) {
	if (pau < 51) {
	nfundas = 4;
	}
	}
	if (pau > 50) {
	if (pau < 101) {
	nfundas =5;
	}
	}
	if (pau > 100) {
	if (pau < 151) {
	nfundas =6;
	}
	}
	if (pau > 150) {
	if (pau < 176) {
	nfundas = 7;
	}
	}

<!--alert alert ("fundas   " + nfundas); //-->
<!--alert alert ("fotocopias "+ nfotoc + "  " + nfotA3 + "  " + nfotA2 +  "  " +  nfotA1 + "  " + nfotA0) //-->
<!--alert (document.calculo.dwg.checked + "  " + document.calculo.bc3.checked + "  " + document.calculo.dgt.checked) //-->

if (document.calculo.dwg.checked){
coste2 = planosdwg;
}if (document.calculo.bc3.checked){
coste2 = coste2 + medicionbc3;
}
if (document.calculo.dgt.checked){
coste2 = coste2 + presentaciondgt;
}
if (document.calculo.ar.checked){
coste2 = coste2 + actaR;
}

if (proyecto == "DWG"){
coste1 = (horap * 35)
coste3 = 0;
	if (document.calculo.bc3.checked){
	coste2 = medicionbc3;
	}
	else {
	coste2 = 0;
	}

coste4 = 0;
coste5 =15; 
coste = (Math.round ((coste1+ coste2 + coste3 +  coste4 + coste5) * 100))/100;
<!-- alert ("coste   " + coste);//-->
pvp_ = (Math.round ((coste1) * (1/(1-0.4)) *100))/100;
pvp= (Math.round ((pvp_ + coste5 + coste2)*100*(pago/100)))/100;
}

if (proyecto == "PDF_"){
coste1 = (horap * 35);
if (pau < 101) {
	coste3 = vis + Admin - 7;
	}
	else{
	coste4 = coste3 = vis + Admin - 3;
	}

coste4 = cop * (Encuaderna + (Fundas * nfundas) + (Fotocopias * nfotoc));
coste5 = (nfotA3 * FotocopiaA3) + (nfotA2 * FotocopiaA2) + (nfotA1 * FotocopiaA1) + (nfotA0 * FotocopiaA0) +  (nplotA3 * PloteadoA3) + (nplotA2 * PloteadoA2) + (nplotA1 * PloteadoA1) + (nplotA0 * PloteadoA0); 
coste = (Math.round ((coste1+ coste2 + coste3 +  coste4 + coste5) * 100))/100;
	if (pau < 11) {
	pvp_ = (Math.round ((coste1+ coste3 +  coste4 + coste5) * (1/(1-0.36))*100))/100;
	pvp= (Math.round ((pvp_ + coste2)*(pago/100)*100))/100;
	}
	if (pau > 10) {
	if (pau <21) {
	pvp_ = (Math.round ((coste1+ coste3 +  coste4 + coste5) * (1/(1-0.37)) *100))/100;
	pvp= (Math.round ((pvp_ + coste2)*(pago/100)*100))/100;
	}
	}
	if (pau > 20) {
	if (pau <51) {
	pvp_ = (Math.round ((coste1+ coste3 +  coste4 + coste5) * (1/(1-0.38)) *100))/100;
	pvp= (Math.round ((pvp_ + coste2)*(pago/100)*100))/100;
	}
	}
	if (pau > 50) {
	if (pau <101) {
	pvp_ = (Math.round ((coste1+ coste3 +  coste4 + coste5) * (1/(1-0.39)) *100))/100;
	pvp= (Math.round ((pvp_ + coste2)*(pago/100)*100))/100;
	}
	}
	if (pau > 100) {
	if (pau < 176) {
	pvp_ = (Math.round ((coste1+ coste3 +  coste4 + coste5) * (1/(1-0.4)) *100))/100;
	pvp= (Math.round ((pvp_ + coste2)*(pago/100)*100))/100;
	}
	}
}
if (proyecto == "PDF"){
coste1 = (horap * 35);
coste3 = vis + Admin ;

if (pau < 101) {
	coste4 = -7;
	}
	else{
	coste4 = -3;
	}

coste5 = 0;
coste = (Math.round ((coste1+ coste2 + coste3 +  coste4 + coste5) * 100))/100;
pvp_ = (Math.round ((coste1+ coste3 +  coste4 + coste5) * (1/(1-0.4)) *100))/100;
pvp= (Math.round ((pvp_ + coste2)*(pago/100)*100))/100;
}

<!-- alert ("costes  " + coste1 + "  "+ coste2 +"  "+ coste3 + "  " + coste4 + "  " + coste5); //-->


pvp_1 = (Math.round ((incremento * pvp)*100))/100 ;
document.calculo.pvp.value = pvp;
document.calculo.pvp_1.value = pvp_1;
document.formulario.pvp.value = pvp;
document.formulario.pvp_1.value = pvp_1;


<!--alert ("Envio  " + genvio);//-->

if (proyecto == "PDF_") {
	if (genvio == 3){
	document.calculo.gastos.value = (Math.round (envioIC  *(pago/100)*100))/100;
	document.calculo.gastos_1.value = (Math.round (envioIC  *(pago/100)*100))/100;
	document.formulario.gastos.value = (Math.round (envioIC  *(pago/100)*100))/100;
	<!--alert ("Envio  C " + genvio);//-->
	}
	if (genvio == 2){
	document.calculo.gastos.value = (Math.round (envioBal  *(pago/100)*100))/100;
	document.calculo.gastos_1.value = (Math.round (envioBal  *(pago/100)*100))/100;
	document.formulario.gastos.value = (Math.round (envioBal  *(pago/100)*100))/100;
	<!--alert ("Envio  B " + genvio);//-->
	}
	if (genvio == 1) {
	document.calculo.gastos.value = (Math.round (envioPen  *(pago/100)*100))/100;
	document.calculo.gastos_1.value = (Math.round (envioPen  *(pago/100)*100))/100;
	document.formulario.gastos.value = (Math.round (envioPen  *(pago/100)*100))/100;
	<!--alert ("Envio  Pen" + genvio + "  " + ((Math.round (envioPen  *(pago/100)*100))/100));//-->
	}
}
else {
	document.calculo.gastos.value = 0;
	document.calculo.gastos_1.value = 0;
}

<!--alert ("costes  " + coste) ;//-->

gast = eval (document.calculo.gastos.value) ;
pvp1 =  (Math.round ((gast + pvp)*100))/100 ; 
pvp1_1 =  (Math.round ((gast + pvp_1)*100))/100 ; 

<!-- alert ("pvp   "+ pvp + "pvp1   "+ pvp1);//-->

document.calculo.pvp1.value = pvp1;
document.calculo.pvp1_1.value = pvp1_1;
document.formulario.pvp1.value = pvp1;
document.formulario.pvp1_1.value = pvp1_1;

iva = (Math.round ((iva_ * pvp1) * 100)) /100;
iva_1 = (Math.round ((iva_ * pvp1_1) * 100)) /100;
document.calculo.iva.value = iva;
document.calculo.iva_1.value = iva_1;
document.formulario.iva.value = iva;
document.formulario.iva_1.value = iva_1;


total = (Math.round (((iva_+1) * pvp1) * 100)) /100;
total_1 = (Math.round (((iva_+1) * pvp1_1) * 100)) /100;

document.calculo.total.value = total;
document.calculo.total_1.value = total_1;
document.formulario.total.value = total;
document.formulario.total_1.value = total_1;

document.formulario.vivienda.value = viv;
document.formulario.local.value = loc;
document.formulario.oficinas.value = of;

document.calculo.calcular.value = "si"

if (uni > 0){
	document.formulario.unifam.value = "SI";
	document.formulario.bloque.value = "-----";
	document.formulario.planta.value = "-----";

}
if (uni < 1){
	document.formulario.unifam.value = "NO";
	document.formulario.bloque.value = blq;
	document.formulario.planta.value = pla;
}
if (proyecto == "DWG"){
	document.formulario.proyecto.value = "Documento Word y planos DWG"; 
	document.formulario.copia.value = "----";
	document.formulario.envio.value = "----";
	var servicio = "-----"
	document.formulario.servicio.value = servicio;
}

if (proyecto == "PDF_"){
	document.formulario.proyecto.value = "Proyecto visado y copias en papel";
	document.formulario.copia.value = cop; 
	if (genvio == 1){
	document.formulario.envio.value = "Envio a la Península";
	}
	if (genvio == 2){
	document.formulario.envio.value = "Envio a las Islas Baleares";
	}
	if (genvio == 3){
	document.formulario.envio.value = "Envio a las Islas Canarias, Ceuta, Melilla";
	}
	
	var servicio = " "
	if (document.calculo.dwg.checked){
		servicio = "Planos en DWG ";
	}
	if (document.calculo.bc3.checked){
		servicio = servicio + " - Medicion en bc3";
	}
	if (document.calculo.dgt.checked){
		servicio = servicio + " - Presentacion en D.Prov. de Teleco.";
	}
	if (document.calculo.ar.checked){
		servicio = servicio + " - Acta de Replanteo.";
	}
	document.formulario.servicio.value = servicio;
}

if (proyecto == "PDF"){
	document.formulario.proyecto.value = "Proyecto visado en PDF";
	document.formulario.copia.value = "----";
	document.formulario.envio.value = "----";
	
	var servicio = "-----"
	if (document.calculo.dwg.checked){
		servicio = "Planos en DWG";
	}
	if (document.calculo.bc3.checked){
		servicio = servicio + " Medicion en bc3";
	}
	if (document.calculo.dgt.checked){
		servicio = servicio + " Presentacion en D.Prov. de Teleco.";
	}
	if (document.calculo.ar.checked){
		servicio = servicio + " Acta de Replanteo.";
	}
	document.formulario.servicio.value = servicio;
}
if (pago == "100"){
	document.formulario.fpago.value = "Anticipado";
}
if (pago == "102"){
	document.formulario.fpago.value = "A la entrega";
}
if (pago == "104"){
	document.formulario.fpago.value = "30 días";
}
if (pago == "106"){
	document.formulario.fpago.value = "60 días";
}
}