Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r63610 -r71541
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 63610)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 71541)
@@ -31,6 +31,45 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="BevatBatchSpecialeLade">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set ..ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="PrintKlantEtiket">
 <FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters,DnaCodeIterator:TECH.Iterator=""</FormalSpec>
 <Implementation><![CDATA[
@@ -40,8 +79,19 @@
 	If ($$$Not($IsObject(DnaCodeIterator))) {
 		Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
 		Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
+		
+		If (..BevatBatchSpecialeLade) {
+			 Do ..VoegToeLeegTussenEtiket()
+			 Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True)
+		}
+		
 	} Else {		
 		Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters)
+		
+		If (..BevatBatchSpecialeLade) {
+			 Do ..VoegToeLeegTussenEtiket()
+			 Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True)
+		}
 	}
 
 	
@@ -77,10 +127,9 @@
 </Method>
 
 <Method name="BepaalEtiketten">
-<FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer,IsExtraEtiketVoorSpecialLades:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	#dim VoorkeurPrinter As %String = "HALUX"	
 	#dim BatchID As TECH.String = Batch.GeefID()
 	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..GeefGroepering(BatchID)
@@ -96,15 +145,14 @@
 		While (DataIterator.HasNext() && ($$$Not(PrintSpecifiekEtiket) || $$$Not(IsSpecifiekEtiketGeprint))) {
 			#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie = DataIterator.Next()
 			#dim ToeleveringID As %String = SequenceInfo.ToeleveringID
-			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)			
-			#dim QueueID As %String = SequenceInfo.QueueID
+			#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)			
 			#dim ToeleveringLijnID As %String = SequenceInfo.ToeleveringLijnID
 			#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
 			#dim AantalEtiketten As %Integer = 0
+			#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(SequenceInfo.ProductID)
 
 			If (PrintSpecifiekEtiket) {
 				If (ToeleveringID = GewensteToeleveringID) {
-					#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(SequenceInfo.ProductID)
 					#dim DossierCode As %String = Product.GeefDossierNr()
 					
 					If (DossierCode = GewensteDossiercode) {
@@ -117,21 +165,37 @@
 			}
 			
 			If (AantalEtiketten > 0) && ..IsPrintenNodig(ToeleveringLijn) {
-				#dim Etiket As BL.Etiket.LadeKlantEtiket = ..GeefEtiket(QueueID, BatchID, ToeleveringID, ToeleveringLijnID, AantalEtiketten, VoorkeurPrinter)			
-				
-				Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
-				Set EtiketDataMetTussenEtiketTrigger.Etiket = Etiket
-				Set EtiketDataMetTussenEtiketTrigger.TussenEtiketTriggerKeyList = ..GeefTussenEtiketTriggerKeyList(Batch, SequenceInfo)
-				
-				Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
+				If (IsExtraEtiketVoorSpecialLades) {
+					#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+					If (..IsSpecialeLade(Ingegevenkenmerken)) {
+						Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn)
+					}
+				} Else {
+					Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn)
+					Do ..CheckBevatBatchSpecialeLade(ToeleveringLijn.GeefProductID())
+				}				
 			}
 		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerStandaardEtiket">
+<FormalSpec>SequenceInfo:APPS.Halux.common.dto.ProductieSequentie,Batch:APPS.Halux.common.Batch,AantalEtiketten:%Integer,VoorkeurPrinter:%String,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..GeefEtiket(SequenceInfo.QueueID, Batch.GeefID(), SequenceInfo.ToeleveringID, SequenceInfo.ToeleveringLijnID, AantalEtiketten, VoorkeurPrinter)			
+				
+	Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
+	Set EtiketDataMetTussenEtiketTrigger.Etiket = Etiket
+	Set EtiketDataMetTussenEtiketTrigger.TussenEtiketTriggerKeyList = ..GeefTussenEtiketTriggerKeyList(Batch, SequenceInfo)
+	
+	Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalEtikettenMetDnaCodes">
-<FormalSpec>DnaCodeIterator:TECH.Iterator,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters</FormalSpec>
+<FormalSpec>DnaCodeIterator:TECH.Iterator,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters,IsExtraEtiketVoorSpecialLades:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do DnaCodeIterator.Reset()
@@ -142,15 +206,32 @@
 		#dim AantalEtiketten As %Integer = 1
 		#dim Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(DnaCode.BatchId)
 		
