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>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml
===================================================================
diff -u -r61696 -r61748
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 61696)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 61748)
@@ -295,7 +295,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als locatie werd meegegeven, moet ze gepersisteerd worden)">
+<Method name="Test: Als locatie werd meegegeven, moet ze gepersisteerd worden">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.DnaCodeAfmeldenRequest).%New()
 	Set Request.DnaCode = "DnaCode"
@@ -319,6 +319,45 @@
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: DnaCode met ingevulde ParentDnaCode -&gt; bijhorende DnaCodes bijwerken">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.DnaCodeAfmeldenRequest).%New()
+	Set Request.DnaCode = "DnaCode"
+	Set Request.Locatie = $$$DummyString
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode1.DnaCode = "LAAAAA1"
+	Set DnaCode1.ParentDnaCode = "LBBBBB1"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode2.DnaCode = "LBBBBB1"
+	Set DnaCode2.ParentDnaCode = "LBBBBB1"
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.Toelevering = "222222"
+	Set DnaCode3.DnaCode = "LCCCCC1"
+	Set DnaCode3.ParentDnaCode = "LBBBBB1"
+	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1,DnaCode2,DnaCode3)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaDnaCodeEnRecent",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk)
+	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorEenStuk)
+	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaParentDnaCode",DnaCode1.ParentDnaCode).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode2).ExactAantalKeer(1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode3).ExactAantalKeer(1)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
+	Do $$$AssertEquals(Antwoord.DnaCodes.GetAt(1).Locatie,$$$DummyString)
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>