Index: vhConsistency/Checks/PrijzenOrgalux.cls.xml
===================================================================
diff -u -r1114 -r1119
--- vhConsistency/Checks/PrijzenOrgalux.cls.xml	(.../PrijzenOrgalux.cls.xml)	(revision 1114)
+++ vhConsistency/Checks/PrijzenOrgalux.cls.xml	(.../PrijzenOrgalux.cls.xml)	(revision 1119)
@@ -13,44 +13,56 @@
 		Set Status = $$$OK
 		
 		/// ORGALUX.CH
-		Set VerwachtePrijs = "345.30"
+		Set VerwachtePrijs = "345.36"
 		Set VerwachteMunt = "CHF"
-		Set Resultaat = ..Zoek(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCh(), ##class(WS.Web.OLParticulier.enu.Regio).Zwitserland())
-		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_" "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachtePrijs_" "_VerwachteMunt_"."
-			Do ..VoegMeldingToe(Melding)
-		}			
-		If (Resultaat.Producten.GetAt(1).Munt '= VerwachteMunt){
-			Set Status = 0
-			Set Melding = "De munt voor product BO5011S5 is gewijzigd. "
-			Set Melding = Melding _"De munt is "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachteMunt_"."
-			Do ..VoegMeldingToe(Melding)
-		}		
+		Set:'..CheckResultaatPrijs(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCh(),##class(WS.Web.OLParticulier.enu.Regio).Zwitserland(),VerwachtePrijs,VerwachteMunt,"De prijs voor product BO5011S5 is gewijzigd. ") Status = 0		
+		Set:'..CheckResultaatMunt(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCh(),##class(WS.Web.OLParticulier.enu.Regio).Zwitserland(),VerwachteMunt,"De munt voor product BO5011S5 is gewijzigd. ") Status = 0
+				
 		
 		/// ORGALUX.COM
 		Set VerwachtePrijs = "260.03"
 		Set VerwachteMunt = "EUR"
-		Set Resultaat = ..Zoek(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCom(),  ##class(WS.Web.OLParticulier.enu.Regio).Belgie())
-		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_" "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachtePrijs_" "_VerwachteMunt_"."
-			Do ..VoegMeldingToe(Melding)
-		}			
-		If (Resultaat.Producten.GetAt(1).Munt '= VerwachteMunt){
-			Set Status = 0
-			Set Melding = "De munt voor product BO5011S5 is gewijzigd. "
-			Set Melding = Melding _"De munt is "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachteMunt_"."
-			Do ..VoegMeldingToe(Melding)
-		}
+		Set:'..CheckResultaatPrijs(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCom(),##class(WS.Web.OLParticulier.enu.Regio).Belgie(),VerwachtePrijs,VerwachteMunt,"De prijs voor product BO5011S5 is gewijzigd. ") Status = 0		
+		Set:'..CheckResultaatMunt(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCom(),##class(WS.Web.OLParticulier.enu.Regio).Belgie(),VerwachteMunt,"De munt voor product BO5011S5 is gewijzigd. ") Status = 0
 		Quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="CheckResultaatPrijs">
+<FormalSpec>Website:WS.Web.OLParticulier.enu.Website,Regio:WS.Web.OLParticulier.enu.Regio,VerwachtePrijs:%String,VerwachteMunt:%String,Melding:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set Resultaat = ..Zoek(Website, Regio)
+	If ((Resultaat.Producten.GetAt(1).Prijs '= VerwachtePrijs)){
+		Set Status = 0
+		Set Melding = Melding _"De prijs bedraagt "_Resultaat.Producten.GetAt(1).Prijs_" "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachtePrijs_" "_VerwachteMunt_"."
+		Do ..VoegMeldingToe(Melding)
+	}	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="CheckResultaatMunt">
+<FormalSpec>Website:WS.Web.OLParticulier.enu.Website,Regio:WS.Web.OLParticulier.enu.Regio,VerwachteMunt:%String,Melding:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set Resultaat = ..Zoek(Website, Regio)
+	If (Resultaat.Producten.GetAt(1).Munt '= VerwachteMunt){
+		Set Status = 0
+		Set Melding = Melding _"De munt is "_Resultaat.Producten.GetAt(1).Munt_" ipv "_VerwachteMunt_"."
+		Do ..VoegMeldingToe(Melding)
+	}	
+	Quit Status
+]]></Implementation>
+</Method>
+
 <Method name="Zoek">
 <FormalSpec>Website:WS.Web.OLParticulier.enu.Website,Regio:WS.Web.OLParticulier.enu.Regio</FormalSpec>
