Index: zTryout/CSC/TAOOLade.cls.xml
===================================================================
diff -u -r1511 -r1516
--- zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 1511)
+++ zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 1516)
@@ -22,7 +22,7 @@
 	Set IngegevenKenmerken.LadeDiepte = 250
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
-	Set IngegevenKenmerken.IsBinnenlade = 0
+	Set IngegevenKenmerken.IsBinnenlade = 1
 	Set IngegevenKenmerken.Draagkracht = 30
 	Set IngegevenKenmerken.InbouwBreedte = 650
 	
@@ -45,6 +45,21 @@
 	write !
 	Do KostItem.Accept(KostItemWriterVisitor)
 	write !
+	
+	
+	
+	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken)
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product = ProductAPI.MaakProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	
+	w !,"Opgeslagen product info",!
+	w "-----------------------",!
+	w "PRNr: "_Product.GeefPRNr(),!
+	w "Korttekst: "_Product.GeefKorttekst(),!
+	w "DossierNr: #"_Product.GeefDossierNr(),!
+	w "ProductSpecificatie: "_Product.GeefProductSpecificatie().%Id(),!
+	w "BerekeningsSpecificatie: "_Product.GeefBerekeningsSpecificatie().%Id(),!!
 ]]></Implementation>
 </Method>
 </Class>