/**************************************** 
*	JavaScript Bibliothek		* 
*	(c)2001-06 by Ralph Marx	* 
****************************************/ 
var ssersatz="bot_fam1.html?o-1-100+0-0-0+gaAabdegfachajag-0+.html";
var sspositiv=/\?[og]-[1-8]-[0-4]\d\d\+(([cmy]|([0-8]\d)|\d)[-+]){1,3}[0a-koA-KO]{16}-[01]\+\.html/;
var preisart,mm,gmm,fpreis=0.0,teuergi;
var kor,teuer=0.0,preis,farbet="";
var farbe=new Array(4),prozent=new Array(51);

function bot_fam1(ziel){
	sslesen();
	ss[0]=((ziel==3)?"bot_fam3.html?":((ziel==4)?"bot_fam4.html?":"bot_fam2.html?"));
	auswerten1phs(488,6);
	location.href=ss[0]+ss[1]+ss[2]+"+"+ss[3]+"+"+ss[4];
}

function bot_fam2(ziel){
	sslesen();
	ss[0]=((ziel==1)?"bot_fam1.html?":((ziel==4)?"bot_fam4.html?":"bot_fam3.html?"));
	auswerten2sw_f();
	location.href=ss[0]+ss[1]+"+"+ss[2]+ss[3]+"+"+ss[4];
}

function bot_fam3(ziel){
	ss[0]=((ziel==1)?"bot_fam1.html?":((ziel==2)?"bot_fam2.html?":"bot_fam4.html?"));
	if(auswerten3g(gl,3,/.(0{15})/)){
		location.href=ss[0]+ss[1]+"+"+ss[2]+"+"+ss[3]+"+"+ss[4];
	}
}

function bot_fam_pre(){
	var farbe_a1a2a3=false;
	teuer=0.0;
	// (GNZ)    und (nicht Ap  oder A      oder A1     oder B)
	if(g[0].check&&(!(g[1].check||g[2].check||g[3].check||g[4].check))){
		g[0].preis[3]=0.41;
		g[0].preis[4]=0.35;
	}else{
		g[0].check=false;
	}
	g[0].farbpreis[1]=38.82;
	g[0].farbpreis[2]=77.64;
	g[0].farbpreis[3]=112.94;
	g[0].farbpreis[4]=33.0;
	g[0].farbpreis[5]=66.0;
	g[0].farbpreis[6]=96.0;
	for(i=1;i<gl;i++){
		if(g[i].check&&((g[i].preis[preisart]*gmm+g[i].farbpreis[farbe[0]])>teuer)){
			teuer=g[i].preis[preisart]*gmm+g[i].farbpreis[farbe[0]];
			teuergi=i;
		}
	}
	preis=g[teuergi].preis[preisart];
	fpreis=(g[teuergi].farbpreis[farbe[0]]);
	if(g[teuergi].farbtyp==0){
		farbe_a1a2a3=true;
	}

	for(i=0;i<gl;i++){	//Preis berechnen 
		if( (i!=teuergi) && (g[i].check) ){
			preis+=(g[i].preis[preisart]*prozent[g[i].ebene]);
			if((g[i].farbtyp==0)&&(!farbe_a1a2a3)){
				fpreis+= (g[i].farbpreis[farbe[0]]);
				farbe_a1a2a3=true;
			}
		}
	}
}

