Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61513 -r61592
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61513)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61592)
@@ -8,73 +8,157 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService,DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="MagDnaCodeInVhossKast">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Pallet:%String,GuiVhossVolgnummer:%String</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Pallet:%String,BatchId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Quit:($$$HasLength(BatchId) && $$$Not(DnaCode.BatchId=BatchId)) $$$False
+	
 	#dim Resultaat As %Boolean = $$$False
 	#dim ItemIterator As TECH.Iterator
+	#dim InterneVhossIds As %List	
 	
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
 		Quit:$$$Not(..SequentieService.HeeftSequentie(DnaCode.BatchId)) Resultaat
-	
-		Set ItemIterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
-		#dim TbxSequentie As %CacheString
-		While ItemIterator.HasNext() {
-			Set TbxSequentie = ItemIterator.Next()
-			Do ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), TbxSequentie.GetData(2), GuiVhossVolgnummer)
-		}
+		
+		#dim TbxSequentie As %CacheString = ..GeefOvereenkomendProductieSequentieItemTBX(DnaCode)		
+		Set Resultaat = ..VerwerkDnaCode(DnaCode, TbxSequentie,, Pallet, BatchId)
 
 	} Else {
 		Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) Resultaat
+
+		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ..GeefOvereenkomendProductieSequentieItemNietTBX(DnaCode)
+		Set Resultaat = ..VerwerkDnaCode(DnaCode, ,ProductieSequentieItem, Pallet, BatchId)
 		
-		#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
-		Set ItemIterator = ProductieSequentie.GeefItemIterator()
-		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
-		While ItemIterator.HasNext() {
-			Set ProductieSequentieItem = ItemIterator.Next()
-			Do ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, ProductieSequentieItem.VHOSSID, GuiVhossVolgnummer)
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="GeefOvereenkomendProductieSequentieItemTBX">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %cachestring
+	#dim TbxSequentie As %CacheString
+	#dim ItemIterator As TECH.Iterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
+
+	While ItemIterator.HasNext() {
+		Set TbxSequentie = ItemIterator.Next()
+		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
+			Set Resultaat = TbxSequentie
 		}
+	}		
+	 
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="GeefOvereenkomendProductieSequentieItemNietTBX">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.VHOSSProductieSequentieItem</ReturnType>
+<Implementation><![CDATA[
+	#dim SequentieItemIterator As TECH.Iterator
+	#dim Resultaat As APPS.Halux.common.VHOSSProductieSequentieItem
+	#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
+	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
+	Set SequentieItemIterator = ProductieSequentie.GeefItemIterator()
+	While SequentieItemIterator.HasNext() {
+		Set ProductieSequentieItem = SequentieItemIterator.Next()
+		If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer {
+			Set Resultaat = ProductieSequentieItem
+		}
 	}
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductieSequentieNummer:%String,ProductieVHOSSID:%String,GuiVhossVolgnummer</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,TBXSequentie:%CacheString="",ProductieSequentie:APPS.Halux.common.VHOSSProductieSequentieItem="",Pallet:%String,BatchId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim Resultaat As %Boolean = $$$True
+	#dim VhossEnZijvlak As %List
+	#dim tempVhossEnZijvlak As %List
+	#dim tempTbxSequentie As %CacheString = ""
+	#dim tempProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ""
 	
-	//checken of er voor deze interne id al gescande dnacodes bestaan met een ander vhosslocatie ingevuld dan diegene die is ingescand
+	Set VhossEnZijvlak = ..GeefVhossEnZijvlak(TBXSequentie,ProductieSequentie)
+	#dim InternVhossId = $lg(VhossEnZijvlak,1)
+	#dim ZijVlak = $lg(VhossEnZijvlak,2)
 	
+	#dim tempDnaCode As DOM.Halux.AAP.DnaCode
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchId(DnaCode.BatchId)
+	While DnaCodeIterator.HasNext() && Resultaat {
+		Set tempDnaCode = DnaCodeIterator.Next()
+		//als palletcode is ingevuld: checken of vhoss/zijkant van DnaCode gelijk zijn aan input. Indien zo dan MOET inputpalletcode gelijk zijn aan tempdnacode.palletcode
+		If $$$HasLength(tempDnaCode.PalletCode) {
+			If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
+				Set tempTbxSequentie = ..GeefOvereenkomendProductieSequentieItemTBX(tempDnaCode)	
+			} Else {
+				Set tempProductieSequentieItem = ..GeefOvereenkomendProductieSequentieItemNietTBX(tempDnaCode)
+			}
 	
-	If DnaCode.SequentieNummer = ProductieSequentieNummer {
-		If $$$Not(ProductieVHOSSID = GuiVhossVolgnummer) {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
+			Set tempVhossEnZijvlak = ..GeefVhossEnZijvlak(tempTbxSequentie,tempProductieSequentieItem)
+			#dim tempInternVhossId = $lg(tempVhossEnZijvlak,1)
+			#dim tempZijVlak = $lg(tempVhossEnZijvlak,2)
+			
+			If (Pallet = tempDnaCode.PalletCode) && ($$$Not(tempInternVhossId = InternVhossId) || $$$Not(tempZijVlak = ZijVlak)) {
+				Set Resultaat = $$$False
+			}
+			
+			If Resultaat {
+				If (tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak) {
+					Set Resultaat = (tempDnaCode.PalletCode = Pallet)
+				}
+			}
 		}
 	}
-	Quit $$$True
+	
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVhossEnZijvlak">
+<FormalSpec>TBXSequentie:%CacheString="",ProductieSequentie:APPS.Halux.common.VHOSSProductieSequentieItem=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	If $isObject(TBXSequentie) {
+		Quit $lb(TBXSequentie.GetAt(2),TBXSequentie.GetAt(3))
+	} Else {
+		Quit $lb(ProductieSequentie.VHOSSID,ProductieSequentie.ZijVlakID)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefTbxSequentieIterator">
 <FormalSpec>BatchId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim Query As %String = "SELECT ID, WPVerpak_Unitnr, Sequence FROM PPS.TBX_Queue WHERE BatchID = ? "
+	#dim Query As %String = "SELECT ID, WPVerpak_Unitnr, Sequence, WPVerpak_SubNr FROM PPS.TBX_Queue WHERE BatchID = ? "
 	#dim QueryParams As %List = $ListBuild(BatchId)
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)