Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml
===================================================================
diff -u -r67002 -r67003
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 67002)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml	(.../KaderdeurDetailBladPdfGenerator.cls.xml)	(revision 67003)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FileApi:TECH.File.impl.FileAPI="",ProductieDetailBladService:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.ProductieDetailDocumentService=""</FormalSpec>
 <Private>1</Private>
@@ -22,6 +27,7 @@
 <Implementation><![CDATA[
 	Set ..FileApi = $$$Inject(FileApi, ##class(TECH.File.impl.FileAPI).%New())
 	Set ..ProductieDetailDocumentService = $$$Inject(ProductieDetailBladService, ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.ProductieDetailDocumentService).%New())
+	Set ..Logger = ##class(vhLib.Logger).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -85,6 +91,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If ..FileApi.FileExists(BestandVolledigeNaamVoorKaderdeurPdf) {
+		Do ..Logger.Debug("VerwijderKaderdeurPdf","het bestand '"_BestandVolledigeNaamVoorKaderdeurPdf_"' wordt verwijderd.")
 		Do ..FileApi.DeleteFile(BestandVolledigeNaamVoorKaderdeurPdf)
 	}
 ]]></Implementation>
@@ -98,7 +105,9 @@
 	Set InputParameters.ProductID = ProductId
 	
 	Try {
+		Do ..Logger.Info("GenereerKaderdeurPdf","Voor product '"_ProductId_"' zal het KaderdeurDetailBlad pdf-bestand '"_BestandVolledigeNaamVoorKaderdeurPdf_"' gegenereerd worden.")
 		Do ..ProductieDetailDocumentService.BewaarKaderdeurPDF(InputParameters,BestandVolledigeNaamVoorKaderdeurPdf)
+		Do ..Logger.Info("GenereerKaderdeurPdf","Voor product '"_ProductId_"' is het KaderdeurDetailBlad pdf-bestand '"_BestandVolledigeNaamVoorKaderdeurPdf_"' gegenereerd.")
 	}
 	Catch {
 		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()