Index: WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml
===================================================================
diff -u -r65079 -r67025
--- WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 65079)
+++ WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 67025)
@@ -104,6 +104,11 @@
 		
 		Do ConfigVariant.Attribute.Insert(..GeefAxAttribute("AdminProductNummer", Product.GeefPRNr()))
 		
+		#dim IsKaderdeurProduct As %Boolean = Product.%Extends("DOM.PM.KADProduct.KADKaderdeur")
+		If IsKaderdeurProduct {
+			Do ..VoegToeKlantLinkVoorKaderdeurDetailbladPdf(ConfigVariant, Product)
+		}
+		
 		If IsSalesPriceBOMAttrVsAdminProdNr {
 			Do ..ProductIdRecycleerder.GeefProductIdVrij(Product.GeefPRNr())
 		}
@@ -128,6 +133,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeKlantLinkVoorKaderdeurDetailbladPdf">
+<FormalSpec>ConfigVariant:AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityConfigVariant,Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KlantLinkBepaler = ##class(WSimpl.AX.CalculatedProduct.KlantLinkKaderdeurDetailbladPdfBepaler).%New()   ; Te verplaatsen naar de constructor 
+	
+	#dim KaderdeurPdfKlantLink As %String = KlantLinkBepaler.GeefKaderdeurDetailbladPdf(Product.GeefID())
+	If $$$HasLength(KaderdeurPdfKlantLink) {
+ //		Do ConfigVariant.Attribute.Insert(..GeefAxAttribute("AttributeName???KlantLink-Url???", KaderdeurPdfKlantLink))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefAttributeValueTxtVolgensAttributeName">
 <FormalSpec>AttributeLijst:%ListOfObjects,AttributeName:%String</FormalSpec>
 <Private>1</Private>