Index: BL/Flow/Proxy/pxPakbon.cls.xml =================================================================== diff -u -r73214 -r73234 --- BL/Flow/Proxy/pxPakbon.cls.xml (.../pxPakbon.cls.xml) (revision 73214) +++ BL/Flow/Proxy/pxPakbon.cls.xml (.../pxPakbon.cls.xml) (revision 73234) @@ -154,12 +154,8 @@ . . . 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)