Index: vhConsistency/Checks/PrijzenOrgalux.cls.xml
===================================================================
diff -u -r29561 -r33521
--- vhConsistency/Checks/PrijzenOrgalux.cls.xml	(.../PrijzenOrgalux.cls.xml)	(revision 29561)
+++ vhConsistency/Checks/PrijzenOrgalux.cls.xml	(.../PrijzenOrgalux.cls.xml)	(revision 33521)
@@ -13,36 +13,61 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set Status = $$$OK
-		
-		/// ORGALUX.CH
-		Set VerwachtePrijs = "331.40"
-		Set VerwachteMunt = "CHF"
-		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 = "265.5"
-		Set VerwachteMunt = "EUR"
-		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
+	#dim Status As %Status = $$$OK
+	
+	Set:$$$Not(..CheckOrgaluxCH("331.40", "CHF")) Status = 0
+	Set:$$$Not(..CheckOrgaluxCom("265.5", "EUR")) Status = 0
+
+	Quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="CheckOrgaluxCH">
+<FormalSpec>VerwachtePrijs:%String,VerwachteMunt:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Status As %Status = $$$OK
+	#dim Website As WS.Web.OLParticulier.enu.Website = ##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCh()
+	#dim Regio As WS.Web.OLParticulier.enu.Regio = ##class(WS.Web.OLParticulier.enu.Regio).Zwitserland()
+	
+	Set:$$$Not(..CheckResultaatPrijs(Website, Regio, VerwachtePrijs, VerwachteMunt, "De prijs voor product BO5011S5 is gewijzigd.")) Status = 0		
+	Set:$$$Not(..CheckResultaatMunt(Website, Regio, VerwachteMunt, "De munt voor product BO5011S5 is gewijzigd.")) Status = 0
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="CheckOrgaluxCom">
+<FormalSpec>VerwachtePrijs:%String,VerwachteMunt:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Status As %Status = $$$OK
+	#dim Website As WS.Web.OLParticulier.enu.Website = ##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCom()
+	#dim Regio As WS.Web.OLParticulier.enu.Regio = ##class(WS.Web.OLParticulier.enu.Regio).Belgie()
+	
+	Set:$$$Not(..CheckResultaatPrijs(Website, Regio, VerwachtePrijs, VerwachteMunt, "De prijs voor product BO5011S5 is gewijzigd.")) Status = 0		
+	Set:$$$Not(..CheckResultaatMunt(Website, Regio, 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)){
+	#dim Status As %Status = $$$OK
+	#dim Resultaat As DOM.PM.OL.Gamma.dto.ProductGroepInhoud = ..Zoek(Website, Regio)
+	
+	If $$$Not((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>
@@ -52,13 +77,15 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = $$$OK
-	Set Resultaat = ..Zoek(Website, Regio)
-	If (Resultaat.Producten.GetAt(1).Munt '= VerwachteMunt){
+	#dim Status As %Status = $$$OK
+	#dim Resultaat As DOM.PM.OL.Gamma.dto.ProductGroepInhoud = ..Zoek(Website, Regio)
+	
+	If $$$Not(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>
@@ -68,38 +95,35 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.OL.Gamma.dto.ProductGroepInhoud</ReturnType>
 <Implementation><![CDATA[
-		Set Sessie = ##class(WS.Web.OLParticulier.dto.Sessie).%New()
-		Set Sessie.Identifier = 12321
-		Set Sessie.Regio = Regio
-		Set Sessie.Taal = ##class(WS.Web.OLParticulier.enu.Taal).Nederlands()
-		Set Sessie.Website = Website
-		
-		Set OLGamma = ..GetOrgaluxProductGamma(Sessie)	
-		
-		Set ProductGroepIdentifier = "GS_ORG_bestek"
-		
-		Set Zoekterm = "BO5011S5"
-		
-		Set LadeSpec = ##class(DOM.PM.OL.Gamma.dto.LadeSpecificatie).%New()
-		Set LadeSpec.Binnenlade = 0
-		Set LadeSpec.Diepte = ""
-		Set LadeSpec.InterneBreedte = ""
-		Set LadeSpec.RugHoogte = ""
-		Set LadeSpec.VrijeHoogte = ""
-		Set LadeSpec.Kleur = "Onbepaald"
-		Set LadeSpec.LadeOpgegeven = "Onbepaald"
-		Set LadeSpec.Type = "Onbepaald"
-		Set LadeSpec.VerhoogdeZijkant = "Onbepaald"
-		Set LadeSpec.IsVrijeHoogteOnzeker = 0
-		
-		Set FilterKeuzes = ##class(DOM.PM.OL.Gamma.dto.FilterKeuzes).%New()
-		
-		Set ProductCriteria = ""
-		Set ProductDetailsTonen = 1
-		
-		set dtoResult = OLGamma.ZoekProductGroepInhoud(ProductGroepIdentifier,ProductCriteria,Zoekterm,LadeSpec,,ProductDetailsTonen)
+	#dim Sessie As WS.Web.OLParticulier.dto.Sessie = ##class(WS.Web.OLParticulier.dto.Sessie).%New()
 	
-		Quit dtoResult
+	Set Sessie.Identifier = 12321
+	Set Sessie.Regio = Regio
+	Set Sessie.Taal = ##class(WS.Web.OLParticulier.enu.Taal).Nederlands()
+	Set Sessie.Website = Website
+	
+	#dim OrgaluxProductGamma As DOM.PM.OL.Gamma.OrgaluxProductGamma = ..GetOrgaluxProductGamma(Sessie)
+	#dim ProductGroepIdentifier As %String = "GS_ORG_bestek"
+	#dim Zoekterm As %String = "BO5011S5"
+	
+	#dim LadeSpec As DOM.PM.OL.Gamma.dto.LadeSpecificatie = ##class(DOM.PM.OL.Gamma.dto.LadeSpecificatie).%New()
+	Set LadeSpec.Binnenlade = $$$False
+	Set LadeSpec.Diepte = ""
+	Set LadeSpec.InterneBreedte = ""
+	Set LadeSpec.RugHoogte = ""
+	Set LadeSpec.VrijeHoogte = ""
+	Set LadeSpec.Kleur = "Onbepaald"
+	Set LadeSpec.LadeOpgegeven = "Onbepaald"
+	Set LadeSpec.Type = "Onbepaald"
+	Set LadeSpec.VerhoogdeZijkant = "Onbepaald"
+	Set LadeSpec.IsVrijeHoogteOnzeker = $$$False
+	
+	#dim FilterKeuzes As DOM.PM.OL.Gamma.dto.FilterKeuzes = ##class(DOM.PM.OL.Gamma.dto.FilterKeuzes).%New()
+	#dim ProductCriteria As DOM.PM.OL.Gamma.dto.ProductCriteria = ""
+	#dim ProductDetailsTonen As %Boolean = $$$True
+	#dim Resultaat As DOM.PM.OL.Gamma.dto.ProductGroepInhoud = OrgaluxProductGamma.ZoekProductGroepInhoud(ProductGroepIdentifier, ProductCriteria, Zoekterm, LadeSpec,, ProductDetailsTonen)
+
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
@@ -108,10 +132,10 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.OL.Gamma.OrgaluxProductGamma</ReturnType>
 <Implementation><![CDATA[
-		Set Context=##class(WS.Web.OLParticulier.impl.Sessie2OLGammaContext).CreateContextFromSessie(Sessie)
-		Quit:'$isObject(Context) ""
-		
-		Quit Context.GeefOrgaluxProductGammaImpl()
+	#dim Context As DOM.PM.OL.Gamma.Context = ##class(WS.Web.OLParticulier.impl.Sessie2OLGammaContext).CreateContextFromSessie(Sessie)
+	
+	Quit:$$$Not($IsObject(Context)) ""
+	Quit Context.GeefOrgaluxProductGammaImpl()
 ]]></Implementation>
 </Method>
 </Class>