function bot_fam4(ziel){
	gaus=new Array(gl);
	var preisartt,spalten,preisausgabe,son=16,stern=0;
	var d,auflage=0;
	var test,preisorg=0.0,meldung="",regGebieteInfo="",regGebiete=0;

	sslesen();
	if(ziel!=4){
		ss[0]=((ziel==2)?"bot_fam2.html?":((ziel==3)?"bot_fam3.html?":"bot_fam1.html?"));
		location.href=ss[0]+ss[1]+"+"+ss[2]+"+"+ss[3]+"+"+ss[4];
		return;
	}
	prozent[0]=1;
	prozent[5]=0.6;
	prozent[10]=0.6;
	prozent[20]=0.6;
	prozent[24]=0.6;
	prozent[25]=1;
	prozent[30]=0.6;
	spalten=parseInt(ss[1].replace(/(.-)(\d)(-.*)/, "$2"));
	spalten=(spalten==8)?15:spalten;
	mm=parseInt(parseFloat(ss[1].replace(/(.-)(\d-)(.*)/, "$3")));
	gmm=spalten*mm;
	ssflesen(2);
	gebiete_erstellen();
	f_sichern();
	g[index_suchen("F1")].ebene=40;
	g[index_suchen("F2")].ebene=40;
	g_ebene_raus(40);
	g_ebene_raus(50);
	ssglesen(gl,3);
	g[index_suchen("A4")].farbtyp=1;
	sonderfall_f();
	kor=(ss[3].replace(/.*-/, "")=="1")?true:false;
	if(ss[1].search(/o/)+1){
		preisart=4;
		preisartt="Ortspreis";
		if(farbe[0]>0){
			farbe[0]+=3;
			gf[0].farbpreis[6]=20.0;
			gf[1].farbpreis[6]=20.0;
			gf[2].farbpreis[6]=20.0;
			for(i=0;i<gl;i++){
				if(g[i].farbtyp==1){
					g[i].preis[4]=0.98;
					g[i].farbpreis[6]=0.0;
 				}else{
					g[i].farbpreis[6]=20.0;
 				}
			}
		}
	}else {
		preisart=3;
		preisartt="Grundpreis";
		son=son|4;
		if(farbe[0]>0){
			gf[0].farbpreis[3]=23.53;
			gf[1].farbpreis[3]=23.53;
			gf[2].farbpreis[3]=23.53;
			for(i=0;i<gl;i++){
				if(g[i].farbtyp==1){
					g[i].preis[3]=1.15;
					g[i].farbpreis[3]=0.0;
 				}else{
					g[i].farbpreis[3]=23.53;
 				}
			}
		}
	}
	bot_fam_pre();
	for(i=0;i<gl;i++){
		gaus[i]=new gebiet_check(g[i].check);
	}	

	// Preis bei 3 Gebieten auf A1 beschraenken 
	if((preis*gmm+fpreis)>(g[2].preis[preisart]*gmm+g[2].farbpreis[farbe[0]])){
		for(i=0;i<gl;i++){
			if(g[i].check){
				if((g[i].ebene==30)||(g[i].ebene==24)){
					regGebiete++;
				} 
			}
		}
	}
	if((g[1].check||g[index_suchen("A")].check)||(g[1].check||g[index_suchen("A1")].check)){
		regGebiete=gl;
	}
	if(g[1].check||g[index_suchen("A2")].check){
		regGebiete+=2;
	}
	if(g[1].check||g[index_suchen("A3")].check){
		regGebiete++;
	}
	// Preis bei 3 Gebieten auf A1 beschraenken Ende 

	// Preis auf A1 beschraenken 
	preisorg=preis*gmm+fpreis;
	test=g[0].check?1:0;
	for(i=index_suchen("B");i<=index_suchen("G");i++){
		test+=g[i].check?1:0;
	}
	if(test>1){
		g[0].check=false;
		for(i=index_suchen("B");i<=index_suchen("G");i++){
			g[i].check=false;
		}
		g[index_suchen("A1")].check=true;
		sonderfall_f();
		bot_fam_pre();
		if(preisorg<(preis*gmm+fpreis)){
			ssglesen(gl,3);
			f_laden(0);
			bot_fam_pre();
		}else{
			auswerten4g(gl,3);
			meldung+="A1 enth\344lt: B, D, E, F1, G und GNZ.\n";
		}
	}	// Preis auf A1 beschraenken Ende 
	// Preis auf A beschraenken 
	preisorg=preis*gmm+fpreis;
	test=0;
	for(i=index_suchen("A1");i<=index_suchen("J");i++){
		test+=g[i].check?1:0;
	}
	if(test>1){
		for(i=index_suchen("A1");i<=index_suchen("J");i++){
			g[i].check=false;
		}
		g[index_suchen("A")].check=true;
		bot_fam_pre();
		if(preisorg<(preis*gmm+fpreis)){
			ssglesen(gl,3);
			bot_fam_pre();
		}else{
			auswerten4g(gl,3);
			meldung+="Die Gesamt-Kombination enth\344lt alle Ausgaben.\n";
		}
	}	// Preis auf A beschraenken Ende 
	// Preis auf Ap beschraenken 
	if((preis*gmm+fpreis)>(g[index_suchen("Ap")].preis[preisart]*gmm+g[index_suchen("Ap")].farbpreis[farbe[0]])){
		preis=g[index_suchen("Ap")].preis[preisart];
		fpreis=g[index_suchen("Ap")].farbpreis[farbe[0]];
		g[0].check=false;
		for(i=index_suchen("A1");i<=index_suchen("GZ");i++){
			g[i].check=false;
		}
		g[index_suchen("Ap")].check=true;
		auswerten4g(gl,3);
		meldung="Die Gesamt-Kombination Plus enth\344lt alle Ausgaben.\n";
	}	// Preis auf Ap beschraenken Ende 
	// Preis bei 3 Gebieten auf A1 beschraenken 
	if((preis*gmm+fpreis)>(g[index_suchen("A1")].preis[preisart]*gmm+g[index_suchen("A1")].farbpreis[farbe[0]])){
		if(regGebiete<4){
			sslesen();
			ssglesen(gl,3);
			meldung="";
			preis=g[index_suchen("A1")].preis[preisart];
			fpreis=g[index_suchen("A1")].farbpreis[farbe[0]];
			regGebieteInfo="<tr><td valign='top'>Rabatt:</td><td>Der Preis wurde auf den Preis der Kreiausgabe begrenzt.</td></tr>\n"
		}
	}
	// Preis bei 3 Gebieten auf A1 beschraenken Ende 
	if(kor){
		for(i=0;i<gl;i++){
			g[i].check=gaus[i].check
		}	
	}else{
		if((meldung.length>1)&&confirm("Es wurden zus\344tzliche Gebiete angw\344hlt. Die neue Auswahl ist g\374nstiger.\n"+meldung+"Soll die neue Gebietsauswahl angezeigt werden?")){
			location.href="bot_fam3.html?"+ss[1]+"+"+ss[2]+"+"+ss[3]+"+"+ss[4];
		}

	}
	if(g[1].check||g[2].check||g[3].check||g[4].check){	// Ap oder A oder A1 oder B = GNZ inkl.
		g[0].check=true;
	}
	preisausgabe=Math.round((gmm*preis+fpreis)*100)/100;
	fpreis=Math.round(fpreis*100)/100;
	preis=Math.round(preis*100)/100;

	document.write("<table>");
	tr("Spalten:",	spalten);
	tr("H&ouml;he:",	mm+"&nbsp;mm");
	tr("Gesamt-mm:",	gmm+"&nbsp;mm");
	tr("Farbe:",		farbet);
	if(farbe[0]>0){
		tr("Farbpreis:",	p3k2(fpreis));
	}
	tr("mm-Preis:",		p3k2(preis)+"&nbsp;&#040;"+preisartt+"&#041;");
	malstaffel(preis*gmm+fpreis);
	document.write(regGebieteInfo);
	tr("<strong>Preis:</strong>");
	document.write("<strong>"+p3k2(Math.round(preisausgabe*100)/100)+"&nbsp;&#040;"+preisartt+"&#041;</strong>");
	intern_runden(preisausgabe,son,0);
	tr();
	mwst(Math.round(preisausgabe*100)/100);
	tr("Anzeigenschluss Bote:&nbsp;",	"Montag vor Erscheinen um 17:00&nbsp;Uhr.");
	if(g[0].check){
		tr("Anzeigenschluss GNZ:",	"1 Tag &#040;auch So&#041; vor Erscheinen um 17:00&nbsp;Uhr.");
	}
	tr("&nbsp;","Annahmeschluss nach telefonischer R&uuml;ckfrage unter 06051&nbsp;833-201 eventuell auch sp&auml;ter.");
	tr("Erscheinungsgebiet:&nbsp;");
	document.write("<table style=\"width:100%;\">");
	for(i=0;i<gl;i++){
		if(g[i].check){
			auflage+=g[i].auflage;
			stern=stern|g[i].stern;
			document.write("<tr><td style=\"text-align:right;vertical-align:top;\">"+g[i].abk+"&nbsp;</td><td style=\"vertical-align:top;\">"+g[i].bezeichnung+"</td><td style=\"text-align:right;vertical-align:top;\">"+p3(g[i].auflage)+"</td><td style=\"text-align:left;vertical-align:top;width:2em;\">"+stern_oben(g[i].stern)+"</td></tr>");
		}
	}
	document.write("</table>");
	tr();
	tr("Auflage Summe:",	"<table style=\"width:100%;\"><tr><td style=\"text-align:right;vertical-align:top;\">"+p3(auflage)+"</td><td style=\"text-align:left;vertical-align:top;width:2em;\">"+stern_oben(stern)+"</td></tr></table>");
	stern_unten(stern);
// ********************************************************************************************************************************
	marke[0][1]="Anzeigenbelegung";
	var wor_tit="Gelnh&auml;user Neue Zeitung, Tageszeitung";
	var wor_aus="";
	for(i=1;i<gl;i++){ 
		if(g[i].check){
			wor_tit="Mittelhessen-Bote, Wochenzeitung";
			wor_aus+=(wor_aus==""?"":"\n")+(wor_aus_nam[g[i].ebene]+" "+g[i].abk+", "+g[i].bezeichnung+stern_word(g[i].stern));
		}
	}
	wor_aus+=(g[0].check?",\ninklusive Gelnh&auml;user Neue Zeitung, Tageszeitung":"");
	wor_aus+=((stern&3)?"\n":"");
	wor_aus+=((stern&1)?"\n**(1)**"+sterntext[1]:"");
	wor_aus+=((stern&2)?"\n**(2)**"+sterntext[2]:"");
	marke[1][1]=htow(wor_tit);
	marke[2][1]=htow(wor_aus);
	marke[3][0]=0;
	marke[4][0]=0;
	marke[5][1]=spalten+"-spaltig/"+mm+" mm";
	marke[6][1]=preisartt;
	marke[7][1]=htow(p3k2(preis)+"/mm/1sp = ")+htow(p3k2(Math.round(gmm*preis*100)/100));
	marke[8][1]=(farbet=="Cyan, Magenta, Yellow"?"4 c":farbet);
	if(marke[8][1]=="keine Farbe"){
		marke[ 9][0]=0;
		marke[10][0]=-1;
	}else{
		if(marke[8][1].indexOf("HKS")!=-1){
			marke[9][1]="*Alle Farben werden aus Euroskala (CMYK) erzielt";
			marke[8][1]+="*";
		}else{
			marke[9][0]=0;
		}
		marke[10][1]=htow(p3k2(fpreis));
	}
	marke[11][1]=htow(p3k2(preisausgabe));
	wor_pre=preisausgabe;
	wor_pro=3;
// ********************************************************************************************************************************
	int_wor(0,"Gr&ouml;&szlig;e, Farbe, Gebiet und Preis");
	document.write("</table>\n");
}