Index: zTryout/PVR/Scrapbook.cls.xml
===================================================================
diff -u -r61441 -r67257
--- zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 61441)
+++ zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 67257)
@@ -153,6 +153,79 @@
 <ClassMethod>1</ClassMethod>
 </Method>
 
+<Method name="VerwerkSpaceTowers">
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		#dim TbxSpaceTowers As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+		#dim TbxProductId As %String = ""
+		Do TbxSpaceTowers.Insert(2126669)
+		Do TbxSpaceTowers.Insert(2126664)
+		Do TbxSpaceTowers.Insert(2127125)
+		Do TbxSpaceTowers.Insert(2127124)
+		Do TbxSpaceTowers.Insert(2127126)
+		Do TbxSpaceTowers.Insert(2126666)
+
+		#dim iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(TbxSpaceTowers)
+
+		While iterator.HasNext() {
+			#dim KindProductenIterator = ..GeefKindProductenSpaceTowerIterator(iterator.Next())
+			While KindProductenIterator.HasNext() {
+				Set TbxProductId = KindProductenIterator.Next()
+				;Do ..HerberekenIndienNodigSchaduwbouwstenen(TbxProductId,31259)
+			}
+		}
+
+		Set TbxSpaceTowers = ##class(%ListOfDataTypes).%New()
+		Do TbxSpaceTowers.Insert(2079438)
+		Do TbxSpaceTowers.Insert(2079437)
+		Do TbxSpaceTowers.Insert(2059106)
+		Do TbxSpaceTowers.Insert(2551962)
+		Do TbxSpaceTowers.Insert(2551961)
+		Do TbxSpaceTowers.Insert(2059108)
+		Do TbxSpaceTowers.Insert(2059007)
+		Do TbxSpaceTowers.Insert(2450685)
+		Do TbxSpaceTowers.Insert(2450691)
+		Do TbxSpaceTowers.Insert(2059107)
+
+		Set iterator = ##class(TECH.ListIterator).%New(TbxSpaceTowers)
+
+		While iterator.HasNext() {
+			#dim KindProductenIterator2 = ..GeefKindProductenSpaceTowerIterator(iterator.Next())
+			While KindProductenIterator2.HasNext() {
+				Set TbxProductId = KindProductenIterator2.Next()
+				;Do ..HerberekenIndienNodigSchaduwbouwstenen(TbxProductId,24315)
+			}
+		} 
+	} 
+		Catch { 
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do Exception.VoegToeExtraInfo("AdminProductNummer:"_TbxProductId)
+			Do ##class(vhLib.Logger).LogExceptie(Exception)
+		}
+]]></Implementation>
+</Method>
+
+<Method name="GeefKindProductenSpaceTowerIterator">
+<FormalSpec>PRNrSpaceTower:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim KindProducten As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Set SPT = ##class(DOM.PM.impl.DataM.SamengesteldProduct).%New(PRNrSpaceTower)
+	#dim iterator As TECH.Iterator = SPT.GeefKindBouwsteenIterator()
+	
+	While iterator.HasNext()
+	{
+		#dim BouwsteenID As %String = iterator.Next().GeefID()
+		Do KindProducten.Insert($Piece(^PRBS("BS",PRNrSpaceTower, BouwsteenID),"\",1))
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(KindProducten)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.PVR.ScrapbookD</DataLocation>