Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml =================================================================== diff -u -r66998 -r67002 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml (.../KaderdeurDetailBladPdfGenerator.cls.xml) (revision 66998) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator.cls.xml (.../KaderdeurDetailBladPdfGenerator.cls.xml) (revision 67002) @@ -96,7 +96,16 @@ Index: vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/Test.cls.xml =================================================================== diff -u -r66999 -r67002 --- vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/Test.cls.xml (.../Test.cls.xml) (revision 66999) +++ vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/KaderdeurDetailBladPdfGenerator/GenereerPdf/Test.cls.xml (.../Test.cls.xml) (revision 67002) @@ -61,9 +61,10 @@ #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)) - + #dim SubStringInnerExceptie As %String = "Product (ID='99999999') is geen Kaderdeur-product." + #dim Substrings as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(SubStringInnerExceptie, "Fout bij het genereren van KaderdeurDetailBladPdf (ProductId: '99999999') naar bestand", ..TeGebruikenBestandVolledigeNaam) + Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName($$$True),Substrings)) + Set KaderdeurDetailBladPdfGenerator = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.KaderdeurDetailBladPdfGenerator).%New(FileApiMock) Do KaderdeurDetailBladPdfGenerator.GenereerKaderdeurDetailBladPdf(..KaderdeurProductId) ]]>