Index: zTryout/THB/KindBouwsteenInMaatwerkProductZoeker.cls.xml
===================================================================
diff -u
--- zTryout/THB/KindBouwsteenInMaatwerkProductZoeker.cls.xml	(revision 0)
+++ zTryout/THB/KindBouwsteenInMaatwerkProductZoeker.cls.xml	(revision 66191)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.KindBouwsteenInMaatwerkProductZoeker">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CheckDelControleur">
+<Type>WSimpl.AX.CalculatedProduct.ProductService.CheckDelControleur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..ProductIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..ProductTypeApi = ##class(DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Set ..CheckDelControleur = ##class(WSimpl.AX.CalculatedProduct.ProductService.CheckDelControleur).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product where ID > 3200000"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="RapporteerOrdersMetProductenMetNieuweZijkantBestukking">
+<Implementation><![CDATA[
+	/*
+	Bij implementatie van de nieuwe ZijkantBestukking voor de TAX Front HoogteVerstelling ging er iets mis toen de SelectieKenmerken in productie goed gezet waren.
+	In de bijhorende builder stond de toevoeging van de nieuwe kolom (KoppelingType), die voor een (nieuwe) keuze tussen oude en nieuwe bestukking moest zorgen, nog in commentaar.
+	Daardoor zijn er een aantal maatwerkproducten gemaakt die zowel de oude als de nieuwe bestukking in de bouwstenen hebben zitten.
+	*/
+	
+	#dim Product As DOM.PM.TAORProduct.TAORLade
+	#dim HFBouwstenenIterator As TECH.Iterator
+	#dim BouwsteenKind As DOM.PM.Bouwstenen.BouwsteenKind
+	#dim BouwsteenKindID As %String
+	#dim ProductID As %String
+	#dim BezwaarSignatuur As %String = "SHOFTPUZBKWME"
+	#dim NaTeKijkenOrders As %String = ""
+	#dim NaTeKijkenMaatwerkProducten As %String = ""
+	
+	While ..ProductIterator.HasNext() {
+		Set ProductID = ..ProductIterator.Next().GetData(1)
+		
+		If (..ProductTypeApi.IsTAORboxProduct(ProductID)) {
+			Set Product = ..ProductTypeApi.GeefTAORboxProduct(ProductID)
+			Set HFBouwstenenIterator = Product.GeefHFBouwstenenIterator()
+			
+			While HFBouwstenenIterator.HasNext() {
+				Set BouwsteenKind = HFBouwstenenIterator.Next()
+				Set BouwsteenKindID = BouwsteenKind.KindProduct.GeefID()
+				
+				If ##class(TECH.StringUtils).Equals(BouwsteenKindID, "2692516","2779021","3205074","3205075","3215286","3215287","3215288","3215289","3215290") {
+					Set NaTeKijkenMaatwerkProducten = ##class(TECH.StringUtils).VoegToeZonderDuplicatie(NaTeKijkenMaatwerkProducten, ProductID)			
+					
+					#Dim Bezwaar As %String = ..CheckDelControleur.GeefEersteBezwaarIndienAanwezig(ProductID, BezwaarSignatuur)
+					If $$$Not(Bezwaar = "") {
+						w !,"Maatwerkproduct: '"_ProductID_"' - Bezwaar: '"_Bezwaar_"'"	
+						Set NaTeKijkenOrders = ##class(TECH.StringUtils).VoegToeZonderDuplicatie(NaTeKijkenOrders, $Extract(Bezwaar,*-5,*))			
+					}
+				}
+			}
+		}
+	}
+	w !
+	w !,"Na te kijken maatwerkproducten: "_NaTeKijkenMaatwerkProducten
+	w !
+	w !,"Na te kijken orders: "_NaTeKijkenOrders
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>