+<Private>1</Private>
 <ReturnType>DOM.PM.OL.Gamma.dto.ProductGroepInhoud</ReturnType>
 <Implementation><![CDATA[
 		Set Sessie = ##class(WS.Web.OLParticulier.dto.Sessie).%New()
Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r1115 -r1119
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1115)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1119)
@@ -26,24 +26,19 @@
 <Method name="VoerAlleChecksUit">
 <FormalSpec>ToonAlles:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
-	    Set UitTeVoerenChecks = ##class(%ListOfDataTypes).%New()
-		Do UitTeVoerenChecks.Insert("vhConsistency.Checks.Prijzen")
-		Set CheckGefaald = 1
+		Set CheckGefaald = 0
 		
-		Set Package = "vhConsistency.Checks"
-		set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Extent")
-		do rs.Execute()
+		set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
+		do rs.Execute("vhConsistency.Check")
 		while rs.Next() {
-			set Classname = rs.GetData(1)
-			if $extract(Classname,1,$length(Package))=Package {
-				Set $ZTRAP = "ErrHandling"
-				If ('..VoerEenCheckUit(Classname, ToonAlles)){
-					Set CheckGefaald = 1
-				}
-				Set $ZTRAP = ""
+			set Classname = rs.Data("Name")
+			Set $ZTRAP = "ErrHandling"
+			If ('..VoerEenCheckUit(Classname, ToonAlles)){
+				Set CheckGefaald = 1
 			}
+			Set $ZTRAP = ""
 			Continue
-ErrHandling Set CheckGefaald = 1 Set CheckGefaald = 1 Set ..Meldingen = ..Meldingen _ Classname_" : GEFAALD "_$C(10,13,9)_$ZE_$C(10,13)
+ErrHandling 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)
@@ -53,7 +48,8 @@
 			If ToonAlles w Boodschap,!	
 			If CheckGefaald {
 				Set From = $$$SystemMail($$$Server_" - Consistency check")
-				Set MailNaar = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhConsistencyCheck.MailNaar"))
+				Set MailNaar = $LB($$GetMailAddressFromTerminal^vhLib())
+				Set:(MailNaar="") MailNaar = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhConsistencyCheck.MailNaar"))
 		    	Do SendMiniMail^vhLib(From,MailNaar,"Consistency check failed on ["_$$$Server_"]",Boodschap,0) 
 			}
 		}
@@ -65,6 +61,7 @@
 
 <Method name="VoerEenCheckUit">
 <FormalSpec>Classname:%String,ToonAlles:%Boolean=0</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Set Check = $zobjclassmethod(Classname,"%New")
Index: vhConsistency/Checks/PrijzenVhizie.cls.xml
===================================================================
diff -u -r1114 -r1119
--- vhConsistency/Checks/PrijzenVhizie.cls.xml	(.../PrijzenVhizie.cls.xml)	(revision 1114)
+++ vhConsistency/Checks/PrijzenVhizie.cls.xml	(.../PrijzenVhizie.cls.xml)	(revision 1119)
@@ -11,9 +11,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Set Status = $$$OK
-		
-		Set ProductService = ##class(BL.EC.Product).%New()
-		
+				
 		/// Korttekst : BO5011S5
 		Set PRNr = 559401