Index: cwCW.mac.rou =================================================================== diff -u -r1424 -r1427 --- cwCW.mac.rou (.../cwCW.mac.rou) (revision 1424) +++ cwCW.mac.rou (.../cwCW.mac.rou) (revision 1427) @@ -7,13 +7,14 @@ Set MPRNr="",MCount=0 For Set MPRNr=$O(^PRBS("BS",MPRNr)) Quit:MPRNr="" Do . Set MCount=MCount+1 - . If '(MCount#100) Write !,$J(MCount,6)," producten verwerkt" + . If '(MCount#1000) Write !,$J(MCount,6)," producten verwerkt" . Do bso(MPRNr) Quit ; bso(MPRNr) Set SamengesteldProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefSamengesteldProduct(MPRNr) Set KindBouwsteenIterator = SamengesteldProduct.GeefKindBouwsteenIterator() + While (KindBouwsteenIterator.HasNext()) { Set KindBouwsteen = KindBouwsteenIterator.Next()