Index: AXimpl/Admin/Common/HerverpakteSoprService.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(revision 0)
+++ AXimpl/Admin/Common/HerverpakteSoprService.cls.xml	(revision 50932)
@@ -0,0 +1,146 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.Common.HerverpakteSoprService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductRolApi">
+<Type>DOM.PM.ProductRolAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SoprProductConverter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI,ProductRolApi:DOM.PM.ProductRolAPI,SoprProductConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ProductRolApi = $$$Inject(ProductRolApi, ##class(DOM.PM.impl.ProductRolAPIimpl).%New())
+	Set ..SoprProductConverter = $$$Inject(SoprProductConverter, ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsHerverpakteSopr">
+<FormalSpec>ProductNr:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$False
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIdVanKindSoprDatSoprKindHeeft">
+<FormalSpec>ProductNr:%Integer</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstHerverpakteSoprs">
+<Description>
+Set L = ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefLijstHerverpakteSoprs()		Opgelet: Duurt erg lang (+- 6 min)</Description>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductIdIterator As TECH.Iterator = ..ProductApi.GeefProductIDIterator()
+	#dim ProductId As %Integer
+	#dim IsStockOverKinderen As %Boolean
+	#dim SoprKindProductId As %String = ""
+	#dim KindSoprProductId As %String = ""
+	#dim Actief As DOM.PM.enu.ActiefStatus = ##class(DOM.PM.enu.ActiefStatus).NietActief()
+	#dim KindBouwsteenIterator, SoprKindIterator As TECH.Iterator
+	#dim KindBouwsteen, SoprKind As DOM.PM.KindBouwsteen
+	#dim Result As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	While ProductIdIterator.HasNext() {
+		Set ProductId = ProductIdIterator.Next()
+		If (..ProductRolApi.BestaatAdministratiefProduct(ProductId)) {
+			Set Actief = ..ProductRolApi.GeefAdministratiefProduct(ProductId).GeefActiefStatus()
+			If (Actief = ##class(DOM.PM.enu.ActiefStatus).Actief()) {
+				If (..ProductRolApi.IsSamengesteldProduct(ProductId)) {
+					Set IsStockOverKinderen = ..ProductRolApi.GeefSamengesteldProduct(ProductId).IsStockOverKinderen()
+					If (IsStockOverKinderen) {
+						Set KindSoprProductId = ..GeefKindSoprProductId(ProductId)
+						If (($$$HasLength(KindSoprProductId)) && (..ProductRolApi.IsSamengesteldProduct(KindSoprProductId))) {
+							Set SoprKindProductId = ..GeefSoprKindProductId(KindSoprProductId)
+							If $$$HasLength(SoprKindProductId) {
+								Do Result.Insert(ProductId)
+							}
+						}
+					}
+				}
+			}
+		}
+	}
+	
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefStringVanLijstHerverpakteSoprs">
+<Description>
+Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefStringVanLijstHerverpakteSoprs()</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).ListToPieces(..GeefLijstHerverpakteSoprs(),",")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKindSoprProductId">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KindBouwsteenIterator As TECH.Iterator
+	#dim KindBouwsteen As DOM.PM.KindBouwsteen
+	#dim KindBouwsteenProductId As %String
+	#dim KindSoprProductId As %String = ""
+	
+	Set KindBouwsteenIterator = ..ProductRolApi.GeefSamengesteldProduct(ProductId).GeefKindBouwsteenIterator()
+	While KindBouwsteenIterator.HasNext() {
+		Set KindBouwsteen = KindBouwsteenIterator.Next()
+		Set KindBouwsteenProductId = KindBouwsteen.GeefPRNr()
+		If (..SoprProductConverter.IsSOPRInCache(KindBouwsteenProductId) && $$$Not(KindBouwsteenIterator.HasNext())) {
+			Set KindSoprProductId = KindBouwsteenProductId
+		}
+	}
+	
+	Quit KindSoprProductId
+]]></Implementation>
+</Method>
+
+<Method name="GeefSoprKindProductId">
+<FormalSpec>KindSoprProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SoprKindIterator As TECH.Iterator
+	#dim SoprKind As DOM.PM.KindBouwsteen
+	#dim SoprKindProductId As %String
+	#dim ProductId As %String = ""
+	
+	Set SoprKindIterator = ..ProductRolApi.GeefSamengesteldProduct(KindSoprProductId).GeefKindBouwsteenIterator()
+	While SoprKindIterator.HasNext() {
+		Set SoprKind = SoprKindIterator.Next()
+		Set SoprKindProductId = SoprKind.GeefPRNr()
+		If ..SoprProductConverter.IsSOPRKindInCache(SoprKindProductId) {
+			Set ProductId = SoprKindProductId
+		}
+	}
+	
+	Quit ProductId
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>