Index: AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml
===================================================================
diff -u -r52217 -r52240
--- AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml	(.../Verwerken.cls.xml)	(revision 52217)
+++ AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml	(.../Verwerken.cls.xml)	(revision 52240)
@@ -35,7 +35,7 @@
 
 <Method name="Verwerk">
 <Description>
-D ##class(AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken).%New().Verwerk()</Description>
+D ##class(AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken).%New(0).Verwerk()</Description>
 <Implementation><![CDATA[
 	Do ..itPrijzen.Init()
 	While ..itPrijzen.HasNext()
@@ -44,10 +44,9 @@
 		Set ItemID=rsPrijs.Data("ITEMID")
 		Set KostPrijs=rsPrijs.Data("PRICE")
 		Set GrootteOrde=rsPrijs.Data("PRICEUNIT")
-		Set SupplierID=rsPrijs.Data("SUPPLIERID")
 		Set GeldigVanaf=rsPrijs.Data("FROMDATE")
 		Set ProductCount=rsPrijs.Data("VOLGORDE")
-		Set PRNr=..VertaalProduct(ItemID,SupplierID)
+		Set PRNr=..VertaalProduct(ItemID,rsPrijs.Data("BLUMKUNDE"))
 		If ..IsGeldig(PRNr,GeldigVanaf,ProductCount)
 		{
 			Do ..OpslaanPrijs(PRNr,KostPrijs,GrootteOrde)
@@ -58,15 +57,14 @@
 </Method>
 
 <Method name="VertaalProduct">
-<FormalSpec>AXItemID:%String,AXSupplierID:%String</FormalSpec>
+<FormalSpec>AXItemID:%String,AXBlumKunde:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	
 	Set PRNr=$P($G(^KPR2($TR(AXItemID,".")_" ")),"\")
 	If ..SoprConvertor.IsSOPRInCache(PRNr)
 	{
-		Set AXBlumKunde=..SoprConvertor.GeefBlumKunde(AXSupplierID)
 		Set it=..SoprConvertor.GeefSOPRIterator(PRNr)
 		While it.HasNext()
 		{
@@ -96,7 +94,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	; Schaduwprijs steeds per 100 omdat de product sync interface ook per honderd werkt
-	;w !,PRNr," ",$$$PRGet($$$IdentNummer)," "
+	
 	If +GrootteOrdeSchaduw=1 
 	{
 		Set GrootteOrdeSchaduw=100
@@ -107,14 +105,14 @@
 	; EN  we kunnen in Admin de GrootteOrde van de Aankoopprijs niet in de schaduw instellen
 	Set GrootteOrdeHuidig=$$$PRGet($$$GrootteOrdeAankoop)
 	Set GrootteOrdeHuidig=$S("E"[GrootteOrdeHuidig:1,GrootteOrdeHuidig="H":100,GrootteOrdeHuidig="M":1000,1:0)
-	
 	Do FETCHPR^UTILI(PRNr) ; ophalen B local ; noodzakelijk voor de logging
 	If GrootteOrdeHuidig'=+GrootteOrdeSchaduw
 	{
 		Do $$$PRSet($$$PPLMTL,($$$PRGet($$$PPLMTL)*GrootteOrdeSchaduw/GrootteOrdeHuidig))
 		Do $$$PRSet($$$GrootteOrdeAankoop,"H")
 	}
 	Do $$$PRSet($$$SchaduwCifPerc,0) ;AX geeft de kostprijs dus incl. Cif%
+	Do $$$PRSet($$$SchaduwKortingPerc,0) ;AX geeft de kostprijs dus incl. korting
 	Do $$$PRSet($$$SchaduwPPL,+KostPrijsSchaduw)
 	Do $$$PRSet($$$SchaduwMunt,"EUR") ; steeds in EUR !
 ]]></Implementation>