<!-- Script de calculs multiselections pour le formulaire de commande de CDs Telimage-->
<!-- Copyright www.telimage.com 2003, www.frank.tizzoni.com02.com 2003-->
<!-- MAJ : 20 novembre 2003 -->


<!-- formatage monetaire -->
function format(valeur,decimal,separateur) {
// formate un chiffre avec 'decimal' chiffres après la virgule et un separateur
	var deci=Math.round( Math.pow(10,decimal)*(valeur-Math.floor(valeur)) );
	var val=Math.abs(Math.floor(valeur));
	if ((decimal==0)||(deci==Math.pow(10,decimal))) {val=Math.abs(Math.round(valeur)); deci=0;}
	var val_format=val+"";
	var nb=val_format.length;
	for (var i=1;i<4;i++) {
		if (val>=Math.pow(10,(3*i))) {
			val_format=val_format.substring(0,nb-(3*i))+separateur+val_format.substring(nb-(3*i));
		}
	}
	if (decimal>0) {
		if (deci>0) {
			deci=deci.toString();
		} else {
			deci="";
			for (var j=0;j<decimal;j++) deci+="0";
		}
		val_format=val_format+"."+deci.substring(0); 
	}
	if (parseFloat(valeur)<0) {val_format="-"+val_format;}
	return val_format;
}

function Calcul() {
<!-- relevé des champs, stockage et concaténation, les champs vides sont considérés comme "nuls" mais laissés vide -->
<!-- CD Dubuffet -->
if (document.CommandeCDTelimage.CDdubuffet.value==0||document.CommandeCDTelimage.CDdubuffet.value.length==0){
F1=0;
E1="";
}else{
F1=parseInt(document.CommandeCDTelimage.CDdubuffet.value);
E1=F1+" exemplaire(s) du CD dubuffet  \r" ;
}
<!-- CD 3945 -->
if (document.CommandeCDTelimage.CD3945.value== 0||document.CommandeCDTelimage.CD3945.value.length == 0){
F2=0;
E2="";
}else{
F2=parseInt(document.CommandeCDTelimage.CD3945.value);
for (i=0;i<document.CommandeCDTelimage.langue3945.length;i++)
if(document.CommandeCDTelimage.langue3945[0].checked==true){
E2=F2+" exemplaire(s) du CD 3945 Francais  \r" ;
}
if(document.CommandeCDTelimage.langue3945[1].checked==true){
E2=F2+" exemplaire(s) du CD 3945 Anglais  \r" ;
}
}
<!-- CD Man Ray -->
if (document.CommandeCDTelimage.CDManRay.value== 0||document.CommandeCDTelimage.CDManRay.value.length == 0){
F3=0;
E3="";
}else{
F3=parseInt(document.CommandeCDTelimage.CDManRay.value);
for (i=0;i<document.CommandeCDTelimage.langueMR.length;i++)
if(document.CommandeCDTelimage.langueMR[0].checked==true){
E3=F3+" exemplaire(s) du CD Man Ray Francais  \r" ;
}
if(document.CommandeCDTelimage.langueMR[1].checked==true){
E3=F3+" exemplaire(s) du CD Man Ray Anglais  \r" ;
}
}
<!-- CD Marine -->
if (document.CommandeCDTelimage.CDMarine.value== 0||document.CommandeCDTelimage.CDMarine.value.length == 0){
F4=0;
E4="";
}else{
F4=parseInt(document.CommandeCDTelimage.CDMarine.value);
E4=F4+" exemplaire(s) du CD Collection du Roy  \r" ;
}
<!-- CD 100 declics -->
if (document.CommandeCDTelimage.CD100declics.value== 0||document.CommandeCDTelimage.CD100declics.value.length == 0){
F5=0;
E5="";
}else{
F5=parseInt(document.CommandeCDTelimage.CD100declics.value);
E5=F5+" exemplaire(s) du CD 100 declics  \r" ;
}
<!-- CD Sculpt -->
if (document.CommandeCDTelimage.CDSculpt.value== 0||document.CommandeCDTelimage.CDSculpt.value.length == 0){
F6=0;
E6="";
}else{
F6=parseInt(document.CommandeCDTelimage.CDSculpt.value);
E6=F6+" exemplaire(s) du CD Sculpt" ;
}
//concaténation d'une expression "quantité et références" et renvoi de celle-ci
document.CommandeCDTelimage.references.value=(E1+E2+E3+E4+E5+E6) ;
//parent.cadrehaut.document.ElementsCaches.quantite_et_references_CDs.value =(E1+E2+E3+E4+E5+E6) ;
<!-- constantes prix -->
TF1=(F1*10.00);
TF2=(F2*37.95);
TF3=(F3*37.95);
TF4=(F4*19.95);
TF5=(F5*27.30);
TF6=(F6*25.75);
<!-- calcul du total franco de port -->
TTF=(TF1+TF2+TF3+TF4+TF5+TF6);
<!-- formatage monétaire -->
var val=TTF;
var deci=2;
document.CommandeCDTelimage.TOT.value=format(val,deci," ");
<!-- calcul des frais de ports -->
STOT=parseInt(document.CommandeCDTelimage.TOT.value);
FPfrancemetropole = 6 ;
FPfranceDOM = 22 ;
FPeuropeCE = 12.80 ;
<!-- valeurs boutons radio -->
for (i=0;i<document.CommandeCDTelimage.destination.length;i++)
if(document.CommandeCDTelimage.destination[0].checked==true){
	TFP=(FPfrancemetropole*(F1+F2+F3+F4+F5+F6))
}
if(document.CommandeCDTelimage.destination[1].checked==true){
	TFP=(FPfranceDOM*(F1+F2+F3+F4+F5+F6))
}
if(document.CommandeCDTelimage.destination[2].checked==true){
	TFP=(FPeuropeCE*(F1+F2+F3+F4+F5+F6))
}
if (TTF > 80) {
TFP=(0)
}
var val=TFP;
var deci=2;
document.CommandeCDTelimage.FP.value=format(val,deci," ");

<!-- calcul du total -->
TOTAL=(TTF+TFP)
var val=TOTAL;
var deci=2;
document.CommandeCDTelimage.TTOT.value=format(val,deci," ");
}