Index: APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml
===================================================================
diff -u -r31988 -r31991
--- APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 31988)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 31991)
@@ -8,179 +8,215 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductieSequentieRepository">
+<Type>APPS.Halux.common.ProductieSequentieRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeenGroepering">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
-		
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)	
 	#dim GroeperingID As %String = 1 
-	while ResultSet.Next() {
+	
+	While (ResultSet.Next()) {
 		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-		do ..Groepering.VoegToe(GroeperingID ,SequentieInfo)
+		Do ..Groepering.VoegToe(GroeperingID, SequentieInfo)
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GeenGroeperingProductenSamentrekken">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
-	
-	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
-	#dim ProductID As %String = ""
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+
 	#dim TotaalSequentieInfo As APPS.Halux.common.dto.ProductieSequentie = ""
-	while ResultSet.Next() {
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+
+	While (ResultSet.Next()) {
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
-		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
-		if ProductID '= SequentieInfo.ProductID {
-			Do:(ProductID'="") ..Groepering.VoegToe(1,TotaalSequentieInfo)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
+		#dim ProductID As %String = ""
+		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
+		Set SequentieInfo.DeelAantal = ""
+		
+		If $$$Not(ProductID = SequentieInfo.ProductID) {
+			Do:$$$Not(ProductID = "") ..Groepering.VoegToe(1, TotaalSequentieInfo)
 			Set ProductID = SequentieInfo.ProductID
 			Set TotaalSequentieInfo = SequentieInfo
 		} Else {
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
 		}
 	}
-	Do ..Groepering.VoegToe(1,TotaalSequentieInfo)
-	quit ..Groepering
+	
+	Do ..Groepering.VoegToe(1, TotaalSequentieInfo)
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerToelevering">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
 	
-	Set FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
+	#dim FrequentieTabel As TECH.FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
 	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 	
-	while ResultSet.Next() {
-		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")				
-		If ToeleveringAPI.BestaatToelevering(ToeleveringID) {
+	While (ResultSet.Next()) {
+		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")
+						
+		If (ToeleveringAPI.BestaatToelevering(ToeleveringID)) {
 			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
 			#dim ToeleveringLijnID As %String = ResultSet.GetDataByName("TLUNr")
 			Set ToeleveringLijnID = ..GeefCorrecteToeleveringLijnID(ToeleveringID, ToeleveringLijnID)
-			#dim FrequentieItemID As %String = ToeleveringID_";"_ToeleveringLijnID
-			If (ToeleveringLijnID '= ""){
+			
+			#dim FrequentieItemID As %String = ToeleveringID _ ";" _ ToeleveringLijnID
+			
+			If $$$Not(ToeleveringLijnID = ""){
 				#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
-				If ( FrequentieTabel.GeefFrequentieVanItem(FrequentieItemID) <= ToeleveringLijn.GeefAantal()) {					
+				
+				If (FrequentieTabel.GeefFrequentieVanItem(FrequentieItemID) <= ToeleveringLijn.GeefAantal()) {					
 					Do FrequentieTabel.Verhoog(FrequentieItemID)
 					#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-					Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
+					Do ..Groepering.VoegToe(ToeleveringID, SequentieInfo)
 				}
 			} Else {
-				do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat","Batch '" _ BatchID _ "' bevat een niet ingevulde toeleveringlijnID!")
+				Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' bevat een niet ingevulde toeleveringlijnID!")
 			}
 		} Else {
-			do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat","Batch '" _ BatchID _ "' verwijst naar een onbestaande toelevering '" _ ToeleveringID _ "'!")
+			Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' verwijst naar een onbestaande toelevering '" _ ToeleveringID _ "'!")
 		}		
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerToeleveringPerProduct">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 
-	set Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-
-	while ResultSet.Next() {
+	While (ResultSet.Next()) {
 		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
 		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
+		Set SequentieInfo.DeelAantal = ""
 		Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerToeleveringPerProductPerKlant">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
 	
-	set Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 	#dim GroeperingID As %Integer = 0
 	#dim ToeleveringID As %String = ""
 	#dim ProductID As %String = ""
 	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
 	#dim TotaalSequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
-	while ResultSet.Next() {
+	
+	While (ResultSet.Next()) {
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
 		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
-		If ( ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID) {
+		Set SequentieInfo.DeelAantal = ""
+		
+		If ((ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID)) {
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
-		} Else  {
-			Do:ToeleveringID'="" ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
+		} Else {
+			Do:$$$Not(ToeleveringID = "") ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
 			Set TotaalSequentieInfo = SequentieInfo
-			Set:(ToeleveringID'=SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
+			Set:$$$Not(ToeleveringID = SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
 			Set ProductID = SequentieInfo.ProductID
 			Set ToeleveringID = SequentieInfo.ToeleveringID
 		}
 	}
-	Do ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
-	quit ..Groepering
+	
+	Do ..Groepering.VoegToe(GroeperingID, TotaalSequentieInfo)
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
 <Method name="GroepeerPerProduct">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
-	#dim ProductieSequentieRepository As APPS.Halux.common.ProductieSequentieRepository = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository()
-	#dim ResultSet As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
 	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
 	#dim SequentieInfoArray As Array of APPS.Halux.common.dto.ProductieSequentie = ##class(%ArrayOfObjects).%New()
 	#dim ProductVolgorde As List of %String = ##class(%ListOfDataTypes).%New()
 	
 	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
 	#dim ProductID As %String = ""
-	while ResultSet.Next() {
+	
+	While (ResultSet.Next()) {
 		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
-		continue:(DeelAantal'=1)
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
 		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
-		set SequentieInfo.DeelAantal = ""
+		Set SequentieInfo.DeelAantal = ""
 		Set ProductID = SequentieInfo.ProductID
-		if 'SequentieInfoArray.IsDefined(ProductID) {
+		
+		If $$$Not(SequentieInfoArray.IsDefined(ProductID)) {
 			Do SequentieInfoArray.SetAt(SequentieInfo,ProductID)
 			Do ProductVolgorde.Insert(ProductID)
 		} Else {
 			#dim TotaalSequentieInfo As APPS.Halux.common.dto.ProductieSequentie =  SequentieInfoArray.GetAt(ProductID)
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
 		}
 	}
-	Set ProductVolgordeIt = ##class(TECH.ListIterator).%New(ProductVolgorde)
-	While ProductVolgordeIt.HasNext() {
-		Set ProductID = ProductVolgordeIt.Next()
+	
+	#dim ProductVolgordeIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductVolgorde)
+	
+	While (ProductVolgordeIterator.HasNext()) {
+		Set ProductID = ProductVolgordeIterator.Next()
 		Set SequentieInfo = SequentieInfoArray.GetAt(ProductID)
-		Do ..Groepering.VoegToe(1,SequentieInfo)
+		Do ..Groepering.VoegToe(1, SequentieInfo)
 	}
-	quit ..Groepering
+	
+	Quit ..Groepering
 ]]></Implementation>
 </Method>
 
@@ -190,7 +226,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ToeleveringID As %String = SequentieInfo.ToeleveringID
-	quit SequentieInfo.ProductID_"#"_ToeleveringID
+	
+	Quit SequentieInfo.ProductID _ "#" _ ToeleveringID
 ]]></Implementation>
 </Method>
 
@@ -199,16 +236,18 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.dto.ProductieSequentie</ReturnType>
 <Implementation><![CDATA[
-	set SequentieInfo = ##class(APPS.Halux.common.dto.ProductieSequentie).%New()
-	set SequentieInfo.TotaalAantal = ResultSet.GetDataByName("TotaalAantal")
-	set SequentieInfo.ProductID = ResultSet.GetDataByName("Product")
-	set SequentieInfo.DeelAantal = ResultSet.GetDataByName("DeelAantal")
-	set SequentieInfo.SequenceNr = ResultSet.GetDataByName("Sequence")
-	set SequentieInfo.QueueID = ResultSet.GetDataByName("ID")
-	set SequentieInfo.ToeleveringID = ResultSet.GetDataByName("TOENr")
-	set SequentieInfo.ToeleveringLijnID = ResultSet.GetDataByName("TLUNr")
-	set SequentieInfo.ToeleveringSequentieNummer = ResultSet.GetDataByName("ToeleveringSequentieNummer")
-	quit SequentieInfo
+	#dim SequentieInfo As APPS.Halux.common.dto.ProductieSequentie = ##class(APPS.Halux.common.dto.ProductieSequentie).%New()
+	
+	Set SequentieInfo.TotaalAantal = ResultSet.GetDataByName("TotaalAantal")
+	Set SequentieInfo.ProductID = ResultSet.GetDataByName("Product")
+	Set SequentieInfo.DeelAantal = ResultSet.GetDataByName("DeelAantal")
+	Set SequentieInfo.SequenceNr = ResultSet.GetDataByName("Sequence")
+	Set SequentieInfo.QueueID = ResultSet.GetDataByName("ID")
+	Set SequentieInfo.ToeleveringID = ResultSet.GetDataByName("TOENr")
+	Set SequentieInfo.ToeleveringLijnID = ResultSet.GetDataByName("TLUNr")
+	Set SequentieInfo.ToeleveringSequentieNummer = ResultSet.GetDataByName("ToeleveringSequentieNummer")
+	
+	Quit SequentieInfo
 ]]></Implementation>
 </Method>
 
@@ -218,16 +257,19 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim CorrecteToeleveringLijnID As %String = ""
+	
 	If $Data(^TO("IU",ToeleveringID,ToeleveringLijnID)) {
 		Set CorrecteToeleveringLijnID = ToeleveringLijnID	
 	} Else {
 		#dim MogelijksCorrecteToeleveringLijnID As %String = $O(^TO("IU",ToeleveringID,ToeleveringLijnID))
 		#dim OrinigeleEersteDeel As %String = $E(ToeleveringLijnID,1,($Length(ToeleveringLijnID)-2))
 		#dim MogelijksCorrecteEersteDeel As %String = $E(MogelijksCorrecteToeleveringLijnID,1,($Length(MogelijksCorrecteToeleveringLijnID)-2))
-		If OrinigeleEersteDeel = MogelijksCorrecteEersteDeel {
+		
+		If (OrinigeleEersteDeel = MogelijksCorrecteEersteDeel) {
 			Set CorrecteToeleveringLijnID = MogelijksCorrecteToeleveringLijnID	
 		}
 	}
+	
 	Quit CorrecteToeleveringLijnID
 ]]></Implementation>
 </Method>