Index: AX/Uitgaand/PM/BehoeftePlanning/impl/JaarAfnameGenerator.cls.xml
===================================================================
diff -u -r47125 -r48233
--- AX/Uitgaand/PM/BehoeftePlanning/impl/JaarAfnameGenerator.cls.xml	(.../JaarAfnameGenerator.cls.xml)	(revision 47125)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/JaarAfnameGenerator.cls.xml	(.../JaarAfnameGenerator.cls.xml)	(revision 48233)
@@ -18,11 +18,17 @@
 <Type>AXimpl.Utils</Type>
 </Property>
 
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..VoorraadCalculator=##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
 	Set ..AXUtils=##class(AXimpl.Utils).%New()
+	Set ..SoprConvertor= ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -56,10 +62,12 @@
 	While ProductIterator.HasNext()
 	{
 		#Dim Product as AX.Uitgaand.PM.Product.impl.Product
-		#Dim BuyeerGroup as %String
+		#Dim BuyerGroup as %String
 		Set Product=ProductIterator.Next()
 		Set BuyerGroup=..AXUtils.ConvertItemBuyerGroupId(..Vestiging,Product)
-		Continue:BuyerGroup'?1(1"Logsteuer",1"Nieuw",1"Simulatie")
+		Continue:BuyerGroup'?1(1"NOKLogsteu",1"NOKNieuw",1"NOKSimulat",1"NOKSOPR")
+		Set PRNr=Product.Basis.%Id()
+		Continue:('..SoprConvertor.IsSOPRInAX(PRNr))&&(..SoprConvertor.IsSOPRInCache(PRNr)) ; alleen de principaal
 		Do ..WriteProduct(Product,BuyerGroup)
 	}
 	Do CLOSE^vhDEV(Device)
@@ -78,8 +86,8 @@
 	Set VoorraadInstelling=..VoorraadCalculator.Calculate(PRNr)
 	Set JaarAfname=VoorraadInstelling.JaarVerkoop
 	Set:JaarAfname<0 JaarAfname=0
-	Set Trend=$S(BuyerGroup="Nieuw":"Trend 100",..Vestiging=##class(AXimpl.InterneFirmaInitialen).HaluxNv():"Trend HX",1:"Trend VH")
-	Write PRNr,*9,IdentNr,*9,KortTekst,*9,BuyerGroup,*9,Trend,*9,JaarAfname
+	Set Trend=$S(BuyerGroup="NOKNieuw":"Trend 100",..Vestiging=##class(AXimpl.InterneFirmaInitialen).HaluxNv():"Trend HX",1:"Trend VH")
+	Write PRNr,*9,IdentNr,*9,KortTekst,*9,BuyerGroup,*9,Trend,*9,JaarAfname,*9
 	Write *9,VoorraadInstelling.VeiligheidsVoorraad,*9,..VoorraadCalculator.GGWeekVerkoop
 	Write *9,$$$ExcelNum(..VoorraadCalculator.StandaardAfwijking)
 	Write *9,VoorraadInstelling.ExtraLeveringsDagen+VoorraadInstelling.LeveringsDagen
@@ -88,7 +96,7 @@
 </Method>
 
 <Method name="WriteHeader">
-<Implementation><![CDATA[	Write "PRNr	ArticleID	KortTekst	BuyerGroup	ForecastType	JaarAfname	Reden",!
+<Implementation><![CDATA[	Write "PRNr	ArticleID	KortTekst	BuyerGroup	ForecastType	JaarAfname	Reden	VeiligheidsVoorraad	GGWeekverkoop	StdAfw	LeverDagen",!
 ]]></Implementation>
 </Method>
 </Class>