Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r32535 -r35201
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 32535)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 35201)
@@ -43,7 +43,7 @@
 	
 	#dim Offerte As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.KlantID,Aanvraag.PersonalityID)
 	try {
-		do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order)
+		do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order,Aanvraag.PersonalityID)
 		do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
 		do ..ExterneVerkoopService.BestelOfferte(Offerte.OfferteID,Aanvraag.KlantID,Aanvraag.PersonalityID)
 		set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
@@ -58,18 +58,35 @@
 </Method>
 
 <Method name="ZetHoofding">
-<FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
+<FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	set OfferteHoofding = ##class(APPS.EC.dto.Hoofding).%New()
 	set OfferteHoofding.Referentie.OrderReferentie = Order.OrderReferentie
 	set OfferteHoofding.Referentie.KlantOrderNummer = Order.KlantOrderNummer
 	set OfferteHoofding.Referentie.CommissieReferentie = Order.CommissieReferentie
 	set OfferteHoofding.LeveringDetail.WensDatum = Order.GevraagdeLeverdatum
+	If (PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()) {
+		Do ..ZetGevraagdeLeverdatum(OfferteHoofding,Order)
+	}
 	do ..ExterneVerkoopService.ZetOfferteHoofding(OfferteID,OfferteHoofding)
 ]]></Implementation>
 </Method>
 
+<Method name="ZetGevraagdeLeverdatum">
+<FormalSpec>OfferteHoofding:APPS.EC.dto.Hoofding,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OmgezetteLeverdatum As %String = $$YYYYMMDD2EuropeanDate^vhLib.DateTime(Order.GevraagdeLeverdatum)
+	If $$IsValidEuropeanDate^vhLib.DateTime(OmgezetteLeverdatum) {
+		Set OfferteHoofding.LeveringDetail.Datum = $ZDH($TR(OmgezetteLeverdatum,".","/"),4)
+	}
+	Else {
+		Do ##class(TECH.Exceptions.InvalidUserInputException).Throw("RequestedDeliveryDate not valid. '"_Order.GevraagdeLeverdatum_"'")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeLijnen">
 <FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
 <Private>1</Private>