Index: APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml
===================================================================
diff -u -r71537 -r71538
--- APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml	(.../MaatwerkProductEtiketten.cls.xml)	(revision 71537)
+++ APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml	(.../MaatwerkProductEtiketten.cls.xml)	(revision 71538)
@@ -80,6 +80,7 @@
 	
 	If (..BevatBatchSpecialeLade) {
 		Do ..VoegToeLeegTussenEtiket()
+		Do ..VoegToeExtraEtikettenSpecialeLadesVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep)
 	}
 	
 	Quit ..Etiketten
@@ -103,6 +104,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeExtraEtikettenSpecialeLadesVoorUitvoeringLijst">
+<FormalSpec>UitvoeringInfoIt:TECH.ListIterator,IsKlantEtiketSpaceStep:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do UitvoeringInfoIt.Reset()
+	
+	While UitvoeringInfoIt.HasNext(){
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo = UitvoeringInfoIt.Next()
+		#dim Product As DOM.PM.MaatwerkProduct = ..ProductAPI.GeefProduct(UitvoeringInfo.ProductID)
+		#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+		
+		If (..IsSpecialeLade(Ingegevenkenmerken)) {
+			Try {
+				#dim Etiket As APPS.common.Print.AbstractLabel
+				
+				If $Length(UitvoeringInfo.VHOSSID) {
+					Set Etiket = ..EtiketBuilder.MaakMaatwerkProductInVHossViaVHossProdSeqItem(UitvoeringInfo)
+				} Else {
+					#dim ToeleveringID As %String = UitvoeringInfo.ToeleveringID
+					Set Etiket = ..EtiketBuilder.MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,UitvoeringInfo.ToeleveringLijnID,1,UitvoeringInfo.PrinterID,UitvoeringInfo.SequentieNummer,,,IsKlantEtiketSpaceStep)
+				}
+				Do ..Etiketten.Insert(Etiket)
+			} Catch {
+				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+				Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()
+				Set UitvoeringInfo.Opmerking = Exception.ToString()
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeEtiketVoorUitvoeringInfo">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,IsKlantEtiketSpaceStep:%Boolean=$$$False</FormalSpec>
 <Private>1</Private>