Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r64454 -r64709
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 64454)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 64709)
@@ -363,7 +363,7 @@
 	Do:(..KlantInstellingenService.MoetVhossNummerOpLeveringBon(KLNr)) MogelijkeDragersVoorKlant.Insert(##class(DOM.PM.enu.DragerType).Vhoss())
 
 	If (MogelijkeDragersVoorKlant.Count()>0) {
-		#dim ProductGroepVoorTeTonenDragers As %List = $lb(##class(APPS.PM.enu.ProductGroep).Tandembox(), ##class(APPS.PM.enu.ProductGroep).Legrabox(), ##class(APPS.PM.enu.ProductGroep).TAORBOX())
+		#dim ProductGroepVoorTeTonenDragers As %List = $lb(##class(APPS.PM.enu.ProductGroep).Tandembox(), ##class(APPS.PM.enu.ProductGroep).Legrabox(), ##class(APPS.PM.enu.ProductGroep).TAORBOX(), ##class(APPS.PM.enu.ProductGroep).Merivobox())
 		Do ..BldPalletLookup(BONNr,ProductGroepVoorTeTonenDragers,.DragerLookup) ; Uit ORDW pallet informatie halen
 	}
 
@@ -642,6 +642,7 @@
 	. For  Set OLUNr=$O(^ORDW("D",BONNr,"D",ORDNr,OLUNr)) Quit:'OLUNr  Do
 	. . Set OLRec=^ORDW("D",BONNr,"D",ORDNr,OLUNr)
 	. . Set PRNr=$P(OLRec,"\",1)
+	. . Do ##class(Tools.Wlip).%New(26).String($$PRODGRP^PRODUKT(PRNr))
 	. . Quit:(lbLimProdGrp'="")&&('$LF(lbLimProdGrp,$$PRODGRP^PRODUKT(PRNr)))
 	. . Set lbPalletIDs=""
 	. . For  Set SOLNr=$O(^ORDW("D",BONNr,"D",ORDNr,OLUNr,SOLNr)) Quit:'SOLNr  Do