Index: APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml
===================================================================
diff -u -r72496 -r73299
--- APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml	(.../DocumentLadeGerecepteerdNaarObjective.cls.xml)	(revision 72496)
+++ APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml	(.../DocumentLadeGerecepteerdNaarObjective.cls.xml)	(revision 73299)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="FileUtils">
 <Type>TECH.File.impl.FileUtils</Type>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml
===================================================================
diff -u -r65725 -r73299
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 65725)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 73299)
@@ -23,8 +23,11 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",DnaCode1.Toelevering).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()	
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
@@ -33,6 +36,7 @@
 	Do $$$AssertEquals(Antwoord.DnaCodes.GetAt(1).Locatie,##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit())
 	Do DnaCodeRepositoryMock.Verifieer()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -164,15 +168,19 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",DnaCode1.Toelevering).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,, DnaCodeInVhossKastBepalerStub,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,, DnaCodeInVhossKastBepalerStub,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,"0")
 	Do DnaCodeRepositoryMock.Verifieer()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -256,15 +264,19 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep", DnaCode2.Toelevering).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
 	Do DnaCodeRepositoryMock.Verifieer()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -354,15 +366,19 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",AfgemeldeDnaCode.Toelevering).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
 	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
 	Do DnaCodeRepositoryMock.Verifieer()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -383,15 +399,19 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",DnaCode1.Toelevering).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#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()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -426,15 +446,19 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep", DnaCode3.Toelevering).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#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()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -454,8 +478,11 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep", DnaCode1.Toelevering).DanReturn($$$True)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
@@ -464,6 +491,7 @@
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -483,8 +511,11 @@
 	Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep", DnaCode1.Toelevering).DanReturn($$$False)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock)
+	Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
+	Do DocumentGeneratorMock.VerwachtMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks()
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock)
+	
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
@@ -493,6 +524,7 @@
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 	Do ToeleveringServiceMock.Verifieer()
+	Do DocumentGeneratorMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhDeploy/Deploy20240118xConfigSettingPadObjectiveBestandLadeGerecepteerd.cls.xml
===================================================================
diff -u -r72509 -r73299
--- vhDeploy/Deploy20240118xConfigSettingPadObjectiveBestandLadeGerecepteerd.cls.xml	(.../Deploy20240118xConfigSettingPadObjectiveBestandLadeGerecepteerd.cls.xml)	(revision 72509)
+++ vhDeploy/Deploy20240118xConfigSettingPadObjectiveBestandLadeGerecepteerd.cls.xml	(.../Deploy20240118xConfigSettingPadObjectiveBestandLadeGerecepteerd.cls.xml)	(revision 73299)
@@ -20,13 +20,11 @@
 <Implementation><![CDATA[
 	#dim ConfigManager As TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
 	
-	If $$$Not(ConfigManager.BestaatSleutel("APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective")) {
-		If $$$Not($$$Server = "CACHE01")
-		{
-			Do ConfigManager.SetString("APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective","\\notes01\MSMGATEWAY\MES\dev\LadeGerecepteerd")
-		} Else {
-			Do ConfigManager.SetString("APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective","\\notes01\MSMGATEWAY\MES\prd\LadeGerecepteerd")
-		}
+	If $$$Not($$$Server = "CACHE01")
+	{
+		Do ConfigManager.SetString("APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective","\\notes01\MSMGATEWAY\MES\dev\LadeGerecepteerd\input")
+	} Else {
+		Do ConfigManager.SetString("APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective","\\notes01\MSMGATEWAY\MES\prd\LadeGerecepteerd\input")
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml	(revision 73299)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective</Super>
+
+<Method name="GenereerDocumentVoorObjective">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml
===================================================================
diff -u -r72496 -r73299
--- AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml	(.../SalesLineStatusUpdate.cls.xml)	(revision 72496)
+++ AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml	(.../SalesLineStatusUpdate.cls.xml)	(revision 73299)
@@ -111,15 +111,7 @@
 <ReturnType>AXimpl.Request</ReturnType>
 <Implementation><![CDATA[
 	#dim LadeGerecepteerdEventData As TECH.Events.LadeGerecepteerdEventData = Event.Data
-	#dim DnaCodeService As APPS.Halux.AAP.DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
-	#dim DnaCodes As TECH.DynamicIterator = DnaCodeService.GeefDnaCodesViaBatchIdEnSequentienummer(LadeGerecepteerdEventData.BatchID, LadeGerecepteerdEventData.SequenceNr)
-	Set DocumentGenerator = ##class(APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New()
 	
-	While DnaCodes.HasNext() {
-		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodes.Next()
-		Do DocumentGenerator.GenereerDocumentVoorObjective(DnaCode.DnaCode)
-	}
-	
 	Quit ##class(AXimpl.Request).%New("SalesLineStatus/Update", LadeGerecepteerdEventData.OrderID_"_"_ LadeGerecepteerdEventData.OrderLijnCode,..#Geproduceerd)
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/Afmelden/impl/DocumentLadeGerecepteerdNaarObjective.cls.xml	(revision 73299)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>FileUtils:TECH.File.impl.FileUtils="",FileWriter:TECH.File.FileWriter="",DnaCodeSerivce:APPS.Halux.AAP.DnaCodeService=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerDocumentVoorObjective">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GenereerDocumentVoorObjective",DnaCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r72861 -r73299
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72861)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73299)
@@ -78,8 +78,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DocumentGenerator">
+<Type>APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI="",AantalGescandeVhossSequentieItemsBepaler:WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler="",DnaCodeInVhossKastBepaler:WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler="",SequentieService:APPS.Halux.common.impl.SequentieService="",RondAfVhossKastHelper:WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper="",ToeleveringService:DOM.AKP.ToeleveringService=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI="",AantalGescandeVhossSequentieItemsBepaler:WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler="",DnaCodeInVhossKastBepaler:WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler="",SequentieService:APPS.Halux.common.impl.SequentieService="",RondAfVhossKastHelper:WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper="",ToeleveringService:DOM.AKP.ToeleveringService="",DocumentGenerator:APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -99,6 +104,7 @@
 	Set ..RondAfVhossKastHelper = $$$Inject(RondAfVhossKastHelper,##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New())
 	Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())
 	Set ..BufferHelper = ##class(WSimpl.Halux.AAP.DnaCodeService.BufferHelper).%New()
+	Set ..DocumentGenerator = $$$Inject(DocumentGenerator, ##class(APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -369,6 +375,8 @@
 				
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
+				Do ..DocumentGenerator.GenereerDocumentVoorObjective(DnaCode.DnaCode)
+				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
 					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 					Set Response.Header.Status = "200"