//lgds_carcost_calc.txt   EFFECTIVE:Mar'2013

function CalcRates()
{

//TOTAL AND BUSINESS KM's VARIABLES 
//-----------------------------------------------------------

//TOT KMS VARIABLES --------------------

var TotKmsCntr
var TotKmsMax = 6
var arrTotKms = new Array(TotKmsMax)

arrTotKms[1]=1000
arrTotKms[2]=2000
arrTotKms[3]=3000
arrTotKms[4]=4000
arrTotKms[5]=5000
arrTotKms[6]=6000

//BUS KMS VARIABLES ------------------

var BusKmsCntr
var BusKmsMax = 6
var arrBusKms = new Array(BusKmsMax)

arrBusKms[1]= 500
arrBusKms[2]=1000
arrBusKms[3]=2000
arrBusKms[4]=3000
arrBusKms[5]=4000
arrBusKms[6]=5000

//TRAV ALLOW VARIABLES ---------------

var TravAllCntr
var TravAllMax = BusKmsMax //must always be same as BusKmsMax
var arrTravAll= new Array(TravAllMax)


//SARS's TABLE OF .....
//---------------------------------------------------------

var RtsMax = 8   //11	//no of lines in SARS's Table of Specs

var arrVehCost = new Array(RtsMax)
var arrFixCost = new Array(RtsMax)
var arrFulCost = new Array(RtsMax)
var arrMntCost = new Array(RtsMax)


//If Veh Cost is > than
arrVehCost[ 1] =      1; arrFixCost [1] =  19310; arrFulCost[ 1] = 0.814; arrMntCost[ 1] = 0.262
arrVehCost[ 2] =  60001; arrFixCost [2] =  38333; arrFulCost[ 2] = 0.861; arrMntCost[ 2] = 0.295
arrVehCost[ 3] = 120001; arrFixCost [3] =  52033; arrFulCost[ 3] = 0.908; arrMntCost[ 3] = 0.328
arrVehCost[ 4] = 180001; arrFixCost [4] =  65667; arrFulCost[ 4] = 0.987; arrMntCost[ 4] = 0.394
arrVehCost[ 5] = 240001; arrFixCost [5] =  78192; arrFulCost[ 5] = 1.136; arrMntCost[ 5] = 0.463
arrVehCost[ 6] = 300001; arrFixCost [6] =  90668; arrFulCost[ 6] = 1.303; arrMntCost[ 6] = 0.544
arrVehCost[ 7] = 360001; arrFixCost [7] = 104374; arrFulCost[ 7] = 1.347; arrMntCost[ 7] = 0.677
arrVehCost[ 8] = 420001; arrFixCost [8] = 118078; arrFulCost[ 8] = 1.477; arrMntCost[ 8] = 0.705
//arrVehCost[ 9] = 480001; arrFixCost [9] = 106367; arrFulCost[ 9] = 0.946; arrMntCost[ 9] = 0.562
//arrVehCost[10] = 360000; arrFixCost[10] = 116012; arrFulCost[10] = 1.103; arrMntCost[10] = 0.752
//arrVehCost[11] = 400000; arrFixCost[11] = 116012; arrFulCost[11] = 1.103; arrMntCost[11] = 0.752


for (RtsCntr=1; RtsCntr <= RtsMax; RtsCntr++)
  {
  if(MyFormName.txtVehValID.value > arrVehCost[RtsCntr])
    {
    var FixCost = arrFixCost[RtsCntr]
    var FulCost = arrFulCost[RtsCntr]
    var MntCost = arrMntCost[RtsCntr]
    }
  }

//START TO DISPLAY TABLE
//-------------------------------------------------------

TableString  = "<TABLE Border=1>"

  TableString += "<THEAD>"

    TableString += "<TR>"
      TableString += "<TH Rowspan = '2'> Total Km's </TH>"
      TableString += "<TH Rowspan = '2'> Det. Rate/Km  </TH>"  
      TableString += "<TH Colspan = '6'> Det. Rate / Month for given Business Km's </TH>"
      TableString += "</TR>"
     	
    	
    TableString += "<TR>"
    //document.getElementById("SpanArea").innerHTML += "<TH> </TH>"
    //document.getElementById("SpanArea").innerHTML += "<TH> </TH>"
    //above two 'cells' must not be programmed, above two cells using Rowspan=2
      TableString += "<TH>" + arrBusKms[1] + "</TH>"
      TableString += "<TH>" + arrBusKms[2] + "</TH>"
      TableString += "<TH>" + arrBusKms[3] + "</TH>"
      TableString += "<TH>" + arrBusKms[4] + "</TH>"
      TableString += "<TH>" + arrBusKms[5] + "</TH>"
      TableString += "<TH>" + arrBusKms[6] + "</TH>"

      TableString += "</TR>"

    TableString += "</THEAD>"

  TableString += "<TBODY>"

    //do various calculations
    for (TotKmsCntr = 1; TotKmsCntr <= TotKmsMax; TotKmsCntr++)
      {
      DetRate =  FixCost/arrTotKms[TotKmsCntr]/12
      DetRate += MyFormName.chkPetrol.value * FulCost
      DetRate += MyFormName.chkMaint.value  * MntCost
      DetRate = DetRate.toFixed(2)  
     
      for (BusKmsCntr=1; BusKmsCntr <= BusKmsMax; BusKmsCntr++)
        {
         if(arrBusKms[BusKmsCntr] <= arrTotKms[TotKmsCntr])
           {	
           arrTravAll[BusKmsCntr]= (DetRate * arrBusKms[BusKmsCntr]).toFixed(0)
           }
           else
           arrTravAll[BusKmsCntr]= "-" 		

        }

      //display info in table
      TableString += "<TR>"
        TableString += "<TH>" + arrTotKms[TotKmsCntr] + "</TH>"
        TableString += "<TD>" + DetRate               + "</TD>"
        TableString += "<TD>" + arrTravAll[1]         + "</TD>"         
        TableString += "<TD>" + arrTravAll[2]         + "</TD>"
        TableString += "<TD>" + arrTravAll[3]         + "</TD>"
        TableString += "<TD>" + arrTravAll[4]         + "</TD>"
        TableString += "<TD>" + arrTravAll[5]         + "</TD>"
        TableString += "<TD>" + arrTravAll[6]         + "</TD>"

        TableString += "</TR>"
      }

    TableString += "</TBODY>"	
 
  TableString += "</TABLE>"

document.getElementById("SpanArea").innerHTML = TableString

}