Index: BL/PPS/OL/sub/pxLabel.cls.xml
===================================================================
diff -u -r1699 -r1701
--- BL/PPS/OL/sub/pxLabel.cls.xml	(.../pxLabel.cls.xml)	(revision 1699)
+++ BL/PPS/OL/sub/pxLabel.cls.xml	(.../pxLabel.cls.xml)	(revision 1701)
@@ -91,6 +91,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="BarCode">
+<Type>%String</Type>
+</Property>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -105,7 +109,7 @@
 			set Gemeente = ..Gemeente
 	}
 	Write ..Label("ORGAREF"),*9,..CommRef,*9,KlantNaam,*9,Gemeente,*9,..BonNr,*9,..OrderRef 
-	Write:Layout["product" *9,..ImgURL,*9,..KortTekst,*9,..LangTekst1,*9,..LangTekst2,*9,..LangTekst3,*9,..LangTekst4,*9,..MultiDeel
+	Write:Layout["product" *9,..ImgURL,*9,..KortTekst,*9,..LangTekst1,*9,..LangTekst2,*9,..LangTekst3,*9,..LangTekst4,*9,..MultiDeel,*9,..BarCode
 	
 	Write $C(13,10)
 	Quit $$$OK
Index: BL/PPS/OL/Inpak.cls.xml
===================================================================
diff -u -r1699 -r1701
--- BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 1699)
+++ BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 1701)
@@ -305,6 +305,7 @@
 	
 	if ($LI(SnijItem,$$$lbPosType) = "O") do
 	. Do ..PrintAllEtiket()
+	. Do:$P(^KU1(..BONNr,"F"),"\")=$$$KlantSFS ..PrintAllEtiket(1)
 	. Set pxInpakInfo.Status = $$$StatusStartOverdoos
 	. Set pxStatus = ..SnijOverdoosStart($LI(SnijItem,$$$lbPosSnijId))
 	. Set:$$$pxStatusIsOK(pxStatus) pxStatus = ..Next(pDir, .pxInpakInfo)
@@ -375,7 +376,7 @@
 	. if +pxInpakRedo.Detail.GetAt(i).AantalRedo > 0 do
 	. . Set lbSnijIDs = lbSnijIDs_$LB($LB(pxInpakRedo.Detail.GetAt(i).SnijID, +pxInpakRedo.Detail.GetAt(i).AantalRedo))
  
-  	Do %blProdOptiBoxSnijden.SnijReDo(..SnijMachineID, lbSnijIDs, , 1)
+  	Do %blProdOptiBoxSnijden.SnijReDo(..SnijMachineID, lbSnijIDs, 9, 1)
 	Quit $$$pxStatusOK
 ]]></Implementation>
 </Method>
@@ -730,18 +731,18 @@
 <Description>
 Bij opstarten van de leveringsbon worden all etiketten eerst gedrukt 
 Dit omdat de kleuren labelprinter veel trager is dan een zwartwit labelprinter</Description>
+<FormalSpec>Forced</FormalSpec>
 <Implementation><![CDATA[
-	
 	Set MemID=..CurID ; onthouden
 	For ID=1:1:..SequenceList.Count() Do
 	. Set ..CurID=ID ; nodig voor method SetCurrentPrinted en CurrentIsPrinted
 	. Set SnijItem=..SequenceList.GetAt(ID)
 	. Set pxInpakInfo = ##class(BL.PPS.OL.pxInpakInfo).%New()
 	. Set pxStatus = ..GetInfo(SnijItem, .pxInpakInfo,ID)
 	. If ($LI(SnijItem,$$$lbPosType) = "OE") Do
-	. . Do ..PrintOverdoos(pxInpakInfo,1,0)
+	. . Do ..PrintOverdoos(pxInpakInfo,1,$G(Forced))
 	. Else  If ($LI(SnijItem,$$$lbPosType) = "P") Do
-	. . Do ..PrintProduct(pxInpakInfo,0)	
+	. . Do ..PrintProduct(pxInpakInfo,$G(Forced))	
 	Set ..CurID=MemID ; terugzetten
 ]]></Implementation>
 </Method>