// JScript File - Order Processing

var PrdCnt=0;
var PrdIdx=0;
var PrdIDN=0;
var PrdLst=new Array();

var SamLst=new Array();

var OrdCnt=0;
var OrdIdx=0;
var OrdSel=false;
var OrdLst=new Array();
var OrdSta=1;
var EdtMod=false;

var ShpCnt=0;
var ShpIdx=0;
var ShpLst=new Array();
var ExpSel=0;

var FulAdr=true;
var PrcPnd=false;

var DsnBuf="";
var UpgBuf="";
var OrdBuf="";
var CerLst="";
var RtlGrp=3;
var PrdTyp=0;
var PmtURL="";
var IncSam=false;

var CstIDN=0;
var CstNum="";
var CstCmp="";
var CstNam="";
var CstDsc=""
var CstBTp=0;
var CstFID="";
var CstFst="";
var CstLst="";
var CstAd1="";
var CstAd2="";
var CstCty="";
var CstSta="";
var CstZip="";
var CstCou="";
var CstPho="";
var CstFAX="";
var CstEMl="";
var CstTyp=0;
var CrdNam="";
var CrdTyp="";
var CrdNum="";
var CrdExp="";
var CrdSec="";
var CarFil=0;
var PayTyp=1;
var DisPct=0;
var IntShp=false;
var ShpSrv="GND"; 
var ExpLvl=0;
var	SatDel=0;
var	MrnDel=0;
var ReqDte="";
var ReqTim="";
var RDtSta=0;
var RDtMsg="Required Date must be entered";
var DisCod="";
var ROrSta=0;
var ROrNum="";
var ROrPnd="";
var TotAmt=0;
var OrdRef=0;
var RStPnd=false;

var PrdPrc=0;
var OrdBPr=0;
var SamKit=0;
var SamCnt=0;
var PrdImg=0;

function CIfBck(result,eventArgs)
{
	var Lst;
	document.getElementById("txtConMsg").innerHTML="Processing Request . . .";
	Lst=result.split("|"); 
	if (Lst[0]=="OK")
  {
		CstNum=Lst[1];
		CstCmp=Lst[2];
		CstBTp=1*Lst[3];
		CstDsc=Lst[4];
		CstFID=Lst[5];
		CstNam=Lst[6]+" "+Lst[7];
		CstFst=Lst[6];
		CstLst=Lst[7];
		CstAd1=Lst[8];
		CstAd2=Lst[9];
		CstCty=Lst[10];
		CstSta=Lst[11];
		CstZip=Lst[12];
		CstCou=Lst[13];
		CstPho=Lst[14];
		CstFAX=Lst[15];
		CstEMl=Lst[16];
		CrdNam=Lst[17];
		CrdTyp=Lst[18];
		CrdNum=Lst[19];
		CrdExp=Lst[20];
		CrdFil=1*Lst[21];
		CstTyp=1*Lst[22]; 
		CstPrf=1*Lst[23];
		CurYer=1*Lst[24];
		if (CstIDN>0)
		{
		  IncSam=true;
		  if (RtlGrp==1) 
		  {
				document.getElementById("txtOrdDsc").innerHTML="Family Name or Order Reference Number (Optional)"
				document.getElementById("rowOrdNum").style.display="";
				document.getElementById("rowCerNum").style.display="none";
			}
			else 
			{
			  RtlGrp=2;
				document.getElementById("txtOrdDsc").innerHTML="Order Reference Number or PO Number (Optional)"
				document.getElementById("rowOrdNum").style.display="";
				document.getElementById("rowCerNum").style.display="none";
			}
		  document.getElementById("adrCstInf_CmpNam").value=CstCmp;
			document.getElementById("adrCstInf_CmpDsc").value=CstDsc;
			document.getElementById("adrCstInf_CmpDLs").selectedIndex=CstBTp;
			document.getElementById("adrCstInf_FedIDN").value=CstFID;
			document.getElementById("adrCstInf_FstNam").value=CstFst;
			document.getElementById("adrCstInf_LstNam").value=CstLst;
			document.getElementById("adrCstInf_AdrLn1").value=CstAd1
			document.getElementById("adrCstInf_AdrLn2").value=CstAd2;
			document.getElementById("adrCstInf_AdrCty").value=CstCty;
			if (CstCou=="United States" || CstCou=="US" || CstCou=="USA") 
			{
				document.getElementById("adrCstInf_AdrSta").value=CstSta;
				document.getElementById("adrCstInf_AdrSta").style.display="";
				document.getElementById("adrCstInf_AdrPrv").style.display="none";
			}	
			else												 
			{
				document.getElementById("adrCstInf_AdrPrv").value=CstSta;	
				document.getElementById("adrCstInf_AdrSta").style.display="none";
				document.getElementById("adrCstInf_AdrPrv").style.display="";
			}
			document.getElementById("adrCstInf_AdrZip").value=CstZip;
			document.getElementById("adrCstInf_AdrCou").value=CstCou;
			document.getElementById("adrCstInf_AdrPho").value=CstPho;
			document.getElementById("adrCstInf_AdrFAX").value=CstFAX;
			document.getElementById("adrCstInf_AdrEMl").value=CstEMl;
			document.getElementById("adrCstInf_AdrCEM").value=CstEMl;	
			SetCAd();
		}
		else
		{
		  IncSam=false;
			document.getElementById("txtOrdDsc").innerHTML="Order Reference Number (Optional)"
			document.getElementById("rowOrdNum").style.display="none";
			document.getElementById("rowCerNum").style.display="none";
			document.getElementById("adrConAdr_FstNam").value=CstFst;
			document.getElementById("adrConAdr_LstNam").value=CstLst;
			document.getElementById("adrConAdr_AdrLn1").value=CstAd1
			document.getElementById("adrConAdr_AdrLn2").value=CstAd2;
			document.getElementById("adrConAdr_AdrCty").value=CstCty;
			if (CstCou=="United States" || CstCou=="US" || CstCou=="USA") 
			{
				document.getElementById("adrConAdr_AdrSta").value=CstSta;
				document.getElementById("adrConAdr_AdrSta").style.display="";
				document.getElementById("adrConAdr_AdrPrv").style.display="none";
			}	
			else												 
			{
				document.getElementById("adrConAdr_AdrPrv").value=CstSta;	
				document.getElementById("adrConAdr_AdrSta").style.display="none";
				document.getElementById("adrConAdr_AdrPrv").style.display="";
			}
			document.getElementById("adrConAdr_AdrZip").value=CstZip;
			document.getElementById("adrConAdr_AdrCou").value=CstCou;
			document.getElementById("adrConAdr_AdrPho").value=CstPho;
			document.getElementById("adrConAdr_AdrEMl").value=CstEMl;
			document.getElementById("adrConAdr_AdrCEM").value=CstEMl;	
		}
		if (CstTyp==0 || CrdFil==0)  // always uses CC
		{
			document.getElementById("divPayOpt").style.display="none";
			PayTyp=1;
		}
		if (CstTyp==1 && CrdFil==1) // CC on File
		{
			document.getElementById("divPayOpt").style.display="";
			document.getElementById("rdoTrmSel_2").parentNode.style.display="none";		
			if (CrdFil==1)
			{
				document.getElementById("rdoTrmSel_1").checked=true;
				PayTyp=2
			}
			else
			{
				document.getElementById("rdoTrmSel_0").checked=true;
				PayTyp=1;
			}
		}
		if (CstTyp==2)
		{
			document.getElementById("divPayOpt").style.display="";
			document.getElementById("rdoTrmSel_2").checked=true;
			PayTyp=3;
			if (CrdFil==0)
			{
				document.getElementById("rdoTrmSel_1").parentNode.style.display="none";		
			}
		}
		SelTrm();
		GetPrd(PrdTyp,CstIDN,RtlGrp,IncSam);
		if (CstIDN>0 && CstPrf==0)
		{
			HomVue(10);
		}
	  else
	  {
			if (SrcPID==0) HomVue(9);
		}
	}
	else
	{
	  if (CstIDN==0)
	  {
			document.getElementById("adrConAdr_AdrEMl").value=CstEMl;
			document.getElementById("adrConAdr_AdrCEM").value=CstEMl;
			document.getElementById("adrCstInf_AdrEMl").value=CstEMl;
			document.getElementById("adrCstInf_AdrCEM").value=CstEMl;	
			document.getElementById("divPayOpt").style.display="none";
			PayTyp=1;
			GetPrd(0,CstIDN,RtlGrp,IncSam);
			if (SrcPID==0) HomVue(9);
		}
		else 
		{
			alert("Customer Info Server Error: " + Lst[1]);
		}
	}
}

