Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1507 -r1516
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1507)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1516)
@@ -124,12 +124,17 @@
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
 	Set ProductCreator = ""
-	If (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade())
+	If (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() '=  ##class(DOM.PM.enu.LadeVariant).TAOO())
 	{
-		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTBXLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 		Set PRNr = ProductCreator.GeefPRNr()
 		Set KenmerkenCreator = ##class(DOM.PM.impl.DataM.DataMLadeKenmerkenCreator).%New(PRNr,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom)
 	}
+	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && (ProductSpecificatie.GeefVariant() =  ##class(DOM.PM.enu.LadeVariant).TAOO())
+	{
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTAOOLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set PRNr = ProductCreator.GeefPRNr()
+	}
 	ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).AluKader())
 	{
 		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
Index: CSC TAOO.prj.xml
===================================================================
diff -u -r1514 -r1516
--- CSC TAOO.prj.xml	(.../CSC TAOO.prj.xml)	(revision 1514)
+++ CSC TAOO.prj.xml	(.../CSC TAOO.prj.xml)	(revision 1516)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC TAOO" LastModified="2011-06-24 10:57:10">
+<Project name="CSC TAOO" LastModified="2011-06-24 11:55:41">
   <Items>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
@@ -195,6 +195,7 @@
     <ProjectItem name="vhDeploy.Deploy20110622x1605" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110623x1342" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110624x0834" type="CLS"/>
+    <ProjectItem name="vhDeploy.Deploy20110624x1155" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFBodemv001" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFEtiketv001" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.TAOO.HFFrontBevestigingv001" type="CLS"/>
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>
Index: zTryout/CSC/PM/Maatwerk/HF/DataGeneratie.cls.xml
===================================================================
diff -u -r1222 -r1516
--- zTryout/CSC/PM/Maatwerk/HF/DataGeneratie.cls.xml	(.../DataGeneratie.cls.xml)	(revision 1222)
+++ zTryout/CSC/PM/Maatwerk/HF/DataGeneratie.cls.xml	(.../DataGeneratie.cls.xml)	(revision 1516)
@@ -13,6 +13,9 @@
 	Do ##class(DOM.PM.impl.DataM.DataMBouwsteenLabelInfo).%KillExtent()
 	
 	Set Labels = ##class(%ListOfDataTypes).%New()
+	
+	Do Labels.Insert("OpMaatProduct\BSL\1")
+	
 	Do Labels.Insert("LadeZijkantLinks\PRLALI\0")
 	Do Labels.Insert("LadeZijkantRechts\PRLARE\0")
 	Do Labels.Insert("FrontHouderLinks\PRFRHLI\0")
@@ -31,9 +34,18 @@
 	Do Labels.Insert("ProfielBoven\PRPROFB\1")
 	Do Labels.Insert("HoekVerbinder\PRHOEK\0")
 	Do Labels.Insert("Vulling\PRVUL\1")
+	Do Labels.Insert("LadeZijkant\PRZIJKANT\0")
+	Do Labels.Insert("Front\PRFRONT\1")
+	Do Labels.Insert("Glijder\PRGLIJDER\0")
+	Do Labels.Insert("KoppelingLinks\PRKOPLI\0")
+	Do Labels.Insert("KoppelingRechts\PRKOPRE\0")
+	Do Labels.Insert("FrontBevestiging\PRFRONTB\0")
+	Do Labels.Insert("Schroef\PRSCHROEF\0")
+	Do Labels.Insert("Lijm\PRLIJM\0")
+	Do Labels.Insert("Etiket\PRETIKET\0")
 	
-	Set Iterator = ##class(TECH.ListIterator).%New(Labels)
 	
+	Set Iterator = ##class(TECH.ListIterator).%New(Labels)
 	While (Iterator.HasNext())
 	{
 		Set Lijn = Iterator.Next()
Index: DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml	(revision 0)
+++ DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml	(revision 1516)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.DataM.DataMTBXLadeCreator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
+
+<Method name="GeefGenerischPRNr">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	// Er zijn meerdere gevallen te dekken, zie de method GenerischPRNr() in Prod.GAData.Product
+	Quit 89322
+
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKortTekst">
+<FormalSpec>DossierNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set BodemHalffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodem()).Halffab
+	Set RugHalffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Rug()).Halffab
+	Set LadeZijkantHalffab = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant()_"->Links").Halffab
+	
+	Set Draagkracht = LadeZijkantHalffab.Draagkracht
+	Set Glijder = $S(Draagkracht=20:8,Draagkracht=30:8,Draagkracht=50:9,Draagkracht=65:6,Draagkracht=80:7,1:"I")
+	Set ZijkantDesign = LadeZijkantHalffab.ZijkantDesign
+	Set DesignCode=$S(ZijkantDesign="S":"/",1:ZijkantDesign)  ; S,F,B,...
+	Set FrontBevestiging = ""
+	Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"."   // RugHoogte moet uiteindelijk uit het halffab "RugHouder" opgehaald worden en NIET uit de rug. 
+	Set $E(KortTekst,7) = DossierNummer
+	
+	Set IngegevenKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken()
+	
+	Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.InbouwBreedte
+	
+	Set $E(KortTekst,22)=LadeZijkantHalffab.Kleur
+	
+	// Er is ook nog wat tekst voor verpakking en sifon/spoelbak/hangmap/buro
+	// Nog wat info over kostprijs van werkuren enzo
+	// Zie ktxTBX() method in Prod.GAData.Product.tmpKPRCreate.MAC
+	
+	Quit KortTekst
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/impl/DataM/DataMTAOOLadeCreator.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/DataM/DataMTAOOLadeCreator.cls.xml	(revision 0)
+++ DOM/PM/impl/DataM/DataMTAOOLadeCreator.cls.xml	(revision 1516)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.DataM.DataMTAOOLadeCreator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefGenerischPRNr">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	// Er zijn meerdere gevallen te dekken, zie de method GenerischPRNr() in Prod.GAData.Product
+	Quit 89322
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKortTekst">
+<FormalSpec>DossierNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KortTekst = "TAOO Lade #"_DossierNummer
+	
+	Quit KortTekst
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhDeploy/Deploy20110624x1155.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20110624x1155.cls.xml	(revision 0)
+++ vhDeploy/Deploy20110624x1155.cls.xml	(revision 1516)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy20110624x1155">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(zTryout.CSC.PM.Maatwerk.HF.DataGeneratie).BouwsteenLabels()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 1516 refers to a dead (removed) revision in file `DOM/PM/impl/DataM/DataMLadeCreator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?