Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60245 -r74747
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60245)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 74747)
@@ -15,23 +15,48 @@
 <Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
 </Property>
 
-<Property name="ProjectSettingsApi">
+<Property name="ProjectSettingsAPI">
 <Type>DOM.common.ProjectSettingsAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DateTimeApi">
+<Property name="DateTimeAPI">
 <Type>TECH.DateTime.DateTimeAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProductApi">
+<Property name="ProductAPI">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="SequentieService">
+<Type>APPS.Halux.common.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfiguratorService">
+<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenSpaceStepHelper">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCodeServiceHelper">
+<Type>APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="",ProductAPI:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService="",Logger:vhLib.Logger="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper="",DnaCodeServiceHelper:APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,9 +65,14 @@
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	Set ..DnaCodeGenerator = $$$Inject(DnaCodeGenerator, ##class(APPS.Halux.AAP.DnaCodeGenerator).%New())
-	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
-	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
-	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
+	Set ..ConfiguratorService = $$$Inject(ConfiguratorService,##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
+	Set ..IngegevenKenmerkenSpaceStepHelper = $$$Inject(IngegevenKenmerkenSpaceStepHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New())
+	Set ..DnaCodeServiceHelper = $$$Inject(DnaCodeServiceHelper, ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(DnaCodeGenerator, DnaCodeRepository, ProductTypeAPI, ProductAPI, ConfiguratorService, IngegevenKenmerkenSpaceStepHelper))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -69,9 +99,9 @@
 			
 			#dim Teller As %Integer = 1
 			While Teller <= ToeleveringLijn.GeefAantal() {
-				Set DnaCode = ..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
+				Set DnaCode = ..DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
 				If ParentCodeVoorToeleveringLijn = "" {
-					Set ParentCodeVoorToeleveringLijn = ..BepaalParentDnaCode(DnaCode)
+					Set ParentCodeVoorToeleveringLijn = ..DnaCodeServiceHelper.BepaalParentDnaCode(DnaCode, Batch)
 				}
 				Set DnaCode.ParentDnaCode = ParentCodeVoorToeleveringLijn
 				Do DnaCodes.Insert(DnaCode)
@@ -122,7 +152,7 @@
 		}
 	}
 	While DnaCodeTeller < ToeleveringLijn.GeefAantal() {
-		Do ..DnaCodeRepository.Bewaar(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn))
+		Do ..DnaCodeRepository.Bewaar(..DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn))
 		Set DnaCodeTeller = DnaCodeTeller + 1
 	}
 ]]></Implementation>
@@ -147,85 +177,223 @@
 			If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw() {
 				Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
 				Set DnaCode.Lijn = Batch.GeefLijn()
-				Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()
+				Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet(Toelevering.GeefID())
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 			}
 		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="MaakDnaCodeVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
+<Method name="GeefVolgendeAfTeDrukkenDnaCode">
+<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="",Herafdruk:%Boolean=$$$False,BatchId:%String="",IsKlantEtiketSpaceStep:%Boolean=$$$False</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
-	#dim Toelevering As DOM.AKP.Toelevering= ToeleveringLijn.GeefToelevering()
-	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode.ProductNummer = ProductID
-	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ProductID))
-	Set DnaCode.Toelevering = Toelevering.GeefID()
-	Set DnaCode.KlantNummer = Toelevering.GeefKlantID()
-	Set DnaCode.ParentDnaCode = ""
-	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
-	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
-	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
-	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
-	If (..ProductApi.GeefProduct(ProductID).%Extends("DOM.PM.MaatwerkProduct")) {
-		Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
+	If $$$Not(..ProjectSettingsAPI.IsActiefDnaCodeOpEtiket()) {
+		Quit ""
 	}
-	If $IsObject(Batch) {
-		Set DnaCode.BatchId = Batch.GeefID()
-		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()
-		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
-		Set DnaCode.Lijn = Batch.GeefLijn()
+	If ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie() = "IntegratieTest" {
+		Quit "TestDnaCode"
 	}
-	Quit DnaCode
+	
+	#dim Result As %String = ""
+	#dim DnaCodeIterator As TECH.Iterator
+	If Herafdruk {
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer)
+	} ElseIf (IsKlantEtiketSpaceStep && (SequentieNummer > 0)) {
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringEnSequentienummerEnRecent(ToeleveringID, SequentieNummer)
+	} Else {
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnStatusEnRecent(ToeleveringID,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	}
+	
+	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
+	While DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		If ..DnaCodeServiceHelper.MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk, SequentieNummer) {
+			If ($$$HasLength(SequentieNummer) && $$$Not(..DnaCodeServiceHelper.IsSpaceStepGeneriekProduct(DnaCode,ProductID))) {
+				Set DnaCode.SequentieNummer = SequentieNummer
+			}
+			Set DnaCode.AfdrukTijdstip = ..DateTimeAPI.CurrentHorolog()
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
+			Set Result = DnaCode.DnaCode
+			Quit
+		}
+	}
+	
+	If $$$Not($$$HasLength(Result)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen nog niet afgedrukte barcode gevonden voor Toelevering '"_ToeleveringID_"' en product '"_ProductID_"'"))
+	}
+	
+	Quit Result
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalParentDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<Private>1</Private>
+<Method name="VulInSequentieId">
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String,ProductId:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Try {
+		Do ..Logger.Info("APPS.Halux.AAP.DnaCodeService", "VulInSequentieId voor "_SequentieId_ "/" _BatchId_" / "_ToeleveringId_" / "_ToeleveringlijnId_".")
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
+		
+		If DnaCodeIterator.HasNext() {
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+			Set DnaCode.SequentieNummer = SequentieId
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
+			
+			#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
+			If (DnaCodeIterator.HasNext() && (Product.%Extends("DOM.PM.MaatwerkProduct"))) {
+				#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+				
+				If (..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(IngegevenKenmerken)) {
+					#dim Gevonden As %Boolean = $$$False
+					#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = ""
+			
+					While (DnaCodeIterator.HasNext() && $$$Not(Gevonden)) {
+						Set VolgendeDnaCode = DnaCodeIterator.Next()
+						
+						If ($$$Not(##class(TECH.StringUtils).StartsWith(VolgendeDnaCode.DnaCode, $Extract(DnaCode.DnaCode, 1)))) {
+							Set VolgendeDnaCode.SequentieNummer = SequentieId
+							Do ..DnaCodeRepository.Bewaar(VolgendeDnaCode)
+							Set Gevonden = $$$True
+						}
+					}					
+				}
+			}
+			
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Warning("APPS.Halux.AAP.DnaCodeService", "Geen SequentieId ingevuld voor "_BatchId_" / "_ToeleveringId_" / "_ToeleveringlijnId_".")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefDnaCodeVoorDubbeleAfdruk">
+<FormalSpec>BatchId:%String,Sequentienummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ParentCode As %String = ""
-	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") {
-		Set ParentCode = DnaCode.DnaCode
+	#dim DnaCode As %String = ""
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, Sequentienummer)
+	#dim DnaCodeLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
+		
+	If (DnaCodeLijst.Size = 1) {
+		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
+		Set DnaCode = DnaCodeObject.DnaCode
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataCorruptException).%New("Er zijn '" _ DnaCodeLijst.Size _ "' DnaCodes gevonden in plaats van 1 voor BatchId '" _ BatchId _" en SequentieNummer '" _ Sequentienummer _ "'."))
 	}
 	
