Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r34198 -r57008
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 34198)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 57008)
@@ -15,6 +15,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HoekprofielPositieBepaler">
+<Type>APPS.Halux.common.impl.SequentieService.HoekprofielPositieBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>HoekprofielPositieBepaler:APPS.Halux.common.impl.SequentieService.HoekprofielPositieBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HoekprofielPositieBepaler = $$$Inject(HoekprofielPositieBepaler, ##class(APPS.Halux.common.impl.SequentieService.HoekprofielPositieBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefSequentieIterator">
 <FormalSpec>BatchID:%Integer</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -278,6 +296,7 @@
 
 			If (ProductTypeAPI.IsTAORboxProduct(ProductLijn.GeefProductID())) {				
 				#dim TAORbox As DOM.PM.TAORProduct.TAORLade = ProductTypeAPI.GeefTAORboxProduct(ProductLijn.GeefProductID())
+				#dim IsFlatpackProboxVerpakking As %Boolean = (TAORbox.GeefVerpakking() = ##class(DOM.PM.enu.Verpakking).FlatpackProbox())
 				#dim WPLosOnderdeel As DS.PPS.TBX.sub.emWPLosOnderdeel = ..GeefWPLosOnderdeel(TAORbox.GeefID())
 				#dim WPVerpak As DS.PPS.TBX.sub.emWPVerpak = ..GeefWPVerpak(TAORbox.GeefID())
 				#dim i As %Integer
@@ -290,7 +309,7 @@
 					
 					Set Queue.TOENr = Toelevering.GeefID()
 					Set Queue.TLUNr = ProductLijn.GeefID()
-					Set Queue.DOSNr = TAORbox.GeefDossierNr()
+					Set Queue.DOSNr = $$$If(IsFlatpackProboxVerpakking,..GeefDOSNrIndienFlatpackProboxVerpakking(TAORbox),TAORbox.GeefDossierNr())
 					Set Queue.Sequence = $Increment(SequenceNr)
 					Set Queue.TotaalAantal = ProductLijn.GeefAantal()
 					Set Queue.DeelAantal = i
@@ -403,6 +422,14 @@
 	Quit IsActief
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDOSNrIndienFlatpackProboxVerpakking">
+<FormalSpec>TAORbox:DOM.PM.TAORProduct.TAORLade</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit TAORbox.GeefDossierNr() _ " " _ ..HoekprofielPositieBepaler.GeefHoekprofielPositieCode(TAORbox)
+]]></Implementation>
+</Method>
 </Class>