Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r1113 -r1114
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1113)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1114)
@@ -3,6 +3,7 @@
 <Class name="vhConsistency.ConsistencyCheck">
 <Description>
 JBL + 2011-05-05</Description>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -26,6 +27,7 @@
 <Implementation><![CDATA[
 	    Set UitTeVoerenChecks = ##class(%ListOfDataTypes).%New()
 		Do UitTeVoerenChecks.Insert("vhConsistency.Checks.Prijzen")
+		Set CheckGefaald = 1
 		
 		Set Package = "vhConsistency.Checks"
 		set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Extent")
@@ -34,19 +36,32 @@
 			set Classname = rs.GetData(1)
 			if $extract(Classname,1,$length(Package))=Package {
 				Set $ZTRAP = "ErrHandling"
-				Do ..VoerEenCheckUit(Classname, ToonAlles)
+				If ('..VoerEenCheckUit(Classname, ToonAlles)){
+					Set CheckGefaald = 1
+				}
 				Set $ZTRAP = ""
 			}
 			Continue
-ErrHandling Set ..Meldingen = ..Meldingen _ Classname_" : GEFAALD "_$C(10,13,9)_$ZE_$C(10,13)
+ErrHandling Set CheckGefaald = 1 Set CheckGefaald = 1 Set ..Meldingen = ..Meldingen _ Classname_" : GEFAALD "_$C(10,13,9)_$ZE_$C(10,13)
 		}
-		Set Hoofding = "Consistency Checks : "_$C(10,13)_"--------------------"_$C(10,13)_$C(10,13)
-		w Hoofding_..Meldingen,!
+		
+		If (CheckGefaald || ToonAlles)
+		{
+			Set Hoofding = "Consistency Checks : "_$C(10,13)_"--------------------"_$C(10,13)_$C(10,13)
+			Set Boodschap = Hoofding_..Meldingen
+			If ToonAlles w Boodschap,!	
+			If CheckGefaald {
+				Set From = $$$SystemMail($$$Server_" - Consistency check")
+				Set MailNaar = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhConsistencyCheck.MailNaar"))
+		    	Do SendMiniMail^vhLib(From,MailNaar,"Consistency check failed on ["_$$$Server_"]",Boodschap,0) 
+			}
+		}
 ]]></Implementation>
 </Method>
 
 <Method name="VoerEenCheckUit">
 <FormalSpec>Classname:%String,ToonAlles:%Boolean=0</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Set Check = $zobjclassmethod(Classname,"%New")
 		Set Resultaat = Check.VoerUit()
@@ -55,6 +70,7 @@
 		}ElseIf(ToonAlles && Resultaat){
 			Set ..Meldingen = ..Meldingen_Classname_" : OK"_$C(10,13)	
 		}
+		Quit Resultaat
 ]]></Implementation>
 </Method>
 </Class>
