Index: vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(revision 1336)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.TestSamengesteldProduct">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.TestSamengesteldProduct")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="KindPRNr">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KindPRNr = 4428
+	Do ..OnAfterAllTests()
+	Set ^PRBS("BS",999,"KIND.001") = "4425\1\K\\\\\\\\P\"
+	Set ^PRBS("BS",999,"KIND.002") = "18791\1\K\\\\\\\\P\"
+	Set ^PRBS("BS",999,"TIJD.001") = "\1\T\\\\10\10\OLVERPAK\\VERPAK\\Vouwen"
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^PRBS("BS",999)
+	Kill ^PRBS("IP",..KindPRNr)
+	Kill ^PRLINK("D",999,..KindPRNr)
+	Kill ^PRLINK("IKM",..KindPRNr,999)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestSamengesteldProduct">
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product = ProductAPI.GeefSamengesteldProduct(999)
+	
+	Do $$$AssertTrue($IsObject(Product),"Het product is een object")
+	
+	Set BouwsteenIterator = Product.GeefBouwsteenIterator()
+	
+	Do $$$AssertTrue(BouwsteenIterator.HasNext(),"Er is een volgende bouwsteen")
+	Set Bouwsteen = BouwsteenIterator.Next()
+	Do $$$AssertEquals(Bouwsteen.GeefID(),"KIND.001","De bouwsteen ID")
+	Do $$$AssertFalse(Bouwsteen.IsModified(),"De bouwsteen werd niet gewijzigd")
+	
+	Do $$$AssertTrue(BouwsteenIterator.HasNext(),"Er is een volgende bouwsteen")
+	Set Bouwsteen = BouwsteenIterator.Next()
+	Do $$$AssertEquals(Bouwsteen.GeefID(),"KIND.002","De bouwsteen ID")
+	Do $$$AssertFalse(Bouwsteen.IsModified(),"De bouwsteen werd niet gewijzigd")
+	
+	Do $$$AssertFalse(BouwsteenIterator.HasNext(),"De tijdsbouwsteen wordt niet gevonden omdat deze nog niet is geïmplementeerd")
+	
+	
+	Set KindBouwsteenIterator = Product.GeefKindBouwsteenIterator()
+	
+	Do $$$AssertTrue(KindBouwsteenIterator.HasNext(),"Er is een volgende bouwsteen")
+	Do $$$AssertEquals(KindBouwsteenIterator.Next().GeefID(),"KIND.001","De kindbouwsteen ID")
+	
+	Do $$$AssertTrue(KindBouwsteenIterator.HasNext(),"Er is een volgende bouwsteen")
+	Do $$$AssertEquals(KindBouwsteenIterator.Next().GeefID(),"KIND.002","De kindbouwsteen ID")
+	
+	Do $$$AssertFalse(KindBouwsteenIterator.HasNext(),"Er zijn maar 2 kindbouwstenen")
+	
+	Set Product = ""
+	
+	Do $$$AssertFalse($IsObject(Product),"Het product is uit het geheugen")
+	
+	Set Product = ##class(DOM.PM.impl.DataM.SamengesteldProduct).%New(999)
+	
+	Set KindProduct = ProductAPI.GeefProduct(..KindPRNr)
+	Set NieuwKindBouwsteen = Product.VoegToeKindBouwsteen(KindProduct,2)
+	
+	Do $$$AssertEquals(NieuwKindBouwsteen.GeefID(),"","De id is leeg want de bouwsteen is nog niet gesaved")
+	Do $$$AssertEquals(NieuwKindBouwsteen.GeefProduct().GeefPRNr(),KindProduct.GeefPRNr(),"Het kindproduct is correct ingesteld")
+	Do $$$AssertEquals(NieuwKindBouwsteen.GeefAantal(),2,"Het aantal gevraagd is 2")
+	Do $$$AssertTrue(NieuwKindBouwsteen.IsModified(),"De bouwsteen werd gewijzigd")
+	
+	
+	Set KindBouwsteenIterator = Product.GeefKindBouwsteenIterator()
+	
+	Do $$$AssertTrue(KindBouwsteenIterator.HasNext(),"Er is een volgende bouwsteen")
+	Do $$$AssertEquals(KindBouwsteenIterator.Next().GeefID(),"KIND.001","De kindbouwsteen ID")
+	
+	Do $$$AssertTrue(KindBouwsteenIterator.HasNext(),"Er is een volgende bouwsteen")
+	Do $$$AssertEquals(KindBouwsteenIterator.Next().GeefID(),"KIND.002","De kindbouwsteen ID")
+	
+	Do $$$AssertTrue(KindBouwsteenIterator.HasNext(),"De nieuw toegevoegde bouwsteen wordt ook gevonden")
+	Set Bouwsteen = KindBouwsteenIterator.Next()
+	Do $$$AssertEquals(Bouwsteen.GeefID(),"","De ID is leeg omdat deze nog niet gesaved is")
+	Do $$$AssertEquals(Bouwsteen.GeefProduct().GeefPRNr(),KindProduct.GeefPRNr(),"Het kindproduct is correct ingesteld")
+	
+	Do $$$AssertFalse(KindBouwsteenIterator.HasNext(),"Er zijn maar 3 kindbouwstenen")
+	
+	Set Status = Product.Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het product is correct opgeslagen")
+	Do $$$AssertTrue($D(^PRBS("BS",999,"KIND.003")),"De data is opgeslagen in PRBS")
+	Do $$$AssertTrue($D(^PRLINK("D",999,..KindPRNr)),"De index op bouwsteen aantal werd opgebouwd")
+	Do $$$AssertTrue($D(^PRLINK("IKM",..KindPRNr,999)),"De index van kind op moeder werd opgebouwd")
+	Do $$$AssertEquals(^PRBS("IP",..KindPRNr,999,"KIND.003"),"K","De index op bouwsteentype werd opgebouwd")
+	Do $$$AssertFalse(NieuwKindBouwsteen.IsModified(),"De bouwsteen werd opgeslagen en de modified vlag is op false gezet")
+	
+	Set IsVerwijderd = Product.VerwijderBouwsteen(NieuwKindBouwsteen)
+	
+	Do $$$AssertTrue(IsVerwijderd,"De bouwsteen is verwijderd")
+	
+	Do Product.Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het product is correct verwijderd")
+	Do $$$AssertFalse($D(^PRBS("BS",999,"KIND.003")),"De data in PRBS werd verwijderd")
+	Do $$$AssertFalse($D(^PRLINK("D",999,..KindPRNr)),"De index op bouwsteen aantal werd verwijderd")
+	Do $$$AssertFalse($D(^PRLINK("IKM",..KindPRNr,999)),"De index van kind op moeder werd verwijderd")
+	Do $$$AssertFalse($D(^PRBS("IP",..KindPRNr,999,"KIND.003")),"De index op bouwsteentype werd verwijderd")
+	Do $$$AssertFalse(NieuwKindBouwsteen.IsModified(),"De bouwsteen werd verwijderd en de modified vlag is op true gezet")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/SamengesteldProduct.cls.xml
===================================================================
diff -u
--- DOM/PM/SamengesteldProduct.cls.xml	(revision 0)
+++ DOM/PM/SamengesteldProduct.cls.xml	(revision 1336)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.SamengesteldProduct">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefBouwsteen">
+<Abstract>1</Abstract>
+<FormalSpec>BouwsteenID:%String</FormalSpec>
+<ReturnType>DOM.PM.KindBouwsteen</ReturnType>
+</Method>
+
+<Method name="GeefBouwsteenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
+<Method name="GeefKindBouwsteenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
+<Method name="GeefPRNr">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="VoegToeKindBouwsteen">
+<Abstract>1</Abstract>
+<FormalSpec>Product:DOM.PM.Product,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.PM.KindBouwsteen</ReturnType>
+</Method>
+
+<Method name="Save">
+<Abstract>1</Abstract>
+<ReturnType>%Status</ReturnType>
+</Method>
+
+<Method name="VerwijderBouwsteen">
+<Abstract>1</Abstract>
+<FormalSpec>Bouwsteen:DOM.PM.Bouwsteen</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/impl/DataM/Bouwsteen.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/DataM/Bouwsteen.cls.xml	(revision 0)
+++ DOM/PM/impl/DataM/Bouwsteen.cls.xml	(revision 1336)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.DataM.Bouwsteen">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Bouwsteen,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="MoederProduct">
+<Type>DOM.PM.SamengesteldProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BouwsteenID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BouwsteenRecord">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsModified">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Indien bouwsteenID niet werd opgegeven wordt een nieuwe bouwsteen gemaakt</Description>
+<FormalSpec>MoederProduct:DOM.PM.SamengesteldProduct,BouwsteenID:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..MoederProduct = MoederProduct
+	Set ..BouwsteenID = BouwsteenID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..BouwsteenID
+]]></Implementation>
+</Method>
+
+<Method name="IsModified">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IsModified
+]]></Implementation>
+</Method>
+
+<Method name="BouwsteenRecordGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%BouwsteenRecord = "") && (..BouwsteenID '= "") && ($Data(^PRBS("BS",..MoederProduct.GeefPRNr(),..BouwsteenID)))
+	{
+		Set i%BouwsteenRecord = ^PRBS("BS",..MoederProduct.GeefPRNr(),..BouwsteenID)
+	}
+	Quit i%BouwsteenRecord
+]]></Implementation>
+</Method>
+
+<Method name="BouwsteenRecordSet">
+<FormalSpec>Value:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IsModified = ..IsModified || (i%BouwsteenRecord'=Value)
+	Set i%BouwsteenRecord = Value
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	If (..IsModified())
+	{
+		If ($Piece(..BouwsteenRecord,"\",3) = "")
+		{
+			Set Status = $$$ERROR($$$GeneralError,"Bouwsteentype is niet ingevuld")
+		}
+		If (..BouwsteenID = "")
+		{
+			Set Status = $$$ERROR($$$GeneralError,"Er werd geen BouwsteenID gegenereerd")
+		}
+		If ($$$ISOK(Status))
+		{
+			Set ^PRBS("BS",..MoederProduct.GeefPRNr(),..BouwsteenID) = ..BouwsteenRecord
+			Set ..IsModified = 0
+		}
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="Delete">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	If (..BouwsteenID '= "")
+	{
+		Kill ^PRBS("BS",..MoederProduct.GeefPRNr(),..BouwsteenID)
+		Set ..BouwsteenID = ""
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/KindBouwsteen.cls.xml
===================================================================
diff -u
--- DOM/PM/KindBouwsteen.cls.xml	(revision 0)
+++ DOM/PM/KindBouwsteen.cls.xml	(revision 1336)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.KindBouwsteen">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Bouwsteen</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefAantal">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GeefProduct">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.Product</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/impl/DataM/SamengesteldProduct.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/DataM/SamengesteldProduct.cls.xml	(revision 0)
+++ DOM/PM/impl/DataM/SamengesteldProduct.cls.xml	(revision 1336)
@@ -0,0 +1,177 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.DataM.SamengesteldProduct">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.SamengesteldProduct,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProductNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Bouwstenen">
+<Type>DOM.PM.Bouwsteen</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwijderdeBouwstenen">
+<Type>DOM.PM.Bouwsteen</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductNr = ProductNr
+	Set Status = $$$OK
+	If ('$Data(^PRBS("BS",..ProductNr)))
+	{
+		Set Status = $$$ERROR($$$GeneralError,"Dit is geen samengesteld object")
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBouwsteen">
+<FormalSpec>BouwsteenID:%String</FormalSpec>
+<ReturnType>DOM.PM.KindBouwsteen</ReturnType>
+<Implementation><![CDATA[
+	Set Bouwsteen = ""
+	
+	Set i = 0
+	While ('$IsObject(Bouwsteen)) && (i<..Bouwstenen.Count())
+	{
+		Set i = i + 1
+		If (Bouwstenen.GetAt(i).GeefID() = BouwsteenID)
+		{
+			Set Bouwsteen = Bouwstenen.GetAt(i).GeefID()
+		}
+	}
+	
+	Quit Bouwsteen
+]]></Implementation>
+</Method>
+
+<Method name="GeefBouwsteenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Bouwstenen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKindBouwsteenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set KindBouwstenen = ##class(%ListOfObjects).%New()
+	
+	Set BouwstenenIterator = ##class(TECH.ListIterator).%New(..Bouwstenen)
+	While (BouwstenenIterator.HasNext())
+	{
+		Set Bouwsteen = BouwstenenIterator.Next()
+		If (Bouwsteen.%Extends("DOM.PM.KindBouwsteen"))
+		{
+			Do KindBouwstenen.Insert(Bouwsteen)
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(KindBouwstenen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPRNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductNr
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	
+	Set i = 0
+	While (($$$ISOK(Status)) && (i < ..Bouwstenen.Count()))
+	{
+		Set i = i + 1
+		Set Status = ..Bouwstenen.GetAt(i).Save()
+	}
+	
+	Set i = 0
+	While ($$$ISOK(Status) && (i < ..VerwijderdeBouwstenen.Count()))
+	{
+		Set i = i + 1
+		Set Status = ..VerwijderdeBouwstenen.GetAt(i).Delete()
+	}
+	
+	If ($$$ISOK(Status))
+	{
+		Do OperatieScope.Gelukt()
+	}
+	Else
+	{
+		Do OperatieScope.Gefaald()
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBouwsteen">
+<FormalSpec>Bouwsteen:DOM.PM.Bouwsteen</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsVerwijderd = ##class(TECH.ListUtils).RemoveObjectFromList(Bouwsteen,..Bouwstenen)
+	If (IsVerwijderd)
+	{
+		Do ..VerwijderdeBouwstenen.Insert(Bouwsteen)
+	}
+	Quit IsVerwijderd
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKindBouwsteen">
+<FormalSpec>Product:DOM.PM.Product,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.PM.KindBouwsteen</ReturnType>
+<Implementation><![CDATA[
+	Set KindBouwsteen = ##class(DOM.PM.impl.DataM.KindBouwsteen).%New(##this,,Product,Aantal)
+	Do ..Bouwstenen.Insert(KindBouwsteen)
+	Quit KindBouwsteen
+]]></Implementation>
+</Method>
+
+<Method name="BouwstenenGet">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(r%Bouwstenen))
+	{
+		Set r%Bouwstenen = ##class(%ListOfObjects).%New()
+		Set BouwsteenID = $Order(^PRBS("BS",..ProductNr,""))
+		While (BouwsteenID '= "")
+		{
+			Set Bouwsteen = ""
+			Set BouwsteenRecord = ^PRBS("BS",..ProductNr,BouwsteenID)
+			
+			If ($Piece(BouwsteenRecord,"\",3) = "K")
+			{
+				Set Bouwsteen = ##class(DOM.PM.impl.DataM.KindBouwsteen).%New(##this,BouwsteenID)
+			}
+			
+			If ($IsObject(Bouwsteen))
+			{
+				Do r%Bouwstenen.Insert(Bouwsteen)
+			}
+			
+			Set BouwsteenID = $Order(^PRBS("BS",..ProductNr,BouwsteenID))
+		}
+	}
+	Quit r%Bouwstenen
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Samengesteld Product.prj.xml
===================================================================
diff -u
--- CSC Samengesteld Product.prj.xml	(revision 0)
+++ CSC Samengesteld Product.prj.xml	(revision 1336)
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="CSC Samengesteld Product" LastModified="2011-05-30 08:36:05">
+  <Items>
+    <ProjectItem name="DOM.PM.Bouwsteen" type="CLS"/>
+    <ProjectItem name="DOM.PM.SamengesteldProduct" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1133 -r1336
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1133)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1336)
@@ -75,6 +75,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSamengesteldProduct">
+<FormalSpec>ProductNummer:%Integer</FormalSpec>
+<ReturnType>DOM.PM.SamengesteldProduct</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.DataM.SamengesteldProduct).%New(ProductNummer)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductClassificatie">
 <FormalSpec>ProductNummer:%Integer</FormalSpec>
 <ReturnType>DOM.PM.ProductClassificatie</ReturnType>
Index: DOM/PM/Bouwsteen.cls.xml
===================================================================
diff -u
--- DOM/PM/Bouwsteen.cls.xml	(revision 0)
+++ DOM/PM/Bouwsteen.cls.xml	(revision 1336)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Bouwsteen">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefID">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="IsModified">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="Save">
+<Abstract>1</Abstract>
+<ReturnType>%Status</ReturnType>
+</Method>
+
+<Method name="Delete">
+<Abstract>1</Abstract>
+<ReturnType>%Status</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/ProductAPI.cls.xml
===================================================================
diff -u -r1133 -r1336
--- DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 1133)
+++ DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 1336)
@@ -11,6 +11,12 @@
 <ReturnType>DOM.PM.Product</ReturnType>
 </Method>
 
+<Method name="GeefSamengesteldProduct">
+<Abstract>1</Abstract>
+<FormalSpec>Nr:%Integer</FormalSpec>
+<ReturnType>DOM.PM.SamengesteldProduct</ReturnType>
+</Method>
+
 <Method name="GeefProductClassificatie">
 <Abstract>1</Abstract>
 <FormalSpec>Nr:%Integer</FormalSpec>
Index: DOM/PM/impl/DataM/KindBouwsteen.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(revision 0)
+++ DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(revision 1336)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.DataM.KindBouwsteen">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.impl.DataM.Bouwsteen,DOM.PM.KindBouwsteen</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Product">
+<Type>DOM.PM.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Indien bouwsteenID niet werd opgegeven wordt een nieuwe bouwsteen gemaakt</Description>
+<FormalSpec>MoederProduct:DOM.PM.SamengesteldProduct,BouwsteenID:%String="",Product:DOM.PM.Product="",Aantal:%Integer=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ##class(DOM.PM.impl.DataM.Bouwsteen)##this.%OnNew(MoederProduct,BouwsteenID)
+	If (BouwsteenID = "")
+	{
+		Set BouwsteenRecord = ..BouwsteenRecord
+		Set $Piece(BouwsteenRecord,"\",1) = Product.GeefPRNr()
+		Set $Piece(BouwsteenRecord,"\",2) = Aantal
+		Set $Piece(BouwsteenRecord,"\",3) = "K"
+		Set ..BouwsteenRecord = BouwsteenRecord
+		
+		Set ..Product = Product
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..BouwsteenRecord,"\",2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProduct">
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[	Quit ..Product
+]]></Implementation>
+</Method>
+
+<Method name="ProductGet">
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(i%Product))
+	{
+		Set i%Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct($Piece(..BouwsteenRecord,"\",1))
+	}
+	Quit i%Product
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	If (..BouwsteenID = "")
+	{
+		Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
+		Set $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
+		Set ..BouwsteenID = BouwsteenID
+	}
+	Set Status = ##class(DOM.PM.impl.DataM.Bouwsteen)##this.Save()
+	If ($$$ISOK(Status))
+	{
+		Set ^PRBS("IP",..Product.GeefPRNr(),..MoederProduct.GeefPRNr(),..BouwsteenID) = $Piece(..BouwsteenRecord,"\",3)
+		Set ^PRLINK("D",..MoederProduct.GeefPRNr(),..Product.GeefPRNr()) = $Piece(..BouwsteenRecord,"\",2)_"\"_$Piece(..BouwsteenRecord,"\",12)
+		Set ^PRLINK("IKM",..Product.GeefPRNr(),..MoederProduct.GeefPRNr()) = ""
+		Do OperatieScope.Gelukt()
+	}
+	Else
+	{
+		Do OperatieScope.Gefaald()
+		Set ..BouwsteenID = ""
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="Delete">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (..BouwsteenID '= "")
+	{
+		Kill ^PRBS("IP",..Product.GeefPRNr(),..MoederProduct.GeefPRNr(),..BouwsteenID)
+		Kill ^PRLINK("D",..MoederProduct.GeefPRNr(),..Product.GeefPRNr())
+		Kill ^PRLINK("IKM",..Product.GeefPRNr(),..MoederProduct.GeefPRNr())
+	}
+	Quit ##class(DOM.PM.impl.DataM.Bouwsteen)##this.Delete()
+]]></Implementation>
+</Method>
+</Class>
+</Export>