Index: APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml
===================================================================
diff -u -r51491 -r51492
--- APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51491)
+++ APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51492)
@@ -53,7 +53,17 @@
 	Do ..VulBTItemsFromWSLijn(WebOrderLijn, blTandemBox, WebOrder)
 	
 	#dim GADataProduct As Prod.GAData.Product = ##class(Prod.GAData.Product).BuildFromTemplate(GADataTemplate.%Id())
+	Do GADataProduct.TemplateTmpInit()
+	Do GADataProduct.AutosFromTemplate(,"FILL")
+	Do GADataProduct.KlantSetObjectId(WebOrder.KLNummer)
+	Do blTandemBox.BTValues.SetAt(GADataProduct.TemplateCode,"TemplateCode")
 	
+	Do ..VulInBTItemsNietMeeleveren(blTandemBox, WebOrder)
+	
+	Do blTandemBox.BTValuesToProduct(GADataProduct)
+	Do blTandemBox.BWValuesToProduct(GADataProduct)
+	Do blTandemBox.KMValuesToProduct(GADataProduct,"TBR")
+	
 	Set blTandemBox = ""   ; Close 
 
 	Quit GADataProduct
@@ -106,6 +116,17 @@
 	Do bfwBTItemsFromWSLijn^BL.PR.GA.TB.tmpDev2(WebOrderLijn, blTandemBox)
 ]]></Implementation>
 </Method>
+
+<Method name="VulInBTItemsNietMeeleveren">
+<FormalSpec>blTandemBox:BL.PR.GA.TandemBox,WebOrder:WS.TBX.Order</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Do bfwSetNietMeeItems^BL.PR.GA.TB.tmpDev2(blTandemBox,WebOrder.NietMeeleveren)
+	Do bfwFBevestNML^BL.PR.GA.TB.tmpDev2(blTandemBox)
+	Do bfwResetNMItemsBinnenlade^BL.PR.GA.TB.tmpDev2(blTandemBox)
+]]></Implementation>
+</Method>
 </Class>
 
 
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")