Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58593 -r58599
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58593)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58599)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="InventarisService">
+<Type>APPS.MAG.Inventaris.impl.InventarisService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,6 +38,7 @@
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Set ..PalletCodeValidator = $$$Inject(PalletCodeValidator, ##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New())
 	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Set ..InventarisService = $$$Inject(InventarisService, ##class(APPS.MAG.Inventaris.impl.InventarisService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -202,6 +208,7 @@
 <ReturnType>WS.Halux.AAP.ToeleveringBijwerkenResponse</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim VolgNr As %String
 	
 	Set Response = ##class(WS.Halux.AAP.ToeleveringBijwerkenResponse).%New()
 	Try {
@@ -219,12 +226,14 @@
 				}
 				
 				If ToeleveringBijwerkenRequest.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer() {
-					Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(ToeleveringBijwerkenRequest.Toelevering, , ToeleveringBijwerkenRequest.Header.Initialen)
+					Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(ToeleveringBijwerkenRequest.Toelevering, , ToeleveringBijwerkenRequest.Header.Initialen,.VolgNr)
 					
 					If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
 						Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
+					
+					Do ##class(BL.MB.UGLYPicking.Receptie).CloseAndHandleBuffer("~tmp",VolgNr)
 				}
 				
 			}
@@ -248,6 +257,7 @@
 <ReturnType>WS.Halux.AAP.PalletBijwerkenResponse</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim VolgNr As %String
 	
 	Set Response = ##class(WS.Halux.AAP.PalletBijwerkenResponse).%New()
 	Try {
@@ -265,12 +275,15 @@
 				}
 				
 				If PalletBijwerkenRequest.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer() {
-					Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(, PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
+					Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(, PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen,.VolgNr)
 					
 					If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
 						Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()
+						Set DnaCode.Locatie = ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
+					
+					Do ##class(BL.MB.UGLYPicking.Receptie).CloseAndHandleBuffer("~tmp",VolgNr)
 				}
 				
 			}
@@ -343,11 +356,14 @@
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(OudePalletCode)
 				}	
 				If DnaCodeIterator.HasNext() {
+					Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode)
+					
 					While DnaCodeIterator.HasNext() {
 						Set DnaCode = DnaCodeIterator.Next()
 						Set DnaCode.PalletCode = NieuwePalletCode
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
+					
 					Set Response.Header.Status = "200"
 					Set Response.Header.Omschrijving = "Pallet is succesvol gewijzigd"
 					Set Response.Header.OmschrijvingVoorLogging = "Pallet is succesvol gewijzigd van '"_OudePalletCode_"' naar '"_NieuwePalletCode_"'"