//***************Common Data******************** //global variables within this page var CommonR; //commons data as split serialized var CommonK; //index into CommonR //Declare common variables function initVars() { //These are the raw string variables xAsset=""; xTerm=""; xFMVBuy=""; xFMVSell=""; xAdminSell=""; xPO=""; xSecDep=""; xLFee=""; xBFee=""; xRentNum1=""; xRentNum2=""; xRentNum3=""; xRentNum4=""; xRentNum5=""; xRentAmt1=""; xRentAmt2=""; xRentAmt3=""; xRentAmt4=""; xRentAmt5=""; xERate=""; xDRate=""; xFTaxRate=""; xSTaxRate=""; xATaxRate=""; xUserLoan=""; xTitle1=""; xTitle2=""; xBonus=""; xLFeeRec=""; xBFeeRec=""; //raw dropdown list selections xCommenceM=0; //Jan xCommenceY=10; //2010 xFiscal=11; //Dec xAYear=0; xCYear=0; xLFeeRecFreq=0; xBFeeRecFreq=0; xLFeeRecMon=0; xBFeeRecMon=0; //Initialize radio buttons Life=1; //5-yr property FY=0; Keep=0; //purchase used Freq=0; AA=1; //standard advance LoanMeth=0; //automatic TaxPmtFreq=0; //quarterly //Numerical values Asset=0; Term=0; CommenceM=0; CommenceY=0; FMVBuy=0; FMVSell=0; AdminSell=0; PO=0; SecDep=0; LFee=0; BFee=0; RentNum1=0; RentNum2=0; RentNum3=0; RentNum4=0; RentNum5=0; RentAmt1=0; RentAmt2=0; RentAmt3=0; RentAmt4=0; RentAmt5=0; ERate=0; DRate=0; Fiscal=11; FTaxRate=0; STaxRate=0; ATaxRate=0; UserLoan=0; AYear=0; CYear=0; Bonus=0; LFeeRec=0; BFeeRec=0; LFeeRecFreq=0; BFeeRecFreq=0; LFeeRecMon=0; BFeeRecMon=0; SumFeeLease=0; SumFeeBuy=0; PVFeeLease=0; PVFeeBuy=0; //String variables to show results LRateNom=""; LRateFee=""; LRateResid=""; LRateTax=""; LRateAll=""; //Redirection Redirect=""; BigFrame=false; //*************** //Other values ReportWindow=0; //window object ***************** Col1=new Array; Col2=new Array; Col3=new Array; Col4=new Array; Col5=new Array; Col6=new Array; ColA2=new Array; ColA3=new Array; ColA4=new Array; ColA5=new Array; ColA6=new Array; ColB2=new Array; ColB3=new Array; ColB4=new Array; ColB5=new Array; ColB6=new Array; ColC2=new Array; ColC3=new Array; ColC4=new Array; ColC5=new Array; ColC6=new Array; ColD2=new Array; ColD3=new Array; ColD4=new Array; ColD5=new Array; ColD6=new Array; ColE2=new Array; ColE3=new Array; ColE4=new Array; ColE5=new Array; ColE6=new Array; ColF2=new Array; ColF3=new Array; ColF4=new Array; ColF5=new Array; ColF6=new Array; TotCol2=0; TotCol3=0; TotCol4=0; TotCol5=0; TotCol6=0; TotColA2=0; TotColA3=0; TotColA4=0; TotColA5=0; TotColA6=0; TotColB2=0; TotColB3=0; TotColB4=0; TotColB5=0; TotColB6=0; TotColC2=0; TotColC3=0; TotColC4=0; TotColC5=0; TotColC6=0; TotColD2=0; TotColD3=0; TotColD4=0; TotColD5=0; TotColD6=0; TotColE2=0; TotColE3=0; TotColE4=0; TotColE5=0; TotColE6=0; TotColF2=0; TotColF3=0; TotColF4=0; TotColF5=0; TotColF6=0; LastM=0; RptLen=0; //rows to import (last index) RptLenBuy=0; RptLenLease=0; InitLoanBal=0; SumPmt=0; PVpmt=0; SumLoanPmt=0; PVLoanPmt=0; SumTaxBuy1=0; PVTaxBuy1=0; SumTaxBuy2=0; PVTaxBuy2=0; SumTaxLease1=0; PVTaxLease1=0; SumTaxLease2=0; PVTaxLease2=0; SumResidBuy=0; //resid in buy case PVResidBuy=0; SumResidLease=0; //resid in lease case PVResidLease=0; PVFeeSecLease=0; //fees and secdep FullPVLease=0; FullPVBuy=0; CustomerId=""; //******************** } function GetCommonS() { var S; S=unescape(CommonR[CommonK]); CommonK++; return S; } function GetCommonN() { var N; N=eval(CommonR[CommonK]); if (typeof(N)=="undefined") N=0; CommonK++; return N; } function PutCommonArray(A){ //Safe because always places at least something, even for null strings //Array A must be declared before calling this function //Array A can be string or numerical, but no escaped characters var S; var k; S="&"+A.length; for (k=0; k<=A.length-1; k++){ S=S+"/"+A[k]; } return S; } function GetCommonArrayN(A){ //A=array to populate //Array A must be declared before calling this function //Array A must be numerical. //global CommonR=source data in form of serialized string after splitting on & //global CommonK=index into CommonR (0-based) // CommonR[CommonK] contains the serialized string data for this array var R; //further split string for this array var Alen; //length of array A var k; R=CommonR[CommonK].split("/"); Alen=R[0]; //note no longer any need to drop leading & for (k=1; k<=Alen; k++){ A[k-1]=eval(R[k]); if (typeof(A[k-1])=="undefined") A[k-1]=0; } CommonK++; } function GetCommonArrayS(A){ //A=array to populate //Array A must be declared before calling this function //Array A must be string. but no escaped characters (so non user input). //global CommonR=source data in form of serialized string after splitting on & //global CommonK=index into CommonR (0-based) // CommonR[CommonK] contains the serialized string data for this array var R; //further split string for this array var Alen; //length of array A var k; R=CommonR[CommonK].split("/"); Alen=R[0]; //note no longer any need to drop leading & for (k=1; k<=Alen; k++){ A[k-1]=R[k]; if (typeof(A[k-1])=="undefined") A[k-1]=""; } CommonK++; } function EntryCommon() { initVars(); refreshVars(); } function calcResult() { if (CGIquery("qwsHwzKGakOHkq")=="errorCondition") { eval(CGIquery("InowttrElevSerCitwfyc.xE=pFudwBl")); } else parent.vlcright.location.href="result.htm"; } function recordVars() { var S; S="LVBdata"; S=S+"&"+escape(xAsset); S=S+"&"+escape(xTerm); S=S+"&"+escape(xFMVBuy); S=S+"&"+escape(xFMVSell); S=S+"&"+escape(xAdminSell); S=S+"&"+escape(xPO); S=S+"&"+escape(xSecDep); S=S+"&"+escape(xLFee); S=S+"&"+escape(xBFee); S=S+"&"+escape(xRentNum1); S=S+"&"+escape(xRentNum2); S=S+"&"+escape(xRentNum3); S=S+"&"+escape(xRentNum4); S=S+"&"+escape(xRentNum5); S=S+"&"+escape(xRentAmt1); S=S+"&"+escape(xRentAmt2); S=S+"&"+escape(xRentAmt3); S=S+"&"+escape(xRentAmt4); S=S+"&"+escape(xRentAmt5); S=S+"&"+escape(xERate); S=S+"&"+escape(xDRate); S=S+"&"+escape(xFTaxRate); S=S+"&"+escape(xSTaxRate); S=S+"&"+escape(xATaxRate); S=S+"&"+escape(xUserLoan); S=S+"&"+escape(xTitle1); S=S+"&"+escape(xTitle2); S=S+"&"+escape(xBonus); S=S+"&"+escape(xLFeeRec); S=S+"&"+escape(xBFeeRec); //Drop down selectors S=S+"&"+xCommenceM; S=S+"&"+xCommenceY; S=S+"&"+xFiscal; S=S+"&"+xAYear; S=S+"&"+xCYear; S=S+"&"+xLFeeRecFreq; S=S+"&"+xBFeeRecFreq; S=S+"&"+xLFeeRecMon; S=S+"&"+xBFeeRecMon; //Radio buttons S=S+"&"+Life; S=S+"&"+FY; S=S+"&"+Keep; S=S+"&"+Freq; S=S+"&"+AA; S=S+"&"+LoanMeth; S=S+"&"+TaxPmtFreq; //Numerical values S=S+"&"+Asset; S=S+"&"+Term; S=S+"&"+CommenceM; S=S+"&"+CommenceY; S=S+"&"+FMVBuy; S=S+"&"+FMVSell; S=S+"&"+AdminSell; S=S+"&"+PO; S=S+"&"+SecDep; S=S+"&"+LFee; S=S+"&"+BFee; S=S+"&"+RentNum1; S=S+"&"+RentNum2; S=S+"&"+RentNum3; S=S+"&"+RentNum4; S=S+"&"+RentNum5; S=S+"&"+RentAmt1; S=S+"&"+RentAmt2; S=S+"&"+RentAmt3; S=S+"&"+RentAmt4; S=S+"&"+RentAmt5; S=S+"&"+ERate; S=S+"&"+DRate; S=S+"&"+Fiscal; S=S+"&"+FTaxRate; S=S+"&"+STaxRate; S=S+"&"+ATaxRate; S=S+"&"+UserLoan; S=S+"&"+AYear; S=S+"&"+CYear; S=S+"&"+Bonus; S=S+"&"+LFeeRec; S=S+"&"+BFeeRec; S=S+"&"+LFeeRecFreq; S=S+"&"+BFeeRecFreq; S=S+"&"+LFeeRecMon; S=S+"&"+BFeeRecMon; S=S+"&"+SumFeeLease; S=S+"&"+SumFeeBuy; S=S+"&"+PVFeeLease; S=S+"&"+PVFeeBuy; //String variables to show results S=S+"&"+escape(LRateNom); S=S+"&"+escape(LRateFee); S=S+"&"+escape(LRateResid); S=S+"&"+escape(LRateTax); S=S+"&"+escape(LRateAll); //Redirection S=S+"&"+escape(Redirect); //Other values S=S+PutCommonArray(Col1); S=S+PutCommonArray(Col2); S=S+PutCommonArray(Col3); S=S+PutCommonArray(Col4); S=S+PutCommonArray(Col5); S=S+PutCommonArray(Col6); S=S+PutCommonArray(ColA2); S=S+PutCommonArray(ColA3); S=S+PutCommonArray(ColA4); S=S+PutCommonArray(ColA5); S=S+PutCommonArray(ColA6); S=S+PutCommonArray(ColB2); S=S+PutCommonArray(ColB3); S=S+PutCommonArray(ColB4); S=S+PutCommonArray(ColB5); S=S+PutCommonArray(ColB6); S=S+PutCommonArray(ColC2); S=S+PutCommonArray(ColC3); S=S+PutCommonArray(ColC4); S=S+PutCommonArray(ColC5); S=S+PutCommonArray(ColC6); S=S+PutCommonArray(ColD2); S=S+PutCommonArray(ColD3); S=S+PutCommonArray(ColD4); S=S+PutCommonArray(ColD5); S=S+PutCommonArray(ColD6); S=S+PutCommonArray(ColE2); S=S+PutCommonArray(ColE3); S=S+PutCommonArray(ColE4); S=S+PutCommonArray(ColE5); S=S+PutCommonArray(ColE6); S=S+PutCommonArray(ColF2); S=S+PutCommonArray(ColF3); S=S+PutCommonArray(ColF4); S=S+PutCommonArray(ColF5); S=S+PutCommonArray(ColF6); S=S+"&"+TotCol2; S=S+"&"+TotCol3; S=S+"&"+TotCol4; S=S+"&"+TotCol5; S=S+"&"+TotCol6; S=S+"&"+TotColA2; S=S+"&"+TotColA3; S=S+"&"+TotColA4; S=S+"&"+TotColA5; S=S+"&"+TotColA6; S=S+"&"+TotColB2; S=S+"&"+TotColB3; S=S+"&"+TotColB4; S=S+"&"+TotColB5; S=S+"&"+TotColB6; S=S+"&"+TotColC2; S=S+"&"+TotColC3; S=S+"&"+TotColC4; S=S+"&"+TotColC5; S=S+"&"+TotColC6; S=S+"&"+TotColD2; S=S+"&"+TotColD3; S=S+"&"+TotColD4; S=S+"&"+TotColD5; S=S+"&"+TotColD6; S=S+"&"+TotColE2; S=S+"&"+TotColE3; S=S+"&"+TotColE4; S=S+"&"+TotColE5; S=S+"&"+TotColE6; S=S+"&"+TotColF2; S=S+"&"+TotColF3; S=S+"&"+TotColF4; S=S+"&"+TotColF5; S=S+"&"+TotColF6; S=S+"&"+LastM; S=S+"&"+RptLen ; //rows to import (last index) S=S+"&"+RptLenBuy; S=S+"&"+RptLenLease; S=S+"&"+InitLoanBal; S=S+"&"+SumPmt; S=S+"&"+PVpmt; S=S+"&"+SumLoanPmt; S=S+"&"+PVLoanPmt; S=S+"&"+SumTaxBuy1; S=S+"&"+PVTaxBuy1; S=S+"&"+SumTaxBuy2; S=S+"&"+PVTaxBuy2; S=S+"&"+SumTaxLease1; S=S+"&"+PVTaxLease1; S=S+"&"+SumTaxLease2; S=S+"&"+PVTaxLease2; S=S+"&"+SumResidBuy; //resid in buy case S=S+"&"+PVResidBuy; S=S+"&"+SumResidLease; //resid in lease case S=S+"&"+PVResidLease; S=S+"&"+PVFeeSecLease; //fees and secdep S=S+"&"+FullPVLease; S=S+"&"+FullPVBuy; window.name=S; } function refreshVars() { var S; // ColorMenu(); *********************** S=window.name; if (S.substring(0,7)!="LVBdata") return; CommonR=S.split("&"); CommonK=1; //raw string values xAsset=GetCommonS(); xTerm=GetCommonS(); xFMVBuy=GetCommonS(); xFMVSell=GetCommonS(); xAdminSell=GetCommonS(); xPO=GetCommonS(); xSecDep=GetCommonS(); xLFee=GetCommonS(); xBFee=GetCommonS(); xRentNum1=GetCommonS(); xRentNum2=GetCommonS(); xRentNum3=GetCommonS(); xRentNum4=GetCommonS(); xRentNum5=GetCommonS(); xRentAmt1=GetCommonS(); xRentAmt2=GetCommonS(); xRentAmt3=GetCommonS(); xRentAmt4=GetCommonS(); xRentAmt5=GetCommonS(); xERate=GetCommonS(); xDRate=GetCommonS(); xFTaxRate=GetCommonS(); xSTaxRate=GetCommonS(); xATaxRate=GetCommonS(); xUserLoan=GetCommonS(); xTitle1=GetCommonS(); xTitle2=GetCommonS(); xBonus=GetCommonS(); xLFeeRec=GetCommonS(); xBFeeRec=GetCommonS(); //drop down selections xCommenceM=GetCommonN(); xCommenceY=GetCommonN(); xFiscal=GetCommonN(); xAYear=GetCommonN(); xCYear=GetCommonN(); xLFeeRecFreq=GetCommonN(); xBFeeRecFreq=GetCommonN(); xLFeeRecMon=GetCommonN(); xBFeeRecMon=GetCommonN(); //radio buttons Life=GetCommonN(); FY=GetCommonN(); Keep=GetCommonN(); Freq=GetCommonN(); AA=GetCommonN(); LoanMeth=GetCommonN(); TaxPmtFreq=GetCommonN(); //Numerical values Asset=GetCommonN(); Term=GetCommonN(); CommenceM=GetCommonN(); CommenceY=GetCommonN(); FMVBuy=GetCommonN(); FMVSell=GetCommonN(); AdminSell=GetCommonN(); PO=GetCommonN(); SecDep=GetCommonN(); LFee=GetCommonN(); BFee=GetCommonN(); RentNum1=GetCommonN(); RentNum2=GetCommonN(); RentNum3=GetCommonN(); RentNum4=GetCommonN(); RentNum5=GetCommonN(); RentAmt1=GetCommonN(); RentAmt2=GetCommonN(); RentAmt3=GetCommonN(); RentAmt4=GetCommonN(); RentAmt5=GetCommonN(); ERate=GetCommonN(); DRate=GetCommonN(); Fiscal=GetCommonN(); FTaxRate=GetCommonN(); STaxRate=GetCommonN(); ATaxRate=GetCommonN(); UserLoan=GetCommonN(); AYear=GetCommonN(); CYear=GetCommonN(); Bonus=GetCommonN(); LFeeRec=GetCommonN(); BFeeRec=GetCommonN(); LFeeRecFreq=GetCommonN(); BFeeRecFreq=GetCommonN(); LFeeRecMon=GetCommonN(); BFeeRecMon=GetCommonN(); SumFeeLease=GetCommonN(); SumFeeBuy=GetCommonN(); PVFeeLease=GetCommonN(); PVFeeBuy=GetCommonN(); //String variables to show results LRateNom=GetCommonS(); LRateFee=GetCommonS(); LRateResid=GetCommonS(); LRateTax=GetCommonS(); LRateAll=GetCommonS(); //Redirection Redirect=GetCommonS(); //Other values GetCommonArrayS(Col1); GetCommonArrayN(Col2); GetCommonArrayN(Col3); GetCommonArrayN(Col4); GetCommonArrayN(Col5); GetCommonArrayN(Col6); GetCommonArrayN(ColA2); GetCommonArrayN(ColA3); GetCommonArrayN(ColA4); GetCommonArrayN(ColA5); GetCommonArrayN(ColA6); GetCommonArrayN(ColB2); GetCommonArrayN(ColB3); GetCommonArrayN(ColB4); GetCommonArrayN(ColB5); GetCommonArrayN(ColB6); GetCommonArrayN(ColC2); GetCommonArrayN(ColC3); GetCommonArrayN(ColC4); GetCommonArrayN(ColC5); GetCommonArrayN(ColC6); GetCommonArrayN(ColD2); GetCommonArrayN(ColD3); GetCommonArrayN(ColD4); GetCommonArrayN(ColD5); GetCommonArrayN(ColD6); GetCommonArrayN(ColE2); GetCommonArrayN(ColE3); GetCommonArrayN(ColE4); GetCommonArrayN(ColE5); GetCommonArrayN(ColE6); GetCommonArrayN(ColF2); GetCommonArrayN(ColF3); GetCommonArrayN(ColF4); GetCommonArrayN(ColF5); GetCommonArrayN(ColF6); TotCol2=GetCommonN(); TotCol3=GetCommonN(); TotCol4=GetCommonN(); TotCol5=GetCommonN(); TotCol6=GetCommonN(); TotColA2=GetCommonN(); TotColA3=GetCommonN(); TotColA4=GetCommonN(); TotColA5=GetCommonN(); TotColA6=GetCommonN(); TotColB2=GetCommonN(); TotColB3=GetCommonN(); TotColB4=GetCommonN(); TotColB5=GetCommonN(); TotColB6=GetCommonN(); TotColC2=GetCommonN(); TotColC3=GetCommonN(); TotColC4=GetCommonN(); TotColC5=GetCommonN(); TotColC6=GetCommonN(); TotColD2=GetCommonN(); TotColD3=GetCommonN(); TotColD4=GetCommonN(); TotColD5=GetCommonN(); TotColD6=GetCommonN(); TotColE2=GetCommonN(); TotColE3=GetCommonN(); TotColE4=GetCommonN(); TotColE5=GetCommonN(); TotColE6=GetCommonN(); TotColF2=GetCommonN(); TotColF3=GetCommonN(); TotColF4=GetCommonN(); TotColF5=GetCommonN(); TotColF6=GetCommonN(); LastM=GetCommonN(); RptLen=GetCommonN(); //rows to import (last index) RptLenBuy=GetCommonN(); RptLenLease=GetCommonN(); InitLoanBal=GetCommonN(); SumPmt=GetCommonN(); PVpmt=GetCommonN(); SumLoanPmt=GetCommonN(); PVLoanPmt=GetCommonN(); SumTaxBuy1=GetCommonN(); PVTaxBuy1=GetCommonN(); SumTaxBuy2=GetCommonN(); PVTaxBuy2=GetCommonN(); SumTaxLease1=GetCommonN(); PVTaxLease1=GetCommonN(); SumTaxLease2=GetCommonN(); PVTaxLease2=GetCommonN(); SumResidBuy=GetCommonN(); //resid in buy case PVResidBuy=GetCommonN(); SumResidLease=GetCommonN(); //resid in lease case PVResidLease=GetCommonN(); PVFeeSecLease=GetCommonN(); //fees and secdep FullPVLease=GetCommonN(); FullPVBuy=GetCommonN(); } function getURL() { var S="" var r="" var k1=0 var k2=0 if (top.document.URL) { S=top.document.URL k1=S.indexOf("/"+"/www.") k2=k1+6 if (k1<0) { k1=S.indexOf("/"+"/") k2=k1+2 } if (k1>=0 && k2<=S.length-1) { k3=S.indexOf("/",k2) if (k3>=0) r=S.substring(k2,k3); else r=S.substring(k2,S.length); } else r="/"; } else { r="/" alert ("This calculator requires JavaScript version 1.1 or later. You need to upgrade your web browser before you can use this calculator.") } queryURL=r.toLowerCase(); } function CGIquery(b) { var a="@abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!#$%^&*():;/.-=\""; var fin = ""; var i=0; var pos = 0; var first=""; var second=""; getURL(); for (i=0;i