Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml
===================================================================
diff -u -r52030 -r52044
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52030)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52044)
@@ -62,7 +62,7 @@
 			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 = $$$If(+$Piece(Record,"\",7)=0,"",+$Piece(Record,"\",7))
 			
 			If $$$Not(##class(Derde.Klant.Klant).%ExistsId(KLNr)) {
 				Set Melding = "Klant '"_KLNr_"' bestaat niet."
@@ -80,13 +80,13 @@
 			
 			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 NettoPrijs = $Translate($Translate($Piece(Record,"\",8),".",""),",",".")
+			Set LijstPrijs = $Translate($Translate($Piece(Record,"\",9),".",""),",",".")
 			Set Eenheid = $Piece(Record,"\",10)
-			Set InclBTW = $Piece(Record,"\",11)
+			Set InclBTW = $Translate($Translate($Piece(Record,"\",11),".",""),",",".")
 			
-			Set SalesPriceServiceNettoprijs = $$$ExcelNum(ResultLine.Price)
-			Set SalesPriceServiceLijstPrijs = $$$ExcelNum(ResultLine.GrossPrice)
+			Set SalesPriceServiceNettoprijs = $Justify(ResultLine.Price,"",2)
+			Set SalesPriceServiceLijstPrijs = $Justify(ResultLine.GrossPrice,"",2)
 			Set SalesPriceServiceEenheid = ResultLine.PriceUnit
 			Set SalesPriceServiceInclBTW = Result.InclVAT