Index: vhConsistency/Check.cls.xml
===================================================================
diff -u
--- vhConsistency/Check.cls.xml	(revision 0)
+++ vhConsistency/Check.cls.xml	(revision 1113)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Check">
+<Description>
+JBL + 2011-05-05</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Melding">
+<Type>%String</Type>
+</Property>
+
+<Method name="VoerUit">
+<Abstract>1</Abstract>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="GeefMelding">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ##this.%ClassName(1)_" : GEFAALD"_$C(10,13)_..Melding
+]]></Implementation>
+</Method>
+
+<Method name="VoegMeldingToe">
+<FormalSpec>Melding:%String</FormalSpec>
+<Implementation><![CDATA[		Set ..Melding = ..Melding_$C(9)_Melding_$C(10,13)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u
--- vhConsistency/ConsistencyCheck.cls.xml	(revision 0)
+++ vhConsistency/ConsistencyCheck.cls.xml	(revision 1113)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.ConsistencyCheck">
+<Description>
+JBL + 2011-05-05</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Meldingen">
+<Type>%String</Type>
+</Property>
+
+<Method name="VoerUit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToonAlles:%Boolean=0</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		Set ConsistencyCheck = ..%New()
+		Do ConsistencyCheck.VoerAlleChecksUit(ToonAlles)
+]]></Implementation>
+</Method>
+
+<Method name="VoerAlleChecksUit">
+<FormalSpec>ToonAlles:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+	    Set UitTeVoerenChecks = ##class(%ListOfDataTypes).%New()
+		Do UitTeVoerenChecks.Insert("vhConsistency.Checks.Prijzen")
+		
+		Set Package = "vhConsistency.Checks"
+		set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Extent")
+		do rs.Execute()
+		while rs.Next() {
+			set Classname = rs.GetData(1)
+			if $extract(Classname,1,$length(Package))=Package {
+				Set $ZTRAP = "ErrHandling"
+				Do ..VoerEenCheckUit(Classname, ToonAlles)
+				Set $ZTRAP = ""
+			}
+			Continue
+ErrHandling 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,!
+]]></Implementation>
+</Method>
+
+<Method name="VoerEenCheckUit">
+<FormalSpec>Classname:%String,ToonAlles:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+		Set Check = $zobjclassmethod(Classname,"%New")
+		Set Resultaat = Check.VoerUit()
+		If ('Resultaat){
+			Set ..Meldingen = ..Meldingen_Check.GeefMelding()
+		}ElseIf(ToonAlles && Resultaat){
+			Set ..Meldingen = ..Meldingen_Classname_" : OK"_$C(10,13)	
+		}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhConsistency/Checks/PrijzenOrgalux.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/PrijzenOrgalux.cls.xml	(revision 0)
+++ vhConsistency/Checks/PrijzenOrgalux.cls.xml	(revision 1113)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.PrijzenOrgalux">
+<Description>
+JBL + 2011-05-05</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		Set Status = $$$OK
+		
+		/// ORGALUX.CH
+		Set VerwachtePrijs = "345.30"
+		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_" ipv "_VerwachtePrijs_"."
+			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)
+		}		
+		
+		/// 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_"' ipv '"_VerwachtePrijs_"'."
+			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)
+		}
+		Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="Zoek">
+<FormalSpec>Website:WS.Web.OLParticulier.enu.Website,Regio:WS.Web.OLParticulier.enu.Regio</FormalSpec>
+<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 = "" //##class(DOM.PM.OL.Gamma.dto.ProductCriteria).%New()
+		Set ProductDetailsTonen = 1
+		
+		set dtoResult = OLGamma.ZoekProductGroepInhoud(ProductGroepIdentifier,ProductCriteria,Zoekterm,LadeSpec,,ProductDetailsTonen)
+	
+		Quit dtoResult
+]]></Implementation>
+</Method>
+
+<Method name="GetOrgaluxProductGamma">
+<FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie</FormalSpec>
+<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()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhConsistency/Checks/PrijzenVhizie.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/PrijzenVhizie.cls.xml	(revision 0)
+++ vhConsistency/Checks/PrijzenVhizie.cls.xml	(revision 1113)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.PrijzenVhizie">
+<Description>
+JBL + 2011-05-05</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		Set Status = $$$OK
+		
+		Set ProductService = ##class(BL.EC.Product).%New()
+		
+		Set PRNr = 559401
+		
+		If ('..VoerUitVoorPrijsklasse("L",PRNr,"134.31")) Set Status = 0
+		If ('..VoerUitVoorPrijsklasse("R",PRNr,"118.20")) Set Status = 0
+		If ('..VoerUitVoorPrijsklasse("S",PRNr,"107.45")) Set Status = 0
+		If ('..VoerUitVoorPrijsklasse("B",PRNr,"91.34")) Set Status = 0
+		If ('..VoerUitVoorPrijsklasse("G",PRNr,"75.22")) Set Status = 0
+		
+		Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitVoorPrijsklasse">
+<FormalSpec>Prijsklasse:%String,PRNr:%Integer,VerwachtePrijs:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set Status = $$$OK
+		If (..GeefPrijsVoorKlantInKlasse(Prijsklasse,PRNr) '= 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_"'."
+			Do ..VoegMeldingToe(Melding)
+		}			
+		Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrijsVoorKlantInKlasse">
+<FormalSpec>Prijsklasse:%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)
+		Set Prijs = $P(Prijs,"\",1)
+		Quit Prijs
+]]></Implementation>
+</Method>
+</Class>
+</Export>