function SelTrm()
{
	if (document.getElementById("rdoTrmSel_0").checked)  
	{
		PayTyp=1;
	}
	if (document.getElementById("rdoTrmSel_1").checked)
	{
		PayTyp=2;
	}
	if (document.getElementById("rdoTrmSel_2").checked)			
	{
	  PayTyp=3;
	}
	return true;
}


function UPrBck(result,eventArgs)
{
	var Lst;
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
		GetCst(CstIDN);
		HomVue(9);  
  }
  else
  {
		document.getElementById("txtPrfMsg").innerHTML=Lst[1];  	
  }
}

function PrdBck(result,eventArgs)
{
	var Lst;
  var Cnt=0;
  var Idx=0;
  var PIx=0;
  var IDN=0;
  var Prd="";
  var Prc=0;
  var SBd=0;
  var DSz="";
  var YDn="";
  var Dm1=0;
  var Dm2=0;
  var SKt=0;
  var SCt=0;
  var PIm=0;
  var Fnd=false;
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
    PrdLst.length=0;
    document.getElementById("cboPrdNam").options.length=0;
    Cnt=1*Lst[1]; 
    for (Idx=0; Idx<Cnt; Idx++)
		{
			IDN=Lst[11*Idx+2];
			Prd=Lst[11*Idx+3];
			Prc=1*Lst[11*Idx+4];
			SBd=1*Lst[11*Idx+5];
			DSz=Lst[11*Idx+6];
			YDn=Lst[11*Idx+7];
			Dm1=1*Lst[11*Idx+8];
			Dm2=1*Lst[11*Idx+9];
			SKt=1*Lst[11*Idx+10];
			SCt=1*Lst[11*Idx+11];
			PIm=1*Lst[11*Idx+12];
			if (Prc>0)
			{
				PrdLst[PIx]=new Object();
				PrdLst[PIx].IDN=IDN; 
				PrdLst[PIx].Nam=Prd;
				PrdLst[PIx].Prc=Prc;
				PrdLst[PIx].SBd=SBd;
				PrdLst[PIx].DSz=DSz;
				PrdLst[PIx].YDn=YDn;
				PrdLst[PIx].Dm1=Dm1;
				PrdLst[PIx].Dm2=Dm2;
				PrdLst[PIx].SKt=SKt;
				PrdLst[PIx].SCt=SCt;
				PrdLst[PIx].PIm=PIm;
				if (SKt==0) PrdLst[PIx].Dsc=Prd + " " + DSz;
				else				PrdLst[PIx].Dsc=Prd;
				document.getElementById("cboPrdNam").options[PIx]=new Option(PrdLst[PIx].Dsc,PIx,false,false);				
				if (SrcPID>0 && SrcPID==IDN) PrdIdx=PIx;
				PIx++;
			}
		}
		PrdCnt=PIx;
		if (SrcPID>0)	
		{
			AtoOrd()
		}
  }
  else alert("Product List Error: " + Lst[1]);
}

function PrcBck(result,eventArgs)
{
	var Lst;
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
    PrdPrc=1*Lst[1];
		document.getElementById("txtUntPrc").value="$"+PrdPrc.toFixed(2);
  }
}

function SCsBck(result,eventArgs)
{
	var Lst;
	var Cnt;
	var DHr;
	var Idx;
	var Srv;
	var SCs;
	var Dsc;
	var Opt;
	var RDt;
	var Pri;
	var YDn;
	var Sel=0;
	document.getElementById("txtAdrMsg").innerHTML="";
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
		ShpLst.length=0;
		Cnt=1*Lst[1]; ShpCnt=Cnt; 
		DHr=1*Lst[2];
		for (Idx=0; Idx<Cnt; Idx++)
		{
		  Srv=Lst[Idx*7+3];
		  SCs=1*Lst[Idx*7+4];
		  Dsc=Lst[Idx*7+5];
		  Opt=1*Lst[Idx*7+6];
		  RDt=1*Lst[Idx*7+7];
		  Pri=1*Lst[Idx*7+8];
		  YDn=Lst[Idx*7+9];
		  ShpLst[Idx]=new Object();
		  ShpLst[Idx].Srv=Srv;
		  ShpLst[Idx].SCs=SCs;
		  ShpLst[Idx].Dsc=Dsc;
		  ShpLst[Idx].Opt=Opt;
		  ShpLst[Idx].RDt=RDt;
		  ShpLst[Idx].Pri=Pri;
		  ShpLst[Idx].YDn=YDn;
		  ShpLst[Idx].Vis=true;
		  ShpLst[Idx].Chk=false;
		  if ((Srv=="GND" || Srv=="IGD") && Pri==0) Sel=Idx; 
		  if (Srv=="EXP")
		  {
				if (DHr<=12 || DHr>=15)	ShpLst[Idx].Vis=false;
				else
				{
					if (ExpSel) ShpLst[Idx].Chk=true;
				}
			}
		}	
		if (ShpIdx>=0 && ShpIdx<ShpLst.length)	ShpLst[ShpIdx].Chk=true;
		else																		ShpLst[Sel].Chk=true;
		CfgShp(0);
		CalOrd();
		SelSec(12);
  }
  else
  {
		alert(Lst[1]);
  }
}

function AcpDCm(Sel)
{
	return true;
}

function SavPrf(Sel)
{
  if (Sel==0)
  {
		HomVue(9);
  }
	if (Sel==1)
	{
		ChkAdr("adrCstInf","P");		
	}
	return false;
}

function SelPrd()
{
  var Idx=1*document.getElementById("cboPrdNam").selectedIndex;
  if (Idx>0)
  {
    PrdIDN=PrdLst[Idx].IDN;
    PrdPrc=PrdLst[Idx].Prc; 
    SupBrd=PrdLst[Idx].SBd;
    YrnDen=PrdLst[Idx].YDn;
    SamKit=PrdLst[Idx].SKt;
    SamCnt=PrdLst[Idx].SCt;
    PrdImg=PrdLst[Idx].PIm;
    SupTxt=0;
    SupArg=0;
    PrdOrn="V";
    if (PrdLst[Idx].Dm1>PrdLst[Idx].Dm2)	{ PrdLDm=PrdLst[Idx].Dm1; PrdSDm=PrdLst[Idx].Dm2; }
    else																	{ PrdSDm=PrdLst[Idx].Dm1; PrdLDm=PrdLst[Idx].Dm2; }
    if (SamKit==1) SupBrd=0;
		document.getElementById("txtUntPrc").value="$"+PrdPrc.toFixed(2)
		document.getElementById("txtOrdQty").value="1";
		if (ActHom==9) document.getElementById("txtOrdQty").focus();
		if (SamCnt>0)
		{
			document.getElementById("txtSamDsc").innerHTML=PrdLst[Idx].Nam+"  (Select any "+SamCnt+" Samples)";
			document.getElementById("divStkOpt").style.display="";
			document.getElementById("divCusOpt").style.display="none";
			document.getElementById("divSamSel").style.display="";
		}
		else
		{
			document.getElementById("divCusOpt").style.display="";
			document.getElementById("divStkOpt").style.display="none";
			document.getElementById("divOrdOpt").style.display="";
			SelAoR(1,false);
		}
		PrdAct=true;
		PrdIdx=Idx;
	  BrdIDN=0;
		BrdDsc="";
		BrdPrc=0;
		DspPDF=false;
		if (CstIDN>0) GetPrc(CstIDN,PrdLst[Idx].IDN,1);
		if (CerNum=="") VfyCer(CerNum,PrdLst[PrdIdx].Dsc,TstMod);
	}
	else
  {
    PrdAct=false;
    PrdIdx=0;
    PrdPrc=0;
		document.getElementById("txtPrdPrc").value="";
		document.getElementById("txtOrdQty").value="";
  }
}

