Index: APPS/Halux/PPS/impl/AansturingActie/common/Bestelbon.cls.xml
===================================================================
diff -u -r73747 -r74619
--- APPS/Halux/PPS/impl/AansturingActie/common/Bestelbon.cls.xml	(.../Bestelbon.cls.xml)	(revision 73747)
+++ APPS/Halux/PPS/impl/AansturingActie/common/Bestelbon.cls.xml	(.../Bestelbon.cls.xml)	(revision 74619)
@@ -17,35 +17,44 @@
 		#dim ToeleveringIt As TECH.Iterator = Batch.GeefToeleveringIterator()
 		while ToeleveringIt.HasNext() {
 			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIt.Next()
-			Do:..IsBestelbonNodigVoorToelevering(Toelevering) ..VoerUitVoorToelevering(Toelevering.GeefID(),Printer)
+			#dim AantalBestelbonNodigVoorToelevering As %Integer = ..GeefAantalBestelbonNodigVoorToelevering(Toelevering)
+			#dim Index As %Integer
+			For Index=1:1:AantalBestelbonNodigVoorToelevering {
+				Do ..VoerUitVoorToelevering(Toelevering.GeefID(),Printer)
+			}
 		}
 	}
 	quit ..GeefGeslaagdAansturingResultaat()
 ]]></Implementation>
 </Method>
 
-<Method name="IsBestelbonNodigVoorToelevering">
+<Method name="GeefAantalBestelbonNodigVoorToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsBestelBonNodigVoorToelevering As %Boolean = $$$True
+	#dim AantalBestelbonNodigVoorToelevering As %Integer = 1
 	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 	
 	If ProductLijnIterator.HasNext() {
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 		#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 		#dim ProductID As TECH.String = ProductLijn.GeefProductID()
+		
 		If ProductTypeAPI.IsTAORboxProduct(ProductID) && (ProductTypeAPI.IsMaatwerkProduct(ProductID)) {
 			#dim Product As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
 			#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
-			If ($$$Not(IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())) {
-				Set IsBestelBonNodigVoorToelevering = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsGemonteerdeLade(IngegevenKenmerken)
+			If (($$$Not(IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())) && $$$Not(##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsGemonteerdeLade(IngegevenKenmerken))) {
+				Set AantalBestelbonNodigVoorToelevering = 0
 			}
 		}
+		
+		If (ProductTypeAPI.IsInkortingProduct(ProductID)) {
+			Set AantalBestelbonNodigVoorToelevering = 2
+		}
 	}
 	
-	Quit IsBestelBonNodigVoorToelevering
+	Quit AantalBestelbonNodigVoorToelevering
 ]]></Implementation>
 </Method>