Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductIterator/Test.cls.xml	(revision 40790)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// VrijgegProduct = VrijgegevenProduct
+
+]]></Content>
+</UDLText>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Try {
+		#dim Statement as %String 
+		Set Statement = "SELECT IdentNummer, IntrastatID, PalletAantal, Leveringstermijn, MinimumBestelhoeveelheid, NormaleVerpakking, "
+		_"GewichtPerDuizendStuksinKG, Leverancier, VerkoopPerStuk, VerpakkingsAantal, Korttekst, LinkType, StockType, StockNietStock, "
+		_"SubGroep, ScanType, Grootverpakking, Herbestelsurplus, Herbestelafronding, Kleinverpakking, KSPrijslijst, Verpakkingsproduct, "
+		_"Uitverkoop FROM Prod.Product ProdProduct, Prod.ProductPrijs ProdProductPrijs, Prod.ProductKlas ProdProductKlas WHERE "
+		_"ProdProduct.ID = ProdProductPrijs.ID and ProdProductPrijs.ID = ProdProductKlas.ID and isnull(Gentype,'')='' and "
+		_"korttekst not like 'GEN%'" 
+		#dim ResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(
+			##class(TECH.ListUtils).CreateListOfDataTypes("1.234.567.8"), 
+			##class(TECH.ListUtils).CreateListOfDataTypes("IdentNummer"))
+		#dim QueryAPIMock As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).MockInstance()
+		Do QueryAPIMock.VerwachtMethodCall("GetResultSet", ##class(Tools.Mock.ArgumentMatchers.ObjectMatcher).%New(
+			##class(TECH.DynamicQuery).%New(Statement)) ).DanReturn(ResultSet)
+		#dim Vestiging As %String = "VanHoecke"
+		#dim VrijgegProductIterator As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductIterator = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductIterator).%New(QueryAPIMock,Vestiging)
+		Do $$$AssertTrue( VrijgegProductIterator.HasNext() )
+		#dim Product As AXdixf.VrijgegProduct.VrijgegProduct = VrijgegProductIterator.Next()
+		
+		Do $$$AssertEquals(Product.ItemId, "1.234.567.8")
+		Do QueryAPIMock.Verifieer()
+	} Catch {
+		Do QueryAPIMock.Verifieer()
+		Do ##class(TECH.ExceptionHandler).Rethrow( ##class(TECH.ExceptionHandler).Catch() )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>