Index: BL/Flow/Offerte/impl/KADWrapper.cls.xml
===================================================================
diff -u -r3994 -r4005
--- BL/Flow/Offerte/impl/KADWrapper.cls.xml	(.../KADWrapper.cls.xml)	(revision 3994)
+++ BL/Flow/Offerte/impl/KADWrapper.cls.xml	(.../KADWrapper.cls.xml)	(revision 4005)
@@ -9,6 +9,7 @@
 
 <Property name="ProjectItem">
 <Type>BL.Flow.Offerte.dto.KADEDI.ProjectItem</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
@@ -31,13 +32,13 @@
 
 <Method name="GeefProjectNaam">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ProjectItem.Project.ProjectName
+<Implementation><![CDATA[	Quit $$$Trim(..ProjectItem.Project.ProjectName)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKlant">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ProjectItem.Project.Customer
+<Implementation><![CDATA[	Quit $$$Trim(..ProjectItem.Project.Customer)
 ]]></Implementation>
 </Method>
 
@@ -80,18 +81,33 @@
 <Method name="GeefKaderDeur">
 <ReturnType>Prod.GADef.KaderDeur</ReturnType>
 <Implementation><![CDATA[
-	Set KaderDeur = ##class(Prod.GADef.KaderDeur).%New()
 	
 	Set KADP = ..GeefParameterWrapper()
-	Set Profiel = KADP.GeefProfielType()_"-"_KADP.GeefProfielAfwerking()
-	Do KaderDeur.FillObjectViaParam(Profiel,KADP.GeefHoogte(),KADP.GeefBreedte(),KADP.GeefBeslag(),KADP.GeefAantalBeslag(),"QtyGlasBoor","QtyProfO","QtyProfB","QtyProfR","QtyProfL",KADP.GeefVulling(),KADP.GeefVullingExtra(),KADP.IsGemonteerd(),KADP.GeefVerpakking())
 	
-	Quit KaderDeur
+	Set dtoKaderDeur = ##class(Prod.GADef.dto.KaderDeur).%New()
+	Set dtoKaderDeur.Beslag = KADP.GeefBeslagID()
+	Set dtoKaderDeur.Breedte = KADP.GeefBreedte()
+	Set dtoKaderDeur.Hoogte = KADP.GeefHoogte()
+	Set dtoKaderDeur.IsGemonteerd = KADP.IsGemonteerd()
+	Set dtoKaderDeur.ProfType = KADP.GeefProfielType()_"-"_KADP.GeefProfielAfwerking()
+	Set dtoKaderDeur.QtyBeslag = KADP.GeefAantalBeslag()
+	Set dtoKaderDeur.Verpakking = KADP.GeefVerpakking()
+	Set dtoKaderDeur.Vulling = KADP.GeefVulling()
+	Set dtoKaderDeur.VullingExtras = KADP.GeefVullingExtras()
+	
+	Set KaderDeur = ##class(Prod.GADef.KaderDeurFactory).Maak(dtoKaderDeur)
+	
+	/// Boringen toevoegen
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeBoring">
+<FormalSpec>KaderDeur:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[	// TO DO  (of ergens anders)   ;-)
+]]></Implementation>
+</Method>
+
 <Method name="GeefParameterWrapper">
-<Private>1</Private>
 <ReturnType>BL.Flow.Offerte.IKADParameterWrapper</ReturnType>
 <Implementation><![CDATA[	Quit ##class(BL.Flow.Offerte.impl.KADParameterWrapper).%New(..ProjectItem.Parameters)
 ]]></Implementation>