-	Quit ParentCode
+	Quit DnaCode
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVolgendeAfTeDrukkenDnaCode">
-<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String=""</FormalSpec>
+<Method name="GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent">
+<FormalSpec>ToeleveringId:%String,SequentieNummer:%String,ProductNummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If $$$Not(..ProjectSettingsApi.IsActiefDnaCodeOpEtiket()) {
-		Quit ""
+	#dim DnaCode As %String = ""
+	#dim DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(ToeleveringId, SequentieNummer, ProductNummer)
+	#dim DnaCodeLijst As %ListOfDataTypes = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
+	
+	If (DnaCodeLijst.Size = 1) {
+		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
+		Set DnaCode = DnaCodeObject.DnaCode
+	} ElseIf (DnaCodeLijst.Size = 0) {
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New("Geen Dnacode gevonden voor toelevering '" _ ToeleveringId _ "', product '" _ ProductNummer _ "' en sequentienummer '" _ SequentieNummer _ "'.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	} ElseIf (DnaCodeLijst.Size > 1) {
+		Set Exception = ##class(TECH.Exceptions.DataCorruptException).%New("Meerdere dnacodes gevonden voor toelevering '" _ ToeleveringId _ "', product '" _ ProductNummer _ "' en sequentienummer '" _ SequentieNummer _ "'.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
-	#dim Result As %String = ""
-	#dim DnaCodeIterator As TECH.Iterator
-	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnStatus(ToeleveringID,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
-	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
+	
+	Quit DnaCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefDnaCodesViaBatchIdEnSequentienummer">
+<FormalSpec>BatchId:%String,Sequentienummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, Sequentienummer)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVanProductOpPallet">
+<FormalSpec>ProdutNummer:%String,PalletCode:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 0
+	#dim DnaCodeIterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		If ((DnaCode.AfdrukTijdstip = "") && (DnaCode.ProductNummer = ProductID)) {
-			Set DnaCode.SequentieNummer = SequentieNummer
-			Set DnaCode.AfdrukTijdstip = ..DateTimeApi.CurrentHorolog()
-			Do ..DnaCodeRepository.Bewaar(DnaCode)
-			Set Result = DnaCode.DnaCode
-			Quit
+		Set:(DnaCode.ProductNummer = ProdutNummer) Aantal = Aantal + 1
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefPalletKantABVoorProduct">
+<FormalSpec>ProductNummer:%String,PalletCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PalletKantAB = ""
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+		#dim DnaCode As DOM.Halux.AAP.DnaCode
+		
+		While DnaCodeIterator.HasNext() {
+			Set DnaCode = DnaCodeIterator.Next()
+			
+			If ((DnaCode.ProductNummer = ProductNummer) && ..IsABPalletCode(DnaCode.PalletCode) && $$$Not(##class(TECH.StringUtils).Contains(PalletKantAB, $Extract(DnaCode.PalletCode, 9)))) {
+				Set PalletKantAB = PalletKantAB _ $Extract(DnaCode.PalletCode, 9)
+			}
 		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Error("APPS.Halux.AAP.DnaCodeService", Exception)
 	}
 	
-	If $$$Not($$$HasLength(Result)) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen nog niet afgedrukte barcode gevonden voor Toelevering '"_ToeleveringID_"' en product '"_ProductID_"'"))
+	Quit PalletKantAB
+]]></Implementation>
+</Method>
+
+<Method name="IsIngekortePalletCodeVanABPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+	Quit:$$$Not(DnaCodeIterator.HasNext()) $$$False
+	
+	#Dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+	Quit ..IsABPalletCode(DnaCode.PalletCode)
+]]></Implementation>
+</Method>
+
+<Method name="IsABPalletCode">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (($Length(PalletCode) = 9) && (($Extract(PalletCode, 9) = "A") || ($Extract(PalletCode, 9) = "B")))
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieLijnVoorPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim Lijn As %Integer = ""
+	
+	If DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		Set Lijn = DnaCode.Lijn
 	}
 	
-	Quit Result
+	Quit Lijn
 ]]></Implementation>
 </Method>
 </Class>