Index: APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml
===================================================================
diff -u
--- APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml	(revision 0)
+++ APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml	(revision 32741)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.impl.OfferteDocumentReferentiesBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OfferteService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocumentReferenties">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set DocRefsList = ##class(%ListOfObjects).%New()
+	
+	#dim Iterator As TECH.Iterator = ..GeefOfferteIterator(Order)
+	While (Iterator.HasNext()) {
+		#dim Offerte As APPS.VKP.Offerte = Iterator.Next()
+		Do DocRefsList.Insert(..GeefDocumentReferentiesVanOfferte(Offerte))
+	}
+
+	Quit DocRefsList
+]]></Implementation>
+</Method>
+
+<Method name="GeefOfferteIterator">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set OfferteLijst = ##class(%ListOfObjects).%New()
+	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(Order.GeefEDINummer())
+	Do OfferteLijst.Insert(Offerte)
+	Quit ##class(TECH.ListIterator).%New(OfferteLijst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocumentReferentiesVanOfferte">
+<FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties</ReturnType>
+<Implementation><![CDATA[
+	Set ReturnDocRefs = ##class(APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties).%New()
+	
+	#dim OfferteDocRef As DOM.VKP.DocumentReferenties = Offerte.GeefDocumentReferenties()
+	Set ReturnDocRefs.OrderReferentie = OfferteDocRef.OrderReferentie
+	Set ReturnDocRefs.KlantOrderNummer = OfferteDocRef.KlantOrderNummer
+	Set ReturnDocRefs.CommissieReferentie = OfferteDocRef.CommissieReferentie
+	
+	Quit ReturnDocRefs
+]]></Implementation>
+</Method>
+
+
+</Export>
Index: APPS/VKP/impl/OfferteDocumentReferentiesBepaler/DocumentReferenties.cls.xml
===================================================================
diff -u
--- APPS/VKP/impl/OfferteDocumentReferentiesBepaler/DocumentReferenties.cls.xml	(revision 0)
+++ APPS/VKP/impl/OfferteDocumentReferentiesBepaler/DocumentReferenties.cls.xml	(revision 32741)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantOrderNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="CommissieReferentie">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/OfferteDocumentReferentiesBepaler/GeefDocumentReferenties/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/OfferteDocumentReferentiesBepaler/GeefDocumentReferenties/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/OfferteDocumentReferentiesBepaler/GeefDocumentReferenties/Test.cls.xml	(revision 32741)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.OfferteDocumentReferentiesBepaler.GeefDocumentReferenties.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="VanHoeckeOfferteID">
+<Type>%Integer</Type>
+<Default>999</Default>
+</Parameter>
+
+<Parameter name="VanHoeckeOrderRef">
+<Type>%String</Type>
+<Default>UT_VanHoeckeOrderRef</Default>
+</Parameter>
+
+<Parameter name="VanHoeckeKlantOrderNummer">
+<Type>%String</Type>
+<Default>UT_VanHoeckeKlantOrderNummer</Default>
+</Parameter>
+
+<Parameter name="VanHoeckeCommRef">
+<Type>%String</Type>
+<Default>UT_VanHoeckeCommRef</Default>
+</Parameter>
+
+<Property name="VanHoeckeOfferte">
+<Type>vhTest.Mock.APPS.VKP.Offerte</Type>
+</Property>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	// Assign 
+	Do ..ZetMockVanHoeckeOfferte()
+	Do ..ZetMockOfferteService(..#VanHoeckeOfferteID)
+	#dim OrderMock As DOM.VKP.Order = ..GeefOrder(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop(), ..#VanHoeckeOfferteID)   ; Set Order = ..OrderAPI.GeefOrder(OrderID)
+	
+	// Act 
+	Set OfferteDocumentReferentiesBepaler = ##class(APPS.VKP.impl.OfferteDocumentReferentiesBepaler).%New()
+	#dim DocRefsList As %ListOfObjects = OfferteDocumentReferentiesBepaler.GeefDocumentReferenties(OrderMock)
+	
+	// Assert 
+	If $$$AssertEquals(DocRefsList.Count(), 1) {
+		Do ..AssertDocRefsVanHoeckeOfferte(DocRefsList.GetAt(1))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertDocRefsVanHoeckeOfferte">
+<FormalSpec>DocRefs:APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties</FormalSpec>
+<Implementation><![CDATA[
+	If $$$AssertEquals($ClassName(DocRefs),"APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties")
+	Do $$$AssertEquals(DocRefs.OrderReferentie    ,..#VanHoeckeOrderRef)
+	Do $$$AssertEquals(DocRefs.KlantOrderNummer   ,..#VanHoeckeKlantOrderNummer)
+	Do $$$AssertEquals(DocRefs.CommissieReferentie,..#VanHoeckeCommRef)
+]]></Implementation>
+</Method>
+
+<Method name="ZetMockVanHoeckeOfferte">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DocRefsVanHoeckeOfferte = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocRefsVanHoeckeOfferte.OrderReferentie     = ..#VanHoeckeOrderRef
+	Set DocRefsVanHoeckeOfferte.KlantOrderNummer    = ..#VanHoeckeKlantOrderNummer
+	Set DocRefsVanHoeckeOfferte.CommissieReferentie = ..#VanHoeckeCommRef
+	
+	Set ..VanHoeckeOfferte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do ..VanHoeckeOfferte.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocRefsVanHoeckeOfferte)
+]]></Implementation>
+</Method>
+
+<Method name="ZetMockOfferteService">
+<FormalSpec>VanHoeckeOfferteID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerkoopAPIFake As vhTest.Mock.APPS.VKP.VerkoopAPI = ##class(vhTest.Mock.APPS.VKP.VerkoopAPI).MockInstance()
+	#dim OfferteServiceStub As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",VanHoeckeOfferteID).DanReturn(..VanHoeckeOfferte)
+	Do VerkoopAPIFake.IndienMethodCall("GeefOfferteService").DanReturn(OfferteServiceStub)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<FormalSpec>Oorsprong:BL.Flow.Offerte.enu.Oorsprong,EDInr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.IndienMethodCall("GeefEDINummer").DanReturn(EDInr)
+	Quit OrderMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>