Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r71669 -r73114
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 71669)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 73114)
@@ -643,9 +643,11 @@
 <Implementation><![CDATA[
 	#dim PRNr As TECH.String = $P(LRec,"\",2)
 	#dim lbDragerIDs As %List = $G(Lookup(ORDNr,PRNr))
+	
 	If $LL(lbDragerIDs) {
 		Set DragerTypeBepaler = ##class(DOM.PM.impl.DragerTypeBepaler).%New()
 		#dim DragerType As DOM.PM.enu.DragerType = DragerTypeBepaler.BepaalDragerType($ListGet(lbDragerIDs))
+		
 		If ##class(TECH.ListUtils).Contains(MogelijkeDragers, DragerType) {
 			#dim VertalingSleutel As TECH.String = "LEV:"_DragerType
 			//info toevoegen aan proxy object
@@ -661,6 +663,8 @@
 <FormalSpec><![CDATA[BONNr,lbLimProdGrp,&Lookup]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim DnaCodeService As APPS.Halux.AAP.DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
+	
 	; opbouw lookup
 	Kill Lookup
 	Set (ORDNr,OLUNr,SOLNr)=""
@@ -673,7 +677,13 @@
 	. . For  Set SOLNr=$O(^ORDW("D",BONNr,"D",ORDNr,OLUNr,SOLNr)) Quit:'SOLNr  Do
 	. . . Set SOLRec=^ORDW("D",BONNr,"D",ORDNr,OLUNr,SOLNr)
 	. . . Set PalletID=$P(SOLRec,"\",10)
-	. . . Set:PalletID'="" lbPalletIDs=lbPalletIDs_$LB(PalletID)
+	. . . Set PalletABKant = DnaCodeService.GeefPalletKantABVoorProduct(PRNr, PalletID)
+	. . . If (PalletABKant = "") Do
+	. . . . Set:PalletID'="" lbPalletIDs=lbPalletIDs_$LB(PalletID)
+	. . . If ((PalletABKant = "A") || (PalletABKant = "B")) Do
+	. . . . Set lbPalletIDs=lbPalletIDs_$LB(PalletID_PalletABKant)
+	. . . If ((PalletABKant = "AB") || (PalletABKant = "BA")) Do
+	. . . . Set lbPalletIDs=lbPalletIDs_$LB(PalletID_"A")_$LB(PalletID_"B")
 	. . Set:lbPalletIDs'="" Lookup(ORDNr,PRNr)=$G(Lookup(ORDNr,PRNr))_lbPalletIDs
 ]]></Implementation>
 </Method>