Index: BL/Flow/Proxy/pxPakbon.cls.xml =================================================================== diff -u -r71302 -r71303 --- BL/Flow/Proxy/pxPakbon.cls.xml (.../pxPakbon.cls.xml) (revision 71302) +++ BL/Flow/Proxy/pxPakbon.cls.xml (.../pxPakbon.cls.xml) (revision 71303) @@ -126,13 +126,13 @@ Set SortKey="" For Set SortKey=$O(arProduct(SortKey)) Quit:SortKey="" Do - . Set Product=arProduct(SortKey) + . Set lbProduct=arProduct(SortKey) . Set pxProduct=##class(pxPakbonProduct).%New() - . Set PRNr=$LI(Product,1) + . Set PRNr=$LI(lbProduct,1) . Do pxProduct.FillViaPRNr(PRNr, KLNrPakbon, Taal, Basis, "",) . Set pxProduct.PRNr=PRNr - . Set pxProduct.Totaal=$LI(Product,2) - . Set MoederList=$LI(Product,3) + . Set pxProduct.Totaal=$LI(lbProduct,2) + . Set MoederList=$LI(lbProduct,3) . For i=1:1:$LL(MoederList) Do . . If $LI(MoederList,i)'="" Do pxProduct.Moeders.Insert($LI(MoederList,i)) ;moederproducten alleen toevoegen als kind en moeder niet hetzelfde zijn . @@ -141,13 +141,13 @@ . For Set User=$o(arProduct(SortKey,User)) Quit:User="" Do . . Set VNR="" . . For Set VNR=$O(arProduct(SortKey,User,VNR)) Quit:VNR="" Do - . . . Set PickInfo=arProduct(SortKey,User,VNR) + . . . Set lbPickInfo=arProduct(SortKey,User,VNR) . . . Set pxPicking=##class(pxPakbonPicking).%New() - . . . Set PalletID=$LI(PickInfo,1) + . . . Set PalletID=$LI(lbPickInfo,1) . . . For i=$L(PalletID):1:7 Set PalletID="0"_PalletID . . . Set pxPicking.PalletID=PalletID - . . . Set pxPicking.Aantal=$LI(PickInfo,3) - . . . Set pxPicking.Tijdstip=$LI(PickInfo,2) + . . . Set pxPicking.Aantal=$LI(lbPickInfo,3) + . . . Set pxPicking.Tijdstip=$LI(lbPickInfo,2) . . . Set pxPicking.UserNaam=User . . . Do pxProduct.PickingLijnen.Insert(pxPicking) . Set pxLijn=##class(pxPakbonLijn).%New() @@ -269,6 +269,8 @@