Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml
===================================================================
diff -u -r52047 -r52053
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52047)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52053)
@@ -45,9 +45,8 @@
 <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 Aantal, Eenheid, Identnummer, InclBTW, KlantNaam, KLNr, Korttekst, LijstPrijs, Melding, NettoPrijs, PRNr, Record, SimPPL As %String
 	#dim SalesPriceServiceEenheid, SalesPriceServiceInclBTW, SalesPriceServiceLijstPrijs, SalesPriceServiceNettoprijs As %String
-	#dim Aantal, KLNr, PRNr As %Integer
 	
 	If (($Data(^ConsistCheckPrijzenKlantProduct)) = 0) {
 		Set Melding = "De Global die de te checken data hoort te bevatten bestaat niet. Gelieve een bestand te uploaden met volgende instructie: "_$$$CRLF
@@ -62,7 +61,12 @@
 			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))
+			Set SimPPL = +$Piece(Record,"\",7)
+			Set SimPPL = $$$If(SimPPL=0,"",SimPPL)
+			Set NettoPrijs = $Translate($Translate($Piece(Record,"\",8),".",""),",",".")
+			Set LijstPrijs = $Translate($Translate($Piece(Record,"\",9),".",""),",",".")
+			Set Eenheid = $Piece(Record,"\",10)
+			Set InclBTW = $Translate($Translate($Piece(Record,"\",11),".",""),",",".")
 			
 			If $$$Not(##class(Derde.Klant.Klant).%ExistsId(KLNr)) {
 				Set Melding = "Klant '"_KLNr_"' bestaat niet."
@@ -80,11 +84,6 @@
 			
 			Set Result = ..SalesPriceService.GeefPrijs(KLNr,PRNr,SimPPL,Aantal)
 			Set ResultLine = Result.Lines.GetAt(1)
-			Set NettoPrijs = $Translate($Translate($Piece(Record,"\",8),".",""),",",".")
-			Set LijstPrijs = $Translate($Translate($Piece(Record,"\",9),".",""),",",".")
-			Set Eenheid = $Piece(Record,"\",10)
-			Set InclBTW = $Translate($Translate($Piece(Record,"\",11),".",""),",",".")
-			
 			Set SalesPriceServiceNettoprijs = $Justify(ResultLine.Price,"",2)
 			Set SalesPriceServiceLijstPrijs = $Justify(ResultLine.GrossPrice,"",2)
 			Set SalesPriceServiceEenheid = ResultLine.PriceUnit