function VCrBck(result,eventArgs)
{
	var Lst;
	var CID=0;
	var PID=0;
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
		CerNum=Lst[1];
		CID=Lst[2];
		PID=Lst[3];
		if (PID>0)
		{
			document.getElementById("cboPrdNam").selectedIndex=GetPIx(PID);
		}
		if (SrcPID>0)
		{
			ROrSta=0;
			if (SrcPMd=="C") 
		  {
				OrdSta=1; 
				FmtTyp=1;
			}
			else 
			{
				OrdSta=3;
				FmtTyp=0;
			}
			document.getElementById("txtOrdQty").value="1";
			document.getElementById("txtOrdIDN").value="Consumer";
			AddOrd();	
		}
	}
	else 
	{
		alert(Lst[1]);
	}
}

function ChkSam(IDN,Itm,Prc,Chk)
{
	SelSam(IDN,Itm,Prc,Chk,false);
	return true;
}

function SelSam(IDN,Itm,Prc,Chk,Tog)
{
	var Sel=document.getElementById(Chk).checked;
	var Idx=0;
	var FIx=-1;
	var Qty=0;
	var Cnt=0;
	var Tot=0;
	if (Tog) document.getElementById(Chk).checked=!Sel;
	Cnt=SamLst.length;
	if (document.getElementById(Chk).checked)
	{
		SamLst[Cnt]=new Object;
		SamLst[Cnt].IDN=IDN;
		SamLst[Cnt].Chk=Chk;
		SamLst[Cnt].Itm=Itm;
		SamLst[Cnt].Prc=1*Prc;	
	}
	else
	{
		for (Idx=0; Idx<Cnt; Idx++)
		{
			if (SamLst[Idx].Itm==Itm) FIx=Idx;
		}
		if (FIx>=0) SamLst.splice(FIx,1);
	}
	Qty=1*document.getElementById("txtOrdQty").value;
	for (Idx=0; Idx<SamLst.length; Idx++)
	{
	  if (Idx>=SamCnt) Tot+=Qty*SamLst[Idx].Prc;
	}
	if (Tot>0) document.getElementById("txtSamCst").innerHTML="Additional Cost: $ "+Tot.toFixed(2);
	else			 document.getElementById("txtSamCst").innerHTML="";
	return false;
}

function CmpSam()
{
  OrdSta=1;
	AddOrd();
	return false;
}

function ClrSam()
{
  var Tbl;
	var Lst;
	var Idx=0;
	Tbl=document.getElementById("tblSamTbl");
	Lst=Tbl.getElementsByTagName("input");
	for (Idx=0; Idx<Lst.length; Idx++)
	{
	  if (Lst[Idx].name.substring(0,3)=="chk")
	  {
			Lst[Idx].checked=false;
	  }
	}
}

function SelAoR(Sel,Prc)
{
	document.getElementById("cmdActOrd").src="Images/RtlPag/ActCer.jpg";
	document.getElementById("cmdRdmOrd").src="Images/RtlPag/RdmCer.jpg";
	document.getElementById("cmdROrOrd").src="Images/RtlPag/ROrCer.jpg";
	if (Sel==0) 
	{
		ROrSta=0;
	  OrdSta=1;
	  FmtTyp=1;
	  DspPDF=false;
	  document.getElementById("cmdActOrd").src="Images/RtlPag/ActSel.jpg";
	}
	if (Sel==1) 
	{
		ROrSta=0;
	  OrdSta=3;
	  FmtTyp=0
	}
	if (Sel==2)
	{
		ROrSta=1;
		OrdSta=1;
		FmtTyp=0;
		document.getElementById("txtROrMsg").innerHTML="";
		document.getElementById("cmdROrOrd").src="Images/RtlPag/ROrSel.jpg";
	}
	document.getElementById("divAOrMnu").style.display="none";
	document.getElementById("divULdMnu").style.display="none";
	document.getElementById("divROrMnu").style.display="none";
	if (OrdSta==1)
	{
	  if (ROrSta==0)
	  {
			document.getElementById("divAOrMnu").style.display="";
		}
		else
		{
			document.getElementById("divROrMnu").style.display="";
			document.getElementById("txtROrCr1").focus();
		}
	}
	if (OrdSta==3) 
	{
	  if (Prc) AddOrd();
	}
  return false;
}

function OpnPDF()
{
  if (AbtLod())
  {
		DspPDF=true;
		UpdPDF(CerNum,PrdLst[PrdIdx].Dsc);	
  }
  else
  {
		alert("Acrobat Reader Not Detected.  Use the provided link to download");
  }
	return false;
}

function PDFBck(result,eventArgs)
{
	var Lst;
	var CID=0;
	var PID=0;
	var URL="";
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
		if (DspPDF)
		{
			URL="Certificates/" + CerNum + ".pdf";
			window.open(URL,"PictureWeave","width=400,height=400,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,copyhistory=0,resizable=1");
			DspPDF=false;
		}
  }
  else
  {
		alert(Lst[1]);
	}
}

function GetRdr()
{
	var URL="http://www.adobe.com/products/acrobat/readstep2.html";
	window.open(URL,"PictureWeave","width=400,height=200,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,copyhistory=0,resizable=1");
	return false;
}

function AddROr(CNm)
{
  ROrPnd=CNm;
	ROrNum="";
	ChkROr(CNm,CstIDN,PrdIDN);	
	return false;
}

function ROrBck(result,eventArgs)
{
	var Lst;
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
		AlwCmp=true;
		document.getElementById("txtRCrSta").innerHTML="Original Order Verified"
		ROrNum=ROrPnd;
		if (BusGrp>"") AddOrd();
  }
  else 
  {
		AlwCmp=false;
    document.getElementById("txtROrMsg").innerHTML=Lst[1];
    document.getElementById("txtRCrSta").innerHTML=Lst[1];
	}
}

function AtoOrd()
{
	document.getElementById("cboPrdNam").selectedIndex=PrdIdx;
	SelPrd();
}