-		#dim EtiketDnaCode As BL.Etiket.LadeKlantEtiket = ..GeefEtiket(DnaCode.SequentieNummer, DnaCode.BatchId, DnaCode.Toelevering, DnaCode.ToeleveringLijn, AantalEtiketten, VoorkeurPrinter, DnaCode.DnaCode, Parameters.IsHerafdruk())			
-		Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
-		Set EtiketDataMetTussenEtiketTrigger.Etiket = EtiketDnaCode
-				
-		Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
+		If (IsExtraEtiketVoorSpecialLades) {
+			#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(DnaCode.ProductNummer)
+			#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+			
+			If (..IsSpecialeLade(Ingegevenkenmerken)) {
+				Do ..GenereerStandaardEtiketMetDnaCode(DnaCode, AantalEtiketten, VoorkeurPrinter, Parameters)
+			}
+		} Else {
+			Do ..GenereerStandaardEtiketMetDnaCode(DnaCode, AantalEtiketten, VoorkeurPrinter, Parameters)
+		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerStandaardEtiketMetDnaCode">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim EtiketDnaCode As BL.Etiket.LadeKlantEtiket = ..GeefEtiket(DnaCode.SequentieNummer, DnaCode.BatchId, DnaCode.Toelevering, DnaCode.ToeleveringLijn, AantalEtiketten, VoorkeurPrinter, DnaCode.DnaCode, Parameters.IsHerafdruk())			
+	Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
+	Set EtiketDataMetTussenEtiketTrigger.Etiket = EtiketDnaCode
+			
+	Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTussenEtiketTriggerKeyList">
 <FormalSpec>Batch:APPS.Halux.common.Batch,SequenceInfo:APPS.Halux.common.dto.ProductieSequentie</FormalSpec>
 <Private>1</Private>
@@ -245,6 +326,58 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeLeegTussenEtiket">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set LeegTussenEtiket = ##class(BL.Etiket.LadeKlantEtiket).%New("")
+	Set LeegTussenEtiket.Info1 = "LEEG"	
+	Set LeegTussenEtiket.Info3 = "LEEG"
+	Set LeegTussenEtiket.Info4 = "LEEG"
+	Set LeegTussenEtiket.Info2 = "LEEG"
+	#dim LaatsteEtiketVoorToelevering As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger = ..GeefLaatsteEtiket()
+	Set LeegTussenEtiket.Layout = LaatsteEtiketVoorToelevering.Etiket.Layout
+	Set LeegTussenEtiket.Device = LaatsteEtiketVoorToelevering.Etiket.Device
+	
+	Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
+	Set EtiketDataMetTussenEtiketTrigger.Etiket = LeegTussenEtiket
+	
+	Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLaatsteEtiket">
+<Private>1</Private>
+<ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
+<Implementation><![CDATA[	Quit ..Etiketten.GetAt(..Etiketten.Count())
+]]></Implementation>
+</Method>
+
+<Method name="CheckBevatBatchSpecialeLade">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($$$Not(..BevatBatchSpecialeLade)) {
+		#dim Product As DOM.PM.MaatwerkProduct = ..ProductAPI.GeefProduct(ProductId)
+		#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+		
+		Set ..BevatBatchSpecialeLade = ..IsSpecialeLade(Ingegevenkenmerken)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsSpecialeLade">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsSpoelbakeLade As %Boolean = ..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken)
+	#dim IsSifonLade As %Boolean = ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)
+	#dim IsSmalleLade As %Boolean = ..IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken)
+	
+	Quit IsSpoelbakeLade || IsSifonLade || IsSmalleLade
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>