Index: vhConsistency/Checks/PrijzenOrgalux.cls.xml
===================================================================
diff -u -r1113 -r1114
--- vhConsistency/Checks/PrijzenOrgalux.cls.xml	(.../PrijzenOrgalux.cls.xml)	(revision 1113)
+++ vhConsistency/Checks/PrijzenOrgalux.cls.xml	(.../PrijzenOrgalux.cls.xml)	(revision 1114)
@@ -19,7 +19,7 @@
 		If ((Resultaat.Producten.GetAt(1).Prijs '= VerwachtePrijs)){
 			Set Status = 0
 			Set Melding = "De prijs voor product BO5011S5 is gewijzigd. "
-			Set Melding = Melding _"De prijs bedraagt "_Resultaat.Producten.GetAt(1).Prijs_" ipv "_VerwachtePrijs_"."
+			Set Melding = Melding _"De prijs bedraagt "_Resultaat.Producten.GetAt(1).Prijs_" "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachtePrijs_" "_VerwachteMunt_"."
 			Do ..VoegMeldingToe(Melding)
 		}			
 		If (Resultaat.Producten.GetAt(1).Munt '= VerwachteMunt){
@@ -36,7 +36,7 @@
 		If ((Resultaat.Producten.GetAt(1).Prijs '= VerwachtePrijs)){
 			Set Status = 0
 			Set Melding = "De prijs voor product BO5011S5 is gewijzigd. "
-			Set Melding = Melding _"De prijs bedraagt '"_Resultaat.Producten.GetAt(1).Prijs_"' ipv '"_VerwachtePrijs_"'."
+			Set Melding = Melding _"De prijs bedraagt "_Resultaat.Producten.GetAt(1).Prijs_" "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachtePrijs_" "_VerwachteMunt_"."
 			Do ..VoegMeldingToe(Melding)
 		}			
 		If (Resultaat.Producten.GetAt(1).Munt '= VerwachteMunt){
@@ -79,7 +79,7 @@
 		
 		Set FilterKeuzes = ##class(DOM.PM.OL.Gamma.dto.FilterKeuzes).%New()
 		
-		Set ProductCriteria = "" //##class(DOM.PM.OL.Gamma.dto.ProductCriteria).%New()
+		Set ProductCriteria = ""
 		Set ProductDetailsTonen = 1
 		
 		set dtoResult = OLGamma.ZoekProductGroepInhoud(ProductGroepIdentifier,ProductCriteria,Zoekterm,LadeSpec,,ProductDetailsTonen)
Index: vhConsistency/Checks/PrijzenVhizie.cls.xml
===================================================================
diff -u -r1113 -r1114
--- vhConsistency/Checks/PrijzenVhizie.cls.xml	(.../PrijzenVhizie.cls.xml)	(revision 1113)
+++ vhConsistency/Checks/PrijzenVhizie.cls.xml	(.../PrijzenVhizie.cls.xml)	(revision 1114)
@@ -14,6 +14,7 @@
 		
 		Set ProductService = ##class(BL.EC.Product).%New()
 		
+		/// Korttekst : BO5011S5
 		Set PRNr = 559401
 		
 		If ('..VoerUitVoorPrijsklasse("L",PRNr,"134.31")) Set Status = 0
@@ -27,25 +28,26 @@
 </Method>
 
 <Method name="VoerUitVoorPrijsklasse">
-<FormalSpec>Prijsklasse:%String,PRNr:%Integer,VerwachtePrijs:%String</FormalSpec>
+<FormalSpec>PrijsklasseOL:%String,PRNr:%Integer,VerwachtePrijs:%String</FormalSpec>
 <Implementation><![CDATA[
 		Set Status = $$$OK
-		If (..GeefPrijsVoorKlantInKlasse(Prijsklasse,PRNr) '= VerwachtePrijs){
+		Set Prijs = ..GeefPrijsVoorKlantInKlasse(PrijsklasseOL,PRNr)
+		If (Prijs '= VerwachtePrijs){
 			Set Status = 0
-			Set Melding = "De prijs voor product "_PRNr_" is gewijzigd, indien klant in prijsklasse "_Prijsklasse_" valt. "
-			Set Melding = Melding _"De prijs bedraagt '"_..GeefPrijsVoorKlantInKlasse(Prijsklasse,PRNr)_"' ipv '"_VerwachtePrijs_"'."
+			Set Melding = "De prijs voor product "_PRNr_" is gewijzigd, indien klant in prijsklasseOL "_PrijsklasseOL_" valt. "
+			Set Melding = Melding _"De prijs bedraagt '"_Prijs_"' ipv '"_VerwachtePrijs_"'."
 			Do ..VoegMeldingToe(Melding)
 		}			
 		Quit Status
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPrijsVoorKlantInKlasse">
-<FormalSpec>Prijsklasse:%String,PRNr:%Integer</FormalSpec>
+<FormalSpec>PrijsklasseOL:%String,PRNr:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-		&SQL(SELECT TOP 1 ID into :KLNr from Derde_Klant.Klant WHERE Prijsklasse = :Prijsklasse)
-		Set Prijs = $$KLANTPR^KPRIJS(KLNr,PRNr,1)
+		&SQL(SELECT TOP 1 ID into :KLNr from Derde_Klant.Klant WHERE PrijsklasseOL = :PrijsklasseOL)
+		Set Prijs = $$KLANTPR^KPRIJS(KLNr,PRNr)
 		Set Prijs = $P(Prijs,"\",1)
 		Quit Prijs
 ]]></Implementation>