Index: Prod/Product/ProductBeheer/MailWijzigingFromLog.mac.rou
===================================================================
diff -u -r29059 -r37009
--- Prod/Product/ProductBeheer/MailWijzigingFromLog.mac.rou	(.../MailWijzigingFromLog.mac.rou)	(revision 29059)
+++ Prod/Product/ProductBeheer/MailWijzigingFromLog.mac.rou	(.../MailWijzigingFromLog.mac.rou)	(revision 37009)
@@ -37,10 +37,13 @@
 	Set strmBody=##class(%GlobalCharacterStream).%New()
 	;header van de HTML-pagina
 	Do strmBody.Write($$$fmtBeginHtml)
-	Do strmBody.Write($$$fmtReferentie("Productwijzigingen van "_VanDatum_$S(VanDatum=TotDatum:"",1:" tot "_TotDatum)))
+	Do strmBody.Write($$$fmtReferentie("Productwijzigingen van "_$$DisplayDatum(VanDatum)_$S(VanDatum=TotDatum:"",1:" tot "_$$DisplayDatum(TotDatum))))
 	Do strmBody.Write($$$fmtBeginTable)
 	Quit
 	
+DisplayDatum(Datum)
+	Quit $$EXTDATE^vhLib.DataTypes($ZDH(Datum,8))
+	
 EndBody(VanDatum, TotDatum)
 	#define fmtEndHtml "</body></html>"
 	#define fmtEndTable "</Table>"
@@ -119,8 +122,8 @@
 	Quit
 	
 MailVerschillen(VanDatum, TotDatum)
-	Set Subject="Productwijzigingen van "_VanDatum_$S(VanDatum=TotDatum:"",1:" tot "_TotDatum)
+	Set Subject="Productwijzigingen van "_$$DisplayDatum(VanDatum)_$S(VanDatum=TotDatum:"",1:" tot "_$$DisplayDatum(TotDatum))
 	Set From=##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"@VANHOECKE.BE"
-	Set To=$LB("vdr@vanhoecke.be")
+	Set To=$LB("vdr@vanhoecke.be","JB@vanhoecke.be","JDR@vanhoecke.be","TFL@vanhoecke.be","GBO@vanhoecke.be")
 	Set X=$$SendMiniMail^vhLib(From,To,Subject,strmBody,1,1)
 	Quit