function AddOrd()
{
  var Idx=0;
  if (ROrSta==0) ROrNum="";
  if (OrdLst!=null)
  {
		if (EdtMod) Idx=OrdIdx; else { Idx=OrdLst.length; OrdLst[Idx]=new Object(); OrdIdx=Idx; }
	}
	else
	{
		Idx=0; OrdLst[Idx]=new Object(); OrdIdx=Idx;
	}
	OrdLst[Idx].CNm=CerNum;
	OrdLst[Idx].PIx=PrdIdx; 
	OrdLst[Idx].Qty=document.getElementById("txtOrdQty").value;
	OrdLst[Idx].Prc=PrdPrc;
	OrdLst[Idx].Sta=OrdSta;
	OrdLst[Idx].ROr=ROrSta; 
	OrdLst[Idx].RON=ROrNum;
	OrdLst[Idx].ONm=document.getElementById("txtOrdIDN").value;
	OrdLst[Idx].BID=BrdIDN;
	OrdLst[Idx].BOr=BrdOrn;
	OrdLst[Idx].BDs=BrdDsc;
	OrdLst[Idx].BPr=BrdPrc;
	OrdLst[Idx].BIP=BrdIPt;
	OrdLst[Idx].SKt=SamKit;
	OrdLst[Idx].SCt=SamCnt;
	OrdLst[Idx].PIm=PrdImg;
	OrdLst[Idx].IXP=0;
	OrdLst[Idx].IYP=0;
	OrdLst[Idx].DWd=0;
	OrdLst[Idx].DHt=0;
	OrdLst[Idx].PWd=0;
	OrdLst[Idx].PHt=0;
	OrdLst[Idx].ISc=0;
	OrdLst[Idx].INm="";
	OrdLst[Idx].SDl=0;
	OrdLst[Idx].SCg=0;
	OrdLst[Idx].ECg=0;
	OrdLst[Idx].EPr=0;
	OrdLst[Idx].SLs=new Array;
	for (SIx=0; SIx<SamLst.length; SIx++)
	{
		OrdLst[Idx].SLs[SIx]=new Object();
		OrdLst[Idx].SLs[SIx].IDN=SamLst[SIx].IDN;
		OrdLst[Idx].SLs[SIx].Chk=SamLst[SIx].Chk;
		OrdLst[Idx].SLs[SIx].Itm=SamLst[SIx].Itm;
		OrdLst[Idx].SLs[SIx].Prc=SamLst[SIx].Prc;
	}
	EdtMod=true;
	if (OrdSta==1) 
  {
	  if (BusGrp=="PFP" || BusGrp=="PIC" || BusGrp=="POR" || ROrSta==0) SelSec(9);
	}
	else
  {
		if (OrdSta==3)
		{
			SupTxt=1;
			SupArg=1;
			SavOrd(true);
		}
	}
	return false;
}

function AddBrd()
{
  var Idx=0;
  if (OrdLst!=null)
  {
		Idx=OrdLst.length;
		if (BrdIDN>0)
		{
			if (EdtMod) 
			{
				Idx=OrdIdx; 
				if (OrdLst[Idx]==null)
				{
					OrdLst[Idx]=new Object(); 
				}
			}
			else 
			{
				EdtMod=true; 
				OrdLst[Idx]=new Object(); OrdIdx=Idx; 
				OrdLst[Idx].CNm=CerNum;
				OrdLst[Idx].PIx=99;
				OrdLst[Idx].Qty=1;
				OrdLst[Idx].Prc=0;
				OrdLst[Idx].Sta=2;
				OrdLst[Idx].ROr=0; 
				OrdLst[Idx].RON="";
				OrdLst[Idx].ONm="";
				OrdLst[Idx].SKt=SamKit;
				OrdLst[Idx].SCt=SamCnt;
				OrdLst[Idx].PIm=PrdImg;
				OrdLst[Idx].IXP=0;
				OrdLst[Idx].IYP=0;
				OrdLst[Idx].DWd=0;
				OrdLst[Idx].DHt=0;
				OrdLst[Idx].PWd=0;
				OrdLst[Idx].PHt=0;
				OrdLst[Idx].ISc=0;
				OrdLst[Idx].INm="";
				OrdLst[Idx].SDl=0;
				OrdLst[Idx].SCg=0;
				OrdLst[Idx].ECg=0;
				OrdLst[Idx].EPr=0;
			}
			OrdLst[Idx].BID=BrdIDN;
			OrdLst[Idx].BOr=BrdOrn;
			OrdLst[Idx].BDs=BrdDsc;
			OrdLst[Idx].BPr=BrdPrc;
			OrdLst[Idx].BIP=BrdIPt;
		}
		else
		{
			if (EdtMod) Idx=OrdIdx; 
			{
				if (OrdSta==2)
				{
					OrdLst.splice(Idx,1);
				}
				else
				{
					OrdLst[Idx].BID=BrdIDN;
					OrdLst[Idx].BOr=BrdOrn;
					OrdLst[Idx].BDs=BrdDsc;
					OrdLst[Idx].BPr=BrdPrc;
					OrdLst[Idx].BIP=BrdIPt;
				}
			}
		}
		CalOrd();
		if (OrdSta==1) SelSec(CmpSec);
	}
}

function NewOrd()
{
	ClrOrd();
	SetMod(1);
	HomVue(9);
	return false;
}

function EdtItm()
{
  var SIx=0;
	if (OrdSel)
	{
	  EdtMod=true;
	  PrdAct=true;
	  document.getElementById("txtOrdNum").value=OrdLst[OrdIdx].ONm;
		document.getElementById("cboPrdNam").selectedIndex=OrdLst[OrdIdx].PIx;
		document.getElementById("txtPrdPrc").value=OrdLst[OrdIdx].Prc;
		document.getElementById("txtOrdQty").value=OrdLst[OrdIdx].Qty;
		OrdSta=OrdLst[OrdIdx].Sta;
		PrdIdx=OrdLst[OrdIdx].PIx;
		CerNum=OrdLst[OrdIdx].CNm;
		ROrSta=OrdLst[OrdIdx].ROr;
		ROrNum=OrdLst[OrdIdx].RON;
		PrdPrc=OrdLst[OrdIdx].Prc;
		BrdIDN=OrdLst[OrdIdx].BID;
	  BrdOrn=OrdLst[OrdIdx].BOr;
		BrdDsc=OrdLst[OrdIdx].BDs;
		BrdPrc=OrdLst[OrdIdx].BPr;
		BrdIPt=OrdLst[OrdIdx].BIP;
		ImgFNm=OrdLst[OrdIdx].INm;
		ImgXPs=OrdLst[OrdIdx].IXP;
		ImgYPs=OrdLst[OrdIdx].IYP;
		ImgDWd=OrdLst[OrdIdx].IWd;
		ImgDHt=OrdLst[OrdIdx].IHt;
	  DspWid=OrdLst[OrdIdx].DWd;
		DspHgt=OrdLst[OrdIdx].DHt;
		PrdWid=OrdLst[OrdIdx].PWd;
		PrdHgt=OrdLst[OrdIdx].PHt;
		ImgScl=OrdLst[OrdIdx].ISc;
		SamKit=OrdLst[OrdIdx].SKt;
		SamCnt=OrdLst[OrdIdx].SCt;
		PrdImg=OrdLst[OrdIdx].PIm;
		SamLst=OrdLst[OrdIdx].SLs;
		for (SIx=0; SIx<SamLst.length; SIx++)
		{
			document.getElementById(SamLst[SIx].Chk).checked=true;
		}
		document.getElementById("imgDspImg").src="Orders/"+ImgFNm;  
		if (RtlGrp>0)
		{
			if (OrdSta==1)
			{
				SelAoR(0,false);
			}
			if (OrdSta==3)
			{
				if (ROrSta==0)
				{
					SelAoR(1,true);
				}
				else
				{
					SelAoR(2);
				}
			}
			SetMod(1);
			HomVue(9);
		}
		else
		{
			document.getElementById("txtEntQty").value=OrdLst[OrdIdx].Qty;				
			document.getElementById("divEntQty").style.display="";
			document.getElementById("txtEntQty").focus();
		}
	}
	return false;
}

function UpdQty()
{
  var Qty=document.getElementById("txtEntQty").value;
  document.getElementById("divEntQty").style.display="none";
  if (Qty=="") Qty="1";
  else
  {
		if ((1*Qty)<0) Qty="1";
  }
  OrdLst[OrdIdx].Qty=1*Qty;
  CalOrd();
  return false;
}

