Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60230 -r75015
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60230)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 75015)
@@ -33,13 +33,72 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProboxEtiketAfdrukkenHelper">
-<Type>WSimpl.Halux.AAP.DnaCodeService.ProboxEtiketAfdrukkenHelper</Type>
+<Property name="KlantinstellingenRepository">
+<Type>DOM.Halux.AAP.KlantinstellingenRepository</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalGescandeVhossSequentieItemsBepaler">
+<Type>WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCodeInVhossKastBepaler">
+<Type>WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerzendDirectControleur">
+<Type>BL.MB.UGLYPicking.VerzendDirectControleur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SequentieService">
+<Type>APPS.Halux.common.impl.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RondAfVhossKastHelper">
+<Type>WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BufferHelper">
+<Type>WSimpl.Halux.AAP.DnaCodeService.BufferHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringService">
+<Type>DOM.AKP.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DocumentGenerator">
+<Type>APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCodeHelper">
+<Type>APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MESService">
+<Type>APPS.Halux.PPS.MES.MESService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
+</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="",ProboxEtiketAfdrukkenHelper:WSimpl.Halux.AAP.DnaCodeService.ProboxEtiketAfdrukkenHelper</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>
@@ -50,7 +109,19 @@
 	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..InventarisService = $$$Inject(InventarisService, ##class(APPS.MAG.Inventaris.impl.InventarisService).%New())
 	Set ..DocsV1 = $$$Inject(DocsV1, ##class(BL.PPS.TBX.DocsV1).%New())
-	Set ..ProboxEtiketAfdrukkenHelper = $$$Inject(ProboxEtiketAfdrukkenHelper, ##class(WSimpl.Halux.AAP.DnaCodeService.ProboxEtiketAfdrukkenHelper).%New())
+	Set ..KlantinstellingenRepository = $$$Inject(KlantinstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
+	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 = $$$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())
+	Set ..BufferHelper = ##class(WSimpl.Halux.AAP.DnaCodeService.BufferHelper).%New()
+	Set ..DocumentGenerator = $$$Inject(DocumentGenerator, ##class(APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New())
+	Set ..DnaCodeHelper = $$$Inject(DnaCodeHelper, ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New())
+	Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
+	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -80,20 +151,31 @@
 </Method>
 
 <Method name="ZoekViaPalletCode">
-<FormalSpec>ZoakViaPalletCodeRequest:WS.Halux.AAP.ZoekViaPalletCodeRequest</FormalSpec>
+<FormalSpec>ZoekViaPalletCodeRequest:WS.Halux.AAP.ZoekViaPalletCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaPalletCodeResponse</ReturnType>
 <Implementation><![CDATA[
 	Set Response = ##class(WS.Halux.AAP.ZoekViaPalletCodeResponse).%New()
+	Set Response.MeerdereToeleveringenToegestaan = $$$False
 	
 	Try {
-		#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ZoakViaPalletCodeRequest.PalletCode)
+		#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ZoekViaPalletCodeRequest.PalletCode)		
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+		#dim DnaCode As DOM.Halux.AAP.DnaCode
+		#dim KlantinstellingenOpgevraagd As %Boolean = $$$False
+		#dim KlantinstellingenIterator As TECH.Iterator
 		
-		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaPalletCodeEnRecent(PalletCode)
-		
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
 			While DnaCodeIterator.HasNext() {
-				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+				Set DnaCode = DnaCodeIterator.Next()
+				If $$$Not(KlantinstellingenOpgevraagd) {
+					Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(DnaCode.KlantNummer)
+					If KlantinstellingenIterator.HasNext() {
+						Set Response.MeerdereToeleveringenToegestaan = KlantinstellingenIterator.Next().MeerdereToeleveringen
+					}
+					Set KlantinstellingenOpgevraagd = $$$True
+				}
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
 			}
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
@@ -109,6 +191,87 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekAlleVhossLadesBijDnaCode">
+<FormalSpec>ZoekAlleVhossLadesBijDnaCode:WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse).%New()
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator
+		#dim AfmeldenResponse As WS.Halux.AAP.DnaCodeAfmeldenResponse
+		#dim TempDnaCodeIterator As TECH.Iterator
+		Set TempDnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(ZoekAlleVhossLadesBijDnaCode.DnaCode)
+		If TempDnaCodeIterator.HasNext() {
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = TempDnaCodeIterator.Next() 
+			Set AfmeldenResponse = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode, ZoekAlleVhossLadesBijDnaCode.GuiVhossVolgnummer)	
+			Set DnaCodeIterator = ##class(TECH.ListIterator).%New(AfmeldenResponse.DnaCodes)
+		
+			If DnaCodeIterator.HasNext() {
+				Set Response.Header.Status = "200"
+				While DnaCodeIterator.HasNext() {
+					Do Response.DnaCodes.Insert(DnaCodeIterator.Next())
+				}
+			} Else {
+				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+				Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor DnaCode '"_ZoekAlleVhossLadesBijDnaCode.DnaCode_"'"
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor DnaCode '"_ZoekAlleVhossLadesBijDnaCode.DnaCode_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAlleDnaCodesDieOpVhossMoeten">
+<FormalSpec>ZoekAlleDnaCodesDieOpVhossMoetenRequest:WS.Halux.AAP.ZoekAlleDnaCodesDieOpVhossMoetenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekAlleDnaCodesDieOpVhossMoetenResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekAlleDnaCodesDieOpVhossMoetenResponse).%New()
+	
+	Try {
+		If ..IsGeldigeVhossCode(ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId) {
+			#dim TempDnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId)
+			#dim AfmeldenResponse As WS.Halux.AAP.DnaCodeAfmeldenResponse
+			
+			If TempDnaCodeIterator.HasNext() {
+				#dim DnaCode As DOM.Halux.AAP.DnaCode = TempDnaCodeIterator.Next() 
+				Set AfmeldenResponse = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)	
+				Set DnaCodeIterator = ##class(TECH.ListIterator).%New(AfmeldenResponse.DnaCodes)
+			
+				If DnaCodeIterator.HasNext() {
+					Set Response.Header.Status = "200"
+					While DnaCodeIterator.HasNext() {
+						Do Response.DnaCodes.Insert(DnaCodeIterator.Next())
+					}
+				} Else {
+					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+					Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor kast '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"'"
+				}
+			} Else {
+				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+				Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor kast '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"'"
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "'"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"' is geen VHOSS"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}	
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaDnaCode">
 <FormalSpec>ZoekViaDnaCodeRequest:WS.Halux.AAP.ZoekViaDnaCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaDnaCodeResponse</ReturnType>
@@ -196,6 +359,16 @@
 		} Else {
 			Set DnaCode = DnaCodeIterator.Next()
 			If ..IsValid(DnaCodeAfmeldenRequest, .Response, DnaCode) {
+				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
+					#dim MagDnaCodeInVhossKast As %Integer = ..DnaCodeInVhossKastBepaler.MagDnaCodeInVhossKast(DnaCode, DnaCodeAfmeldenRequest.PalletCode, DnaCodeAfmeldenRequest.BatchId)
+					If MagDnaCodeInVhossKast = 0 {
+						Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
+					}
+					If MagDnaCodeInVhossKast = 2 {
+						Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet aan de andere kant van de Vhosskast"))
+					}
+				}
+				
 				If DnaCodeAfmeldenRequest.Aantal = -1 {
 					Set DnaCode.InitialenScanner = ""
 					Set DnaCode.ScanTijdstip = ""
@@ -205,45 +378,97 @@
 					Set DnaCode.InitialenScanner = DnaCodeAfmeldenRequest.Header.Initialen
 					Set DnaCode.PalletCode = DnaCodeAfmeldenRequest.PalletCode
 					Set DnaCode.ScanTijdstip = ..DateTimeAPI.CurrentHorolog()
+					If $$$HasLength(DnaCodeAfmeldenRequest.Locatie) {
+						Set DnaCode.Locatie = DnaCodeAfmeldenRequest.Locatie
+					} Else {
+						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)
 				
-				Set ToeleveringId = DnaCode.Toelevering
-				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+				#dim MesFaseActief As %Integer = 1
+				#dim CategorTLM As %Boolean = ((..ProductTypeAPI.IsLegraboxProduct(DnaCode.ProductNummer) || ..ProductTypeAPI.IsMerivoboxProduct(DnaCode.ProductNummer) || ..ProductTypeAPI.IsTandemboxProduct(DnaCode.ProductNummer)))
+				If ((..MESService.IsActiefVoorMes(DnaCode.Lijn, MesFaseActief) && CategorTLM) && (..MESService.GeefHuidigeMESFase() = 1)) {	
+					#dim IsDnaCodeVoorSpaceStep As %Boolean = ..DnaCodeHelper.IsSpaceStepGeneriekProduct(DnaCode, DnaCode.ProductNummer)
+					If $$$Not(IsDnaCodeVoorSpaceStep) {
+						Do ..DocumentGenerator.GenereerDocumentVoorObjective(DnaCode.DnaCode)	
+					}
+				}			
 				
-				If DnaCodeIterator.HasNext() {
+				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
+					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 					Set Response.Header.Status = "200"
-					While DnaCodeIterator.HasNext() {
-						Set DnaCode = DnaCodeIterator.Next()
-						Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
-						Set AantalInToelevering = AantalInToelevering + 1
-						If $$$HasLength(DnaCode.InitialenScanner) {
-							Set AantalReedsGescand = AantalReedsGescand + 1
+				} Else {
+					Set ToeleveringId = DnaCode.Toelevering
+					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+					
+					If DnaCodeIterator.HasNext() {
+						Set Response.Header.Status = "200"
+						While DnaCodeIterator.HasNext() {
+							Set DnaCode = DnaCodeIterator.Next()
+							Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
+							Set AantalInToelevering = AantalInToelevering + 1
+							If $$$HasLength(DnaCode.InitialenScanner) {
+								Set AantalReedsGescand = AantalReedsGescand + 1
+							}
 						}
+					} Else {
+						Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+						Set Response.Header.Omschrijving = "Geen data gevonden voor toelevering '"_ToeleveringId_"'"
 					}
-				} Else {
-					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
-					Set Response.Header.Omschrijving = "Geen data gevonden voor toelevering '"_ToeleveringId_"'"
+					Set Response.AantalInToelevering = AantalInToelevering
+					Set Response.AantalReedsGescand = AantalReedsGescand
 				}
+				
+				Set ToeleveringId = DnaCode.Toelevering
+				Set Response.IsSST = ..ToeleveringService.HeeftToeleveringMinstensEenSpaceStep(ToeleveringId)				
 			}
 				
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
-		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.ToString())
 	}
 	
-	Set Response.AantalInToelevering = AantalInToelevering
-	Set Response.AantalReedsGescand = AantalReedsGescand
+	Set Response.AantalInToelevering = +Response.AantalInToelevering
+	Set Response.AantalReedsGescand = +Response.AantalReedsGescand
 	
 	Quit Response
 ]]></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>
@@ -254,15 +479,15 @@
 	Set Response = ##class(WS.Halux.AAP.ToeleveringBijwerkenResponse).%New()
 	Try {
 		#dim DnaCodeIterator As TECH.Iterator
-		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringBijwerkenRequest.Toelevering)
 		While DnaCodeIterator.HasNext() {
 			Set DnaCode = DnaCodeIterator.Next()
 			Set DnaCode.IsDirecteLevering = ToeleveringBijwerkenRequest.IsDirecteLevering
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
 		}
-		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringBijwerkenRequest.Toelevering)
 		If DnaCodeIterator.HasNext() {
-			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, ToeleveringBijwerkenRequest.Status, ToeleveringBijwerkenRequest.Toelevering, ,ToeleveringBijwerkenRequest.Header.Initialen)
+			Do ..BufferHelper.DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, ToeleveringBijwerkenRequest.Status, ToeleveringBijwerkenRequest.Toelevering, ,ToeleveringBijwerkenRequest.Header.Initialen)
 			Set Response.Header.Status = "200"
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
@@ -288,16 +513,16 @@
 	Set Response = ##class(WS.Halux.AAP.PalletBijwerkenResponse).%New()
 	Try {
 		#dim DnaCodeIterator As TECH.Iterator
-		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCodeEnNotStatus(PalletBijwerkenRequest.Pallet,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer())
 		While DnaCodeIterator.HasNext() {
 			Set DnaCode = DnaCodeIterator.Next()
 			Set DnaCode.IsDirecteLevering = PalletBijwerkenRequest.IsDirecteLevering
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
 		}
-		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCodeEnNotStatus(PalletBijwerkenRequest.Pallet,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer())
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
-			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, PalletBijwerkenRequest.Status, , PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
+			Do ..BufferHelper.DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, PalletBijwerkenRequest.Status, , PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
 			Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_PalletBijwerkenRequest.Pallet_"'"
@@ -312,36 +537,48 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DnaCodesKlaarmakenVoorBuffer">
-<FormalSpec>DnaCodeIterator:TECH.Iterator,Status:DOM.Halux.AAP.enu.DnaCodeStatus,Toelevering:%String="",Pallet:%String="",Initialen:%String</FormalSpec>
-<Private>1</Private>
+<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 VolgNr As %String		
-
-	While DnaCodeIterator.HasNext() {
-		Set DnaCode = DnaCodeIterator.Next()
+	#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)
 		
-		If Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold() {
-			If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
-				Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold()
+		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.PalletCode = PalletBijwerkenRequest.PalletCode
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
+				Do ListOfDnaCodes.Insert(DnaCode)
 			}
 		}
 		
-		If Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer() {
-			Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(Toelevering, Pallet, Initialen,.VolgNr)
-			
-			If ((DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()) || (DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold())) {
-				Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()
-				Set DnaCode.Locatie = ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()
-				Do ..DnaCodeRepository.Bewaar(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, "")
 			}
-			
-			//Do ##class(BL.MB.UGLYPicking.Receptie).CloseAndHandleBuffer("~tmp",VolgNr)
 		}
-		
+	} 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>
 
@@ -353,8 +590,8 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	#dim DnaCodeIterator As TECH.Iterator
 	
-	#dim OudePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.OudeCode)
-	#dim NieuwePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.NieuweCode)
+	#dim OudePalletCode As %String = HernoemPalletRequest.OudeCode
+	#dim NieuwePalletCode As %String = HernoemPalletRequest.NieuweCode
 	
 	Set Response = ##class(WS.Halux.AAP.HernoemPalletResponse).%New()
 	Try {
@@ -365,7 +602,7 @@
 			}
 			
 			If ..PalletCodeValidator.ValideerPalletCode(OudePalletCode) {
-				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(OudePalletCode)
+				Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCode)
 				
 				If DnaCodeIterator.HasNext() {
 					Set Response.Header.Status = "200"
@@ -396,20 +633,59 @@
 				If $$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode) {
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(HernoemPalletRequest.EnkelDezeDnaCode)
 				} Else {
-					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(OudePalletCode)
+					Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCode)
 				}	
 				If DnaCodeIterator.HasNext() {
+					Set DnaCode = DnaCodeIterator.Next()
 					
+					If $$$Not(..IsKaderdeurLocatie(NieuwePalletCode)) {
+						If HernoemPalletRequest.OokEWMSverwerken {
+							#dim OudePalletCodeEWMSCompatibel As %String = OudePalletCode
+							#dim NieuwePalletCodeEWMSCompatibel As %String = NieuwePalletCode
+							If ##class(APPS.VisiDot.impl.Tech).IsFrameID(OudePalletCode) {
+								Set OudePalletCodeEWMSCompatibel = ##class(APPS.VisiDot.impl.Tech).GeefVHossIdVanFrameId(OudePalletCode)
+							}
+							If ##class(APPS.VisiDot.impl.Tech).IsFrameID(NieuwePalletCode) {
+								Set NieuwePalletCodeEWMSCompatibel = ##class(APPS.VisiDot.impl.Tech).GeefVHossIdVanFrameId(NieuwePalletCode)
+							}
+							If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) {
+								Do ..InventarisService.HernoemPallet(OudePalletCodeEWMSCompatibel, NieuwePalletCodeEWMSCompatibel)
+							} Else {
+								//nieuwepalletcode bestaat niet in ewms -> error   //16:05 8/12
+								Do ..InventarisService.VoerBijladenUit(OudePalletCodeEWMSCompatibel, NieuwePalletCodeEWMSCompatibel, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)
+								
+							}
+						}
+					}
+					
+					If $$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode) {
+						Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(HernoemPalletRequest.EnkelDezeDnaCode)
+					} Else {
+						Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCode)
+					}	
+					
 					While DnaCodeIterator.HasNext() {
 						Set DnaCode = DnaCodeIterator.Next()
 						Set DnaCode.PalletCode = NieuwePalletCode
+						If ..IsKaderdeurLocatie(NieuwePalletCode) {
+							Set DnaCode.Locatie = NieuwePalletCode
+						}
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					
-					If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) {
-						Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode)
-					} Else {
-						Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)						
+					If ##class(APPS.VisiDot.impl.Tech).IsFrameID(OudePalletCode) && ((HernoemPalletRequest.EnkelDezeDnaCode)= "") {
+						#dim OudePalletCodeAndereKant = ##class(APPS.VisiDot.impl.Tech).GeefFrameIdAndereZijkant(OudePalletCode)
+						#dim NieuwePalletCodeAndereKant = ##class(APPS.VisiDot.impl.Tech).GeefFrameIdAndereZijkant(NieuwePalletCode)
+						Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCodeAndereKant)	
+					
+						While DnaCodeIterator.HasNext() {
+							Set DnaCode = DnaCodeIterator.Next()
+							Set DnaCode.PalletCode = NieuwePalletCodeAndereKant
+							If ..IsKaderdeurLocatie(NieuwePalletCodeAndereKant) {
+								Set DnaCode.Locatie = NieuwePalletCodeAndereKant
+							}
+							Do ..DnaCodeRepository.Bewaar(DnaCode)
+						}
 					}
 					
 					Set Response.Header.Status = "200"
