Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/FakeForDEV.cls.xml
===================================================================
diff -u -r31933 -r31937
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/FakeForDEV.cls.xml	(.../FakeForDEV.cls.xml)	(revision 31933)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/FakeForDEV.cls.xml	(.../FakeForDEV.cls.xml)	(revision 31937)
@@ -11,6 +11,8 @@
 	try {
 		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefIngegevenKenmerken(EDIAanvraag)
 		Set Resultaat.KostPrijs = ..BerekenKostPrijs(IngegevenKenmerken,EDIAanvraag.Aantal)
+		Set Resultaat.OfferteID = "11111"
+		Set Resultaat.LijnID = "001"
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.GeneralErrorException")
 		Set Resultaat.KostPrijs = ""
Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/FakeForDEV/GeefPrijs/Test.cls.xml
===================================================================
diff -u -r31917 -r31937
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/FakeForDEV/GeefPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 31917)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/FakeForDEV/GeefPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 31937)
@@ -24,6 +24,8 @@
 
 	#dim VerwachtResultaat As APPS.EDI.PrijsBerekening.dto.Resultaat = ##class(APPS.EDI.PrijsBerekening.dto.Resultaat).%New()
 	Set VerwachtResultaat.KostPrijs = 999.52
+	Set VerwachtResultaat.OfferteID = "11111"
+	Set VerwachtResultaat.LijnID = "001"
 	Do ..AssertResultaat(EDIResultaat,VerwachtResultaat)
 ]]></Implementation>
 </Method>
Index: APPS/EDI/PrijsBerekening/dto/Resultaat.cls.xml
===================================================================
diff -u -r31917 -r31937
--- APPS/EDI/PrijsBerekening/dto/Resultaat.cls.xml	(.../Resultaat.cls.xml)	(revision 31917)
+++ APPS/EDI/PrijsBerekening/dto/Resultaat.cls.xml	(.../Resultaat.cls.xml)	(revision 31937)
@@ -10,6 +10,14 @@
 <Property name="Exceptie">
 <Type>TECH.Exceptions.Exception</Type>
 </Property>
+
+<Property name="OfferteID">
+<Type>%String</Type>
+</Property>
+
+<Property name="LijnID">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml
===================================================================
diff -u -r31930 -r31937
--- EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml	(.../ResponseVerwerker.cls.xml)	(revision 31930)
+++ EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml	(.../ResponseVerwerker.cls.xml)	(revision 31937)
@@ -9,6 +9,7 @@
 <Implementation><![CDATA[
 	Set Response = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
 	Set Response.KostPrijs = EDIResultaat.KostPrijs
+	Set Response.RefVanHoecke = EDIResultaat.OfferteID_"-"_EDIResultaat.LijnID
 	Set Response.ErrorCode = 0   ; = O.K. 
 	Quit Response
 ]]></Implementation>
@@ -20,6 +21,7 @@
 <Implementation><![CDATA[
 	Set Response = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
 	Set Response.KostPrijs = ""
+	Set Response.RefVanHoecke = ""
 	Set Response.ErrorCode = $P(Exceptie.GeefOmschrijving(),";",1)
 	Quit Response
 ]]></Implementation>
Index: vhUnitTest/EXT/Optima/CalculPrix/impl/ResponseVerwerker/Verwerk/Test.cls.xml
===================================================================
diff -u -r31930 -r31937
--- vhUnitTest/EXT/Optima/CalculPrix/impl/ResponseVerwerker/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 31930)
+++ vhUnitTest/EXT/Optima/CalculPrix/impl/ResponseVerwerker/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 31937)
@@ -10,10 +10,13 @@
 	Set ResponseVerwerker = ##class(EXT.Optima.CalculPrix.impl.ResponseVerwerker).%New()
 	Set EDIResultaat = ##class(APPS.EDI.PrijsBerekening.dto.Resultaat).%New()
 	Set EDIResultaat.KostPrijs = DummyKostPrijs
+	Set EDIResultaat.OfferteID = "UT_1111"
+	Set EDIResultaat.LijnID = "UT_001"
 	#dim Response As EXT.Optima.CalculPrix.dto.Response = ResponseVerwerker.Verwerk(EDIResultaat)
 	
 	Set VerwachteResponse = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
 	Set VerwachteResponse.KostPrijs = DummyKostPrijs
+	Set VerwachteResponse.RefVanHoecke = "UT_1111-UT_001"
 	Set VerwachteResponse.ErrorCode = 0
 	Do ..AssertResponse(Response,VerwachteResponse)
 ]]></Implementation>