Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r73114 -r73122
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 73114)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 73122)
@@ -50,6 +50,10 @@
 <Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
+<Property name="DnaCodeService">
+<Type>APPS.Halux.AAP.DnaCodeService</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -58,6 +62,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -147,7 +152,9 @@
 	. . . For i=$L(PalletID):1:7 Set PalletID="0"_PalletID
 	. . . Set pxPicking.PalletID=PalletID
 	. . . Set pxPicking.Aantal=$LI(lbPickInfo,3)
-	. . . Set pxPicking.Tijdstip=$LI(lbPickInfo,2)
+	. . . If ##class(TECH.StringUtils).Equals($Extract(PalletID, 9), "A", "B") Do
+	. . . . Set pxPicking.Aantal = ..DnaCodeService.GeefAantalVanProductOpPallet(PRNr, PalletID)
+ 	. . . Set pxPicking.Tijdstip=$LI(lbPickInfo,2)
 	. . . Set pxPicking.UserNaam=User
 	. . . Do pxProduct.PickingLijnen.Insert(pxPicking)
 	. Set pxLijn=##class(pxPakbonLijn).%New()
@@ -269,16 +276,14 @@
 <Method name="ZoekKindProducten">
 <FormalSpec><![CDATA[oHoofding:Flow.OrderWMS.Hoofding,&arProduct:%String,IsTegroeperenPerKlaarzetLocatie:%Boolean]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim Aantal,AantalLijnen,AantalSub,AantalViaKUL,Delta,KlaarzetLocatieId,KortTekst,MPAantal,MPKortTekst,MPPRNr,P,PRNr,PalletID,Product,Tijdstip,Totaal,User,VNR,i,j,lbMoeders,oLijn,oSub,DnaCodeService,PalletABKant
+	#dim Aantal,AantalLijnen,AantalSub,AantalViaKUL,Delta,KlaarzetLocatieId,KortTekst,MPAantal,MPKortTekst,MPPRNr,P,PRNr,PalletID,Product,Tijdstip,Totaal,User,VNR,i,j,lbMoeders,oLijn,oSub,PalletABKant
 	
 	#dim SortKeyZonderKlaarzetLocatie As %String
 	#dim SortKey As %String
 	
 	#dim arSortKeyLookup As TECH.MultiDim
 	Kill arSortKeyLookup
 	
-	Set DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
-	
 	Set AantalLijnen=oHoofding.Lijnen.Count()
 	For i=1:1:AantalLijnen Do
 	. Set oLijn=oHoofding.Lijnen.GetAt(i)
@@ -319,7 +324,7 @@
 	. . Set PalletID=oSub.PickPalletID
 	. . Set Tijdstip=..GeefTijdstipVoorPickingInfo(oSub.Tijdstip) 
 	. . Set KlaarzetLocatieId = $S(IsTegroeperenPerKlaarzetLocatie : ..GeefKlaarzetLocatieId(oSub.PickPalletID), 1:"")
-	. . Set PalletABKant = DnaCodeService.GeefPalletKantABVoorProduct(PRNr, PalletID)
+	. . Set PalletABKant = ..DnaCodeService.GeefPalletKantABVoorProduct(PRNr, PalletID)
 	. . If (PalletABKant = "") Do
 	. . . Set VNR=$O( arProduct(SortKey,User,""),-1)+1
 	. . . Set arProduct(SortKey,User,VNR)=$LB(PalletID,Tijdstip,AantalSub, KlaarzetLocatieId)