Index: AXdixf/SOPRContract/SOPRDefinitie.cls.xml
===================================================================
diff -u
--- AXdixf/SOPRContract/SOPRDefinitie.cls.xml	(revision 0)
+++ AXdixf/SOPRContract/SOPRDefinitie.cls.xml	(revision 46276)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdixf.SOPRContract.SOPRDefinitie">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AXdixf.VrijgegProduct.SOPRDefinitie</Default>
+</Parameter>
+
+<Property name="ItemID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="SOPRcontract">
+<Description>
+"VHBE-LevNr", waar LevNr staat voor leveranciers in AX</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="Aankoopprijs">
+<Type>%String</Type>
+</Property>
+
+<Property name="AankoopUnitID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Kostprijs">
+<Type>%String</Type>
+</Property>
+
+<Property name="KostUnitID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Ingangsdatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="ClientID">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/SOPRContract/impl/SOPRCacheBouwen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/SOPRContract/impl/SOPRCacheBouwen.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/SOPRContract/impl/SOPRCacheBouwen.cls.xml	(revision 46276)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.SOPRContract.impl.SOPRCacheBouwen">
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="AxProductConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Vestiging=Vestiging
+	;Kill ^||SOPRContract
+	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BouwCache">
+<Implementation><![CDATA[
+	Set StatistiekDatum="2017.06 "
+	Set PRNr=$O(^KPR(0))
+	While PRNr
+	{
+		If $$$PRGet($$$LeveranciersNr)=$$$LevBlum
+		{
+			#dim ConvertedAxProduct as AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct = ..AxProductConvertor.AdminNaarAx(PRNr)
+			If (ConvertedAxProduct.IsSoprInCache) && ('ConvertedAxProduct.IsSoprInAx)
+			{
+				Set KLNr=$O(^PRPUTZ("N",PRNr,0))
+				While KLNr
+				{
+					If (KLNr'=11708)
+					{
+						Set BlumKunde=$P(^PRPUTZ("N",PRNr,KLNr,0),"\",1)
+						Set ^||SOPRContract(..Vestiging,PRNr,KLNr)=""
+						Set ^||SOPRContract("BLUMKUNDE",PRNr)=BlumKunde
+						Set ^||SOPRContract("CHECK",ConvertedAxProduct.VervangSoprPRNr,KLNr)=PRNr
+					}
+				 	Set KLNr=$O(^PRPUTZ("N",PRNr,KLNr))
+				}
+				; soms maken andere klanten ook gebruik van een SOPR contract
+				Set KLNr=$O(^KSTPR(PRNr,0))
+				While KLNr
+				{
+					If '$D(^||SOPRContract("CHECK",ConvertedAxProduct.VervangSoprPRNr,KLNr))
+					{
+						If $O(^KSTPR(PRNr,KLNr,StatistiekDatum))'=""&&(KLNr'=11708) ; recent gekocht
+						{
+							Set ^||SOPRContract(..Vestiging,PRNr,KLNr)=""
+							Set ^||SOPRContract("CHECK",ConvertedAxProduct.VervangSoprPRNr,KLNr)=PRNr
+						}
+					}
+					Set KLNr=$O(^KSTPR(PRNr,KLNr))
+				}
+			}
+		}
+		Set PRNr=$O(^KPR(PRNr))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/SOPRContract/impl/SOPRIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/SOPRContract/impl/SOPRIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/SOPRContract/impl/SOPRIterator.cls.xml	(revision 46276)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.SOPRContract.impl.SOPRIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>SOPRDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Nodes">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Data">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##class(SOPRCacheBouwen).%New(Vestiging).BouwCache()
+	Set ..DynIterator = ##class(TECH.GlobalMultiDimIterator).%New($NAME(^||SOPRContract(Vestiging)))
+	Set ..Converter = ##class(SOPRDixfConverter).%New(Vestiging)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DynIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.SOPRContract.SOPRDefinitie</ReturnType>
+<Implementation><![CDATA[
+	Set ..Data=..DynIterator.Next()
+	Set ..Nodes=..DynIterator.Key()
+	#dim ConvertedPrijsUitz As AXdixf.SOPRContract.SOPRDefinitie = ..Converter.Convert( ..GeefPRNr(),..GeefKLNr())
+	
+	Quit ConvertedPrijsUitz
+]]></Implementation>
+</Method>
+
+<Method name="GeefKLNr">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	Quit $TR($P(..Nodes,",",3),")")
+]]></Implementation>
+</Method>
+
+<Method name="GeefPRNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $TR($P(..Nodes,",",2),")")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/SOPRContract/impl/SOPRDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/SOPRContract/impl/SOPRDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/SOPRContract/impl/SOPRDixfConverter.cls.xml	(revision 46276)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.SOPRContract.impl.SOPRDixfConverter">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AxSOPRDefinitie">
+<Type>AXdixf.SOPRContract.SOPRDefinitie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProductConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SoprContractConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.SoprContractIdConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Vestiging=Vestiging
+	Set ..AxProductConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..SoprContractConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.SoprContractIdConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>PRNr:%String,KLNr:%String</FormalSpec>
+<ReturnType>AXdixf.SOPRContract.SOPRDefinitie</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ..AxSOPRDefinitie = ##class(AXdixf.SOPRContract.SOPRDefinitie).%New()
+	#dim ConvertedAxProduct as AX.Uitgaand.PM.impl.Convertor.Sopr.AxProduct = ..AxProductConvertor.AdminNaarAx(PRNr)
+	Set PrijsRec=$$PRIJSGEG^KPRIJS(PRNr)
+	
+	Set ..AxSOPRDefinitie.ItemID = $$$ProductGet(ConvertedAxProduct.VervangSoprPRNr,$$$IdentNummer)
+	Set ..AxSOPRDefinitie.KortTekst = $$$ProductGet(PRNr,$$$KortTekst)
+	Set SOPRContract=..SoprContractConvertor.AdminNaarAx(ConvertedAxProduct.BlumKunde)
+	Set ..AxSOPRDefinitie.SOPRcontract=SOPRContract
+
+	Set ..AxSOPRDefinitie.Aankoopprijs=$$$ExcelNum(+$J($P(PrijsRec,"\",6)*100,0,2))
+
+	Set ..AxSOPRDefinitie.AankoopUnitID="100"
+
+	Set ..AxSOPRDefinitie.Kostprijs=$$$ExcelNum(+$J($P(PrijsRec,"\",6)*100,0,2))
+
+	Set ..AxSOPRDefinitie.KostUnitID="100"
+
+	Set ..AxSOPRDefinitie.Ingangsdatum="01/10/2017"
+
+	Set ..AxSOPRDefinitie.ClientID=$S($L(KLNr)<5:"0",1:"")_KLNr
+	Set ..AxSOPRDefinitie.ClientID=$S($L(KLNr)<5:"0",1:"")_KLNr
+
+	
+	Quit ..AxSOPRDefinitie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/SOPRContract/impl/SOPRDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/SOPRContract/impl/SOPRDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/SOPRContract/impl/SOPRDixfGenerator.cls.xml	(revision 46276)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.SOPRContract.impl.SOPRDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Description>
+d ##class(AX.Uitgaand.PM.SOPRContract.impl.SOPRDixfGenerator).%New().GenerateAll()</Description>
+<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen="VHBE"</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
+	Try {
+		Do StartTimer^vhLib
+		#dim ProductIterator As TECH.Iterator = ##class(SOPRIterator).%New(Vestiging)
+		;zw ^||SOPRContract
+		Do ..Generate(ProductIterator)
+		Write !,"Csv voor migratie 0602 SOPR Contract voor "_Vestiging_" is klaar. Aantal minuten: " 
+		Write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Property name="ItemID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SOPRcontract">
+<Description>
+"VHBE-LevNr", waar LevNr staat voor leveranciers in AX</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="Aankoopprijs">
+<Type>%String</Type>
+</Property>
+
+<Property name="AankoopUnitID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Kostprijs">
+<Type>%String</Type>
+</Property>
+
+<Property name="KostUnitID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Ingangsdatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="ClientID">
+<Type>%String</Type>
+</Property>
+
+<Method name="Generate">
+<FormalSpec>ProductIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXProductData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXProductData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "ItemID","ItemID")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "SOPRcontract","SOPRcontract")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "Aankoopprijs","Aankoopprijs")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "AankoopUnitID","AankoopUnitID")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "Kostprijs","Kostprijs")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "KostUnitID","KostUnitID")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "Ingangsdatum","Ingangsdatum")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "ClientID","ClientID")
+	Do AXProductData.VoegToeVeld("AXdixf.SOPRContract.SOPRDefinitie", "KortTekst","KortTekst")
+
+	Set AXProductData.ScheidingsTeken = ";"	
+	Set AXProductData.Iterator = ProductIterator
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"SOPRContract"_..Vestiging_".csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXProductData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>