Index: AXimpl/Admin/STAT/Invoice/AlternateItem.cls.xml
===================================================================
diff -u -r61756 -r62125
--- AXimpl/Admin/STAT/Invoice/AlternateItem.cls.xml	(.../AlternateItem.cls.xml)	(revision 61756)
+++ AXimpl/Admin/STAT/Invoice/AlternateItem.cls.xml	(.../AlternateItem.cls.xml)	(revision 62125)
@@ -42,11 +42,14 @@
 <FormalSpec>FirstDate:%String,LastDate:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim SqlStatement As %String = ""
-	Set SqlStatement = "select ItemId, AltItemId"
- 	_" from inventtable where usealtitemid=2 and altitemid <> '7.777.777.7' "
-	
-	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+	If '(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie() = "UnitTest") {
+		Do ##class(Tools.Wlip).%New(252).String(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie())
+		#dim SqlStatement As %String = ""
+		Set SqlStatement = "select ItemId, AltItemId"
+	 	_" from inventtable where usealtitemid=2 and altitemid <> '7.777.777.7' "
+		
+		Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+	}
 ]]></Implementation>
 </Method>