Index: AXimpl/PM/Maatwerk/KaderdeurPdfCreator.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Maatwerk/KaderdeurPdfCreator.cls.xml	(revision 0)
+++ AXimpl/PM/Maatwerk/KaderdeurPdfCreator.cls.xml	(revision 68483)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Maatwerk.KaderdeurPdfCreator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="itProduct">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Debug">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="IsSimulateOnly">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<Implementation><![CDATA[
+	#dim StartTijd As %String = $H
+	Set ..IsSimulateOnly = 0
+	
+	#dim AantalMaanden As %Integer = 3
+	Set ..itProduct=##class(AXimpl.PM.SchaduwPrijs.AXProductIterator).%New(AantalMaanden)
+	Do ..VerwerkLijst()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkManueel">
+<Description>
+    Do ##class(AXimpl.PM.Maatwerk.KaderdeurPdfCreator).%New().VerwerkManueel(1)</Description>
+<FormalSpec>IsSimulateOnly:%Boolean=1</FormalSpec>
+<Implementation><![CDATA[
+	#dim StartTijd As %String = $H
+	
+	Set ..Debug = $$$True
+	Set ..IsSimulateOnly = $Select(IsSimulateOnly="" : $$$True, 1:IsSimulateOnly)
+	
+	Write:(..Debug) !," ***** MAATWERK (CachePerVariant) *****"
+	#dim AantalMaanden As %Integer = 1
+	Set ..itProduct=##class(AXimpl.PM.SchaduwPrijs.AXProductIterator).%New(AantalMaanden)
+	Do ..VerwerkLijst()
+	
+	Write:(..Debug) !,"Verwerkingstijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M"),! 
+	;Read:(..Debug) "Druk op enter om verder te gaan" K
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLijst">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ItemID,ConfigID, rs
+
+	#dim StartTijd As %String = $H
+	#dim ProductID as %String
+	#dim PRNr as %String
+	#dim GenTyp as %String
+	#dim Count As %Integer = 1
+	#dim MetPdfCreate As %Boolean = $$$Not(..IsSimulateOnly)
+	
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New()
+	
+	While ..itProduct.HasNext()
+	{
+		Set rs=..itProduct.Next()
+		Set ProductID=rs.Data("ProductID")
+		Set PRNr=$G(rs.Data("AdminProductNummer"))
+		Set ItemID=rs.Data("ItemID")
+		Set ConfigID=$G(rs.Data("ConfigID"))
+		
+		try {
+			
+			#dim IsKaderdeurProduct As %Boolean = $$$False
+			If $$$HasLength(PRNr) && (ProductAPI.BestaatProduct(PRNr)) {
+				Set IsKaderdeurProduct = ProductTypeAPI.IsKaderdeurProduct(PRNr)
+			}
+			If IsKaderdeurProduct {
+				If $$$Not(KaderdeurDetailBladPdfGenerator.BestaatKaderdeurDetailBladPdfVoorProduct(PRNr)) {
+					#dim MsgGenerate As %String = $Select(..IsSimulateOnly:"Simulate instead of Generate", 1:"Generate pdf now")
+					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr) = MsgGenerate
+					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr,ConfigID_";") = MsgGenerate
+					Do:(MetPdfCreate) KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf(PRNr)
+				}
+				Else {
+					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr) = "OK: "_KaderdeurDetailBladPdfGenerator.GeefBestandVolledigeNaamVoorKaderdeurDetailBladPdf(PRNr)
+					Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr,ConfigID_";") = "OK."
+				}
+			}
+		}
+		catch { 
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Set ^LOG.WV.GenerateKadPdf(StartTijd,PRNr) = "Error: "_Exception.GeefOmschrijving()
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+				
+		Set Count=Count+1
+		Write:(..Debug)&&(Count#1000=0) !,"Aantal: ",Count," Tijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>