Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61739 -r61748
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61739)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61748)
@@ -333,10 +333,16 @@
 						Set DnaCode.Locatie = ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()
 					}
 					Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+					
+					If $$$HasLength(DnaCode.ParentDnaCode) {
+						Do ..DnaCodesMetGelijkeParentDnaCodeAfmelden(DnaCode, DnaCodeAfmeldenRequest.Header.Initialen, DnaCodeAfmeldenRequest.PalletCode, DnaCodeAfmeldenRequest.Locatie)
+					}
 				}
 				
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
+				
+				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
 					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 					Set Response.Header.Status = "200"
@@ -378,6 +384,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DnaCodesMetGelijkeParentDnaCodeAfmelden">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Initialen:%String,PalletCode:%String,Locatie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim loopDnaCode As DOM.Halux.AAP.DnaCode
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaParentDnaCode(DnaCode.ParentDnaCode)
+	While DnaCodeIterator.HasNext() {
+		Set loopDnaCode = DnaCodeIterator.Next()
+		Set DnaCode.InitialenScanner = Initialen
+		Set DnaCode.PalletCode = PalletCode
+		Set DnaCode.ScanTijdstip = ..DateTimeAPI.CurrentHorolog()
+		If $$$HasLength(Locatie) {
+			Set DnaCode.Locatie = Locatie
+		} Else {
+			Set DnaCode.Locatie = ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()
+		}
+		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+		If $$$Not(DnaCode.DnaCode = loopDnaCode.DnaCode) {
+			Do ..DnaCodeRepository.Bewaar(loopDnaCode)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ToeleveringBijwerken">
 <FormalSpec>ToeleveringBijwerkenRequest:WS.Halux.AAP.ToeleveringBijwerkenRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ToeleveringBijwerkenResponse</ReturnType>