Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r73122 -r73214
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 73122)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 73214)
@@ -52,6 +52,8 @@
 
 <Property name="DnaCodeService">
 <Type>APPS.Halux.AAP.DnaCodeService</Type>
+<Private>1</Private>
+<Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
 <Method name="%OnNew">
@@ -152,8 +154,12 @@
 	. . . For i=$L(PalletID):1:7 Set PalletID="0"_PalletID
 	. . . Set pxPicking.PalletID=PalletID
 	. . . Set pxPicking.Aantal=$LI(lbPickInfo,3)
+	. . . Do ##class(Tools.Wlip).%New(006).String("PalletID: " _ PalletID)
+	. . . Do ##class(Tools.Wlip).%New(006).String("Aantal: " _ pxPicking.Aantal)
 	. . . If ##class(TECH.StringUtils).Equals($Extract(PalletID, 9), "A", "B") Do
+	. . . . Do ##class(Tools.Wlip).%New(006).String("Het is A/B")
 	. . . . Set pxPicking.Aantal = ..DnaCodeService.GeefAantalVanProductOpPallet(PRNr, PalletID)
+	. . . . Do ##class(Tools.Wlip).%New(006).String("Nieuw Aantal: " _ pxPicking.Aantal)
  	. . . Set pxPicking.Tijdstip=$LI(lbPickInfo,2)
 	. . . Set pxPicking.UserNaam=User
 	. . . Do pxProduct.PickingLijnen.Insert(pxPicking)