Index: zTryout/THB/PRBSMeerkostHoogteVerstellingInSchaduw.cls.xml
===================================================================
diff -u
--- zTryout/THB/PRBSMeerkostHoogteVerstellingInSchaduw.cls.xml	(revision 0)
+++ zTryout/THB/PRBSMeerkostHoogteVerstellingInSchaduw.cls.xml	(revision 67232)
@@ -0,0 +1,161 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.PRBSMeerkostHoogteVerstellingInSchaduw">
+<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="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()
+	
+	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 > 3430000"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTaorKostBouwsteenVoorMeerkostHoogteVerstelling">
+<Description>
+Do ##class(zTryout.THB.PRBSMeerkostHoogteVerstellingInSchaduw).%New().VoegToeTaorKostBouwsteenVoorMeerkostHoogteVerstelling()</Description>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.TAORProduct.TAORLade
+	#dim ProductID As %String
+	#dim TaorProductID As %String
+	#dim TaorKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken
+	#dim Node As %String
+	#dim IsNodeGevonden As %Boolean
+	#dim LaatsteKSTNode As %String = ""
+	#dim IncrementLaatsteKSTNode As %Integer = 0
+	#dim LaatsteKSTNodeData As %String = ""
+	#dim IncrementLaatsteKSTNodeData As %Integer = 0
+	#dim NieuweNode As %String = ""
+	#dim IncrementNieuweNode As %Integer = 0
+	#dim IncrementNieuweNodeData As %Integer = 0
+	#dim IsKSTNodeGevonden As %Boolean
+	#dim WasKSTNodeGevonden As %Boolean
+	#dim IsLaatsteKSTNodeGevonden As %Boolean
+	#dim IsMeerkostAlAanwezig As %Boolean
+	#dim Omschrijving As %String = "Meerkost HoogteVerstelling"
+	#dim Tijd As %Decimal
+	
+	While ..ProductIterator.HasNext() {
+		Set ProductID = ..ProductIterator.Next().GetData(1)
+		
+		If (..ProductTypeApi.IsTAORboxProduct(ProductID)) && $$$aHasSubNodes(^PRBS("BS",ProductID)) {
+			Set Product = ..ProductTypeApi.GeefTAORboxProduct(ProductID)
+			Set TaorProductID = Product.GeefID()
+			Set IsNodeGevonden = $$$False
+			Set IsKSTNodeGevonden = $$$False
+			Set WasKSTNodeGevonden = $$$False
+			Set IsLaatsteKSTNodeGevonden = $$$False
+						
+			If (Product.HeeftProductSpecificatie()) {
+				Set TaorKenmerken = Product.GeefIngegevenKenmerken()
+				
+				If $$$Not(TaorKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Movento()) {
+					Set Node = "KST"
+					Set IsKSTNodeGevonden = ($Piece($Order(^PRBS("BS",TaorProductID,Node)),".") = "KST")
+					Set IsMeerkostAlAanwezig = $$$False
+					
+					If IsKSTNodeGevonden {
+						For { Set Node = $Order(^PRBS("BS",TaorProductID,Node)) Quit:IsNodeGevonden
+							Set WasKSTNodeGevonden = IsKSTNodeGevonden
+							Set IsKSTNodeGevonden = ($Piece(Node,".") = "KST")
+							
+							If WasKSTNodeGevonden && $$$Not(IsLaatsteKSTNodeGevonden) {
+								Set IsLaatsteKSTNodeGevonden = $$$Not($Piece(Node,".") = "KST")
+								Set IsMeerkostAlAanwezig = IsMeerkostAlAanwezig || ($Piece(^PRBS("BS",TaorProductID,Node),"\",9) = "TAOR MEERKOST HOOGTEVERSTELLING")
+								
+								If (IsLaatsteKSTNodeGevonden && $$$Not(IsMeerkostAlAanwezig)) {
+									Set IsNodeGevonden = $$$True
+									Set LaatsteKSTNodeData = ^PRBS("BS",TaorProductID,LaatsteKSTNode)
+									Set IncrementLaatsteKSTNode = $Piece(LaatsteKSTNode,".",2)
+									Set IncrementLaatsteKSTNodeData = $Piece(LaatsteKSTNodeData,"\",10)
+									Set IncrementNieuweNode = +IncrementLaatsteKSTNode + 1
+									Set IncrementNieuweNodeData = IncrementLaatsteKSTNodeData + 1
+									Set NieuweNode = "KST." _ $$$LeftPadding(IncrementNieuweNode, 3, "0")
+									Set Tijd = ..GeefTijdVolgensIngegevenKenmerken(TaorKenmerken)
+									
+									If (Tijd > 0) {
+										Set ^PRBS("BS",TaorProductID,NieuweNode) = "\1\T\\\\"_Tijd_"\"_Tijd_"\TAOR MEERKOST HOOGTEVERSTELLING\"_IncrementNieuweNodeData_"\K\\"_Omschrijving_"\\\1"
+									}
+								}
+								
+								If IsMeerkostAlAanwezig {
+									Set IsNodeGevonden = $$$True
+								}
+							}
+							
+							Set LaatsteKSTNode = Node
+						}
+					}
+				}
+			}
+		}
+	}
+	w !
+	w !,"KLAAR !"
+	w !
+]]></Implementation>
+</Method>
+
+<Method name="GeefTijdVolgensIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim Tijd As TECH.Decimal = 0
+	#dim TijdPerZijkant As TECH.Decimal = 0
+	
+	If (IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) { Set TijdPerZijkant = 1.19 }
+	ElseIf ((IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) || (IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K())) { Set TijdPerZijkant = 1.4 }
+	ElseIf ((IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || (IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) { Set TijdPerZijkant = 1.71 }
+	
+	If (IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()) {
+		Set Tijd = TijdPerZijkant * 2
+	} ElseIf ((IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()) ||
+		(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantRechts())) {
+		Set Tijd = TijdPerZijkant
+	}
+	
+	Quit Tijd
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>