Index: cwCW.mac.rou
===================================================================
diff -u -r1419 -r1424
--- cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1419)
+++ cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1424)
@@ -9,18 +9,23 @@
  . Set MCount=MCount+1
  . If '(MCount#100) Write !,$J(MCount,6)," producten verwerkt"
  . Do bso(MPRNr)
- Do BLDALL^PRBS
  Quit
  ;
 bso(MPRNr)
- New BSKeyPROD,BSKeyKIND
- Set BSKeyPROD="PROD"
- For  Set BSKeyPROD=$O(^PRBS("BS",MPRNr,BSKeyPROD)) Quit:$E(BSKeyPROD,1,4)'="PROD"  Do
- . Set BSKeyKIND="KIND.999",BSKeyKIND=$O(^PRBS("BS",MPRNr,BSKeyKIND),-1)
- . If $E(BSKeyKIND,1,4)="KIND" Set $P(BSKeyKIND,".",2)=$TR($J($P(BSKeyKIND,".",2)+1,3)," ",0)
- . Else  Set BSKeyKIND="KIND.001"
- . Set ^PRBS("BS",MPRNr,BSKeyKIND)=^PRBS("BS",MPRNr,BSKeyPROD)
- . Kill ^PRBS("BS",MPRNr,BSKeyPROD)
+ Set SamengesteldProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefSamengesteldProduct(MPRNr)
+ Set KindBouwsteenIterator = SamengesteldProduct.GeefKindBouwsteenIterator()
+ While (KindBouwsteenIterator.HasNext())
+ {
+	 Set KindBouwsteen = KindBouwsteenIterator.Next()
+	 If (KindBouwsteen.GeefID() [ "PROD")
+	 {
+		 Set Rec = ^PRBS("BS",MPRNr,KindBouwsteen.GeefID())
+		 Do SamengesteldProduct.VerwijderBouwsteen(KindBouwsteen)
+		 set KindBouwsteenNieuw = SamengesteldProduct.VoegToeKindBouwsteen(KindBouwsteen.GeefProduct(),KindBouwsteen.GeefAantal())
+		 Do SamengesteldProduct.Save()
+		 Set ^PRBS("BS",MPRNr,KindBouwsteenNieuw.GeefID()) = Rec
+	 }
+ }
  Quit
  ;