Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml
===================================================================
diff -u -r45090 -r45096
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 45090)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 45096)
@@ -65,6 +65,7 @@
 	If Offerte.IsVhisie4(){
 		Set Inhoud = "NIEUWE VHISIE 4 WINKELKAR ! " _ $$$CRLF _Titel_$$$CRLF
 		Set Inhoud = $$$CRLF _Inhoud _$$$CRLF _..GeefVerwerkVhisie4OfferteLink(Offerte.GeefExterneId())
+		Do ..VoegToeTotaalBedragMelding(.Inhoud, Offerte)
 	} else {
 		Set Inhoud = $$$CRLF _ Titel _ $$$CRLF _$$$CRLF _ ..GeefVerwerkOfferteLink(Offerte.GeefID())
 	}
@@ -93,6 +94,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeTotaalBedragMelding">
+<FormalSpec><![CDATA[&Inhoud:%String,Offerte:APPS.VKP.Offerte]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BerekendeTotaalBedrag As %Decimal = ..OfferteService.GeefBerekendeTotaalBedrag(Offerte)
+	#dim TotaalBedragWebshop As %Decimal = Offerte.GeefTotaalBedragWebshop()
+	If $$$Not(TotaalBedragWebshop="") && $$$Not(BerekendeTotaalBedrag = TotaalBedragWebshop) {
+		Set Inhoud = $$$CRLF _Inhoud _$$$CRLF _"HET TOTAALBEDRAG OP DE WEBSHOP IS VERSHILLEND."
+		Set Inhoud = Inhoud _$$$CRLF _"Deze winkelkar opvolgen met extra aandacht !!!"
+		Set Inhoud = Inhoud _$$$CRLF _"Totaalbedrag webshop : ? " _TotaalBedragWebshop
+		Set Inhoud = Inhoud _$$$CRLF _"Totaalbedrag Offerte : ? " _BerekendeTotaalBedrag 
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeAanInhoud">
 <FormalSpec><![CDATA[&Inhoud:%String,Melding:%String,Waarde:%String]]></FormalSpec>
 <Private>1</Private>