Index: vhConsistency/Checks/PrijzenVhizie.cls.xml
===================================================================
diff -u -r45973 -r49401
--- vhConsistency/Checks/PrijzenVhizie.cls.xml	(.../PrijzenVhizie.cls.xml)	(revision 45973)
+++ vhConsistency/Checks/PrijzenVhizie.cls.xml	(.../PrijzenVhizie.cls.xml)	(revision 49401)
@@ -4,6 +4,7 @@
 <Description>
 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.PrijzenVhizie")</Description>
 <ClassType/>
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhConsistency.Check</Super>
 
@@ -12,62 +13,96 @@
 <Default>jb@vanhoecke.be</Default>
 </Parameter>
 
+<Property name="FormatApi">
+<Type>TECH.Format.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+
+	Set ..FormatApi = ##class(TECH.Format.impl.FormatAPI).%New()	
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Do ##class(vhLib.OldSchool).InitVars()
+	Do ##class(vhLib.OldSchool).InitVars()
+	
+	#dim Status As %Status = $$$OK				
+	#dim PRNr As %String = 794474
+	#dim BusinessType As DOM.VKP.enu.BusinessType.AutoComplete = ##class(DOM.VKP.enu.BusinessType.AutoComplete).%New()
+	
+	If $$$Not(..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Consument(), BusinessType.B2C, PRNr, "231.37", $$$CKlantCIncl)) Set Status = 0 //231.36
+	If $$$Not(..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Lijstprijs(), BusinessType.B2B, PRNr, "144.60", $$$CKlantL)) Set Status = 0
+	If $$$Not(..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Rabat(), BusinessType.B2B, PRNr, "127.25", $$$CKlantR)) Set Status = 0
+	If $$$Not(..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Spil(), BusinessType.B2B, PRNr, "115.69", $$$CKlantS)) Set Status = 0 //115.68
+	If $$$Not(..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Basis(), BusinessType.B2B, PRNr, "98.33", $$$CKlantB)) Set Status = 0
+	If $$$Not(..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Groot(), BusinessType.B2B, PRNr, "80.98", $$$CKlantG)) Set Status = 0
+	If $$$Not(..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Plus(), BusinessType.B2B, PRNr, "159.06", $$$CKlantP)) Set Status = 0
 		
