Index: BL/Flow/Offerte/impl/KADParameterWrapper.cls.xml
===================================================================
diff -u -r41137 -r51154
--- BL/Flow/Offerte/impl/KADParameterWrapper.cls.xml	(.../KADParameterWrapper.cls.xml)	(revision 41137)
+++ BL/Flow/Offerte/impl/KADParameterWrapper.cls.xml	(.../KADParameterWrapper.cls.xml)	(revision 51154)
@@ -24,6 +24,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProfielCodeMapping">
+<Type>APPS.VKP.Klantspecifiek.NewSobelwood.ProfielCodeMapping</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProfielTypeEnAfwerkingVolgensVH">
+<Description>
+Waarde: Code zoals Prod.GADef.Kaderdeur verwacht; i.e. [ProfType]-[ProfAfw] </Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KaderdeurBusinessLogica">
 <Type>APPS.VKP.Klantspecifiek.NewSobelwood.KaderdeurBusinessLogica</Type>
 <Private>1</Private>
@@ -46,6 +58,9 @@
 	Do ..VulParameterArray()
 
 	Set ..VullingCodeMapping = ##class(APPS.VKP.Klantspecifiek.NewSobelwood.VullingCodeMapping).%New()
+	Set ..ProfielCodeMapping = ##class(APPS.VKP.Klantspecifiek.NewSobelwood.ProfielCodeMapping).%New()
+	
+	Do ..ZetProfielTypeEnAfwerking(..GeefProfielCodeVolgensNS())
 	Set ..KaderdeurBusinessLogica = ##class(APPS.VKP.Klantspecifiek.NewSobelwood.KaderdeurBusinessLogica).%New(..GeefProfielType())
 
 	Quit $$$OK
@@ -63,6 +78,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetProfielTypeEnAfwerking">
+<FormalSpec>ProfileTypeNS:APPS.VKP.Maatwerk.enu.ProfileTypeNS</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ProfielTypeEnAfwerkingVolgensVH = ..ProfielCodeMapping.GeefProfielTypeEnAfwerkingVolgensVH(ProfileTypeNS)
+]]></Implementation>
+</Method>
+
 <Method name="GeefValidatieBerichten">
 <Implementation><![CDATA[	Quit ..ValidatieBerichten
 ]]></Implementation>
@@ -110,7 +132,7 @@
 		Set ValidatieBericht="ProfielType is niet ingevuld."
 	}
 	ElseIf $$$Not(##class(DOM.PM.enu.KADProfielType).IsValid(ProfielType)) {
-		Set ValidatieBericht="ProfielType is ongeldig (waarde="_ProfielType_")."
+		Set ValidatieBericht="ProfielType is ongeldig (waarde="_ProfielType_") voor input-waarde '"_..GeefProfielCodeVolgensNS()_"'."
 	}
 	
 	Quit ValidatieBericht
@@ -225,15 +247,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProfielType">
+<Method name="GeefProfielCodeVolgensNS">
 <ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).ProfielType())
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProfielType">
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit $P(..ProfielTypeEnAfwerkingVolgensVH,"-",1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProfielAfwerking">
 <ReturnType>DOM.PM.enu.KADProfielAfwerking</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.KADProfielAfwerking).Geanodiseerd()
+<Implementation><![CDATA[	Quit $P(..ProfielTypeEnAfwerkingVolgensVH,"-",2)
 ]]></Implementation>
 </Method>