Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml
===================================================================
diff -u -r52026 -r52027
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52026)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52027)
@@ -3,30 +3,123 @@
 <Class name="vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice">
 <Super>vhConsistency.Check</Super>
 
+<Property name="SkipCheck">
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
 <Property name="BestandUploader">
 <Type>vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="GlobalMultiDimIterator">
+<Type>TECH.GlobalMultiDimIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SalesPriceService">
+<Type>AXimpl.Admin.VKP.SalesPriceService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Description>
+Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().VoerUit()
 NIEUW BESTAND UPLOADEN: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().UploadBestandMetPrijzenNaarGlobal()
 OF RECHTSTREEKS MET EIGEN KLASSE: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader).%New().PopuleerGlobalVolgensBestand()
 OPGELET: Maak eerst van het Excel-bestand een csv!</Description>
-<FormalSpec>BestandUploader:vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader=""</FormalSpec>
+<FormalSpec>BestandUploader:vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader="",GlobalMultiDimIterator:TECH.GlobalMultiDimIterator="",SalesPriceService:AXimpl.Admin.VKP.SalesPriceService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BestandUploader = $$$Inject(BestandUploader, ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader).%New())
+	Set ..SalesPriceService = $$$Inject(SalesPriceService, ##class(AXimpl.Admin.VKP.SalesPriceService).%New())
+	Set ..GlobalMultiDimIterator = $$$Inject(GlobalMultiDimIterator, ##class(TECH.GlobalMultiDimIterator).%New($Name(^ConsistCheckPrijzenKlantProduct)))
+	Do ..GlobalMultiDimIterator.Next()
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC
+	#dim ResultLine As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC
+	#dim Eenheid, Identnummer, InclBTW, KlantNaam, Korttekst, LijstPrijs, Melding, NettoPrijs, Record, SimPPL As %String
+	#dim SalesPriceServiceEenheid, SalesPriceServiceInclBTW, SalesPriceServiceLijstPrijs, SalesPriceServiceNettoprijs As %String
+	#dim Aantal, KLNr, PRNr As %Integer
+	
+	While (..GlobalMultiDimIterator.HasNext()) {
+		Set Record = ..GlobalMultiDimIterator.Next()
+		Set KLNr = $Piece(Record,"\",1)
+		Set KlantNaam = $Piece(Record,"\",2)
+		Set PRNr = $Piece(Record,"\",3)
+		Set Korttekst = $Piece(Record,"\",4)
+		Set Identnummer = $Piece(Record,"\",5)
+		Set Aantal = $Piece(Record,"\",6)
+		Set SimPPL = $$$If($Piece(Record,"\",7)=0,"",$Piece(Record,"\",7))
+		
+		If $$$Not(##class(Derde.Klant.Klant).%ExistsId(KLNr)) {
+			Set Melding = "Klant '"_KLNr_"' bestaat niet."
+			;Do ..VoegMeldingToe(Melding)
+			w !,Melding
+			Continue
+		}
+		
+		If $$$Not(##class(Prod.Product).%ExistsId(PRNr)) {
+			Set Melding = "Product '"_PRNr_"' bestaat niet."
+			;Do ..VoegMeldingToe(Melding)
+			w !,Melding
+			Continue
+		}
+		
+		Set Result = ..SalesPriceService.GeefPrijs(KLNr,PRNr,SimPPL,Aantal)
+		Set ResultLine = Result.Lines.GetAt(1)
+		Set NettoPrijs = $Piece(Record,"\",8)
+		Set LijstPrijs = $Piece(Record,"\",9)
+		Set Eenheid = $Piece(Record,"\",10)
+		Set InclBTW = $Piece(Record,"\",11)
+		
+		Set SalesPriceServiceNettoprijs = $$$ExcelNum(ResultLine.Price)
+		Set SalesPriceServiceLijstPrijs = $$$ExcelNum(ResultLine.GrossPrice)
+		Set SalesPriceServiceEenheid = ResultLine.PriceUnit
+		Set SalesPriceServiceInclBTW = Result.InclVAT
+		
+		If $$$Not(NettoPrijs = SalesPriceServiceNettoprijs) {
+			Set Melding = "Voor Klant '"_KLNr_"' - '"_KlantNaam_"' komt de SalesPriceService Nettoprijs niet overeen voor product '"_PRNr_"' - '"_Identnummer_"' zijnde '"_Korttekst_"'. Bestand: '"_NettoPrijs_"' - SalesPriceService: '"_SalesPriceServiceNettoprijs_"'."
+			;Do ..VoegMeldingToe(Melding)
+			w !,Melding
+			Continue
+		}
+		
+		If $$$Not(LijstPrijs = SalesPriceServiceLijstPrijs) {
+			Set Melding = "Voor Klant '"_KLNr_"' - '"_KlantNaam_"' komt de SalesPriceService LijstPrijs niet overeen voor product '"_PRNr_"' - '"_Identnummer_"' zijnde '"_Korttekst_"'. Bestand: '"_LijstPrijs_"' - SalesPriceService: '"_SalesPriceServiceLijstPrijs_"'."
+			;Do ..VoegMeldingToe(Melding)
+			w !,Melding
+			Continue
+		}
+		
+		If $$$Not(Eenheid = SalesPriceServiceEenheid) {
+			Set Melding = "Voor Klant '"_KLNr_"' - '"_KlantNaam_"' komt de SalesPriceService Eenheid niet overeen voor product '"_PRNr_"' - '"_Identnummer_"' zijnde '"_Korttekst_"'. Bestand: '"_Eenheid_"' - SalesPriceService: '"_SalesPriceServiceEenheid_"'."
+			;Do ..VoegMeldingToe(Melding)
+			w !,Melding
+			Continue
+		}
+		
+		If $$$Not(InclBTW = SalesPriceServiceInclBTW) {
+			Set Melding = "Voor Klant '"_KLNr_"' - '"_KlantNaam_"' komt de SalesPriceService InclBTW niet overeen voor product '"_PRNr_"' - '"_Identnummer_"' zijnde '"_Korttekst_"'. Bestand: '"_InclBTW_"' - SalesPriceService: '"_SalesPriceServiceInclBTW_"'."
+			;Do ..VoegMeldingToe(Melding)
+			w !,Melding
+			Continue
+		}
+	}
+	
+	Quit (..GeefAantalMeldingen()=0)
+]]></Implementation>
 </Method>
 
 <Method name="UploadBestandMetPrijzenNaarGlobal">
Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml
===================================================================
diff -u -r52026 -r52027
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml	(.../BestandUploader.cls.xml)	(revision 52026)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml	(.../BestandUploader.cls.xml)	(revision 52027)
@@ -75,7 +75,7 @@
 		Kill ^ConsistCheckPrijzenKlantProduct(Node1)
 		Do ..Console.WriteLine("De eventueel bestaande Global ^ConsistCheckPrijzenKlantProduct is gewist.")
 		
-		Set ^ConsistCheckPrijzenKlantProduct(Node1) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens Check-RijInExcelBestand-Klant-Product"
+		Set ^ConsistCheckPrijzenKlantProduct(Node1,0,0,0) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens Check-RijInExcelBestand-Klant-Product"
 		
 		Do ..FileReader.SetFirstDataRow(3)
 		While ..FileReader.HasNext() {