Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62889 -r62904
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62889)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62904)
@@ -484,13 +484,15 @@
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
 			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, PalletBijwerkenRequest.Status, , PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
+			If ##class(APPS.VisiDot.impl.Tech).IsFrameID(PalletBijwerkenRequest.Pallet) {
+				Do ..MogelijkseTbxenBijVhosskastAfmelden(PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
+			}
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
 			Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_PalletBijwerkenRequest.Pallet_"'"
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
@@ -499,6 +501,63 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MogelijkseTbxenBijVhosskastAfmelden">
+<FormalSpec>Pallet:%String,Initialen:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(Pallet)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	If DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		#dim Query As %String
+		#dim QueryParams As %List
+		#dim ResultSet As TECH.ResultSet
+		#dim InternVhossId As %String
+		#dim InternZijvlakId As %String
+		#dim DnaCodeTemp As DOM.Halux.AAP.DnaCode
+		If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
+			Set Query = "SELECT WPVerpak_Unitnr, WPVerpak_SubNr FROM PPS.TBX_Queue as pps join DOM_Halux_AAP.DnaCode as dna on dna.SequentieNummer = pps.Sequence and dna.batchid = pps.batchid where pps.BatchId = ? and PalletCode = ? "
+			Set QueryParams = $ListBuild(DnaCode.BatchId,Pallet)
+			Set ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)
+			While ResultSet.Next(){
+				Set InternVhossId = ResultSet.GetData(1)
+				Set InternZijvlakId = ResultSet.GetData(2)
+				
+				Set Query = "SELECT DnaCode FROM PPS.TBX_Queue as pps join DOM_Halux_AAP.DnaCode as dna on dna.SequentieNummer = pps.Sequence and dna.batchid = pps.batchid where pps.BatchId = ? and WPVerpak_Unitnr = ? and WPVerpak_SubNr = ? and not(PalletCode like 'O1%') and dna.status = 'Gescand'"
+				Set QueryParams = $ListBuild(DnaCode.BatchId,InternVhossId,InternZijvlakId)
+				Set ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)
+				Set DnaCodeList = ##class(%ListOfObjects).%New()
+				While ResultSet.Next(){
+					Set DnaCodeTemp = ..DnaCodeRepository.ZoekViaDnaCode(ResultSet.GetData(1)).Next()
+					Do DnaCodeList.Insert(DnaCodeTemp)
+					Do ..DnaCodesKlaarmakenVoorBuffer(##class(TECH.ListIterator).%New(DnaCodeList), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).%New().InBuffer(),,DnaCodeTemp.PalletCode,Initialen)
+				}
+			}
+			
+		} Else {
+			Set Query = "SELECT VHOSSID, ZijvlakId FROM DOM_Halux_AAP.DnaCode as dna join APPS_Halux_common.VHOSSProductieSequentieItem as pps on dna.batchid = pps.batchid and dna.sequentienummer = pps.groepsequentienummer where pps.BatchId = ? and PalletCode = ?"
+			Set QueryParams = $ListBuild(DnaCode.BatchId,Pallet)
+			Set ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)
+			While ResultSet.Next(){
+				Set InternVhossId = ResultSet.GetData(1)
+				Set InternZijvlakId = ResultSet.GetData(2)
+				
+				Set Query = "SELECT DnaCode FROM DOM_Halux_AAP.DnaCode as dna join APPS_Halux_common.VHOSSProductieSequentieItem as pps on dna.batchid = pps.batchid and dna.sequentienummer = pps.groepsequentienummer where pps.BatchId = ? and VHOSSID = ? and ZijvlakId = ? and not(PalletCode like 'O1%') and dna.status = 'Gescand'"
+				Set QueryParams = $ListBuild(DnaCode.BatchId,InternVhossId,InternZijvlakId)
+				Set ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)
+				
+				Set DnaCodeList = ##class(%ListOfObjects).%New()
+				While ResultSet.Next(){
+					Set DnaCodeTemp = ..DnaCodeRepository.ZoekViaDnaCode(ResultSet.GetData(1)).Next()
+					Do DnaCodeList.Insert(DnaCodeTemp)
+					Do ..DnaCodesKlaarmakenVoorBuffer(##class(TECH.ListIterator).%New(DnaCodeList), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(),,DnaCodeTemp.PalletCode,Initialen)
+				}
+			}			
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="DnaCodesKlaarmakenVoorBuffer">
 <FormalSpec>DnaCodeIterator:TECH.Iterator,Status:DOM.Halux.AAP.enu.DnaCodeStatus,Toelevering:%String="",Pallet:%String="",Initialen:%String</FormalSpec>
 <Private>1</Private>