Index: APPS/VKP/Maatwerk/impl/AluKaderConvertorNSv1.cls.xml
===================================================================
diff -u -r40614 -r51151
--- APPS/VKP/Maatwerk/impl/AluKaderConvertorNSv1.cls.xml	(.../AluKaderConvertorNSv1.cls.xml)	(revision 40614)
+++ APPS/VKP/Maatwerk/impl/AluKaderConvertorNSv1.cls.xml	(.../AluKaderConvertorNSv1.cls.xml)	(revision 51151)
@@ -20,6 +20,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>
@@ -35,6 +47,9 @@
 	Set ..Properties=Properties
 
 	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
@@ -49,7 +64,7 @@
 	Set ..KADKenmerken.Hoogte=..Properties.Height
 	Set ..KADKenmerken.Breedte=..Properties.Width
 	Set ..KADKenmerken.ProfielType=..GeefProfielType()
-	Set ..KADKenmerken.ProfielAfwerking="EV"
+	Set ..KADKenmerken.ProfielAfwerking=..GeefProfielAfwerking()
 	Set ..KADKenmerken.Vulling=..GeefKADVulling()
 	Set ..KADKenmerken.Montage=##class(DOM.PM.enu.KADMontage).KaderEnVulling()
 	Set ..KADKenmerken.Verpakking=##class(DOM.PM.enu.KADVerpakking).Krimp()
@@ -68,13 +83,35 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProfielType">
+<Method name="GeefProfielCodeVolgensNS">
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
 <Implementation><![CDATA[	Quit ..Properties.ProfileType
 ]]></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="GeefProfielType">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit $P(..ProfielTypeEnAfwerkingVolgensVH,"-",1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProfielAfwerking">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.KADProfielAfwerking</ReturnType>
+<Implementation><![CDATA[	Quit $P(..ProfielTypeEnAfwerkingVolgensVH,"-",2)
+]]></Implementation>
+</Method>
+
 <Method name="IsLadeFront">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>