Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r51491 -r51492
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 51491)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 51492)
@@ -122,9 +122,9 @@
 	Do Prod.AutosFromTemplate(,"FILL")
 	Do:(KLNrProd) Prod.KlantSetObjectId(KLNrProd)
 	Do blTBox.BTValues.SetAt(Prod.TemplateCode,"TemplateCode")
-	Do bfwSetNietMeeItems(pdlNietMee)
-	Do bfwFBevestNML
-	Do bfwResetNMItemsBinnenlade   ; Reling/boxside worden sowieso gemonteerd op een binnenlade 
+	Do bfwSetNietMeeItems(blTBox,pdlNietMee)
+	Do bfwFBevestNML(blTBox)
+	Do bfwResetNMItemsBinnenlade(blTBox)   ; Reling/boxside worden sowieso gemonteerd op een binnenlade 
 	Do blTBox.BTValuesToProduct(Prod)
  	Do blTBox.BWValuesToProduct(Prod)
 	Do blTBox.KMValuesToProduct(Prod,"TBR")
@@ -227,7 +227,7 @@
 	. Do blTBox.BTValues.SetAt(TBVal,Key)
 	Set LCode=""   ; Close
 	Quit
-bfwSetNietMeeItems(pdlNietMee)   ; Niet Meeleveren  is gedefinieerd op Hoofding-niveau en niet op Lijn-niveau 
+bfwSetNietMeeItems(blTBox,pdlNietMee)   ; Niet Meeleveren  is gedefinieerd op Hoofding-niveau en niet op Lijn-niveau 
 	Quit:(pdlNietMee="")
 	New lbNietMee,i
 	Set lbNietMee=""
@@ -266,7 +266,7 @@
 	Set:(pdlNietMee["WMASM" ) lbWelMee=lbWelMee_$LB("NMAntislipmat")
 	For i=1:1:$LL(lbWelMee) Do:(1) blTBox.BTValues.SetAt(0,$LI(lbWelMee,i))
 	Quit
-bfwFBevestNML   ; FrontBevestiging Niet Meeleveren bij  Lade ZONDER FB (excl. Binnenlade) !
+bfwFBevestNML(blTBox)   ; FrontBevestiging Niet Meeleveren bij  Lade ZONDER FB (excl. Binnenlade) !
 	If (blTBox.BTValues.GetAt("TBFBevestiging")="NM") || ((blTBox.BTValues.GetAt("TBFBevestiging")="Z")&&(blTBox.BTValues.GetAt("TBLadeType")'="B")) Do
 	. Do blTBox.BTValues.SetAt("S","TBFBevestiging")
 	. Do blTBox.BTValues.SetAt(1,"NMFBevestiging") 
@@ -277,9 +277,9 @@
 	For  Set Key=$O(blTBox.LookUp(Key)) Quit:(Key'?1"NM".E)  Do
 	. Quit:(Key?1(1"NMBlumoBehuizing",1"NMAntislipmat"))
 	. Do:('blTBox.BTValues.IsDefined(Key)) blTBox.BTValues.SetAt(1,Key) 
-	;Do bfwResetNMItemsBinnenlade   // de oproep is nu verhuisd naar  bfwProductFromWSLijn  
+	;Do bfwResetNMItemsBinnenlade(blTBox)   // de oproep is nu verhuisd naar  bfwProductFromWSLijn  
 	Quit
-bfwResetNMItemsBinnenlade
+bfwResetNMItemsBinnenlade(blTBox)
 	; Binnenlade kan NIET gemonteerd worden zonder Reling, dus NMZijReling terug op 0 zetten
 	If (blTBox.BTValues.GetAt("TBLadeType")="B")&&(blTBox.BTValues.GetAt("TBBoxSide")'="ZR") Do   ; binnenlade met reling/boxside
 	. Do blTBox.BTValues.SetAt(0,"NMZijReling")