Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62867 -r75015
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62867)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 75015)
@@ -33,13 +33,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="UGLYPickingWrapper">
-<Type>WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="KlantinstellingenRepository">
-<Type>vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository</Type>
+<Type>DOM.Halux.AAP.KlantinstellingenRepository</Type>
 <Private>1</Private>
 </Property>
 
@@ -73,8 +68,37 @@
 <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="",UGLYPickingWrapper:WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper="",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=""</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>
@@ -85,14 +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 ..UGLYPickingWrapper = $$$Inject(UGLYPickingWrapper, ##class(WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper).%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 = ##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())
+	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>
@@ -363,8 +392,15 @@
 				
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
+				#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 ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
 					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 					Set Response.Header.Status = "200"
@@ -389,6 +425,9 @@
 					Set Response.AantalInToelevering = AantalInToelevering
 					Set Response.AantalReedsGescand = AantalReedsGescand
 				}
+				
+				Set ToeleveringId = DnaCode.Toelevering
+				Set Response.IsSST = ..ToeleveringService.HeeftToeleveringMinstensEenSpaceStep(ToeleveringId)				
 			}
 				
 		}
@@ -440,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()
@@ -483,14 +522,13 @@
 		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_"'"
 		}
 	} 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())
@@ -499,46 +537,51 @@
 ]]></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 %Integer	
-
-	While DnaCodeIterator.HasNext() {
-		Set DnaCode = DnaCodeIterator.Next()
-		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()
+	#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.PalletCode = PalletBijwerkenRequest.PalletCode
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
+				Do ListOfDnaCodes.Insert(DnaCode)
 			}
 		}
-	}
-	If $isObject(DnaCode) {	
-		If Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer() {
-			#dim RGID = ..BepaalRGIDviaDnaCode(DnaCode)
-			Set VolgNr = ..UGLYPickingWrapper.BuildBufferViaDnaCode(Toelevering, Pallet, Initialen, RGID)
-			Do ..UGLYPickingWrapper.CloseAndHandleBuffer(VolgNr, RGID)
+		
+		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="BepaalRGIDviaDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim Resultaat As %String = "~tmp"
-	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"K") {
-		Set Resultaat = "KD"
-	} Else {
-		Set Resultaat = "TB"
-	}
-	Quit Resultaat
-]]></Implementation>
-</Method>
-
 <Method name="HernoemPallet">
 <FormalSpec>HernoemPalletRequest:WS.Halux.AAP.HernoemPalletRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.HernoemPalletResponse</ReturnType>
@@ -597,14 +640,20 @@
 					
 					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(OudePalletCode, NieuwePalletCode)
+								Do ..InventarisService.HernoemPallet(OudePalletCodeEWMSCompatibel, NieuwePalletCodeEWMSCompatibel)
 							} Else {
-								Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New("Deze actie is niet mogelijk"))
-								/*#dim Locatie As DOM.MAG.MagazijnLocatie = ..InventarisService.GeefLocatieVoorDrager(OudePalletCode).GeefCode()
-								Do ..InventarisService.VerplaatsPallet(OudePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit())
-								Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)
-								Do ..InventarisService.VerplaatsPallet(OudePalletCode,Locatie)*/
+								//nieuwepalletcode bestaat niet in ewms -> error   //16:05 8/12
+								Do ..InventarisService.VoerBijladenUit(OudePalletCodeEWMSCompatibel, NieuwePalletCodeEWMSCompatibel, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)
+								
 							}
 						}
 					}
@@ -624,6 +673,21 @@
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					
+					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"
 					Set Response.Header.Omschrijving = "Pallet is succesvol gewijzigd"
 					Set Response.Header.OmschrijvingVoorLogging = "Pallet is succesvol gewijzigd van '"_OudePalletCode_"' naar '"_NieuwePalletCode_"'"
@@ -674,7 +738,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()
@@ -685,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()
@@ -737,7 +809,7 @@
 					Set AantalKaderdeurenGescand = AantalKaderdeurenGescand + 1
 				}
 			}
-			Do ..DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), ToeleveringId, ,RondAfKaderdeurDagRequest.Header.Initialen)
+			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
@@ -823,7 +895,7 @@
 			Do PalletIterator.Next()
 			#dim Pallet As %String = PalletIterator.Key()
 			If ##class(TECH.StringUtils).StartsWith(Pallet, "O1") {
-				Do ..DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaPalletCodeEnRecent(Pallet), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), , Pallet, RondAfVhossBatchRequest.Header.Initialen)
+				Do ..BufferHelper.DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaPalletCodeEnRecent(Pallet), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), , Pallet, RondAfVhossBatchRequest.Header.Initialen)
 			}
 		}
 			
@@ -963,16 +1035,24 @@
 			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)
 				}
 			}
@@ -1061,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 
@@ -1089,9 +1169,12 @@
 	Set KlantinstellingenDto = ##class(WSimpl.Halux.AAP.dto.Klantinstellingen).%New()
 	
 	Set KlantinstellingenDto.KlantId = Klantinstellingen.KlantId 
-	Set KlantinstellingenDto.IsExport = Klantinstellingen.IsExport 
+	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