Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r36515 -r36529
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 36515)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 36529)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BerekeningFoutenRepository">
+<Type>WSimpl.EC.ExterneVerkoop.BerekeningFoutenRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService,NaarBerekenInputConverter:APPS.VKP.OfferteService.impl.NaarBerekenInputConverter,ZendingDetails:WS.EC.Unishop.InternationaleZending.impl.ZendingDetails,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,WinkelKarService:APPS.EC.Winkelkar.WinkelkarService,StapelingBepaler:APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService,NaarBerekenInputConverter:APPS.VKP.OfferteService.impl.NaarBerekenInputConverter,ZendingDetails:WS.EC.Unishop.InternationaleZending.impl.ZendingDetails,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,WinkelKarService:APPS.EC.Winkelkar.WinkelkarService,StapelingBepaler:APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler,BerekeningFoutenRepository:WSimpl.EC.ExterneVerkoop.BerekeningFoutenRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -46,6 +51,7 @@
 	Set ..VerzendingMogelijkheidRepository = $$$Inject(VerzendingMogelijkheidRepository, ##class(WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New())
 	Set ..WinkelKarService = $$$Inject(WinkelKarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
 	Set ..StapelingBepaler = $$$Inject(StapelingBepaler, ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New())
+	Set ..BerekeningFoutenRepository = $$$Inject(BerekeningFoutenRepository, ##class(WSimpl.EC.ExterneVerkoop.BerekeningFoutenRepository).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,6 +60,7 @@
 <FormalSpec>OfferteID:%String,Taal:DOM.enu.Taal="E"</FormalSpec>
 <ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</ReturnType>
 <Implementation><![CDATA[
+	Do ..VerwijderMailvoorOV(OfferteID)
 	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden 
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput
 	try
@@ -69,7 +76,7 @@
 		
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ..BewaarVoorMailNaarOV(Exception.ToString(), BerekenInput)
+		Do ..BewaarMailNaarOV(Exception.ToString(), BerekenInput)
 		Do ##class(WS.EC.Unishop.InternationaleZending.exc.KanNietBerekenen).Throw(Exception.ToString())
 	}
 	Quit VerzendingMogelijkheden
@@ -273,12 +280,58 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BewaarVoorMailNaarOV">
+<Method name="BewaarMailNaarOV">
 <FormalSpec>Content:%String,BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	; respository BerekeningFouten
+<Implementation><![CDATA[
+	#Dim BerekeningFouten As WSdata.EC.ExterneVerkoop.BerekeningFouten.BerekeningFouten
+	If ..BerekeningFoutenRepository.BestaatViaOfferteID(BerekenInput.Referentie)
+	{
+		Set BerekeningFouten = ..BerekeningFoutenRepository.GeefViaOfferteID(BerekenInput.Referentie)
+		Set BerekeningFouten.Foutmeldingen = ..VoegToeBerekenInputAanContent(Content,BerekenInput)
+		Do BerekeningFouten.Save()
+	} else {
+		Set BerekeningFouten = ..BerekeningFoutenRepository.Maak()
+		Set BerekeningFouten.OfferteID = BerekenInput.Referentie
+		Set BerekeningFouten.Foutmeldingen = Content
+		Do BerekeningFouten.Save()
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeBerekenInputAanContent">
+<FormalSpec>Content:%String,BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim BerekenInputString As %String = BerekenInput.Referentie _$C(13,10)
+	Set BerekenInputString = BerekenInputString _BerekenInput.LeverAdres.Naam _$C(13,10)
+	Set BerekenInputString = BerekenInputString _BerekenInput.LeverAdres.Taal _$C(13,10)
+	Set BerekenInputString = BerekenInputString _BerekenInput.LeverAdres.Straat _$C(13,10)
+	Set BerekenInputString = BerekenInputString _BerekenInput.LeverAdres.Postcode _" " _BerekenInput.LeverAdres.Woonplaats _$C(13,10)
+	Set BerekenInputString = BerekenInputString _BerekenInput.LeverAdres.LandCode _$C(13,10)
+	Set BerekenInputString = BerekenInputString _##class(TECH.DateTime).GeefDatumInPuntNotatie(BerekenInput.VroegsteAfhaalDatum) _$C(13,10) _$C(13,10)
+	Set BerekenInputString = BerekenInputString _"vhintra:vkp-externeofferteverwerking-presentation-mainview?offerteId=" _BerekenInput.Referentie _$C(13,10) _$C(13,10)
+	#Dim BerekenInputIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BerekenInput)
+	While BerekenInputIterator.HasNext()
+	{
+		#Dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = BerekenInputIterator.Next()
+		Set BerekenInputString = BerekenInputString _TeVerzendItem.ProductID _$C(13,10)	
+		Set BerekenInputString = BerekenInputString _TeVerzendItem.Gewicht _$C(13,10)	
+		Set BerekenInputString = BerekenInputString _TeVerzendItem.Afmeting.Breedte _TeVerzendItem.Afmeting.Hoogte _TeVerzendItem.Afmeting.Lengte _$C(13,10)	
+		Set BerekenInputString = BerekenInputString _TeVerzendItem.Aantal _$C(13,10)	
+		Set BerekenInputString = BerekenInputString _TeVerzendItem.WaardeGoederen _$C(13,10)	
+	}
+	Quit BerekenInputString _$C(13,10) _Content
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderMailvoorOV">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..BerekeningFoutenRepository.VerwijderViaOfferteID(OfferteID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/EC/ExterneVerkoop/BerekeningFoutenRepository.cls.xml
===================================================================
diff -u -r36521 -r36529
--- WSimpl/EC/ExterneVerkoop/BerekeningFoutenRepository.cls.xml	(.../BerekeningFoutenRepository.cls.xml)	(revision 36521)
+++ WSimpl/EC/ExterneVerkoop/BerekeningFoutenRepository.cls.xml	(.../BerekeningFoutenRepository.cls.xml)	(revision 36529)
@@ -18,6 +18,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatViaOfferteID">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BestaatViaFilter("OfferteID = ?", $LB(OfferteID))
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaOfferteID">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>