function DelItm()
{
	if (OrdSel)
	{
	  OrdSel=false;
		OrdLst.splice(OrdIdx,1);
		CalOrd();
		if (OrdLst.count==0)
		{
			SetMod(1);
			HomVue(9);
		}
	}	
	return false;
}

function ClrOrd()
{
  if (RtlGrp==0 || RtlGrp==1) OrdSta=3; else OrdSta=1;
  PrdAct=false;
  CerNum="";
  BrdIDN=0;
	BrdDsc="";
	BrdPrc=0;
	ImgFNm="";
	ROrCer="";
	ROrPnd="";
	DsnBuf="";
	SamLst.length=0;
	ClrSam();
  EdtMod=false;
	document.getElementById("cboPrdNam").selectedIndex=0;
	document.getElementById("txtOrdQty").value="";
	document.getElementById("txtUntPrc").value="";
	document.getElementById("txtOrdIDN").value="";
	document.getElementById("txtROrCr1").value="";
	document.getElementById("txtROrCr2").value="";
	document.getElementById("txtROrCr3").value="";
	document.getElementById("txtROrCr4").value="";
	document.getElementById("txtROrCr5").value="";
	document.getElementById("txtROrCr6").value="";
	document.getElementById("txtROrCr7").value="";
	document.getElementById("txtROrCr8").value="";
	document.getElementById("txtROrCr9").value="";
	document.getElementById("divOrdOpt").style.display="none";
	document.getElementById("divAOrMnu").style.display="none";
	document.getElementById("divULdMnu").style.display="none";
	document.getElementById("divROrMnu").style.display="none";
}

function ClrSam()
{
  var Tbl;
	var Lst;
	var Idx=0;
	Tbl=document.getElementById("tblSamTbl");
	Lst=Tbl.getElementsByTagName("input");
	for (Idx=0; Idx<Lst.length; Idx++)
	{
	  if (Lst[Idx].name.substring(0,3)=="chk")
	  {
			Lst[Idx].checked=false;
	  }
	}
}

function RStOrd()
{
  OrdLst.length=0
  document.getElementById("cboPrdNam").selectedIndex=0;
  document.getElementById("txtEntQty").value="";
  document.getElementById("divOrdOpt").style.display="none";
	ReqDte="";
	ReqTim="";
	RDtSta=0;
	RDtMsg="Required Date must be entered";
	ClrOrd();
	RStPnd=false;
	return false;
}

function SavOrd(Tmp)
{
	var Buf="";
	var SLs="";
	var Prc=0;
	var Dis=0;
	var Idx=0;
	var BIP="";
	var FAd=0;
	if (BusGrp=="CON" || BusGrp=="PFP" || BusGrp=="PIC" || BusGrp=="POR")  
	{
	  if (!Tmp)
	  {
			document.getElementById("cmdCmpOrd").disabled=true;
			document.getElementById("divCmpMsg").style.display="";
	  }
	  CerLst="";
	  Buf+=CstIDN+"|";  // 0
		Buf+=PayTyp+"|";  // 1
		Buf+=BAdBuf;	    // 2,3,4,5,6,7,8,9,10,11
		Buf+=SAdBuf;			// 12,13,14,15,16,17,18,19,20
		Buf+=ROrIDN + "|" + ShpSrv + "|" + ExpLvl + "|" + ReqDte + "|" + ReqTim + "|" + SatDel + "|" + DisCod + "|"; // 21,22.23.24.25,26,27
		if (CstTyp==0 || CstTyp==1)	Buf+=CrdNam + "|" + CrdTyp + "|" + CrdNum + "|" + CrdExp + "|" + CrdSec + "|";   // 28,29,30,31,32
		else												Buf+="|||||" 
		Buf+=OrdLst.length + "|"; //33
		for (Idx=0; Idx<OrdLst.length; Idx++)
		{
		  CerLst+=OrdLst[Idx].CNm+"|";
			Buf+=OrdLst[Idx].CNm+"|";
			Buf+=OrdLst[Idx].ONm+"|";
			if (OrdLst[Idx].PIx==99)  Buf+="0|";
			else											Buf+=PrdLst[OrdLst[Idx].PIx].IDN+"|";	
			Buf+=OrdLst[Idx].Qty+"|";
			Prc=1*OrdLst[Idx].Prc;
			if (DisPct>0)
			{
				Dis=1*((Prc*DisPct).toFixed(2));		
				Prc=Prc-Dis;
			}
			Buf+=Prc.toFixed(2)+"|";
			// Samples without images are automatically marked as Activate/Redeem
			if (OrdLst[Idx].Sta==1 && OrdLst[Idx].PIm==0) Buf+="3|";
			else																					Buf+=OrdLst[Idx].Sta+"|";
			Buf+=OrdLst[Idx].BID+"|";
			Buf+=OrdLst[Idx].BCd+"|";
			Buf+="0|";
			Buf+=OrdLst[Idx].BOr+"|";
			if (OrdLst[Idx].BIP>"")
			{
				BIP=OrdLst[Idx].BIP;
				BIP=BIP.replace("|",":")
				BIP=BIP.replace("|",":")
				BIP=BIP.replace("|",":")
				BIP=BIP.replace("|",":")
				BIP=BIP.replace("|",":")
			}
			Buf+=BIP+"|";
			Buf+=OrdLst[Idx].INm+"|";
			Buf+=(OrdLst[Idx].IXP*OrdLst[Idx].ISc).toFixed(0)+"|";
			Buf+=(OrdLst[Idx].IYP*OrdLst[Idx].ISc).toFixed(0)+"|";
			Buf+=(OrdLst[Idx].DWd*OrdLst[Idx].ISc).toFixed(0)+"|";
			Buf+=(OrdLst[Idx].DHt*OrdLst[Idx].ISc).toFixed(0)+"|";
			Buf+=OrdLst[Idx].PWd+"|";
			Buf+=OrdLst[Idx].PHt+"|";
			Buf+=OrdLst[Idx].SCg+"|";
			Buf+=OrdLst[Idx].ECg+"|";
			Buf+=OrdLst[Idx].SKt+"|";
			Buf+=OrdLst[Idx].ROr+"|";
			Buf+=OrdLst[Idx].RON+"|";
			if (OrdLst[Idx].SCt>0)
			{
				SLs=OrdLst[Idx].SCt+",";
				SamLst=OrdLst[Idx].SLs;
				for (SIx=0; SIx<SamLst.length; SIx++)
				{
					SLs+=SamLst[SIx].IDN+",";
					SLs+=SamLst[SIx].Prc;
					if (SIx<SamLst.length-1) SLs+=","; else SLs+="|";
				}
				Buf+=SLs;
			}
			else
			{
				Buf+="|"
			}
		}
		if (Tmp) CmpOrd(Buf,"",false,Tmp,0);
		else			
		{
		  SelTrm();
			if (PayTyp==1)  // CC required
			{ 
			  OrdBuf=Buf;
				SelSec(14);
				document.getElementById("txtPrcMsg").innerHTML="Getting Order Reference - Please Wait";
				GetORf();
			}
	    else CmpOrd(Buf,DsnBuf,false,Tmp,0);
		}
	}
	else
	{
	  SelSec(14);
		if (EvlPay())  // Charges Required
		{
			document.getElementById("txtPrcMsg").innerHTML="Gettting Order Reference - Please Wait";
		  GetORf();
		}
		else
		{
			document.getElementById("txtPrcMsg").innerHTML="Saving Order - Please Wait";
			if (FulAdr) FAd=1;
			SavDta(OrdIDN,CerNum + "|" + ROrNum + "|" + FAd + "|" + AdrBuf,DsnBuf,1);		
		}
	}
  return false;
}

