Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml
===================================================================
diff -u -r61407 -r61568
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 61407)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 61568)
@@ -3,11 +3,13 @@
 <Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>IntegratieTest</Default>
-</Parameter>
+<UDLText name="T">
+<Content><![CDATA[
+// Parameter Type As %String = "IntegratieTest";
 
+]]></Content>
+</UDLText>
+
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -142,6 +144,7 @@
 	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
 	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
 	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+	Do OfferteStub.IndienMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Duits())
 
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
 	Do Winkelkar.ZetPersonalityID(KlantPersonalityId)
@@ -304,6 +307,92 @@
 	Do $$$AssertEquals(OfferteDto.VHKlantTotaalPrijs.Content, 100)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Haefele BE GeefOfferteDto - MetLeverAdres - Versie002Compliant">
+<Implementation><![CDATA[
+	#dim RandomWinkelkarId As %String = "123"
+	#dim KlantPersonalityId As %String = "33" //Haefele DE
+	#dim KlantIdBijKlantPersonality As %String = "12345"
+	#dim OrderReferentie As %String = "OrderReferentie"
+	#dim LeverDatum As %String = "LeverDatum"
+	#dim BestelOpmerking As %String = "BestelOpmerking"
+	#dim BestelDatum As %Date = $$INTDATE^vhLib.DataTypes("13.08.2016")
+	#dim Url As %String = "Url"
+	#dim KlantNaam As %String = "KlantNaam"
+	#dim KlantCode As %String = "KlantCode"
+	#dim EdiNummer As %String = "EdiNummer"
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("HaefeleBELeveradresInHTTPPost",$$$True,..#Applicatie)
+
+	#dim LeverancierPersonality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(KlantPersonalityId)
+	
+	#dim KlantPersonalityStub As vhTest.Mock.DOM.common.Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do KlantPersonalityStub.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
+	Do KlantPersonalityStub.IndienMethodCall("GeefID").DanReturn(KlantPersonalityId)
+	
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocumentReferenties.OrderReferentie = OrderReferentie
+	
+	#dim OfferteStub As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn(RandomWinkelkarId)
+	Do OfferteStub.IndienMethodCall("GeefEDINummerVoorEindklant").DanReturn(EdiNummer)
+	Do OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(KlantIdBijKlantPersonality)
+	Do OfferteStub.IndienMethodCall("GeefPersonality").DanReturn(KlantPersonalityStub.GeefID())
+	Do OfferteStub.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Do OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn(LeverDatum)
+	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
+	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
+	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+	Do OfferteStub.IndienMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Duits())
+
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	Do Winkelkar.ZetPersonalityID(KlantPersonalityId)
+	
+	#dim IngegevenKenmerkenAPIStub As vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
+	Do IngegevenKenmerkenAPIStub.IndienMethodCall("GeefIngegevenKenmerken", $$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
+
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+	
+	#dim KlantData As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set KlantData.Naam = KlantNaam
+	Set KlantData.Code = KlantCode
+	
+	#dim KlantDataBepalerStub As vhTest.Mock.DOM.VKP.KlantDataBepaler = ##class(vhTest.Mock.DOM.VKP.KlantDataBepaler).%New()
+	Do KlantDataBepalerStub.IndienMethodCall("GeefKlantData", KlantPersonalityId, KlantIdBijKlantPersonality).DanReturn(KlantData)
+	
+	#dim DomCommonAPIStub As vhTest.Mock.DOM.common.CommonAPI = ##class(vhTest.Mock.DOM.common.CommonAPI).MockInstance()
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", KlantPersonalityId).DanReturn(KlantPersonalityStub)
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", 1).DanReturn(LeverancierPersonality)
+	
+	#dim WinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefMaatwerkLijnen", RandomWinkelkarId).DanReturn(MaatwerkLijnen)
+	
+	#dim WinkelkarRepositoryStub As vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID", RandomWinkelkarId).DanReturn(Winkelkar)
+	
+	#dim UrlBepalerStub As vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler = ##class(vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler).%New()
+	Do UrlBepalerStub.IndienMethodCall("GeefURL", OfferteStub, $$$ElkeWaarde).DanReturn(Url)
+	
+	#dim TotaalEnPrijsBerekendResultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
+	Do TotaalEnPrijsBerekendResultaat.ZetVHKlantTotaalPrijs(100)
+	Do TotaalEnPrijsBerekendResultaat.ZetEindklantTotaalPrijs(200)
+	Do TotaalEnPrijsBerekendResultaat.ZetTotaalAantalProducten(10)
+	
+	#dim TotaalEnPrijsBerekenaarStub As vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar = ##class(vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar).%New()
+	Do TotaalEnPrijsBerekenaarStub.IndienMethodCall("Bereken", Winkelkar).DanReturn(TotaalEnPrijsBerekendResultaat)
+	
+	#dim OfferteGenerator As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New(WinkelkarServiceStub, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub)
+	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte002 = OfferteGenerator.GeefOfferteDto(OfferteStub)	
+	
+	Do $$$AssertEquals(OfferteDto.LeverAdres.Gemeente,"LAGE")
+	Do $$$AssertEquals(OfferteDto.LeverAdres.Postcode,"32791")
+	Do $$$AssertEquals(OfferteDto.LeverAdres.LandCode,"DE")
+	Do $$$AssertEquals(OfferteDto.LeverAdres.Straat,"DIE STRASSE")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/Leveradres.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/Leveradres.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/Leveradres.cls.xml	(revision 61568)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Leveradres">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Straat">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="STREET"/>
+</Property>
+
+<Property name="Postcode">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ZIPCODE"/>
+</Property>
+
+<Property name="Gemeente">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="CITY"/>
+</Property>
+
+<Property name="LandCode">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="COUNTRYCODE"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r61407 -r61568
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 61407)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 61568)
@@ -174,6 +174,20 @@
 	Set ..OfferteDto.EindklantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekendResultaat.GeefEindklantTotaalPrijs(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorVerkoopPrijs())
 	Set ..OfferteDto.VHKlantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekendResultaat.GeefVHKlantTotaalPrijs(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
 	Set ..OfferteDto.TotaalAantalProducten = ..TotaalEnPrijsBerekendResultaat.GeefTotaalAantalProducten()
+	If (..IsVersie002Compliant()){
+		If ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleDE() {
+			If ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("HaefeleBELeveradresInHTTPPost", $$$False){
+				Set Leveradres = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Leveradres).%New()
+				#dim OfferteLeveradres as DOM.VKP.LeverAdres = Offerte.GeefLeverAdres()
+				
+				Set Leveradres.Gemeente = OfferteLeveradres.GeefGemeente()
+				Set Leveradres.LandCode = OfferteLeveradres.GeefLand().GeefCode()
+				Set Leveradres.Postcode = OfferteLeveradres.GeefPostcode()
+				Set Leveradres.Straat = OfferteLeveradres.GeefStraat()
+				Set ..OfferteDto.LeverAdres = Leveradres
+			}
+		}
+	}
 ]]></Implementation>
 </Method>
 