@@ -426,6 +702,7 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).LogExceptie(Exception)
 	}
 	Quit Response
 ]]></Implementation>
@@ -439,13 +716,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsKaderdeurLocatie">
+<FormalSpec>Locatie:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((Locatie?1"10"1"K"2N1"T"2N) || (Locatie?1"10"1"k"2N1"t"2N))
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeVhossCode">
+<FormalSpec>Pallet:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.VisiDot.impl.Tech).IsFrameID(Pallet)
+]]></Implementation>
+</Method>
+
 <Method name="IsDirecteLevering">
 <FormalSpec>DirecteLeveringRequest:WS.Halux.AAP.DirecteLeveringRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.DirecteLeveringResponse</ReturnType>
 <Implementation><![CDATA[
 	Try {
 		Set Response = ##class(WS.Halux.AAP.DirecteLeveringResponse).%New()
-		Set Response.IsDirecteLevering = $$$Not($$$HasLength(##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().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()
@@ -456,14 +749,22 @@
 ]]></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>
 <Implementation><![CDATA[
 	Try {
 		Set Response = ##class(WS.Halux.AAP.GeefVolgendeTbpCodeResponse).%New()
 		#dim PalletIDBepaler As APPS.Halux.PPS.PalletIDBepaler = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefPalletIDBepaler()
-		Set Response.VolgendeTbpCode = PalletIDBepaler.GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox())
+		Set Response.VolgendeTbpCode = PalletIDBepaler.GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox(), GeefVolgendeTbpCodeRequest.ToeleveringId, GeefVolgendeTbpCodeRequest.ProductNummer)
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -474,29 +775,132 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ProboxEtiketAfdrukken">
-<FormalSpec>ProboxEtiketAfdrukkenRequest:WS.Halux.AAP.ProboxEtiketAfdrukkenRequest</FormalSpec>
-<ReturnType>WS.Halux.AAP.ProboxEtiketAfdrukkenResponse</ReturnType>
+<Method name="RondAfKaderdeurDag">
+<FormalSpec>RondAfKaderdeurDagRequest:WS.Halux.AAP.RondAfKaderdeurDagRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.RondAfKaderdeurDagResponse</ReturnType>
 <Implementation><![CDATA[
 	Try {
-		Set Response = ##class(WS.Halux.AAP.ProboxEtiketAfdrukkenResponse).%New()
+		Set Response = ##class(WS.Halux.AAP.RondAfKaderdeurDagResponse).%New()
 		
-		If ProboxEtiketAfdrukkenRequest.DnaCodes.Count() = 0 {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
+		#dim LaatsteDnaCode As DOM.Halux.AAP.DnaCode
+		Set LaatsteDnaCode = ..DnaCodeRepository.ZoekViaDnaCode(RondAfKaderdeurDagRequest.DnaCode).Next()
+		#dim DnaCodeViaDatumIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaDatum(LaatsteDnaCode.ScanTijdstip)
+		
+		Set FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
+		#dim DnaCodeTemp As DOM.Halux.AAP.DnaCode
+		While DnaCodeViaDatumIterator.HasNext() {
+			Set DnaCodeTemp = DnaCodeViaDatumIterator.Next()
+			If ##class(TECH.StringUtils).StartsWith(DnaCodeTemp.DnaCode,"K") {
+				Do FrequentieTabel.Verhoog(DnaCodeTemp.Toelevering)
+			}
 		}
 		
-		#dim DnaCodeIterator As TECH.Iterator = ..ProboxEtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProboxEtiketAfdrukkenRequest)
-		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
-		Do DnaCodeIterator.Reset()
+		#dim ToeleveringIdIterator As TECH.Iterator = FrequentieTabel.GeefItemIterator()
+		While ToeleveringIdIterator.HasNext() {
+			#dim AantalKaderdeuren As %Integer = 0
+			#dim AantalKaderdeurenGescand As %Integer = 0
+			Do ToeleveringIdIterator.Next()
+			#dim ToeleveringId As %String = ToeleveringIdIterator.Key()
+			#dim DnaCodesViaToeleveringIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+			While DnaCodesViaToeleveringIterator.HasNext() {
+				#dim DnaCodeViaToelevering As DOM.Halux.AAP.DnaCode = DnaCodesViaToeleveringIterator.Next()
+				Set AantalKaderdeuren = AantalKaderdeuren + 1
+				If ##class(TECH.StringUtils).Contains(DnaCodeViaToelevering.Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand(),##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()) {
+					Set AantalKaderdeurenGescand = AantalKaderdeurenGescand + 1
+				}
+			}
+			Do ..BufferHelper.DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), ToeleveringId, ,RondAfKaderdeurDagRequest.Header.Initialen)
+			If $$$Not(AantalKaderdeuren = AantalKaderdeurenGescand) {
+				Set ToeleveringMetAantallen = ##class(WS.Halux.AAP.RondAfKaderdeurDag.ToeleveringMetAantallen).%New()
+				Set ToeleveringMetAantallen.ToeleveringID = ToeleveringId
+				Set ToeleveringMetAantallen.AantalKaderdeuren = AantalKaderdeuren
+				Set ToeleveringMetAantallen.AantalKaderdeurenGescand = AantalKaderdeurenGescand
+				Do Response.ToeleveringMetAantallen.Insert(ToeleveringMetAantallen)
+			}
 		
-		#dim TeGebruikenPrinter = ..ProboxEtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..ProboxEtiketAfdrukkenHelper.GeefWerkpost(DnaCode))
+		Set Response.Header.Status = "200"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="RondAfVhossBatch">
+<FormalSpec>RondAfVhossBatchRequest:WS.Halux.AAP.RondAfVhossBatchRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.RondAfVhossBatchResponse</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		Set Response = ##class(WS.Halux.AAP.RondAfVhossBatchResponse).%New()
 		
-		If TeGebruikenPrinter = "" {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
+		#dim DnaCodeViaBatchIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchId(RondAfVhossBatchRequest.BatchId)
+		#dim DnaCodeTemp As DOM.Halux.AAP.DnaCode
+		
+		Set DnaCodeTemp = DnaCodeViaBatchIterator.Next()
+		If ##class(TECH.StringUtils).StartsWith(DnaCodeTemp.DnaCode,"T") {
+			#dim TbxVhossKastenIterator As TECH.Iterator = ..RondAfVhossKastHelper.GeefTbxVhossKastenIterator(RondAfVhossBatchRequest.BatchId)
+		
+			Set VhossMapper = ##class(TECH.KeyValue.UniqueList).%New()
+						
+			While TbxVhossKastenIterator.HasNext() {
+				#dim TbxVhossKasten as %CacheString = TbxVhossKastenIterator.Next()
+				Do VhossMapper.Insert(##class(TECH.KeyValuePair).%New(TbxVhossKasten.GetData(1)_"-"_TbxVhossKasten.GetData(2),TbxVhossKasten.GetData(3)))
+			}
+		} Else {
+			#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(RondAfVhossBatchRequest.BatchId)
 		}
-		Do ..DocsV1.Init(,"",TeGebruikenPrinter,"","")
-		Do ..DocsV1.ProboxInhoudEtiket(DnaCodeIterator)
+		
+		Set DnaCodeViaBatchIterator = ..DnaCodeRepository.ZoekViaBatchId(RondAfVhossBatchRequest.BatchId)
+			
+		Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
+		Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
+		While DnaCodeViaBatchIterator.HasNext() {
+			Set DnaCodeTemp = DnaCodeViaBatchIterator.Next()
+			If $$$HasLength(DnaCodeTemp.ScanTijdstip) {
+				Do AantallenGescandPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
+				Do AantallenPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
+			} Else {
+			  	If ##class(TECH.StringUtils).StartsWith(DnaCodeTemp.DnaCode,"T") {
+					#dim TbxSequentieItemIterator as TECH.Iterator = ..RondAfVhossKastHelper.GeefTbxSequentieItemIterator(RondAfVhossBatchRequest.BatchId, DnaCodeTemp.SequentieNummer)
+					Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenTBX(TbxSequentieItemIterator, VhossMapper))
+				} Else {
+				  	#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ProductieSequentie.GeefVHOSSProductieSequentieItemViaSequentieNummer(DnaCodeTemp.SequentieNummer)
+				  	Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenNietTBX(RondAfVhossBatchRequest.BatchId,ProductieItem.VHOSSID, ProductieSequentie, ProductieItem.ZijVlakID))
+			  	}
+			}
+			
+		}
+		
+		#dim FrequentieItemIterator As TECH.ListIterator = AantallenPerVhoss.GeefItemIterator()
+		While FrequentieItemIterator.HasNext(){
+			#dim Aantal As %Double = FrequentieItemIterator.Next()
+			Set VhossKastMetAantallen = ##class(WS.Halux.AAP.RondAfVhossBatch.VhossKastenMetAantallen).%New()
+			If FrequentieItemIterator.Key() [ "-" {
+				Set VhossKastMetAantallen.Vhosskast = "Vhoss "_FrequentieItemIterator.Key()
+			} Else {
+				Set VhossKastMetAantallen.Vhosskast = FrequentieItemIterator.Key()
+			}
+			Set VhossKastMetAantallen.AantalLades = Aantal
+			Set VhossKastMetAantallen.AantalLadesGescand = AantallenGescandPerVhoss.GeefFrequentieVanItem(VhossKastMetAantallen.Vhosskast)
+			If $$$Not(VhossKastMetAantallen.AantalLades = VhossKastMetAantallen.AantalLadesGescand) {
+				Do Response.VhossKastenMetAantallen.Insert(VhossKastMetAantallen)
+			}
+		}
+		
+		#dim PalletIterator As TECH.Iterator = AantallenPerVhoss.GeefItemIterator()
+		While PalletIterator.HasNext() {
+			Do PalletIterator.Next()
+			#dim Pallet As %String = PalletIterator.Key()
+			If ##class(TECH.StringUtils).StartsWith(Pallet, "O1") {
+				Do ..BufferHelper.DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaPalletCodeEnRecent(Pallet), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), , Pallet, RondAfVhossBatchRequest.Header.Initialen)
+			}
+		}
+			
 		Set Response.Header.Status = "200"
