function MakeArray(n) {
   this.length = n;
   for (var i = 1; i <= n; i++) { 
     this[i] = 0 }
     return this
     }
// function MakeArray()

// fonction pour déterminer la tranche tarif poids 
function TPoids(CodeZone,Pays) {
var Poids, NZoneTarif;
Tz = new MakeArray(20);
Poids = parseFloat(document.Order.TotalWeight_PoidsColis.value)
if (Poids < 250) Tz[1]=28,Tz[2]=30,Tz[3]=35,Tz[4]=36,Tz[5]=43,Tz[6]=50,Tz[7]=13.50,Tz[8]=19.50,Tz[11]=16,Tz[12]=17,Tz[13]=20,Tz[14]=21,Tz[15]=25,Tz[16]=30,Tz[17]=13.50,Tz[9]=19,Tz[10]=21.80,Tz[19]=14.30,Tz[20]=16.80;
else if (Poids < 300) Tz[1]=28,Tz[2]=30,Tz[3]=35,Tz[4]=36,Tz[5]=43,Tz[6]=50,Tz[7]=19.50,Tz[8]=27.50,Tz[11]=16,Tz[12]=17,Tz[13]=20,Tz[14]=21,Tz[15]=25,Tz[16]=30,Tz[17]=19.50,Tz[9]=30.30,Tz[10]=43.50,Tz[19]=22.80,Tz[20]=30.30;
else if (Poids < 400) Tz[1]=32,Tz[2]=32,Tz[3]=40,Tz[4]=44,Tz[5]=52,Tz[6]=63,Tz[7]=19.50,Tz[8]=27.50,Tz[11]=18,Tz[12]=19,Tz[13]=22,Tz[14]=23,Tz[15]=31,Tz[16]=35,Tz[17]=19.50,Tz[9]=30.30,Tz[10]=43.50,Tz[19]=22.80,Tz[20]=30.30;
else if (Poids < 500) Tz[1]=35,Tz[2]=35,Tz[3]=45,Tz[4]=52,Tz[5]=60,Tz[6]=72,Tz[7]=19.50,Tz[8]=27.50,Tz[11]=20,Tz[12]=21,Tz[13]=24,Tz[14]=25,Tz[15]=37,Tz[16]=42,Tz[17]=19.50,Tz[9]=30.30,Tz[10]=43.50,Tz[19]=22.80,Tz[20]=30.30;
else if (Poids < 750) Tz[1]=47,Tz[2]=49,Tz[3]=57,Tz[4]=70,Tz[5]=85,Tz[6]=105,Tz[7]=24.50,Tz[8]=34,Tz[11]=30,Tz[12]=31,Tz[13]=37,Tz[14]=38,Tz[15]=53,Tz[16]=63,Tz[17]=24.50,Tz[9]=46.50,Tz[10]=76.50,Tz[19]=31.50,Tz[20]=46.50;
else if (Poids < 1000) Tz[1]=56,Tz[2]=58,Tz[3]=70,Tz[4]=90,Tz[5]=105,Tz[6]=130,Tz[7]=24.50,Tz[8]=34,Tz[11]=35,Tz[12]=36,Tz[13]=45,Tz[14]=46,Tz[15]=67,Tz[16]=77,Tz[17]=24.50,Tz[9]=46.50,Tz[10]=76.50,Tz[19]=31.50,Tz[20]=46.50;
else if (Poids < 1250) Tz[1]=65,Tz[2]=67,Tz[3]=85,Tz[4]=110,Tz[5]=125,Tz[6]=155,Tz[7]=29.50,Tz[8]=39,Tz[11]=43,Tz[12]=44,Tz[13]=56,Tz[14]=58,Tz[15]=82,Tz[16]=90,Tz[17]=29.50,Tz[9]=74,Tz[10]=134,Tz[19]=44,Tz[20]=74;
else if (Poids < 1500) Tz[1]=69,Tz[2]=71,Tz[3]=100,Tz[4]=120,Tz[5]=145,Tz[6]=180,Tz[7]=29.50,Tz[8]=39,Tz[11]=45,Tz[12]=46,Tz[13]=62,Tz[14]=63,Tz[15]=91,Tz[16]=100,Tz[17]=29.50,Tz[9]=74,Tz[10]=134,Tz[19]=44,Tz[20]=74;
else if (Poids < 1750) Tz[1]=73,Tz[2]=75,Tz[3]=110,Tz[4]=130,Tz[5]=160,Tz[6]=205,Tz[7]=29.50,Tz[8]=39,Tz[11]=47,Tz[12]=48,Tz[13]=64,Tz[14]=65,Tz[15]=99,Tz[16]=107,Tz[17]=29.50,Tz[9]=74,Tz[10]=134,Tz[19]=44,Tz[20]=74;
else if (Poids < 2000) Tz[1]=77,Tz[2]=79,Tz[3]=120,Tz[4]=140,Tz[5]=175,Tz[6]=230,Tz[7]=29.50,Tz[8]=39,Tz[11]=49,Tz[12]=50,Tz[13]=66,Tz[14]=67,Tz[15]=106,Tz[16]=114,Tz[17]=29.50,Tz[9]=74,Tz[10]=134,Tz[19]=44,Tz[20]=74;
else if (Poids < 2500) Tz[1]=110,Tz[2]=115,Tz[3]=155,Tz[4]=220,Tz[5]=285,Tz[6]=230,Tz[7]=35.00,Tz[8]=44,Tz[11]=75,Tz[12]=75,Tz[13]=100,Tz[14]=130,Tz[15]=190,Tz[16]=210,Tz[17]=35.00,Tz[9]=109,Tz[10]=209,Tz[19]=59,Tz[20]=109;
else if (Poids < 3000) Tz[1]=135,Tz[2]=140,Tz[3]=200,Tz[4]=280,Tz[5]=370,Tz[6]=380,Tz[7]=45.00,Tz[8]=44,Tz[11]=100,Tz[12]=100,Tz[13]=135,Tz[14]=180,Tz[15]=255,Tz[16]=270,Tz[17]=35.00,Tz[9]=109,Tz[10]=209,Tz[19]=59,Tz[20]=109;
else if (Poids < 4000) Tz[1]=155,Tz[2]=160,Tz[3]=310,Tz[4]=330,Tz[5]=440,Tz[6]=450,Tz[7]=45,Tz[8]=54.50,Tz[11]=120,Tz[12]=120,Tz[13]=200,Tz[14]=225,Tz[15]=300,Tz[16]=320,Tz[17]=45.00,Tz[9]=164,Tz[10]=324,Tz[19]=84,Tz[20]=164;
else if (Poids < 5000) Tz[1]=185,Tz[2]=190,Tz[3]=355,Tz[4]=380,Tz[5]=510,Tz[6]=520,Tz[7]=45.00,Tz[8]=54.50,Tz[11]=150,Tz[12]=150,Tz[13]=245,Tz[14]=265,Tz[15]=340,Tz[16]=370,Tz[17]=45.00,Tz[9]=164,Tz[10]=324,Tz[19]=84,Tz[20]=164;
else if (Poids < 6000) Tz[1]=215,Tz[2]=230,Tz[3]=400,Tz[4]=435,Tz[5]=580,Tz[6]=590,Tz[7]=55.50,Tz[8]=64.50,Tz[11]=175,Tz[12]=180,Tz[13]=285,Tz[14]=305,Tz[15]=380,Tz[16]=420,Tz[17]=55.50,Tz[9]=234,Tz[10]=474,Tz[19]=114,Tz[20]=234;
else if (Poids < 7000) Tz[1]=235,Tz[2]=255,Tz[3]=445,Tz[4]=490,Tz[5]=635,Tz[6]=660,Tz[7]=55.50,Tz[8]=64.50,Tz[11]=195,Tz[12]=200,Tz[13]=325,Tz[14]=345,Tz[15]=420,Tz[16]=470,Tz[17]=55.50,Tz[9]=234,Tz[10]=474,Tz[19]=114,Tz[20]=234;
else if (Poids < 8000) Tz[1]=255,Tz[2]=275,Tz[3]=490,Tz[4]=545,Tz[5]=690,Tz[6]=730,Tz[7]=65.50,Tz[8]=75.00,Tz[11]=210,Tz[12]=215,Tz[13]=365,Tz[14]=385,Tz[15]=460,Tz[16]=510,Tz[17]=65.50,Tz[9]=319,Tz[10]=659,Tz[19]=149,Tz[20]=319;
else if (Poids < 9000) Tz[1]=275,Tz[2]=290,Tz[3]=535,Tz[4]=600,Tz[5]=745,Tz[6]=800,Tz[7]=65.50,Tz[8]=75.00,Tz[11]=220,Tz[12]=230,Tz[13]=405,Tz[14]=425,Tz[15]=500,Tz[16]=550,Tz[17]=65.50,Tz[9]=319,Tz[10]=659,Tz[19]=149,Tz[20]=319;
else if (Poids < 10000) Tz[1]=295,Tz[2]=305,Tz[3]=580,Tz[4]=655,Tz[5]=800,Tz[6]=870,Tz[7]=65.50,Tz[8]=75.00,Tz[11]=230,Tz[12]=245,Tz[13]=445,Tz[14]=465,Tz[15]=540,Tz[16]=590,Tz[17]=65.50,Tz[9]=319,Tz[10]=659,Tz[19]=149,Tz[20]=319;
else if (Poids < 11000) Tz[1]=305,Tz[2]=320,Tz[3]=635,Tz[4]=710,Tz[5]=855,Tz[6]=940,Tz[7]=86.00,Tz[8]=95.50,Tz[11]=240,Tz[12]=260,Tz[13]=470,Tz[14]=495,Tz[15]=580,Tz[16]=630,Tz[17]=86.00;
else if (Poids < 12000) Tz[1]=315,Tz[2]=335,Tz[3]=690,Tz[4]=765,Tz[5]=910,Tz[6]=1010,Tz[7]=86.00,Tz[8]=95.50,Tz[11]=250,Tz[12]=270,Tz[13]=495,Tz[14]=525,Tz[15]=620,Tz[16]=670,Tz[17]=86.00;
else if (Poids < 13000) Tz[1]=325,Tz[2]=350,Tz[3]=745,Tz[4]=820,Tz[5]=965,Tz[6]=1080,Tz[7]=86.00,Tz[8]=95.50,Tz[11]=260,Tz[12]=280,Tz[13]=520,Tz[14]=555,Tz[15]=660,Tz[16]=710,Tz[17]=86.00;
else if (Poids < 14000) Tz[1]=335,Tz[2]=365,Tz[3]=800,Tz[4]=875,Tz[5]=1020,Tz[6]=1140,Tz[7]=86.00,Tz[8]=95.50,Tz[11]=270,Tz[12]=290,Tz[13]=545,Tz[14]=585,Tz[15]=700,Tz[16]=750,Tz[17]=86.00;
else if (Poids < 15000) Tz[1]=345,Tz[2]=380,Tz[3]=850,Tz[4]=925,Tz[5]=1075,Tz[6]=1210,Tz[7]=86.00,Tz[8]=95.50,Tz[11]=280,Tz[12]=300,Tz[13]=570,Tz[14]=620,Tz[15]=740,Tz[16]=790,Tz[17]=86.00;
else if (Poids < 16000) Tz[1]=355,Tz[2]=395,Tz[3]=900,Tz[4]=975,Tz[5]=1130,Tz[6]=1280,Tz[7]=111.50,Tz[8]=121,Tz[11]=290,Tz[12]=310,Tz[13]=595,Tz[14]=645,Tz[15]=780,Tz[16]=830,Tz[17]=111.50;
else if (Poids < 17000) Tz[1]=370,Tz[2]=410,Tz[3]=950,Tz[4]=1025,Tz[5]=1185,Tz[6]=1350,Tz[7]=111.50,Tz[8]=121,Tz[11]=300,Tz[12]=320,Tz[13]=620,Tz[14]=670,Tz[15]=820,Tz[16]=870,Tz[17]=111.50;
else if (Poids < 18000) Tz[1]=385,Tz[2]=425,Tz[3]=1000,Tz[4]=1075,Tz[5]=1240,Tz[6]=1420,Tz[7]=111.50,Tz[8]=121,Tz[11]=310,Tz[12]=330,Tz[13]=645,Tz[14]=695,Tz[15]=860,Tz[16]=910,Tz[17]=111.50;
else if (Poids < 19000) Tz[1]=400,Tz[2]=440,Tz[3]=1050,Tz[4]=1125,Tz[5]=1295,Tz[6]=1490,Tz[7]=111.50,Tz[8]=121,Tz[11]=320,Tz[12]=340,Tz[13]=670,Tz[14]=720,Tz[15]=900,Tz[16]=950,Tz[17]=111.50;
else if (Poids < 20000) Tz[1]=415,Tz[2]=455,Tz[3]=1100,Tz[4]=1175,Tz[5]=1350,Tz[6]=1560,Tz[7]=111.50,Tz[8]=121,Tz[11]=330,Tz[12]=350,Tz[13]=695,Tz[14]=745,Tz[15]=940,Tz[16]=990,Tz[17]=111.50;
else if (Poids < 21000) Tz[1]=425,Tz[2]=470,Tz[3]=1150,Tz[4]=1225,Tz[5]=1405,Tz[6]=1630,Tz[7]=111.50,Tz[8]=121,Tz[11]=340,Tz[12]=360,Tz[13]=720,Tz[14]=770,Tz[15]=970,Tz[16]=1020,Tz[17]=111.50;
else if (Poids < 22000) Tz[1]=435,Tz[2]=485,Tz[3]=1200,Tz[4]=1275,Tz[5]=1460,Tz[6]=1700,Tz[7]=111.50,Tz[8]=121,Tz[11]=350,Tz[12]=370,Tz[13]=740,Tz[14]=790,Tz[15]=1000,Tz[16]=1050,Tz[17]=111.50;
else if (Poids < 23000) Tz[1]=445,Tz[2]=500,Tz[3]=1250,Tz[4]=1325,Tz[5]=1515,Tz[6]=1770,Tz[7]=111.50,Tz[8]=121,Tz[11]=360,Tz[12]=380,Tz[13]=760,Tz[14]=810,Tz[15]=1030,Tz[16]=1080,Tz[17]=111.50;
else if (Poids < 24000) Tz[1]=455,Tz[2]=520,Tz[3]=1300,Tz[4]=1375,Tz[5]=1570,Tz[6]=1840,Tz[7]=111.50,Tz[8]=121,Tz[11]=370,Tz[12]=390,Tz[13]=780,Tz[14]=830,Tz[15]=1060,Tz[16]=1110,Tz[17]=111.50;
else if (Poids < 25000) Tz[1]=465,Tz[2]=540,Tz[3]=1350,Tz[4]=1425,Tz[5]=1625,Tz[6]=1910,Tz[7]=111.50,Tz[8]=121,Tz[11]=380,Tz[12]=400,Tz[13]=800,Tz[14]=850,Tz[15]=1090,Tz[16]=1140,Tz[17]=111.50;
NZoneTarif = CodeZone;
if (document.Order.VitessePort.value == "1") {
  if (document.Order.Shipping_Mode_Envoi[1].checked)  NZoneTarif = CodeZone + 10;
 }

if (NZoneTarif == 7){
	if (document.Order.L_ZipCode_CodePostal.value.substring(0,2) != "" && document.Order.L_ZipCode_CodePostal.value.substring(0,2) != "67") NZoneTarif = 8;
	else if (document.Order.L_ZipCode_CodePostal.value.substring(0,2) == "" && document.Order.ZipCode_CodePostal.value.substring(0,2) != "67") NZoneTarif = 8;
	}
if (Tz[NZoneTarif] == 0) {
	window.alert("Colis postal trop lourd contactez-nous ou réduisez le poids de la commande / postal packet to heavy, please contact-us or reduce the weight of order");
  	document.Order.Quantite1.select();
  	document.Order.Quantite1.focus();
	}
else {
// initialisation montant ContreRemboursement
	ContreRemboursement=41;

// ajout cout forfaitaire emballage
	FraisExpedition=0;
	FraisExpedition = Tz[NZoneTarif]+ parseInt(document.Order.ForfaitEmballage.value*100)/100;

// spécifique Outillage 2000 Allemagne frais forcé à 18DM (* 3.35)
if (document.Order.recipient.value == "outillage2000@nsrv.com") {
	if (Pays == "Germany") {
		FraisExpedition = 36.3 + parseInt(document.Order.ForfaitEmballage.value*100)/100;
// remplacer le 28/12/99		ContreRemboursement = ContreRemboursement + (Tz[NZoneTarif] - 60.3)
		ContreRemboursement = 0	}
}
// fin specifique outillage2000

// recommandation
      // France et DOM TOM
	if (NZoneTarif == 7 || NZoneTarif == 8 || NZoneTarif == 9 || NZoneTarif == 10 || NZoneTarif == 17 || NZoneTarif == 19 || NZoneTarif == 20 ) {
		
		// calcul du prix recommandation France,Dom et TOM
		if (parseFloat(document.Order.TotalMarchandises.value) > (1000/document.Order.Devises.value)) Recommandation=22;
		else {
			if (parseFloat(document.Order.TotalMarchandises.value) > (100/document.Order.Devises.value)) Recommandation=14;
			else Recommandation=10;
			}
		// ajout recommandation
		if (document.Order.RecommandationFrance.value == "1"){
			FraisExpedition =FraisExpedition+Recommandation;
				// ajout avis réception
				if (document.Order.AvisReceptionFrance.value == "1")	
				FraisExpedition = FraisExpedition+8;
			}
		// si recommandation pas en std il faut la prévoir dans le CR
		else ContreRemboursement = ContreRemboursement+Recommandation;
		
		}
	// etranger
	else {
		Recommandation = 24;
		if (document.Order.RecommandationEtranger.value == "1"){
			FraisExpedition = FraisExpedition+Recommandation;
			if (document.Order.AvisReceptionEtranger.value == "1")	
				FraisExpedition = FraisExpedition+8;
			}
		// si recommandation pas en std il faut la prévoir dans le CR
		else ContreRemboursement = ContreRemboursement+Recommandation;
		}
      // prix forfaitaire pour la France 
	if (document.Order.ForfaitFrance.value != "0") {
	if (NZoneTarif == 7 || NZoneTarif == 8 || NZoneTarif == 17) { 
		ContreRemboursement = ContreRemboursement + FraisExpedition - parseFloat(document.Order.ForfaitFrance.value);
		FraisExpedition=parseFloat(document.Order.ForfaitFrance.value);
		}
	}


if (document.Order.CR.checked) FraisExpedition = FraisExpedition + ContreRemboursement;
document.Order.Shipping_Port.value = parseInt((FraisExpedition/document.Order.Devises.value)*100)/100;
document.Order.PrixCR.value = parseInt((ContreRemboursement/document.Order.Devises.value)*100)/100;
document.Order.Total_toPay_aPayer.value = parseFloat(document.Order.TotalMarchandises.value) + parseFloat(document.Order.Shipping_Port.value);
document.Order.Total_toPay_aPayer.value = parseInt(document.Order.Total_toPay_aPayer.value*100)/100;	
}
}
// function TPoids()
// -->
// fonction pour déterminer la zone 
function DZone() {
var Pays;
var Ord;
var CodeZone;
Ord = document.Order;
CodeZone = 0;
Pays = Ord.Country_Pays.options[Ord.Country_Pays.selectedIndex].value; 
if (Ord.L_Country_Pays.options[Ord.L_Country_Pays.selectedIndex].value != "Select") Pays = Ord.L_Country_Pays.options[Ord.L_Country_Pays.selectedIndex].value; 
if (Pays == "") CodeZone = 0;
else if (Pays == "Select") CodeZone=0;
        else if (Pays == "France") CodeZone=7;
	  else if (Pays == "France DOM") CodeZone=9;
        else if (Pays == "France TOM") CodeZone=10;
        else if (Pays == "Afghanistan") CodeZone=4;
        else if (Pays == "Albania") CodeZone=2;
        else if (Pays == "Algeria") CodeZone=2;
        else if (Pays == "American Samoa") CodeZone=5;
        else if (Pays == "Andorra") CodeZone=2;
        else if (Pays == "Angola") CodeZone=3;
        else if (Pays == "Anguilla") CodeZone=5;
        else if (Pays == "Antarctica") CodeZone=6;
        else if (Pays == "Antigua and Barbuda") CodeZone=5;
        else if (Pays == "Argentina") CodeZone=5;
        else if (Pays == "Armenia") CodeZone=4;
        else if (Pays == "Australia") CodeZone=6;
        else if (Pays == "Austria") CodeZone=1;
        else if (Pays == "Azerbaijan") CodeZone=4;
        else if (Pays == "Bahamas") CodeZone=5;
        else if (Pays == "Bahrain") CodeZone=4;
        else if (Pays == "Bangladesh") CodeZone=5;
        else if (Pays == "Barbados") CodeZone=5;
        else if (Pays == "Belarus") CodeZone=2;
        else if (Pays == "Belgium") CodeZone=1;
        else if (Pays == "Belize") CodeZone=5;
        else if (Pays == "Benin") CodeZone=5;
        else if (Pays == "Bermuda") CodeZone=5;
        else if (Pays == "Bhutan") CodeZone=5;
        else if (Pays == "Bolivia") CodeZone=5;
        else if (Pays == "Bosnia and Herzegowina") CodeZone=2;
        else if (Pays == "Botswana") CodeZone=2;
        else if (Pays == "Bouvet Island") CodeZone=6;
        else if (Pays == "Brazil") CodeZone=5;
        else if (Pays == "British Indian Ocean Territory") CodeZone=6;
        else if (Pays == "Brunei Darussalam") CodeZone=5;
        else if (Pays == "Bulgaria") CodeZone=2;
        else if (Pays == "Burkina Faso") CodeZone=3;
        else if (Pays == "Burundi") CodeZone=3;
        else if (Pays == "Cambodia") CodeZone=5;
        else if (Pays == "Cameroon") CodeZone=3;
        else if (Pays == "Canada") CodeZone=4;
        else if (Pays == "CapeVerde") CodeZone=5;
        else if (Pays == "Cayman Islands") CodeZone=5;
        else if (Pays == "Central African Republic") CodeZone=3;
        else if (Pays == "Chad") CodeZone=3;
        else if (Pays == "Chile") CodeZone=5;
        else if (Pays == "China") CodeZone=5;
        else if (Pays == "Christmas Island") CodeZone=6;
        else if (Pays == "Cocos (Keeling) Islands") CodeZone=6;
        else if (Pays == "Colombia") CodeZone=5;
        else if (Pays == "Comoros") CodeZone=5;
        else if (Pays == "Congo") CodeZone=3;
        else if (Pays == "Cook Islands") CodeZone=6;
        else if (Pays == "Costa Rica") CodeZone=5;
        else if (Pays == "Cote D'Ivoire") CodeZone=3;
        else if (Pays == "Croatia") CodeZone=2;
        else if (Pays == "Cuba") CodeZone=5;
        else if (Pays == "Cyprus") CodeZone=2;
        else if (Pays == "Czech Republic") CodeZone=2;
        else if (Pays == "Denmark") CodeZone=1;
        else if (Pays == "Djibouti") CodeZone=3;
        else if (Pays == "Dominica") CodeZone=5;
        else if (Pays == "Dominican Republic") CodeZone=5;
        else if (Pays == "East Timor") CodeZone=5;
        else if (Pays == "Ecuador") CodeZone=5;
        else if (Pays == "Egypt") CodeZone=3;
        else if (Pays == "El Salvador") CodeZone=5;
        else if (Pays == "Equatorial Guinea") CodeZone=3;
        else if (Pays == "Eritrea") CodeZone=5;
        else if (Pays == "Estonia") CodeZone=2;
        else if (Pays == "Ethiopia") CodeZone=3;
        else if (Pays == "Falkland Islands") CodeZone=5;
        else if (Pays == "Faroe Islands") CodeZone=6;
        else if (Pays == "Fiji") CodeZone=6;
        else if (Pays == "Finland") CodeZone=2;
         else if (Pays == "Gabon") CodeZone=3;
        else if (Pays == "Gambia") CodeZone=3;
        else if (Pays == "Georgia") CodeZone=5;
        else if (Pays == "Germany") CodeZone=1;
        else if (Pays == "Ghana") CodeZone=3;
        else if (Pays == "Gibraltar") CodeZone=1;
        else if (Pays == "Greece") CodeZone=1;
        else if (Pays == "Greenland") CodeZone=4;
        else if (Pays == "Grenada") CodeZone=5;
        else if (Pays == "Guadeloupe") CodeZone=9;
        else if (Pays == "Guam") CodeZone=6;
        else if (Pays == "Guatemala") CodeZone=5;
        else if (Pays == "Guinea") CodeZone=3;
        else if (Pays == "Guinea-Bissau") CodeZone=3;
        else if (Pays == "Guyana") CodeZone=9;
        else if (Pays == "Haiti") CodeZone=5;
        else if (Pays == "Heard and McDonald Islands") CodeZone=6;
        else if (Pays == "Honduras") CodeZone=5;
        else if (Pays == "Hong Kong") CodeZone=5;
        else if (Pays == "Hungary") CodeZone=2;
        else if (Pays == "Iceland") CodeZone=2;
        else if (Pays == "India") CodeZone=4;
        else if (Pays == "Indonesia") CodeZone=5;
        else if (Pays == "Iran") CodeZone=4;
        else if (Pays == "Iraq") CodeZone=4;
        else if (Pays == "Ireland") CodeZone=1;
        else if (Pays == "Israel") CodeZone=4;
        else if (Pays == "Italy") CodeZone=1;
        else if (Pays == "Jamaica") CodeZone=5;
        else if (Pays == "Japan") CodeZone=5;
        else if (Pays == "Jordan") CodeZone=4;
        else if (Pays == "Kazakhstan") CodeZone=5;
        else if (Pays == "Kenya") CodeZone=3;
        else if (Pays == "Kiribati") CodeZone=6;
        else if (Pays == "Korea, North ") CodeZone=5;
        else if (Pays == "Korea, South") CodeZone=5;
        else if (Pays == "Kuwait") CodeZone=4;
        else if (Pays == "Kyrgyzstan") CodeZone=4;
        else if (Pays == "Lao People's Democratic Republic") CodeZone=5;
        else if (Pays == "Latvia") CodeZone=6;
        else if (Pays == "Lebanon") CodeZone=4;
        else if (Pays == "Lesotho") CodeZone=3;
        else if (Pays == "Liberia") CodeZone=3;
        else if (Pays == "Libyan Arab Jamahiriya") CodeZone=4;
        else if (Pays == "Liechtenstein") CodeZone=1;
        else if (Pays == "Lithuania") CodeZone=2;
        else if (Pays == "Luxembourg") CodeZone=1;
        else if (Pays == "Macau") CodeZone=5;
        else if (Pays == "Macedonia") CodeZone=2;
        else if (Pays == "Madagascar") CodeZone=3;
        else if (Pays == "Malawi") CodeZone=3;
        else if (Pays == "Malaysia") CodeZone=5;
        else if (Pays == "Maldives") CodeZone=5;
        else if (Pays == "Mali") CodeZone=3;
        else if (Pays == "Malta") CodeZone=2;
        else if (Pays == "Marshall Islands") CodeZone=6;
        else if (Pays == "Martinique") CodeZone=9;
        else if (Pays == "Mauritania") CodeZone=3;
        else if (Pays == "Mauritius") CodeZone=5;
        else if (Pays == "Mayotte") CodeZone=9;
        else if (Pays == "Mexico") CodeZone=5;
        else if (Pays == "Micronesia, Federated States of ") CodeZone=6;
        else if (Pays == "Moldova, Republic of ") CodeZone=2;
        else if (Pays == "Monaco") CodeZone=1;
        else if (Pays == "Mongolia") CodeZone=5;
        else if (Pays == "Montserrat") CodeZone=5;
        else if (Pays == "Morocco") CodeZone=2;
        else if (Pays == "Mozambique") CodeZone=3;
        else if (Pays == "Myanmar") CodeZone=5;
        else if (Pays == "Namibia") CodeZone=3;
        else if (Pays == "Nauru") CodeZone=6;
        else if (Pays == "Nepal") CodeZone=5;
        else if (Pays == "Netherlands") CodeZone=1;
        else if (Pays == "Netherlands Antilles") CodeZone=5;
        else if (Pays == "New Caledonia") CodeZone=10;
        else if (Pays == "New Zealand") CodeZone=6;
        else if (Pays == "Nicaragua") CodeZone=5;
        else if (Pays == "Niger") CodeZone=3;
        else if (Pays == "Nigeria") CodeZone=3;
        else if (Pays == "Niue") CodeZone=6;
        else if (Pays == "Norfolk Island") CodeZone=6;
        else if (Pays == "Northern Mariana Islands") CodeZone=6;
        else if (Pays == "Norway") CodeZone=2;
        else if (Pays == "Oman") CodeZone=4;
        else if (Pays == "Pakistan") CodeZone=5;
        else if (Pays == "Palau") CodeZone=6;
        else if (Pays == "Panama") CodeZone=5;
        else if (Pays == "Papau New Guinea") CodeZone=6;
        else if (Pays == "Paraguay") CodeZone=5;
        else if (Pays == "Peru") CodeZone=5;
        else if (Pays == "Philippines") CodeZone=6;
        else if (Pays == "Pitcairn") CodeZone=6;
        else if (Pays == "Poland") CodeZone=2;
        else if (Pays == "Portugal") CodeZone=1;
        else if (Pays == "Puerto Rico") CodeZone=5;
        else if (Pays == "Qatar") CodeZone=4;
        else if (Pays == "Reunion") CodeZone=9;
        else if (Pays == "Romania") CodeZone=2;
        else if (Pays == "Russian Federation ") CodeZone=2;
        else if (Pays == "Rwanda") CodeZone=3;
        else if (Pays == "Saint Kitts and Nevis") CodeZone=6;
        else if (Pays == "Saint Lucia") CodeZone=5;
        else if (Pays == "Saint Vincent and the Grenadines") CodeZone=5;
        else if (Pays == "Samoa") CodeZone=5;
        else if (Pays == "San Marino") CodeZone=1;
        else if (Pays == "Sao Tome and Principe") CodeZone=6;
        else if (Pays == "Saudi Arabia") CodeZone=4;
        else if (Pays == "Senegal") CodeZone=3;
        else if (Pays == "Seychelles") CodeZone=5;
        else if (Pays == "Sierra Leone") CodeZone=3;
        else if (Pays == "Singapore") CodeZone=5;
        else if (Pays == "Slovakia") CodeZone=2;
        else if (Pays == "Slovenia") CodeZone=2;
        else if (Pays == "Solomon Islands") CodeZone=6;
        else if (Pays == "Somalia") CodeZone=3;
        else if (Pays == "South Africa") CodeZone=3;
        else if (Pays == "South Georgia and the South Sandwich Islands") CodeZone=6;
        else if (Pays == "Spain") CodeZone=1;
        else if (Pays == "Sri Lanka") CodeZone=5;
        else if (Pays == "St. Helena") CodeZone=6;
        else if (Pays == "St. Pierre and Miquelon") CodeZone=9;
        else if (Pays == "Sudan") CodeZone=3;
        else if (Pays == "Suriname") CodeZone=5;
        else if (Pays == "Svalbard and Jan Mayen Islands") CodeZone=5;
        else if (Pays == "Swaziland") CodeZone=3;
        else if (Pays == "Sweden") CodeZone=2;
        else if (Pays == "Switzerland") CodeZone=1;
        else if (Pays == "Syrian Arab Republic") CodeZone=4;
        else if (Pays == "Taiwan") CodeZone=5;
        else if (Pays == "Tajikistan") CodeZone=5;
        else if (Pays == "Tanzania") CodeZone=3;
        else if (Pays == "Thailand") CodeZone=5;
        else if (Pays == "Togo") CodeZone=3;
        else if (Pays == "Tokelau") CodeZone=6;
        else if (Pays == "Tonga") CodeZone=6;
        else if (Pays == "Trinidad and Tobago") CodeZone=5;
        else if (Pays == "Tunisia") CodeZone=2;
        else if (Pays == "Turkey") CodeZone=4;
        else if (Pays == "Turkmenistan") CodeZone=5;
        else if (Pays == "Turks and Caicos Islands") CodeZone=6;
        else if (Pays == "Tuvalu") CodeZone=6;
        else if (Pays == "Uganda") CodeZone=3;
        else if (Pays == "Ukraine") CodeZone=4;
        else if (Pays == "United Arab Emirates") CodeZone=4;
        else if (Pays == "United Kingdom") CodeZone=1;
        else if (Pays == "United States") CodeZone=4;
        else if (Pays == "United States Minor Outlying Islands") CodeZone=5;
        else if (Pays == "Uruguay") CodeZone=5;
        else if (Pays == "Uzbekistan") CodeZone=4;
        else if (Pays == "Vanuatu") CodeZone=6;
        else if (Pays == "Vatican City State") CodeZone=1;
        else if (Pays == "Venezuela") CodeZone=5;
        else if (Pays == "Vietnam") CodeZone=5;
        else if (Pays == "Virgin Islands (British)") CodeZone=6;
        else if (Pays == "Virgin Islands (U.S.) ") CodeZone=6;
        else if (Pays == "Wallis and Futuna Islands") CodeZone=10;
        else if (Pays == "Western Sahara") CodeZone=3;
        else if (Pays == "Yemen") CodeZone=4;
        else if (Pays == "Yugoslavia") CodeZone=2;
        else if (Pays == "Zaire") CodeZone=3;
        else if (Pays == "Zambia") CodeZone=3;
        else if (Pays == "Zimbabwe") CodeZone=3;else CodeZone=0;
Ord.Zone.value = CodeZone;
TPoids(CodeZone,Pays)
}
 // function DZone()