Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS.cls.xml
===================================================================
diff -u -r54384 -r54387
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS.cls.xml	(.../SFS.cls.xml)	(revision 54384)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS.cls.xml	(.../SFS.cls.xml)	(revision 54387)
@@ -2,6 +2,23 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.SFS">
 <Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator</Super>
+
+<Method name="BepaalGeformatteerdeLeverDatum">
+<FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeformatteerdeWensLeverDatum As %String = ""
+	
+	If $$$HasLength(Offerte.GeefLeverDatum()) {
+		Set GeformatteerdeWensLeverDatum=..FormatAPI.FormatDate(Offerte.GeefLeverDatum(),"yyyymmdd")
+	} Else {
+		Set GeformatteerdeWensLeverDatum = ##super(Offerte)
+	}
+	
+	Quit GeformatteerdeWensLeverDatum
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS/Test.cls.xml	(revision 54387)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.SFS.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID("")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefOfferteDto met geformatteerde leverdatum">
+<Implementation><![CDATA[	Do ..AssertLeverdatum($ZDateH("02/28/2019"), "20190228")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefOfferteDto met WensLeverDatum als leverdatum niet ingevuld is">
+<Implementation><![CDATA[	Do ..AssertLeverdatum("", "WensLeverDatum")
+]]></Implementation>
+</Method>
+
+<Method name="AssertLeverdatum">
+<FormalSpec>LeverDatum:%Date,VerwachteLeverdatum:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim WensLeverDatum As %String = "WensLeverDatum"
+
+	#dim RandomWinkelkarId As %String = "123"
+	#dim KlantPersonalityId As %String = "12"
+	#dim KlantIdBijKlantPersonality As %String = "12345"
+	#dim OrderReferentie As %String = "OrderReferentie"
+	#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"
+
+	#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(WensLeverDatum)
+	Do OfferteStub.IndienMethodCall("GeefLeverDatum").DanReturn(LeverDatum)
+	
+	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
+	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
+	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+
+	#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.SFS = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.SFS).%New(WinkelkarServiceStub, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub)
+	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte = OfferteGenerator.GeefOfferteDto(OfferteStub)
+
+	Do $$$AssertEquals(OfferteDto.LeverDatum, VerwachteLeverdatum)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>