Index: vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/Test.cls.xml	(revision 66999)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator.GenereerPdf.Test">
+<Description>
+De klassenaam is ingekort omdat anders de limiet van 128 char overschreden is.
+De volledige naam moet normaal gezien zijn : 
+    vhUnitTest.APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf.Test </Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="KaderdeurProductId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TeGebruikenBestandVolledigeNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.KaderdeurDetailBladPdf.FilePath", "\\UT_Server\UT_Dir\KaderdeurPdf\", ..#Applicatie)
+	
+	Set ..KaderdeurProductId = "99999999"
+	Set ..TeGebruikenBestandVolledigeNaam = "\\UT_Server\UT_Dir\KaderdeurPdf\KaderdeurDetailBlad_Product_99999999.pdf"
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel("APPS.Halux.PPS.ProductieDetailBlad.KaderdeurDetailBladPdf.FilePath", ..#Applicatie)
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test GenereerKaderdeurDetailBladPdf">
+<Implementation><![CDATA[
+	Set FileApiMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	Do FileApiMock.VerwachtMethodCall("FileExists", ..TeGebruikenBestandVolledigeNaam).DanReturn($$$True)
+	Do FileApiMock.VerwachtMethodCall("DeleteFile", ..TeGebruikenBestandVolledigeNaam).DanDoeNiks()
+	
+	#dim InputParametersMatcher As Tools.Mock.ArgumentMatcher = ..GeefInputParametersMatcher(..KaderdeurProductId)
+	Set ProductieDetailDocumentServiceMock = ##class(vhTest.Mock.APPS.Halux.PPS.Document.ProductieDetailDocument.ProductieDetailDocumentService).%New()
+	Do ProductieDetailDocumentServiceMock.VerwachtMethodCall("BewaarKaderdeurPDF", InputParametersMatcher, ..TeGebruikenBestandVolledigeNaam).DanDoeNiks()
+	
+	Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New(FileApiMock,ProductieDetailDocumentServiceMock)
+	Do KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf(..KaderdeurProductId)
+	
+	Do FileApiMock.Verifieer()
+	Do ProductieDetailDocumentServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test GenereerKaderdeurDetailBladPdf voor ongeldige ProductId geef een error">
+<Implementation><![CDATA[
+	#dim FileApiMock As vhTest.Mock.TECH.File.FileAPI = ##class(vhTest.Mock.TECH.File.FileAPI).MockInstance()
+	Do FileApiMock.IndienMethodCall("FileExists", ..TeGebruikenBestandVolledigeNaam).DanReturn($$$False)
+	
+	#dim ProductTypeApiMock As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+	Do ProductTypeApiMock.IndienMethodCall("IsKaderdeurProduct", ..KaderdeurProductId).DanReturn($$$False)
+	
+	#dim Substrings as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Product (ID='99999999') is geen Kaderdeur-product.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.UnimplementedException).%ClassName($$$True),Substrings))
+
+	Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New(FileApiMock)
+	Do KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf(..KaderdeurProductId)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInputParametersMatcher">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>Tools.Mock.ArgumentMatcher</ReturnType>
+<Implementation><![CDATA[
+	Set VerwachteInputParameters = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters).%New()
+	Set VerwachteInputParameters.ProductID = ProductId
+	Quit ##class(Tools.Mock.ArgumentMatchers.ObjectMatcher).%New(VerwachteInputParameters)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/TestAllerlei.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/TestAllerlei.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/TestAllerlei.cls.xml	(revision 66999)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator.GenereerPdf.TestAllerlei">
+<Description>
+De klassenaam is ingekort omdat anders de limiet van 128 char overschreden is. 
+De volledige naam moet normaal gezien zijn : 
+    vhUnitTest.APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf.TestAllerlei 
+N.B. : in deze klasse wordt niet de method "GenereerKaderdeurDetailBladPdf" getest, maar wel de andere public methods (vandaar Allerlei :-P ) 
+       de klasse opsplitsen per public method lijkt me overkill. </Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="KaderdeurProductId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TeGebruikenBestandVolledigeNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.KaderdeurDetailBladPdf.FilePath", "\\UT_Server\UT_Dir\KaderdeurPdf\", ..#Applicatie)
+	
+	Set ..KaderdeurProductId = "99999999"
+	Set ..TeGebruikenBestandVolledigeNaam = "\\UT_Server\UT_Dir\KaderdeurPdf\KaderdeurDetailBlad_Product_99999999.pdf"
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel("APPS.Halux.PPS.ProductieDetailBlad.KaderdeurDetailBladPdf.FilePath", ..#Applicatie)
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefBestandVolledigeNaam">
+<Implementation><![CDATA[
+	Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New()
+	#dim BestandVolledigeNaamVoorKaderdeurPdf As %String =  KaderdeurDetailBladPdfGenerator.GeefBestandVolledigeNaamVoorKaderdeurDetailBladPdf(..KaderdeurProductId)
+
+	Do $$$AssertEquals(BestandVolledigeNaamVoorKaderdeurPdf, "\\UT_Server\UT_Dir\KaderdeurPdf\KaderdeurDetailBlad_Product_99999999.pdf")
+]]></Implementation>
+</Method>
+
+<Method name="Test BestaatPdf">
+<Implementation><![CDATA[
+	Set FileApiMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	Do FileApiMock.VerwachtMethodCall("FileExists", ..TeGebruikenBestandVolledigeNaam).DanReturn($$$True)
+	
+	Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New(FileApiMock)
+	#dim BestaatKaderdeurPdf As %Boolean = KaderdeurDetailBladPdfGenerator.BestaatKaderdeurDetailBladPdfVoorProduct(..KaderdeurProductId)
+
+	Do $$$AssertTrue(BestaatKaderdeurPdf)
+
+	Do FileApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test KuisOpKaderdeurPdf">
+<Implementation><![CDATA[
+	Set FileApiMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	Do FileApiMock.VerwachtMethodCall("FileExists", ..TeGebruikenBestandVolledigeNaam).DanReturn($$$True)
+	Do FileApiMock.VerwachtMethodCall("DeleteFile", ..TeGebruikenBestandVolledigeNaam).DanDoeNiks()
+	
+	Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New(FileApiMock)
+	Do KaderdeurDetailBladPdfGenerator.KuisOpKaderdeurDetailBladPdf(..KaderdeurProductId)
+	
+	Do FileApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>