Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml
===================================================================
diff -u -r52053 -r52057
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52053)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52057)
@@ -3,6 +3,16 @@
 <Class name="vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice">
 <Super>vhConsistency.Check</Super>
 
+<Property name="DecimalSeperatorInput">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ThousandSeperatorInput">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BestandUploader">
 <Type>vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader</Type>
 <Private>1</Private>
@@ -24,7 +34,7 @@
 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="",GlobalMultiDimIterator:TECH.GlobalMultiDimIterator="",SalesPriceService:AXimpl.Admin.VKP.SalesPriceService=""</FormalSpec>
+<FormalSpec>BestandUploader:vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader="",GlobalMultiDimIterator:TECH.GlobalMultiDimIterator="",SalesPriceService:AXimpl.Admin.VKP.SalesPriceService="",DecimalSeperatorInput:%String=",",ThousandSeperatorInput:%String="."</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -60,13 +70,13 @@
 			Set PRNr = $Piece(Record,"\",3)
 			Set Korttekst = $Piece(Record,"\",4)
 			Set Identnummer = $Piece(Record,"\",5)
-			Set Aantal = $Piece(Record,"\",6)
-			Set SimPPL = +$Piece(Record,"\",7)
+			Set Aantal = ..Normaliseer($Piece(Record,"\",6))
+			Set SimPPL = +..Normaliseer($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),".",""),",",".")
+			Set NettoPrijs = ..Normaliseer($Piece(Record,"\",8))
+			Set LijstPrijs = ..Normaliseer($Piece(Record,"\",9))
+			Set Eenheid = ..Normaliseer($Piece(Record,"\",10))
+			Set InclBTW = ..Normaliseer($Piece(Record,"\",11))
 			
 			If $$$Not(##class(Derde.Klant.Klant).%ExistsId(KLNr)) {
 				Set Melding = "Klant '"_KLNr_"' bestaat niet."
@@ -128,6 +138,13 @@
 <Implementation><![CDATA[	Do ..BestandUploader.PopuleerGlobalVolgensBestand(FullPath, Filename)
 ]]></Implementation>
 </Method>
+
+<Method name="Normaliseer">
+<FormalSpec>DecimaalGetal:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $Translate($Translate(DecimaalGetal,..ThousandSeperatorInput,""),..DecimalSeperatorInput,".")
+]]></Implementation>
+</Method>
 </Class>