+		
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
@@ -506,6 +910,173 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaKlantnummer">
+<FormalSpec>ZoekViaKlantnummerRequest:WS.Halux.AAP.ZoekViaKlantnummerRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaKlantnummerResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaKlantnummerResponse).%New()
+	
+	Try {		
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaKlantnummer(ZoekViaKlantnummerRequest.Klantnummer)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			While DnaCodeIterator.HasNext() {
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor Klantnummer '"_ZoekViaKlantnummerRequest.Klantnummer_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaLadecode">
+<FormalSpec>ZoekViaLadecodeRequest:WS.Halux.AAP.ZoekViaLadecodeRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaLadecodeResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaLadecodeResponse).%New()
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaLadecodeEnRecent(ZoekViaLadecodeRequest.Ladecode)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			While DnaCodeIterator.HasNext() {
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor Ladecode '"_ZoekViaLadecodeRequest.Ladecode_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaOrdernummer">
+<FormalSpec>ZoekViaOrdernummerRequest:WS.Halux.AAP.ZoekViaOrdernummerRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaOrdernummerResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaOrdernummerResponse).%New()
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaOrdernummer(ZoekViaOrdernummerRequest.Ordernummer)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			While DnaCodeIterator.HasNext() {
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor Ordernummer '"_ZoekViaOrdernummerRequest.Ordernummer_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaBatch">
+<FormalSpec>ZoekViaBatchRequest:WS.Halux.AAP.ZoekViaBatchRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaBatchResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaBatchResponse).%New()
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchId(ZoekViaBatchRequest.BatchId)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			While DnaCodeIterator.HasNext() {
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+			}
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor BatchId '"_ZoekViaBatchRequest.BatchId_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="BewerkKlantinstellingen">
+<FormalSpec>BewerkKlantInstellingen:WS.Halux.AAP.BewerkKlantinstellingenRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.BewerkKlantinstellingenResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim Klantinstellingen As DOM.Halux.AAP.Klantinstellingen
+	#dim KlantinstellingenIterator As TECH.Iterator
+	Set Response = ##class(WS.Halux.AAP.BewerkKlantinstellingenResponse).%New()
+	Try {
+		If BewerkKlantInstellingen.Actie = "Upsert" {
+			Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(BewerkKlantInstellingen.KlantId)
+			If KlantinstellingenIterator.HasNext() {
+				Set Klantinstellingen = KlantinstellingenIterator.Next()
+				Set Klantinstellingen.IsExport = BewerkKlantInstellingen.IsExport
+				Set Klantinstellingen.IsBlumXs = BewerkKlantInstellingen.IsBlumXs
+				Set Klantinstellingen.WegwerpPallet = BewerkKlantInstellingen.WegwerpPallet
+				Set Klantinstellingen.HalvePallet = BewerkKlantInstellingen.HalvePallet
+				Set Klantinstellingen.KartonnenPallet = BewerkKlantInstellingen.KartonnenPallet
+				Set Klantinstellingen.MeerdereToeleveringen = BewerkKlantInstellingen.MeerdereToeleveringen
+				
+				Do ..KlantinstellingenRepository.Bewaar(Klantinstellingen)
+			} Else {
+				If ..VerkoopAPI.BestaatKlant(BewerkKlantInstellingen.KlantId) {
+					Set Klantinstellingen = ..KlantinstellingenRepository.Maak()
+					Set Klantinstellingen.KlantId = BewerkKlantInstellingen.KlantId
+					Set Klantinstellingen.IsExport = BewerkKlantInstellingen.IsExport
+					Set Klantinstellingen.IsBlumXs = BewerkKlantInstellingen.IsBlumXs
+					Set Klantinstellingen.WegwerpPallet = BewerkKlantInstellingen.WegwerpPallet
+					Set Klantinstellingen.HalvePallet = BewerkKlantInstellingen.HalvePallet
+					Set Klantinstellingen.KartonnenPallet = BewerkKlantInstellingen.KartonnenPallet
+					Set Klantinstellingen.MeerdereToeleveringen = BewerkKlantInstellingen.MeerdereToeleveringen
+					
+					Do ..KlantinstellingenRepository.Bewaar(Klantinstellingen)
+				}
+			}
+		} ElseIf BewerkKlantInstellingen.Actie = "Delete" {
+			Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(BewerkKlantInstellingen.KlantId)
+			If KlantinstellingenIterator.HasNext() {
+				Do ..KlantinstellingenRepository.VerwijderViaID(KlantinstellingenIterator.Next().GeefID())
+			}
+		}
+		Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekAlle()
+		While KlantinstellingenIterator.HasNext() {
+			Do Response.Klantinstellingen.Insert(..KlantinstellingenNaarDto(KlantinstellingenIterator.Next()))
+		}
+		Set Response.Header.Status = "200"
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletCodeVanDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
 <Private>1</Private>
@@ -530,22 +1101,27 @@
 	#dim Geslaagd As %Boolean = $$$True
 	If ((DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()) && (DnaCodeAfmeldenRequest.Aantal = -1)) {
 		Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidInput()
-		Set Response.Header.Omschrijving = "Reeds afgesloten. Gebruik 'Hernoem Pallet')"
+		Set Response.Header.Omschrijving = "Reeds afgesloten. Gebruik 'Hernoem Pallet'"
 		Set Geslaagd = $$$False
 	} Else {
 		If ((DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()) && $$$Not(DnaCodeAfmeldenRequest.Aantal = -1)) {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidUserInput()
 			Set Response.Header.Omschrijving = "DnaCode '"_DnaCode.DnaCode_"' reeds gescand ("_DnaCode.PalletCode_")"
 			Set Geslaagd = $$$False
 		} Else {
-			If ($$$HasLength(DnaCodeAfmeldenRequest.Toelevering) && $$$Not(DnaCode.Toelevering = DnaCodeAfmeldenRequest.Toelevering) && $$$Not(##class(TECH.StringUtils).StartsWith(DnaCodeAfmeldenRequest.DnaCode,"K"))) {
+			If ($$$HasLength(DnaCodeAfmeldenRequest.Toelevering) && $$$Not(DnaCode.Toelevering = DnaCodeAfmeldenRequest.Toelevering) && $$$Not(##class(TECH.StringUtils).StartsWith(DnaCodeAfmeldenRequest.DnaCode,"K")) && $$$Not(..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode))) {
 				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidInput()
 				Set Response.Header.Omschrijving = "Toeleveringen verschillend: '"_DnaCodeAfmeldenRequest.Toelevering_"' en '"_DnaCode.Toelevering_"'"
 				Set Geslaagd = $$$False
 			} Else {
 				If $$$HasLength(DnaCode.PalletCode) && $$$Not(DnaCodeAfmeldenRequest.Aantal=-1) {
 					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidInput()
-					Set Response.Header.Omschrijving = "PalletCode reeds ingevuld voor '"_DnaCodeAfmeldenRequest.DnaCode_"' ("_DnaCode.PalletCode_")"
+					If ##class(TECH.StringUtils).StartsWith(DnaCodeAfmeldenRequest.DnaCode,"K") {
+						Set Response.Header.Omschrijving = "Locatie reeds ingevuld voor '"_DnaCodeAfmeldenRequest.DnaCode_"' ("_DnaCode.PalletCode_")"
+					} Else {
+						Set Response.Header.Omschrijving = "Palletcode reeds ingevuld voor '"_DnaCodeAfmeldenRequest.DnaCode_"' ("_DnaCode.PalletCode_")"
+					}
+					
 					Set Geslaagd = $$$False
 				}
 			}
@@ -565,7 +1141,7 @@
 	Set DnaCodeDto.AxProductieOrderNummer = DnaCode.AxProductieOrderNummer 
 	Set DnaCodeDto.ProductNummer = DnaCode.ProductNummer 
 	Set DnaCodeDto.DnaCode = DnaCode.DnaCode 
-	Set DnaCodeDto.PalletCode = DnaCode.PalletCode 
+	Set DnaCodeDto.PalletCode = DnaCode.PalletCode
 	Set DnaCodeDto.Toelevering = DnaCode.Toelevering 
 	Set DnaCodeDto.KlantNummer = DnaCode.KlantNummer 
 	Set DnaCodeDto.Locatie = DnaCode.Locatie 
@@ -578,11 +1154,32 @@
 	Set DnaCodeDto.ParentDnaCode = DnaCode.ParentDnaCode 
 	Set DnaCodeDto.SequentieNummer = DnaCode.SequentieNummer 
 	Set DnaCodeDto.IsWegwerpPallet = DnaCode.IsWegwerpPallet
-	Set DnaCodeDto.BatchId = DnaCode.BatchId 
+	Set DnaCodeDto.BatchId = DnaCode.BatchId
+	Set DnaCodeDto.AfdrukTijdstip = DnaCode.AfdrukTijdstip 
 	
 	Quit DnaCodeDto
 ]]></Implementation>
 </Method>
+
+<Method name="KlantinstellingenNaarDto">
+<FormalSpec>Klantinstellingen:DOM.Halux.AAP.Klantinstellingen</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSimpl.Halux.AAP.dto.Klantinstellingen</ReturnType>
+<Implementation><![CDATA[
+	Set KlantinstellingenDto = ##class(WSimpl.Halux.AAP.dto.Klantinstellingen).%New()
+	
+	Set KlantinstellingenDto.KlantId = Klantinstellingen.KlantId 
+	Set KlantinstellingenDto.IsExport = Klantinstellingen.IsExport
+	Set KlantinstellingenDto.IsBlumXs = Klantinstellingen.IsBlumXs
+	Set KlantinstellingenDto.Klantnaam = ..VerkoopAPI.GeefKlant(Klantinstellingen.KlantId).GeefNaam()
+	Set KlantinstellingenDto.WegwerpPallet = Klantinstellingen.WegwerpPallet
+	Set KlantinstellingenDto.HalvePallet = Klantinstellingen.HalvePallet
+	Set KlantinstellingenDto.KartonnenPallet = Klantinstellingen.KartonnenPallet
+	Set KlantinstellingenDto.MeerdereToeleveringen = Klantinstellingen.MeerdereToeleveringen
+	
+	Quit KlantinstellingenDto
+]]></Implementation>
+</Method>
 </Class>