-		#dim Status As %Status = $$$OK				
-		#dim PRNr As %String = 794474
-		
-		#dim B As DOM.VKP.enu.BusinessType = ##class(DOM.VKP.enu.BusinessType).B2B()
-		If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Consument(),B,PRNr,"231.36")) Set Status = 0
-		If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Lijstprijs(),B,PRNr,"144.60")) Set Status = 0
-		If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Rabat(),B,PRNr,"127.25")) Set Status = 0
-		If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Spil(),B,PRNr,"115.68")) Set Status = 0
-		If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Basis(),B,PRNr,"98.33")) Set Status = 0
-		If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Groot(),B,PRNr,"80.98")) Set Status = 0
-		If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Plus(),B,PRNr,"159.06")) Set Status = 0
-		
-		;#dim C As DOM.VKP.enu.BusinessType = ##class(DOM.VKP.enu.BusinessType).B2C()
-		;If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Consument(),C,PRNr,"220.6611570247933884")) Set Status = 0
-		;If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Lijstprijs(),C,PRNr,"137.79")) Set Status = 0
-		;If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Rabat(),C,PRNr,"121.26")) Set Status = 0
-		;If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Spil(),C,PRNr,"110.23")) Set Status = 0
-		;If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Basis(),C,PRNr,"93.70")) Set Status = 0
-		;If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Groot(),C,PRNr,"77.27272727272727273")) Set Status = 0
-		;If ('..VoerUitVoorPrijsklasse(##class(DOM.VKP.enu.PrijsCodex).Plus(),C,PRNr,"151.6528925619834711")) Set Status = 0
-		
-		Quit Status
+	Quit Status
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitVoorPrijsklasse">
-<FormalSpec>Prijsklasse:DOM.VKP.enu.PrijsCodex,BusinessType:DOM.VKP.enu.BusinessType,PRNr:%Integer,VerwachtePrijs:%String</FormalSpec>
+<FormalSpec>Prijsklasse:DOM.VKP.enu.PrijsCodex,BusinessType:DOM.VKP.enu.BusinessType,PRNr:%Integer,VerwachtePrijs:%String,KlantID:%String=""</FormalSpec>
 <Implementation><![CDATA[
-		#dim Status As %Status = $$$OK
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantIDVoorKlantInKlasseEnBusinessType(Prijsklasse,BusinessType)
-		If $L(KlantID){
-			Set Prijs = ..GeefPrijsVoorKlantInKlasse(Prijsklasse,KlantID,PRNr)
-			If (Prijs '= VerwachtePrijs){
-				Set Status = 0
-				Set Melding = "De prijs voor product "_PRNr_" is gewijzigd, indien klant "_KlantID_" in prijsklasse "_Prijsklasse_" en BusinessType "_BusinessType_" valt. "
-				Set Melding = Melding _"De prijs bedraagt '"_Prijs_"' ipv '"_VerwachtePrijs_"'."
-				Do ..VoegMeldingToe(Melding)
-			}			
-		}
-		Quit Status
+	#dim Status As %Status = $$$OK
+	
+	If (KlantID = "") {
+		Set KlantID = ..GeefKlantIDVoorKlantInKlasseEnBusinessType(Prijsklasse,BusinessType)	
+	} Else {
+		Set KlantID = ..GeefKlantPartijId(KlantID)
+	}
+	
+	If $Length(KlantID) {
+		#dim Prijs As %String = ..GeefPrijsVoorKlantInKlasse(Prijsklasse, KlantID, PRNr)
+		
+		Set Prijs = ..FormatApi.FormatNumber(Prijs, 2)
+		Set VerwachtePrijs = ..FormatApi.FormatNumber(VerwachtePrijs, 2)
+		
+		If $$$Not(Prijs = VerwachtePrijs){
+			Set Status = 0
+			
+			#dim Melding As %String = ""
+			Set Melding = Melding _ "De prijs voor product " _ PRNr _ " is gewijzigd, indien klant "_KlantID_" in prijsklasse "_Prijsklasse_" en BusinessType "_BusinessType_" valt. "
+			Set Melding = Melding _ "De prijs bedraagt '"_Prijs_"' ipv '"_VerwachtePrijs_"'."
+			
+			Do ..VoegMeldingToe(Melding)
+		}			
+	}
+	
+	Quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantPartijId">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantPartijID(KlantNummer)
+]]></Implementation>
+</Method>
+
 <Method name="GeefPrijsVoorKlantInKlasse">
 <FormalSpec>Prijsklasse:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
-	Set Prijs = $$KLANTPR^KPRIJS(KlantNr,PRNr)
-	Set Prijs = $P(Prijs,"\",1)
+	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)	
+	#dim Prijs As %String = $$KLANTPR^KPRIJS(KlantNr, PRNr)
+	
+	Set Prijs = $Piece(Prijs, "\", 1)
+	
 	Quit Prijs
 ]]></Implementation>
 </Method>
@@ -78,11 +113,13 @@
 <ReturnType>DOM.common.PartijID</ReturnType>
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ""
-	#dim Query As %String = "SELECT TOP 1 ID FROM Derde_Klant.Klant WHERE BusinessType = ? AND PrijsklasseOL = ?"
+	#dim Query As %String = "SELECT TOP 1 ID FROM Derde_Klant.Klant WHERE BusinessType = ? AND PrijsklasseOL = ? AND CommNonActief = 0"
 	#dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(BusinessType,Prijsklasse))
+	
 	If ResultSet.Next(){
 		Set KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(ResultSet.Data("ID"))
 	}
+		
 	Quit KlantID
 ]]></Implementation>
 </Method>