Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r73701 -r75015
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73701)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 75015)
@@ -88,8 +88,17 @@
 <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="",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=""</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>
@@ -104,13 +113,15 @@
 	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>
@@ -381,10 +392,14 @@
 				
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
-				#dim IsDnaCodeVoorSpaceStep As %Boolean = ..DnaCodeHelper.IsSpaceStepGeneriekProduct(DnaCode, DnaCode.ProductNummer)
-				If $$$Not(IsDnaCodeVoorSpaceStep) {
-					Do ..DocumentGenerator.GenereerDocumentVoorObjective(DnaCode.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)
@@ -522,6 +537,51 @@
 ]]></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.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>
@@ -678,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()
@@ -689,6 +749,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>