function CmpBck(result, eventArgs)
{
	var Lst;
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
    if (OrdSta==1 || OrdSta==2)
    {
			SelSec(15);	
    }
    else
    {
      if (Lst[1]=="Temp")
      {
        CerNum=Lst[2]; 
        CerEnt=CerNum
				GetCer(CerNum,true);
			}
			else 
			{
				SelSec(15);
			}
		}
  }
  else
  {
    if (Lst[0]=="WN")
    {
			alert("Please make a note of your Certificate Number: " + CerNum + "\n\n"+Lst[1]);
			SelSec(15);
    }
    else
    {
			alert("Order Entry Error: " + Lst[1]);
		}
  }
}

function ORfBck(result, eventArgs)
{
	var Lst;
	var FAd=0;
	var Frm=document.getElementById("frmOrdVue")
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
    OrdRef=Lst[1];
		document.getElementById("txtPrcMsg").innerHTML="Loading Secure Payment Site - Please Wait";
		PmtURL=document.getElementById("txtPmtURL").innerHTML + "?TST=" + TstMod + "&AMT=" + TotAmt + "&REF=" + Lst[1];		 
		if (BusGrp=="CON" || BusGrp=="PFP" || BusGrp=="PIC" || BusGrp=="POR")
		{
			document.getElementById("frmOrdVue").style.display="";
			Frm.src=PmtURL;		
		}
		else
		{
			if (FulAdr) FAd=1;
			SavDta(OrdIDN,CerNum + "|" + ROrNum + "|" + FAd + "|" + AdrBuf,DsnBuf,0);		
		}
  }
  else alert(Lst[1]);
}

function SavBck(result, eventArgs)
{
  var Buf;
  var Frm=document.getElementById("frmOrdVue");
	Buf=result.split('|');
	if (Buf[0]=="OK" || Buf[0]=="WN")
	{
	  if (Buf[0]=="WN")
	  {
			alert("Please make a note of your Certificate Number: " + CerNum + "\n\n"+Buf[1]);
	  }
		if (PmtURL>"")  // Additional Payment Required
		{
			document.getElementById("frmOrdVue").style.display="";
			Frm.src=PmtURL;
		}
		else
		{
			SelSec(15);
		}
	}
	else 
	{
		alert(Buf[1]);
	}
}

function CCdLod()
{
  var Ctl=document.getElementById("txtPrcMsg");
  if (Ctl!=null) document.getElementById("txtPrcMsg").innerHTML="Use our Secure Payment Gateway to complete your order";
  ChkORf(OrdRef);
	return false;
}

function CRfBck(result, eventArgs)
{
	var Lst;
	Lst=result.split("|");
  if (Lst[0]=="OK")
  {
		ROrIDN=1*Lst[1];
		document.getElementById("frmOrdVue").style.display="none";
		document.getElementById("txtPrcMsg").innerHTML="Processing your Order - Please Wait . . .";
		if (BusGrp=="CON" || BusGrp=="PFP" || BusGrp=="PIC" || BusGrp=="POR")	CmpOrd(OrdBuf,DsnBuf,false,false,ROrIDN);
		else																																	CmpOrd(UpgBuf,DsnBuf,true,false,ROrIDN);
  }
	else
	{
		if (Lst[1]!="Not Found") alert(Lst[1]);	
	}
}

function EvlPay()
{
  var Ret=false;
	var Tot=0;
	var Idx=0;
	var Srv="GND";
	var SCg=0;
	var EPr=0;
	var ECg=0;
	// Upgrades to Existing Order
	UpgBuf=OrdIDN + "|" + CerNum + "|";  // 0,1
	// Border
	if (BrdIDN>0 && (BrdPrc-OrdBPr)>0)
	{
		Tot+=BrdPrc-OrdBPr;
		UpgBuf+=BrdIDN + "||" + BrdOrn + "|" + BrdDsc + "|" + (BrdPrc-OrdBPr) + "|";	// 2,3,4,5,6
	}
	else UpgBuf+="0||||0|";
	// Shipping and Expedite
	SCg=0;
	ECg=0; 
	EPr=0;
	for (Idx=0; Idx<ShpCnt; Idx++)
	{
		if (ShpLst[Idx].Chk)
		{
		  Srv=ShpLst[Idx].Srv;
			SCg=ShpLst[Idx].SCs;
			if (Srv=="1DY") EPr=1;
			if (Srv=="EXP")
			{
			  EPr=1;
				ECg=ShpLst[Idx].SCs;
			}
		}
	}
	Tot+=(SCg+ECg);
	UpgBuf+=Srv + "|" + SCg + "|" + EPr + "|" + ECg + "|" + ROrIDN + "|";  // 7,8,9,10,11
	if (Tot>0) Ret=true;
	TotAmt=Tot;
	return Ret;
}

function DspCfm()
{
	var URL="CfmVue.aspx?CLS="+CerLst;
	var Win=null;
	Win=window.open(URL,"PictureWeave","width=680,height=750,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,copyhistory=0,resizable=0");
	if (!Win)
	{
		alert("You have a popup blocker enabled. Please allow popups for this site");
	}
	return false;
}

