// NewsletterCalc.js Copyright 2005-2007 Luis Alfonso Lazcano S. //
//OpFunct debe cargarse primero :  -booklests 5x8 premium
var outData = '0';
var diX; var W; 
function Newsletter(){
var ZZZ; var T0; var WWW; var CCC; var Term1;
var price; var totAmt; var KCost; var NumPages;
var PerforationIndex;// var ProofIndex; //var QtyIndex; 
var diSKU; var diVal; var PagesSku; var StitchSku;
var ColorIndex=document.form1.selColor.selectedIndex;
var NumPagesIndex=document.form1.NumPages.selectedIndex; 
var StitchIndex=document.form1.selStitch.selectedIndex; 
var PaperIndex=document.form1.selPaper.selectedIndex;
var PerfIndex=document.form1.selPerf.selectedIndex;
var ProofIndex=document.form1.selProof.selectedIndex;
var HoleIndex=document.form1.selHole.selectedIndex; 
var TOindex=document.form1.selTO.selectedIndex;
var QtyIndex=document.form1.selQty.selectedIndex;  //QTY
PerforationIndex=PerfIndex;
var subopt = [];
subopt[0] = [100, 70];  //Paper weight
subopt[1] = ["10 Business Days", "5 Business Days"];//Newsletter Turnaround
subopt[2]=[250,500,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,15000,20000]; //newsletter QTY
subopt[3] = [40]; // peso x millar--needs checking for booklets  W=33.4 X index+1
var Colors = [0, 350];
var PagesSku = [4, 8, 12, 16, 20, 24, 28, 32];
var Stitch = [0, 0];
var PaperType = [1, 1.75];
var HoleSz = [0, 1, 1, 1];
var Perforation = [0, 1];
var Turnaround = [1.3, 1];
var Proof = [0, 50];
var ColorsSku = [1, 2];
var TOsku = [5, 10];
var Holesku = [0, 1, 2, 3];
var PaperSKU = ["100GT", "70M"];
var Proofsku = ["STD", "NDAY"];
NumPages=NumPagesIndex;
diX=subopt[2][QtyIndex];
W = subopt[3][0];
ZZZ = PagesSku[NumPagesIndex];
CCC = Colors[ColorIndex];
T0 = Turnaround[TOindex];
WWW = PaperType[PaperIndex];
KCost = Proof[ProofIndex] + Perforation[PerfIndex] * (20 + 0.02 * diX) + Stitch[StitchIndex] * diX + HoleSz[HoleIndex] * (20 + 0.04 * diX);
diSKU = "NL" + PagesSku[NumPagesIndex] + "P" + "COL" + ColorsSku[ColorIndex] + "ST" + StitchIndex + "PP" + PaperSKU[PaperIndex] + "H" + HoleSz[HoleIndex] + "PRF" + Perforation[PerforationIndex] + "TO" + TOsku[TOindex] + "P" + Proofsku[ProofIndex] + "-" + diX;
Term1 = (ZZZ / 16);
if ((diX > 0) && (diX <= 250) && (NumPagesIndex == 0)) {
outData = (46.40625 - 0.05625 * CCC + 7.03125 * WWW + 0.01125 * diX) * T0 * ZZZ + ZZZ * 2.7 + 135 + KCost;
}
    if ((diX > 250) && (diX <= 500) && (NumPagesIndex == 0)) {
outData = ((ZZZ * (51.625 - CCC * 0.0625 + 0.0125 * diX * WWW + 1.5625 * WWW + 0.0125 * diX)) * T0 + 50 + 0.2 * diX + ZZZ * 3) * 0.9 + KCost;
}
    if ((diX > 0 && diX <= 250) && (NumPagesIndex > 0)) {
outData = (((ZZZ * 50 - ZZZ * CCC / 16 + ZZZ * WWW * 3.125 + 25 * WWW + ZZZ * 6.25 + 25) * T0) + 125 + ZZZ * 3) * 0.9 + KCost;
}
    if ((diX > 250 && diX <= 1000) && (NumPagesIndex > 0)) {
outData = ((((ZZZ * 50 - ZZZ * CCC / 16) + ZZZ * diX * WWW * 0.0125 + 25 * WWW + ZZZ * diX * 0.0125 + 25) * T0) + 50 + 0.2 * diX + ZZZ * 3) * 0.9 + KCost;
}
    if ((diX > 500 && diX <= 2000) && (NumPagesIndex == 0)) {
outData = ((ZZZ * 37.5 - ZZZ * CCC / 16 + diX * ZZZ * WWW * 0.0125 + ZZZ * WWW * 3.125 + ZZZ * diX * 0.0125 + ZZZ * 3.125) * T0) + 25 + 0.145 * diX + ZZZ * 3 + KCost;
}
     if ((diX > 1000 && diX < 3000) && (NumPagesIndex > 0)) {
outData = (((ZZZ * 50 - ZZZ * CCC / 16) + ((ZZZ * diX * 0.0125 + 50) * WWW) + ZZZ * 25 + 50) * T0) + 310 + ZZZ * 3 + KCost;
}
    if ((diX > 2000) && (NumPagesIndex == 0)) {
outData = ((ZZZ * (38.671875 - CCC / 16 + diX * WWW * 0.0109375 + WWW * 2.734375 + diX * 0.0109375)) * T0) + 50 + 0.059 * diX + diX * 0.03 + ZZZ * 3 + KCost;
}
    if ((diX >= 3000) && (NumPagesIndex > 0)) {
outData = (Term1 * 800 - Term1 * CCC + (0.175 * Term1 * diX + 0.175 * 250) * (WWW + 1)) * T0 + 50 + 0.12 * diX + (ZZZ * 3) + KCost;
}
outData = outData * 0.97;
document.subProdInfo.sku.value=diSKU; document.form1.txtTotal.value="$"+formatNumber(outData, 2); document.form1.txtPrice.value="$"+formatNumber(outData/diX,4);
document.form1.Total.value=formatNumber(outData, 2); document.form1.diW.value=formatNumber(W*diX/1000,1); document.frmUPS.shipmentweight.value=formatNumber(W*diX/1000,1);
return true;
}