Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r73186 -r74608
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 73186)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 74608)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>BL.Derde.LevSpecifiek,Prod.Product</IncludeCode>
 <ProcedureBlock>0</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Parameter name="MaxAantalLades">
 <Default>30</Default>
Index: vhTest/Fake/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u
--- vhTest/Fake/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 0)
+++ vhTest/Fake/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 74608)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.BL.MB.UGLYPicking.VerzendDirectControleur">
+<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>0</ProcedureBlock>
+<Super>BL.MB.UGLYPicking.VerzendDirectControleur</Super>
+
+<Method name="ControleViaOrder">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaReceptieBuffer">
+<FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
+<ReturnType>%Library.String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaToelevering">
+<FormalSpec>TOENr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ControleerKantelpunt">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLijnen">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="ControleerRembours">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u
--- vhTest/Mock/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 0)
+++ vhTest/Mock/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 74608)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.BL.MB.UGLYPicking.VerzendDirectControleur">
+<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>0</ProcedureBlock>
+<Super>BL.MB.UGLYPicking.VerzendDirectControleur,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="ControleViaOrder">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ControleViaOrder",ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaReceptieBuffer">
+<FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
+<ReturnType>%Library.String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ControleViaReceptieBuffer",bfrRGID,bfrVolgNr)
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaToelevering">
+<FormalSpec>TOENr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ControleViaToelevering",TOENr)
+]]></Implementation>
+</Method>
+
+<Method name="ControleerKantelpunt">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ControleerKantelpunt",KLNr,ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLijnen">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ControleerLijnen",KLNr,ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="ControleerRembours">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ControleerRembours",KLNr)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Halux/AAP/PalletBijwerkenOBJTRequest.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/PalletBijwerkenOBJTRequest.cls.xml	(revision 0)
+++ WS/Halux/AAP/PalletBijwerkenOBJTRequest.cls.xml	(revision 74608)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.PalletBijwerkenOBJTRequest">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Header">
+<Type>WS.Halux.AAP.RequestHeader</Type>
+</Property>
+
+<Property name="ProductionOrderId">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="PalletCode">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="PINCodes">
+<Type>%ListOfDataTypes</Type>
+<Required>1</Required>
+</Property>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService/UGLYPickingWrapper.cls.xml
===================================================================
diff -u -r60573 -r74608
--- WSimpl/Halux/AAP/DnaCodeService/UGLYPickingWrapper.cls.xml	(.../UGLYPickingWrapper.cls.xml)	(revision 60573)
+++ WSimpl/Halux/AAP/DnaCodeService/UGLYPickingWrapper.cls.xml	(.../UGLYPickingWrapper.cls.xml)	(revision 74608)
@@ -4,11 +4,11 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="BuildBufferViaDnaCode">
-<FormalSpec>Toelevering:%String,Pallet:%String,Initialen:%String,RGID:%String=""</FormalSpec>
+<FormalSpec>Toelevering:%String,Pallet:%String,Initialen:%String,RGID:%String="",DnaCodeIterator:TECH.ListIterator=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim VolgNr As %String		
-	Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(Toelevering, Pallet, Initialen,.VolgNr, RGID)
+	Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(Toelevering, Pallet, Initialen,.VolgNr, RGID, DnaCodeIterator)
 	Quit VolgNr
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerkenOBJT/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerkenOBJT/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerkenOBJT/Test.cls.xml	(revision 74608)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.PalletBijwerkenOBJT.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag: Gescand -&gt; OnHold">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.PalletBijwerkenOBJTRequest).%New()
+	Set Request.PalletCode = "TBX12345"
+	Set Request.PINCodes = ##class(%ListOfDataTypes).%New()
+	Do Request.PINCodes.Insert("DnaCode1")
+	Set Request.ProductionOrderId = "DummyToelevId"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.PalletCode = "TBX12345"
+	Set DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+	
+	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode", "DnaCode1").DanReturn(DnaCodeIteratorTweeStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1)
+	
+	Set VerzendDirectControleurMock = ##class(vhTest.Mock.BL.MB.UGLYPicking.VerzendDirectControleur).%New()
+	Do VerzendDirectControleurMock.VerwachtMethodCall("ControleViaToelevering", Request.ProductionOrderId).DanReturn($$$False)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,,,,,,VerzendDirectControleurMock)
+	
+	#dim Antwoord As WS.Halux.AAP.PalletBijwerkenOBJTResponse = DnaCodeService.PalletBijwerkenOBJT(Request)
+	
+	Do $$$AssertEquals(Antwoord.Status,"OK")
+	Do $$$AssertEquals(Antwoord.Foutboodschap,"")
+	Do DnaCodeRepositoryMock.Verifieer()
+	Do VerzendDirectControleurMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen data gevonden">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.PalletBijwerkenOBJTRequest).%New()
+	Set Request.PalletCode = "TBX12345"
+	Set Request.PINCodes = ##class(%ListOfDataTypes).%New()
+	Do Request.PINCodes.Insert("DnaCode1")
+	Do Request.PINCodes.Insert("DnaCode2")
+	Set Request.ProductionOrderId = "DummyToelevId"
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode", "DnaCode1").DanReturn(..EmptyIterator())
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode", "DnaCode2").DanReturn(..EmptyIterator())
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.PalletBijwerkenOBJTResponse = DnaCodeService.PalletBijwerkenOBJT(Request)
+	
+	Do $$$AssertEquals(Antwoord.Status,"NOK")
+	Do $$$AssertEquals(Antwoord.Foutboodschap,"Unknown PIN 'DnaCode1'. Unknown PIN 'DnaCode2'. ")
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/HeaderValidator.cls.xml
===================================================================
diff -u -r56054 -r74608
--- WSimpl/Halux/AAP/HeaderValidator.cls.xml	(.../HeaderValidator.cls.xml)	(revision 56054)
+++ WSimpl/Halux/AAP/HeaderValidator.cls.xml	(.../HeaderValidator.cls.xml)	(revision 74608)
@@ -30,17 +30,19 @@
 <Method name="ValidateHeader">
 <FormalSpec>Header:WS.Halux.AAP.RequestHeader</FormalSpec>
 <Implementation><![CDATA[
-	#dim AanmeldingIterator As TECH.Iterator = ..AanmeldingRepository.ZoekViaInitialen(Header.Initialen)
-	If $$$Not(AanmeldingIterator.HasNext()) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen sessie actief voor '"_Header.Initialen_"'"))
-	} Else {
-		#dim Aanmelding As DOM.Halux.AAP.Aanmelding = AanmeldingIterator.Next()
-		Set Aanmelding.LaatsteActiviteit = ..DateTimeAPI.CurrentHorolog()
-		Set Aanmelding.ComputerNaam = Header.ComputerNaam
-		If AanmeldingIterator.HasNext() {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Meerdere sessies actief voor '"_Header.Initialen_"'"))
+	If $$$Not(Header.Initialen = "") {
+		#dim AanmeldingIterator As TECH.Iterator = ..AanmeldingRepository.ZoekViaInitialen(Header.Initialen)
+		If $$$Not(AanmeldingIterator.HasNext()) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen sessie actief voor '"_Header.Initialen_"'"))
+		} Else {
+			#dim Aanmelding As DOM.Halux.AAP.Aanmelding = AanmeldingIterator.Next()
+			Set Aanmelding.LaatsteActiviteit = ..DateTimeAPI.CurrentHorolog()
+			Set Aanmelding.ComputerNaam = Header.ComputerNaam
+			If AanmeldingIterator.HasNext() {
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Meerdere sessies actief voor '"_Header.Initialen_"'"))
+			}
+			Do ..AanmeldingRepository.Bewaar(Aanmelding)
 		}
-		Do ..AanmeldingRepository.Bewaar(Aanmelding)
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/UGLYPickingWrapper.cls.xml
===================================================================
diff -u -r60573 -r74608
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/UGLYPickingWrapper.cls.xml	(.../UGLYPickingWrapper.cls.xml)	(revision 60573)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/UGLYPickingWrapper.cls.xml	(.../UGLYPickingWrapper.cls.xml)	(revision 74608)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="BuildBufferViaDnaCode">
-<FormalSpec>Toelevering:%String,Pallet:%String,Initialen:%String,RGID:%String=""</FormalSpec>
+<FormalSpec>Toelevering:%String,Pallet:%String,Initialen:%String,RGID:%String="",DnaCodeIterator:TECH.ListIterator=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BuildBufferViaDnaCode",Toelevering,Pallet,Initialen,RGID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BuildBufferViaDnaCode",Toelevering,Pallet,Initialen,RGID,DnaCodeIterator)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r74597 -r74608
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 74597)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 74608)
@@ -98,7 +98,7 @@
 </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="",DocumentGenerator:APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective="",DnaCodeHelper:APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl=""</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="",DnaCodeHelper:APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",VerzendDirectControleur:BL.MB.UGLYPicking.VerzendDirectControleur=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -113,7 +113,7 @@
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New())
 	Set ..AantalGescandeVhossSequentieItemsBepaler = $$$Inject(AantalGescandeVhossSequentieItemsBepaler,##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New())
 	Set ..DnaCodeInVhossKastBepaler = $$$Inject(DnaCodeInVhossKastBepaler,##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New())
-	Set ..VerzendDirectControleur = ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New()
+	Set ..VerzendDirectControleur = $$$Inject(VerzendDirectControleur,##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New())
 	Set ..SequentieService = $$$Inject(SequentieService,##class(APPS.Halux.common.impl.SequentieService).%New())
 	Set ..RondAfVhossKastHelper = $$$Inject(RondAfVhossKastHelper,##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New())
 	Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())
@@ -537,6 +537,52 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PalletBijwerkenOBJT">
+<FormalSpec>PalletBijwerkenRequest:WS.Halux.AAP.PalletBijwerkenOBJTRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.PalletBijwerkenOBJTResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim DnaCodeIterator As TECH.Iterator
+	Set Response = ##class(WS.Halux.AAP.PalletBijwerkenOBJTResponse).%New()
+	Set Response.Status = "OK"
+	
+	Try {
+		#dim ListOfDnaCodes As %ListOfObjects = ##class(%ListOfObjects).%New()
+		#dim PINCodeIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(PalletBijwerkenRequest.PINCodes)
+		
+		While PINCodeIterator.HasNext() {
+			#dim PIN As %String = PINCodeIterator.Next()
+			Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(PIN)
+			
+			If $$$Not(DnaCodeIterator.HasNext()) {
+				Set Response.Status = "NOK"
+				Set Response.Foutboodschap = Response.Foutboodschap_ "Unknown PIN '" _PIN_"'. "
+			} Else {
+				Set DnaCode = DnaCodeIterator.Next()
+				Set DnaCode.IsDirecteLevering = ..GeefIsDirecteLevering(PalletBijwerkenRequest.ProductionOrderId)
+				Set DnaCode.PalletCode = PalletBijwerkenRequest.PalletCode
+				Do ..DnaCodeRepository.Bewaar(DnaCode)
+				Do ListOfDnaCodes.Insert(DnaCode)
+			}
+		}
+		
+		If (Response.Status = "OK") {
+			Set DnaCodeIterator = 	##class(TECH.ListIterator).%New(ListOfDnaCodes)			
+			If DnaCodeIterator.HasNext() {
+				Do ..BufferHelper.DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), , PalletBijwerkenRequest.PalletCode, "")
+			}
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Status = "NOK"
+		Set Response.Foutboodschap = "Unknown exception: "_ Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="HernoemPallet">
 <FormalSpec>HernoemPalletRequest:WS.Halux.AAP.HernoemPalletRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.HernoemPalletResponse</ReturnType>
@@ -693,7 +739,7 @@
 <Implementation><![CDATA[
 	Try {
 		Set Response = ##class(WS.Halux.AAP.DirecteLeveringResponse).%New()
-		Set Response.IsDirecteLevering = $$$Not($$$HasLength(..VerzendDirectControleur.ControleViaToelevering(DirecteLeveringRequest.Toelevering)))
+		Set Response.IsDirecteLevering = ..GeefIsDirecteLevering(DirecteLeveringRequest.Toelevering)
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -704,6 +750,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIsDirecteLevering">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not($$$HasLength(..VerzendDirectControleur.ControleViaToelevering(ToeleveringId)))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVolgendeTbpCode">
 <FormalSpec>GeefVolgendeTbpCodeRequest:WS.Halux.AAP.GeefVolgendeTbpCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.GeefVolgendeTbpCodeResponse</ReturnType>
Index: WS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r72861 -r74608
--- WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72861)
+++ WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 74608)
@@ -109,6 +109,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PalletBijwerkenOBJT">
+<FormalSpec>PalletBijwerkenOBJTRequest:WS.Halux.AAP.PalletBijwerkenOBJTRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.PalletBijwerkenOBJTResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..VerwerkRequest(PalletBijwerkenOBJTRequest, $$$CurrentMethod)
+]]></Implementation>
+</Method>
+
 <Method name="HernoemPallet">
 <FormalSpec>HernoemPalletRequest:WS.Halux.AAP.HernoemPalletRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.HernoemPalletResponse</ReturnType>
Index: WS/Halux/AAP/PalletBijwerkenOBJTResponse.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/PalletBijwerkenOBJTResponse.cls.xml	(revision 0)
+++ WS/Halux/AAP/PalletBijwerkenOBJTResponse.cls.xml	(revision 74608)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.PalletBijwerkenOBJTResponse">
+<Super>WS.Halux.AAP.GeneriekeResponse</Super>
+
+<Property name="Status">
+<Type>%String</Type>
+</Property>
+
+<Property name="Foutboodschap">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r73264 -r74608
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 73264)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 74608)
@@ -2061,7 +2061,7 @@
 
 <Method name="BuildBufferViaDnaCode">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[ToeleveringId:%String="",PalletId:%String="",Initialen:%String,&VolgNr:%String="",RGID:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[ToeleveringId:%String="",PalletId:%String="",Initialen:%String,&VolgNr:%String="",RGID:%String="",DnaCodeIterator:TECH.ListIterator=""]]></FormalSpec>
 <Implementation><![CDATA[
 	New DnaCode, DnaCodeIterator, Status 
 	Set RGID=$G(RGID,..#TempBufferRGID)
@@ -2070,8 +2070,10 @@
 		Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaToeleveringIdEnNotStatusEnRecent(ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer())
 	} ElseIf $$$HasLength(PalletId) {
 		Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaPalletCodeEnRecent(PalletId)
+	} ElseIf $$$HasLength(DnaCodeIterator) {
+		Set DnaCodeIterator = DnaCodeIterator
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ToeleveringId en PalletId zijn leeg"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ToeleveringId, PalletId en lijst van dnacodes zijn leeg."))
 	}
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	While DnaCodeIterator.HasNext() {
Index: WSimpl/Halux/AAP/DnaCodeService/BufferHelper.cls.xml
===================================================================
diff -u -r62946 -r74608
--- WSimpl/Halux/AAP/DnaCodeService/BufferHelper.cls.xml	(.../BufferHelper.cls.xml)	(revision 62946)
+++ WSimpl/Halux/AAP/DnaCodeService/BufferHelper.cls.xml	(.../BufferHelper.cls.xml)	(revision 74608)
@@ -41,10 +41,11 @@
 			}
 		}
 	}
+	Do DnaCodeIterator.Reset()
 	If $isObject(DnaCode) {	
 		If Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer() {
 			#dim RGID = ..BepaalRGIDviaDnaCode(DnaCode)
-			Set VolgNr = ..UGLYPickingWrapper.BuildBufferViaDnaCode(Toelevering, Pallet, Initialen, RGID)
+			Set VolgNr = ..UGLYPickingWrapper.BuildBufferViaDnaCode(Toelevering, Pallet, Initialen, RGID, DnaCodeIterator)
 			Do ..UGLYPickingWrapper.CloseAndHandleBuffer(VolgNr, RGID)
 		}
 	}