function CalOrd()
{
	var Tbl=document.getElementById("tblPaySum");
	var Idx=0;
	var PIx=0;
	var SIx=0;
	var Nam="";
	var Prc="";
	var YDn="";
	var Qty=0;
	var SLv=0;
	var Dis=0;
	var Tot=0;
	var SCg=0;
	var ECg=0;
	var OSh=0;
	var OEx=0;
  var EEx=0;
	OrdSel=false;
	DisAmt=0;
	AdrReq=0;
	while (Tbl.rows.length>1) Tbl.deleteRow(1);
	if (OrdLst.length>0)
	{
		for (Idx=0; Idx<OrdLst.length; Idx++)
		{
			PIx=OrdLst[Idx].PIx;
			if (PIx==99) // Border Only or Shipping
			{
			  if (OrdLst[Idx].BID>0)	
			  {
					Nam=OrdLst[Idx].BDs + " border";
					Prc=OrdLst[Idx].BPr;
				}
			  else										
			  {
					Nam="Upgrade Shipping";
					Prc=0;
				}
				Qty=OrdLst[Idx].Qty;
			}
			else
			{
				Nam=PrdLst[PIx].Nam;
				YDn=PrdLst[PIx].YDn;
				Prc=OrdLst[Idx].Prc;
				Qty=OrdLst[Idx].Qty;
				if (OrdLst[Idx].BID>0)
				{
					Nam+=" w/ " + OrdLst[Idx].BDs + " border"
					Prc+=OrdLst[Idx].BPr;
				}
				if (OrdLst[Idx].ROr==1)
				{
					Nam+=" (Reorder " + OrdLst[Idx].RON + ")";
				}
			}
			if (OrdLst[Idx].SCt>0)
			{
			  if (OrdLst[Idx].SLs.length>OrdLst[Idx].SCt)
			  {
					Nam+=" w/ " + (OrdLst[Idx].SLs.length-OrdLst[Idx].SCt)+" Additional Samples"
					for (SIx=0; SIx<OrdLst[Idx].SLs.length; SIx++)
					{
						if (SIx>=OrdLst[Idx].SCt) Prc+=OrdLst[Idx].SLs[SIx].Prc;
					}
				}
			}
			if (DisPct>0)
			{
				Dis=1*((Prc*DisPct).toFixed(2));
				DisAmt+=Qty*Dis;
			}
			if (OrdLst[Idx].Sta>1 || OrdLst[Idx].PIm==0) AdrReq=1;
			AddCar(Tbl,Idx+1,Nam,OrdLst[Idx].CNm,Prc,Qty);
			if (YDn=="F" || !AlwShp) SLv=1;
			Tot+=Qty*Prc;
		}
		AddCar(Tbl,Idx,"Total","",Tot,0);
		OrdIdx=OrdLst.length;
		SelOLs(OrdIdx);
	}
	CfgShp(SLv);
	ShpSrv="GND"; 
	ExpLvl=0;
	SatDel=0;
	MrnDel=0;
	ReqTim="PM";
	SCg=0;
	ECg=0; 
	for (Idx=0; Idx<ShpCnt; Idx++)
	{
		if (ShpLst[Idx].Chk)
		{
			Srv=ShpLst[Idx].Srv; 
			if (ShpLst[Idx].Opt==0)
			{
			  ShpSrv=Srv;
		    SCg+=ShpLst[Idx].SCs;
		    if (Srv=="GND")
		    {
					ExpLvl=ShpLst[Idx].Pri;		
		    }
				if (Srv=="1DS" || Srv=="2DS") SatDel=1;
				if (Srv=="1DM")
				{
					MrnDel=1; ReqTim="AM";		
				}
			}
			else
			{
				if (Srv=="EXP") EEx=1;
				ECg=ShpLst[Idx].SCs;
			}
		}
	}
	if (RtlGrp==1) // Funeral Has Expedite >= 4
	{
		ExpLvl=4;	
	}
	ExpLvl=ExpLvl+EEx;
	document.getElementById("txtShpMsg").innerHTML="";
	if (SelRDt(false)) ChkDel(ShpSrv,SatDel,ReqDte,ReqTim,ExpSel); 
	else 
	{
		document.getElementById("txtShpMsg").innerHTML=RDtMsg;
		document.getElementById("txtShpMsg").style.color="White"; 
		document.getElementById("txtShpMsg").style.backgroundColor="Red";
	}
	ShpChg=0;
	ExpChg=0;
	if (OrdLst.length>0)
	{
		for (Idx=0; Idx<OrdLst.length; Idx++)
		{
		  Qty=OrdLst[Idx].Qty;
		  OSh=SCg+(Qty-1)*(SCg/2);
		  OEx=Qty*ECg;
		  OrdLst[Idx].SCg=OSh;
		  OrdLst[Idx].ECg=OEx;
		  ShpChg+=OSh;
		  ExpChg+=OEx;
		}
	}	
	else
	{
		ShpChg=SCg;
		ExpChg=ECg;
	}
	if (DisAmt>0)
	{
		document.getElementById("txtDisAmt").style.display="";
		document.getElementById("txtSubTot").style.display="";
	}
	else
  {
		document.getElementById("txtDisAmt").style.display="none";
		document.getElementById("txtSubTot").style.display="none";
  }
	OrdTot=Tot-DisAmt+ShpChg+ExpChg; TotAmt=OrdTot;
	document.getElementById("txtPrdCst").innerHTML="$"+Tot.toFixed(2);
	document.getElementById("txtDisAmt").innerHTML="$"+DisAmt.toFixed(2);
	document.getElementById("txtSubTot").innerHTML="$"+(Tot-DisAmt).toFixed(2);
	document.getElementById("txtShpCst").innerHTML="$"+(ShpChg+ExpChg).toFixed(2);
	document.getElementById("txtTotOrd").innerHTML="$"+(Tot-DisAmt+ShpChg+ExpChg).toFixed(2);
	return false;
}

function DelBck(result, eventArgs)
{
  var Buf;
  var SDl;
  var Msg;
  var STm;
  Buf=result.split("|"); 
  if (Buf[0]=="OK") 
  {
		document.getElementById("txtShpMsg").style.color="Black"; 
		document.getElementById("txtShpMsg").style.backgroundColor="White"; 
	}
  if (Buf[0]=="WN") 
  {
		document.getElementById("txtShpMsg").style.color="White"; 
		document.getElementById("txtShpMsg").style.backgroundColor="Red";
	}
	SDl=1*Buf[1];
	Msg=Buf[2];
	ReqDte=Buf[3];
	if (Msg>"")	document.getElementById("txtShpMsg").innerHTML=Msg + " - " + ReqDte
	if (Buf[4]>"") 
	{
		alert(Buf[4]);
		if (RDtSta==1) RDtSta=3;
		RDtMsg=Buf[4];
	}
	else
	{
		if (RDtSta==3) { RDtSta=1; RDtMsg=""; }
	}
	STm=Buf[5];
	document.getElementById("txtShpTim").innerHTML=STm;
	return false;
}

function EvlDis()
{
	var DCd=document.getElementById("txtDisCod").value;
	if (DCd>"")	GetDis(DCd);
	else				
	{
		DisPct=0;
		DisCod="";
		CalOrd();
	}
	return false;
}

function DisBck(result, eventArgs)
{
	var Buf;
  Buf=result.split("|")
  DisPct=0;
  DisCod="";
  if (Buf[0]=="OK")
  {
		DisPct=1*Buf[1];
		DisCod=document.getElementById("txtDisCod").value;
		CalOrd();
  }
  else 
  {
		alert(Buf[1]);
	}
  return false;
}

function AddCar(Tbl,Idx,Dsc,Cer,Prc,Qty)
{
	var Bdy=document.createElement('tbody'); 
	var Row;
	var Cel;
	var Agt = navigator.userAgent.toUpperCase();
	var Att=true;
	if ((Agt.indexOf('MSIE')>=0) && (Agt.indexOf('WIN')>=0)) Att=false;
	if (Att)
	{
		Row=document.createElement('tr')
		Row.setAttribute("onclick","SelOLs("+Idx+")");
	}
	else
	{
		Row=document.createElement('<tr onclick="SelOLs('+Idx+')">');
	}
	if (Att)
	{
		Cel=document.createElement('td');
		Cel.setAttribute("class","PayDsc");
	}
	else Cel=document.createElement('<td class="PayDsc">');
	Txt=document.createTextNode(Dsc); 
	Cel.appendChild(Txt);
	Row.appendChild(Cel);
	if (Att)
	{
		Cel=document.createElement('td');
		Cel.setAttribute("class","PayDsc");
	}
	else Cel=document.createElement('<td class="PayDsc">');
	Txt=document.createTextNode(Cer); 
	Cel.appendChild(Txt);
	Row.appendChild(Cel);
	if (Qty>0)
	{
		if (Att)
		{
			Cel=document.createElement('td');
			Cel.setAttribute('class','PayPrc');
		}
		else Cel=document.createElement('<td class="PayPrc">');
		Txt=document.createTextNode("$ " + (1*Prc).toFixed(2)); 
		Cel.appendChild(Txt);
		Row.appendChild(Cel);
		if (Att)
		{
			Cel=document.createElement('td');
			Cel.setAttribute('class','PayPrc');
		}
		else Cel=document.createElement('<td class="PayPrc">');
		Txt=document.createTextNode(Qty); 
		Cel.appendChild(Txt);
		Row.appendChild(Cel);
		if (Att)
		{
			Cel=document.createElement('td');
			Cel.setAttribute('class','PayPrc');
		}
		else Cel=document.createElement('<td class="PayPrc">');
		Txt=document.createTextNode("$ " + (Qty*Prc).toFixed(2)); 
		Cel.appendChild(Txt);
		Row.appendChild(Cel);
	}
	else
	{
		if (Att)
		{
			Cel=document.createElement('td');
			Cel.setAttribute('class','PayPrc');
		}
		else Cel=document.createElement('<td class="PayPrc">');
		Txt=document.createTextNode(""); 
		Cel.appendChild(Txt);
		Row.appendChild(Cel);
		if (Att)
		{
			Cel=document.createElement('td');
			Cel.setAttribute('class','PayPrc');
		}
		else Cel=document.createElement('<td class="PayPrc">');
		Txt=document.createTextNode(""); 
		Cel.appendChild(Txt);
		Row.appendChild(Cel);
		if (Att)
		{
			Cel=document.createElement('td');
			Cel.setAttribute('class','PayPrc');
		}
		else Cel=document.createElement('<td class="PayPrc">');
		Txt=document.createTextNode("$ " + (1*Prc).toFixed(2)); 
		Cel.appendChild(Txt);
		Row.appendChild(Cel);
	}
	Bdy.appendChild(Row);
	Tbl.appendChild(Bdy);
}

