LParameter lplInvoice, lplWatch

	Local lcOldSafety

	lcOldSafety = Set("Safety")
	Set Safety Off
	Set Classlib to ted
	oted = CreateObject("cusedtrackerinterface")

	If Type("oted") = "O"
		oted.lvisible = lplwatch
		*oted.cinputtxtfile = "TED"
		*oted.geteddata(lplInvoice)

		If 	oted.geteddata(lplInvoice)
		
			If lplInvoice
				Select (oted.cEDRptAlias)
				Report Form edbtinvoice To Printer Noconsole
			Else
				oted.notificationrpt
			EndIf

		EndIf
		
		Release oted

	EndIf
	
	Set Safety &lcOldSafety
	
Return