var
 	stDrvName,
	stPrnName,
	stPrnInfo,rp,rf,tx  	String
	i,S,cc              	SmallInt
	r							report

	ReportInfo   			ReportPrintInfo
	prnOptions				printerOptionInfo
   objWinfaxSend  		OLEAuto

	TCUser,TCRec,TCComp,
	sourceTC					Tcursor

	PP,DP,CP,OP,BP,
   WP,SP,EP,SE,
	FP,U,UN,UCN,
	SN,SSN,SW,SV,SF,
	strTb,TCDel,TCDis
   ,TCTer,Tcent			String
	destTb,tb 				Table

	ss,SA1,SA2,SCI1,
   SPR1,SC1,SPC1
   ,SCE,SGF,H ,eU 			string
   
endvar

	self.frame.style = Inside3DFrame

	Action(Datapostrecord)

	rp = ReportName
	s  = quoteno
;********    User Info

U = LoginName ; GetNetUserName()
eU = EnteredBy
UN = anotherarray["zUN"] ;
UCN = anotherarray["zUCN"] ;

If CompNo = PWCompanyNo then

 else
   TCUser.open("sysUser.db")
   scan TCUser for TCUser.SPUser = eU and TCUser.SCompanyNo = CompNo : 
        If NOT TCUser.SUserNo.isblank() then
	        ;	PP  = TCUser.SPrinter
	        ;	CP  = TCUser.SPrinterCopy
	        ;	OP  = TCUser.SPrinterOrder
	        ;	DP  = TCUser.SPrinterDefault
	        ;	WP  = TCUser.SPrinterWorkOrder
	        ;	SP  = TCUser.SPrinterPickingSlip
	        ;	BP  = TCUser.SPrinterBarCode

	        ;	EP  = TCUser.SPrinterEmail
	        ;	FP  = TCUser.SPrinterFax

		     U	 = TCUser.SPUser
		     UN	 = TCUser.SUserNo
		     UCN = TCUser.SCompanyNo
		     SE  = TCUser.SEmail

           TCComp.open("sys.db")
             TCComp.Locate("CompanyNo",UCN)
             SN   = TCComp.Name
             SSN  = TCComp.SubName
		       SW   = TCComp.Website
		       SV   = TCComp.Phone
		       SF   = TCComp.Fax

		       SA1  = TCComp.Address1
		       SA2  = TCComp.Address2
		       SCI1 = TCComp.City
		       SPR1 = TCComp.Province
		       SC1  = TCComp.Country
	          SPC1 = TCComp.PCode
	          SCE  = TCComp.Email
		     TCComp.Close()
        endif
   endscan
   TCUser.Close()

endif


 strtb = ":PRIV:ReportNo.DB"
 tb.attach(strtb)

 if isTable(tb) then

		TCRec.open(":PRIV:ReportNo.DB")
		TCRec.edit()

		TCRec.rCompanyNo = UCN
		TCRec.SUserNo = UN
		TCRec.Quote   = s

		TCRec.EndEdit()
		TCRec.Close()
	 else
		sourceTC.open("ReportNo.DB")
		destTb.attach(":PRIV:ReportNo.DB")

		sourceTC.copy(destTb)

		TCRec.open(":PRIV:ReportNo.DB")
		TCRec.edit()

		TCRec.rCompanyNo = UCN
		TCRec.SUserNo = UN
		TCRec.Quote   = s

		TCRec.EndEdit()
		TCRec.Close()

 endif

 IF  FaxNo <> "" then
		 objWinfaxSend.open("WinFax.SDKSend8.0")
		 objWinfaxSend.LeaveRunning()
		 objWinfaxSend.setPrintFromApp(1)

	    objWinfaxSend.SetNumber (FaxNo)
		 objWinfaxSend.SetTo (Contact)
		 objWinfaxSend.SetCompany (CustomerName)
		 objWinfaxSend.SetPriority(3)
		 objWinfaxSend.AddRecipient()

		 objWinfaxSend.ShowSendScreen(0)
		 objWinfaxSend.Done ( )
		 objWinfaxSend.Send(1)
		 If printerSetCurrent(anotherarray["zFP"]) then
		 	 
		 		if printerSetOptions(prnOptions) then
		 		 	ReportInfo.PanelOptions = PrintClipToWidth
					ReportInfo.Name = rp
					r.print(ReportInfo)
				  else
					errorShow("Could not set printer options.")
				endIf
		  else
			 msgStop("Printer setup", "A printer Named " +" ' "+ FP +" ' "+ "is not installed !")
		 endif
  	  	objWinfaxSend.close()
			return
 	else
		msgStop("No Fax Number", "No Fax Number Found !")
endif