Index: AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml
===================================================================
diff -u
--- AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml	(revision 0)
+++ AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml	(revision 52217)
@@ -0,0 +1,125 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="itPrijzen">
+<Type>TECH.Iterator</Type>
+</Property>
+
+<Property name="PrijzenTot">
+<Type>%Date</Type>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Property name="Muet">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Muet=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..itPrijzen=##class(AX.Inkomend.PM.Schaduwprijzen.impl.AXIterator).%New()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..Muet=Muet
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<Description>
+D ##class(AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken).%New().Verwerk()</Description>
+<Implementation><![CDATA[
+	Do ..itPrijzen.Init()
+	While ..itPrijzen.HasNext()
+	{
+		Set rsPrijs=..itPrijzen.Next()
+		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)
+		If ..IsGeldig(PRNr,GeldigVanaf,ProductCount)
+		{
+			Do ..OpslaanPrijs(PRNr,KostPrijs,GrootteOrde)
+		}
+	}
+	Read:'..Muet " Druk op [enter] om verder te gaan",k
+]]></Implementation>
+</Method>
+
+<Method name="VertaalProduct">
+<FormalSpec>AXItemID:%String,AXSupplierID:%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()
+		{
+			Set SoprPRNr=it.Next()
+			If ..SoprConvertor.GeefBlumKunde(SoprPRNr)=AXBlumKunde Set PRNr=SoprPRNr
+		}
+	}
+	Write:'..Muet AXItemID," ",PRNr," ",$$$PRGet($$$KortTekst)," ",$G(AXBlumKunde),!
+	Quit PRNr
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldig">
+<FormalSpec>PRNr:%String,GeldigVanaf:%Date,ProductCount:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:'PRNr 0
+	Quit:ProductCount'=1 0
+	Quit:(..PrijzenTot && (GeldigVanaf>..PrijzenTot)) 0
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanPrijs">
+<FormalSpec>PRNr:%String,KostPrijsSchaduw:%Decimal,GrootteOrdeSchaduw:%Integer</FormalSpec>
+<Private>1</Private>
+<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
+		Set KostPrijsSchaduw=KostPrijsSchaduw*100
+	}
+	
+	; Ook de huidige prijs converteren naar per 100 omdat de product sync interface ook per honderd werkt
+	; 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($$$SchaduwPPL,+KostPrijsSchaduw)
+	Do $$$PRSet($$$SchaduwMunt,"EUR") ; steeds in EUR !
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Inkomend/PM/Schaduwprijzen/impl/AXIterator.cls.xml
===================================================================
diff -u
--- AX/Inkomend/PM/Schaduwprijzen/impl/AXIterator.cls.xml	(revision 0)
+++ AX/Inkomend/PM/Schaduwprijzen/impl/AXIterator.cls.xml	(revision 52217)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Inkomend.PM.Schaduwprijzen.impl.AXIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ..GeefSQL() 
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSetWithoutExecute(SqlStatement)
+	Set sc=..ResultSet.Execute()
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQL">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ""
+	_"select p.ITEMID, case when p.VERSIONID in ('std','basis') then '' else p.versionid end as SOPRCONTRACT"
+	_"   , isnull(vendor.ACCOUNTNUM,'') as SUPPLIERID,isnull(vendor.YOURACCOUNTNUM,'') as BLUMKUNDE"
+    _"   , p.PRICE ,Case p.PRICEUNIT when 0 then 1 else p.priceunit end as PRICEUNIT"
+    _"   , row_number() over(partition by p.itemid,p.versionid order by p.fromdate asc) as VOLGORDE"
+    _"   ,p.FROMDATE"
+    _"   from INVENTITEMPRICESIM p"
+    _"   join ("
+    _"         select itemid"
+    _"            ,case when ( select top 1 'x' from ADUSOPRPRODUCT p where p.partition = '5637144576' and p.ITEMID = i.ITEMID ) = 'x' then 'sopr'"
+    _"            when ( select top 1 'x' from INVENTITEMPRICESIM p where p.partition = '5637144576' and p.DATAAREAID = i.dataareaid and p.ITEMID = i.ITEMID and p.pricetype = 0 and p.versionid = 'basis') = 'x' then 'basis' else 'std' end classificatie"
+    _"            from inventtable i"
+    _"                where i.DATAAREAID = 'vhbe' and i.PARTITION ='5637144576'"
+    _"   ) artikelClassificatie on artikelClassificatie.itemid = p.ITEMID"
+    _"      left outer join ("
+    _"                select distinct p.dataareaid , p.itemid,t.ATTRIBUTEID,ve.accountnum, ve.YourAccountNum from INVENTITEMPRICESIM p"
+    _"                      join ADUSOPRPRODUCT pro on pro.PARTITION = p.PARTITION and pro.ITEMID = p.ITEMID"
+    _"                      join ADUSOPRTRADE t on t.SOPRPRODUCTRECID = pro.RECID and t.PARTITION = pro.PARTITION and p.VERSIONID = t.ATTRIBUTEID"
+    _"                      join ADUSOPRVENDOR v on v.PARTITION = t.PARTITION and t.CONTRACTID = v.CONTRACTID"
+    _"                      join VENDTABLE ve on ve.ACCOUNTNUM = v.VENDACCOUNT and ve.DATAAREAID = p.DATAAREAID and ve.PARTITION = p.PARTITION"
+    _"                      where versionid not in ('basis','std')"
+    _"            ) vendor on vendor.DATAAREAID = 'vhbe' and vendor.ITEMID = p.itemid and vendor.ATTRIBUTEID = p.VERSIONID  "
+    _"   where p.DATAAREAID = 'vhbe' and p.PARTITION ='5637144576'"
+    _"   and p.FROMDATE > getdate() and p.PRICETYPE = 0"
+    _"   and (    (classificatie = 'sopr' and p.VERSIONID <> 'std')"
+    _"         or (classificatie <> 'sopr' and p.versionid = classificatie)"
+    _"         )"
+	Quit SqlStatement
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ResultSet.Next() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[		Quit ..ResultSet
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $IsObject(..ResultSet)
+	{
+		Do ..SqlQueryConnection.Disconnect()
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>