@@ -300,7 +314,7 @@
 				Set OfferteLijn.SchadeTijdensTransportOfVoormontage = MaatwerkLijn.GeefHerbestellingBijProbleem()
 			}
 		}
-		
+				
 		If $$$Not(MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
 			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().GeefLadeCode()
 		} Else {
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/Offerte002.cls.xml
===================================================================
diff -u -r55185 -r61568
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/Offerte002.cls.xml	(.../Offerte002.cls.xml)	(revision 55185)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/Offerte002.cls.xml	(.../Offerte002.cls.xml)	(revision 61568)
@@ -75,6 +75,12 @@
 <Parameter name="XMLNAME" value="SUBMIT_TS"/>
 </Property>
 
+<Property name="LeverAdres">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Leveradres</Type>
+<Parameter name="XMLNAME" value="DELIVERYADRESS"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
 <Property name="Lijnen">
 <Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002</Type>
 <Collection>list</Collection>
Index: vhDeploy/D20200709xHttpPostLeverAdressMeesturenHaefeleBE.cls.xml
===================================================================
diff -u
--- vhDeploy/D20200709xHttpPostLeverAdressMeesturenHaefeleBE.cls.xml	(revision 0)
+++ vhDeploy/D20200709xHttpPostLeverAdressMeesturenHaefeleBE.cls.xml	(revision 61568)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20200709xHttpPostLeverAdressMeesturenHaefeleBE">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Projectsetting leveradres mee te geven aan httppost voor Haefele BE</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("HaefeleBELeveradresInHTTPPost", $$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>