function SelOLs(RIx)
{
	var Tbl=document.getElementById("tblPaySum");
 	var Row;
 	var Idx;
 	if (Tbl.rows.length>1)
 	{
 		for (Idx=0; Idx<Tbl.rows.length; Idx++) 
		{
			Row=Tbl.rows[Idx]; 
			if (Idx==RIx)	Row.style.backgroundColor="#a7a7a7"; 
			else					Row.style.backgroundColor="#ffffff";
		}
		OrdIdx=RIx-1; OrdSel=true;
	}
}

function DspDsn()
{
  var Idx=0;
  var TIx=0;
  var Buf="";
  DsnBuf=""
	document.getElementById("lstDsnSpc").options.length=0;
	if (BrdIDN>0)
	{
	  Buf="Border: " + BrdDsc
		document.getElementById("lstDsnSpc").options[Idx]=new Option(Buf,Idx,false,false); Idx++;
		document.getElementById("lstDsnSpc").options[Idx]=new Option("",Idx,false,false);  Idx++;
		if ((BrdPrc-OrdBPr)<=0)	DsnBuf+=BrdIDN + "||" + BrdOrn + "|" + 1*BrdSTx + "|" + BrdSDn + "|"
		else										DsnBuf+="0| | |0|0|" 
	}
	else DsnBuf+="0| | |0|0|" 
	for (TIx=0; TIx<2; TIx++)
	{
		if (TxtBuf[TIx]>"")
		{
			Buf="Text Line " + (TIx+1)
			document.getElementById("lstDsnSpc").options[Idx]=new Option(Buf,Idx,false,false); Idx++;		
			Buf=TxtFDs[TIx] + " " + TxtFnt[TIx] + " " + TxtFSz[TIx] + "pt";
			document.getElementById("lstDsnSpc").options[Idx]=new Option(Buf,Idx,false,false); Idx++;		
			Buf=TxtCDs[TIx];
			document.getElementById("lstDsnSpc").options[Idx]=new Option(Buf,Idx,false,false); Idx++;		
			document.getElementById("lstDsnSpc").options[Idx]=new Option("",Idx,false,false);  Idx++;
		}
	}
	if (document.getElementById("lstDsnSpc").options.length>0)	document.getElementById("lstDsnSpc").style.display="";
	else																												document.getElementById("lstDsnSpc").style.display="none";
  return false;
}

function SelShp(Sel)
{
  var Idx;
  if (ShpLst[Sel].Opt==1) 
  {
    if (ShpLst[Sel].Chk)	ShpLst[Sel].Chk=false;
    else									ShpLst[Sel].Chk=true;
  }
  if (ShpLst[Sel].Opt==0)
  {
		ShpIdx=Sel;
		ShpLst[Sel].Chk=true;
    for (Idx=0; Idx<ShpCnt; Idx++)
		{
			if (ShpLst[Idx].Opt==0 && Idx!=Sel && (YrnDen==ShpLst[Idx].YDn || ShpLst[Idx].YDn=="B"))
			{
				document.getElementById("chkShp" + Idx.toFixed(3)).checked=false;
				ShpLst[Idx].Chk=false;
			}
		}	
  }
  // Set flag for Late Override
  if (ShpLst[Sel].Srv=="EXP") 
  {
		if (ShpLst[Sel].Chk) ExpSel=1; else ExpSel=0;
		if (ShpEnt) GetSCs(CstIDN,RtlGrp,SAdBuf,0,ExpSel); else GetSCs(CstIDN,RtlGrp,BAdBuf,0,ExpSel);
	}
  CalOrd();
	return true;
}

function SelQty()
{
  var Qty=document.getElementById("txtOrdQty").value;
	if (CstIDN>0) GetPrc(CstIDN,PrdLst[PrdIdx].IDN,1*Qty);
}

function SelRDt(Cal)
{
  var Ret=false;
	Ret=true;
	RDtSta=0;
	ReqDte="";
	RDtMsg=""
	return Ret;
}

function PrcAdr()
{
  if (FulAdr)
  {
		AdrLvl=0;
		document.getElementById("txtAdrMsg").innerHTML="Checking Bill To Address";
		ChkAdr("adrConAdr","C");	
	}
	else
  {
		document.getElementById("txtAdrMsg").innerHTML="Checking Contact Information";
		if (ChkCon())
		{
			AdrBuf=CAdBuf;
			if (OrdLst.length>0) SelSec(13);
			else								 SavOrd(false);
		}		
  }
	return false;
}

function SavShp()
{
	SelSec(13);	
	return false;
}

function ClsUpg()
{
	SelSec(15);	
}

function OrdBck(result, eventArgs)
{
	var Buf;
	var Msg;
	var CNm;
	Buf=result.split('|');
	Msg=Buf[0]
	if (Msg=="OK")
	{
	  document.getElementById("txtDrpMsg").value="Order Number " + OrdNum + " Verified OK"
	  CNm=Buf[1];
	  CerEnt=CNm
	  GetCer(CNm,true);
	}
  else
  {
		document.getElementById("txtDrpMsg").value=Buf[1];
  }
	return false;
}

function PStBck(result, eventArgs)
{
	var Buf;
	var Msg;
	var Sta;
	var Idx=0;
	Buf=result.split('|');
	Msg=Buf[0]
	if (Msg=="OK")
	{
		Sta="Order Status: " + OrdNum + "\r\r";
		for (Idx=3; Idx<Buf.length; Idx++)
		{
			Sta+=Buf[Idx]+"\r";
		}	
		document.getElementById("txtDrpMsg").value=Sta;
	}
  else
  {
		document.getElementById("txtDrpMsg").value=Buf[1];
  }
	return false;
}

function ConCmp()
{
  var Msg="";
  var Doc;
  if (document.getElementById("frmConInp").contentWindow.document.getElementById("txtConMsg"))
  {
    Msg=document.getElementById("frmConInp").contentWindow.document.getElementById("txtConMsg").innerHTML;
		if (Msg>"")
		{
			if (Msg=="OK")
			{
				alert("Contact Information Saved");
				Doc=document.getElementById("frmConInp").contentWindow.document;
				Doc.getElementById("adrConAdr_FstNam").value="";
				Doc.getElementById("adrConAdr_LstNam").value="";
				Doc.getElementById("adrConAdr_AdrLn1").value="";
				Doc.getElementById("adrConAdr_AdrLn2").value="";
				Doc.getElementById("adrConAdr_AdrCty").value="";
				Doc.getElementById("adrConAdr_AdrSta").value="";
				Doc.getElementById("adrConAdr_AdrZip").value="";
				Doc.getElementById("adrConAdr_AdrCou").value="United States";
				Doc.getElementById("adrConAdr_AdrPho").value="";
				Doc.getElementById("adrConAdr_AdrEMl").value="";
				Doc.getElementById("adrConAdr_AdrCEM").value="";
				Doc.getElementById("txtConMsg").innerHTML="";
				ConBck();
			}
		}
	}
	return false;
}

function ConBck()
{
	if (ActHom== 7) HomVue(6);
	if (ActHom==10) HomVue(8);
	if (ActHom==12) HomVue(8);
	return false;
}

function AdrCmp(Sta)
{
}