Index: vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml	(revision 33097)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.OfferteService.impl.NaarBerekenInputConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OfferteID">
+<Type>%String</Type>
+<InitialExpression>666</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="NaarBerekenInputConverter">
+<Type>APPS.VKP.OfferteService.impl.NaarBerekenInputConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Set ..NaarBerekenInputConverter = ##class(APPS.VKP.OfferteService.impl.NaarBerekenInputConverter).%New()
+	
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Converteer">
+<Implementation><![CDATA[
+	#dim BerekenInputResult As APPS.TRANSP.OfferteService.dto.BerekenInput = ..NaarBerekenInputConverter.Convert(..GeefVerpakkingen(), ..GeefLeverAdres(), ..OfferteID)
+	#dim BerekenInputDummy As APPS.TRANSP.OfferteService.dto.BerekenInput = ..GeefBerekenInput()
+	
+	Do $$$AssertObject(BerekenInputResult.LeverAdres,BerekenInputDummy.LeverAdres)
+	Do $$$AssertEquals(BerekenInputResult.GewensteLeverDatum ,BerekenInputDummy.GewensteLeverDatum)
+	Do $$$AssertEquals(BerekenInputResult.Referentie ,BerekenInputDummy.Referentie)
+	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.Count(),BerekenInputDummy.TeVerzendenItems.Count())
+	Do $$$AssertObject(BerekenInputResult.TeVerzendenItems.GetAt(1).Afmeting,BerekenInputDummy.TeVerzendenItems.GetAt(1).Afmeting)
+	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).ProductID,BerekenInputDummy.TeVerzendenItems.GetAt(1).ProductID)
+	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).Gewicht,BerekenInputDummy.TeVerzendenItems.GetAt(1).Gewicht)
+	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).DatumBeschikbaar,BerekenInputDummy.TeVerzendenItems.GetAt(1).DatumBeschikbaar)
+	Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).Aantal ,BerekenInputDummy.TeVerzendenItems.GetAt(1).Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingen">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.dto.VerpakkingList</ReturnType>
+<Implementation><![CDATA[
+	set Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200, "123-456", 2)
+	set Verpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	Do Verpakkingen.Insert(Verpakking)
+	Quit Verpakkingen
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverAdres">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.dto.InternationaalAdres</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.LandCode = "BE"
+	Set LeverAdres.Postcode = "9170"
+	Set LeverAdres.ProvincieCode = "OV"
+	Set LeverAdres.Straat = "Kemzekestraat"
+	Set LeverAdres.Woonplaats = "Sint-Gillis-Waas"
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekenInput">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = ..OfferteID
+	Set BerekenInput.LeverAdres = ..GeefLeverAdres()
+
+ 	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
+	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	Set TeVerzendItem.Gewicht = 25
+	Set TeVerzendItem.WaardeGoederen = 200
+	Set TeVerzendItem.Aantal = 2 
+	Set TeVerzendItem.ProductID = "123-456"
+	
+	Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>