Index: WSimpl/AX/CalculatedProduct/KlantLinkKaderdeurDetailbladPdfBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/AX/CalculatedProduct/KlantLinkKaderdeurDetailbladPdfBepaler.cls.xml	(revision 0)
+++ WSimpl/AX/CalculatedProduct/KlantLinkKaderdeurDetailbladPdfBepaler.cls.xml	(revision 67024)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.CalculatedProduct.KlantLinkKaderdeurDetailbladPdfBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KaderdeurDetailBladPdfGenerator">
+<Type>APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New("")
+	Set ..KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKaderdeurDetailbladPdf">
+<FormalSpec>Product:DOM.PM.KADProduct.impl.KADKaderdeurImpl</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If $$$Not(Product.%Extends("DOM.PM.KADProduct.KADKaderdeur")) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Fout: Admin-product '"_Product.GeefID()_"' is geen kaderdeur-product.")
+	}
+	
+	#dim ProductId As %String = Product.GeefID()
+	#dim GADefKaderdeurId As %String = Product.GeefGADataID()
+	
+	#dim KaderdeurDetailbladPdf As %String = ..KaderdeurDetailBladPdfGenerator.GeefBestandVolledigeNaamVoorKaderdeurDetailBladPdf(ProductId)
+	#dim BestaatDetailbladPdf  As %Boolean = ..KaderdeurDetailBladPdfGenerator.BestaatKaderdeurDetailBladPdfVoorProduct(ProductId)
+	
+	If (BestaatDetailbladPdf) {
+		Do ..Logger.Debug("GeefKaderdeurDetailbladPdf", "De KaderdeurDetailbladPdf voor product '"_ProductId_"' is beschikbaar op deze locatie : '"_KaderdeurDetailbladPdf_"'")
+	}
+	Else {
+		
+		// Logging waarom geen pdf 
+		#dim LogMessageGeenPdf As %String = "Voor Admin-product '"_ProductId_"/"_GADefKaderdeurId_"' is geen KaderdeurDetailbladPdf gevonden op locatie '"_KaderdeurDetailbladPdf_"'."
+		If (GADefKaderdeurId = "") {
+			Set LogMessageGeenPdf = LogMessageGeenPdf _ $$$CRLF _ "GADef Id is leeg."
+		}
+		ElseIf $$$Not($IsObject(Product.GeefGADefKaderdeur())) {
+			Set LogMessageGeenPdf = LogMessageGeenPdf _ $$$CRLF _ "Geen kaderdeur-object gevonden voor GADef Id: '"_GADefKaderdeurId_"'."
+		}
+		Do ..Logger.Warning("GeefKaderdeurDetailbladPdf", LogMessageGeenPdf)
+		
+		// Belangrijk: variabele leegmaken, want geen pdf gevonden! 
+		Set KaderdeurDetailbladPdf = ""
+	}
+	
+	Quit KaderdeurDetailbladPdf
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>