Index: vhTest/Utils/APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml
===================================================================
diff -u -r33605 -r33607
--- vhTest/Utils/APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml	(.../BerekenInput.cls.xml)	(revision 33605)
+++ vhTest/Utils/APPS/TRANSP/OfferteService/dto/BerekenInput.cls.xml	(.../BerekenInput.cls.xml)	(revision 33607)
@@ -3,29 +3,207 @@
 <Class name="vhTest.Utils.APPS.TRANSP.OfferteService.dto.BerekenInput">
 <Super>%RegisteredObject</Super>
 
+<Method name="GeefBerekeningInputProcinviecodeLeeg">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "US"
+	Set LeverAdres.Postcode = "28164"
+	Set LeverAdres.Woonplaats = "Stanley"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputLandcodeLeeg">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = ""
+	Set LeverAdres.Postcode = "20867"
+	Set LeverAdres.Woonplaats = "Caponaga"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputPostcodeLeeg">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "IT"
+	Set LeverAdres.Postcode = ""
+	Set LeverAdres.Woonplaats = "Caponaga"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputWoonplaatsLeeg">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "IT"
+	Set LeverAdres.Postcode = "20867"
+	Set LeverAdres.Woonplaats = ""
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputStanley">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = "NC"
+	Set LeverAdres.LandCode = "US"
+	Set LeverAdres.Postcode = "28164"
+	Set LeverAdres.Woonplaats = "Stanley"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputGeldigAdres">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "DE"
+	Set LeverAdres.Postcode = "57462"
+	Set LeverAdres.Woonplaats = "Olpe"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputBelgischAdres">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "BE"
+	Set LeverAdres.Postcode = "9000"
+	Set LeverAdres.Woonplaats = "Gent"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputNederlandsAdres">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "NL"
+	Set LeverAdres.Postcode = "9761"
+	Set LeverAdres.Woonplaats = "Eelde"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputLuxemburgsAdres">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "LU"
+	Set LeverAdres.Postcode = "6562"
+	Set LeverAdres.Woonplaats = "Berdorf"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputCapanago">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.ProvincieCode = ""
+	Set LeverAdres.LandCode = "IT"
+	Set LeverAdres.Postcode = "20867"
+	Set LeverAdres.Woonplaats = "Capanago"
+	Quit ..GeefBerekenInput(LeverAdres)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekenInput">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>LeverAdres:APPS.TRANSP.dto.InternationaalAdres</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ..GeefGeldigeDatum()
-	Set BerekenInput.VroegsteAfhaalDatum = ..GeefHuidigeDatum()
+	Set BerekenInput.VroegsteAfhaalDatum = ..GeefGeldigeDatum()
+	Set BerekenInput.LeverAdres = LeverAdres
+	
+	Do ..VoegDetailLijnenToe(BerekenInput)
+	
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningInputMetDatum">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GewensteLeverDatum:%Date</FormalSpec>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = "1"
+	Set BerekenInput.GewensteLeverDatum = GewensteLeverDatum
+	Set BerekenInput.VroegsteAfhaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "DE"
 	Set BerekenInput.LeverAdres.Postcode = "57462"
 	Set BerekenInput.LeverAdres.Woonplaats = "Olpe"
 	
+	Do ..VoegDetailLijnenToe(BerekenInput)
+	
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+
+<Method name="VoegDetailLijnenToe">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput]]></FormalSpec>
+<Implementation><![CDATA[
 	For Item=1:1:15 {
 		#dim TeverzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
 		Set TeverzendItem.ProductID = Item
 		Set TeverzendItem.WaardeGoederen = Item * 10
 		Set TeverzendItem.Gewicht = Item * 5
-		Set TeverzendItem.Afmeting = Item * 500
+		Set TeverzendItem.Aantal = 1
+		Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 500, Item * 10, Item * 100 )
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekenInputZonderLijnen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = "1"
 	
+
+	Set BerekenInput.GewensteLeverDatum = ..GeefGeldigeDatum()
+	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set BerekenInput.LeverAdres.ProvincieCode = ""
+	Set BerekenInput.LeverAdres.LandCode = "DE"
+	Set BerekenInput.LeverAdres.Postcode = "57462"
+	Set BerekenInput.LeverAdres.Woonplaats = "Olpe"
+	
+	Do BerekenInput.TeVerzendenItems.Clear()
+	
 	Quit BerekenInput
 ]]></Implementation>
 </Method>