Index: BL/Prod/VoorraadTelling.cls.xml =================================================================== diff -u -r73741 -r73742 --- BL/Prod/VoorraadTelling.cls.xml (.../VoorraadTelling.cls.xml) (revision 73741) +++ BL/Prod/VoorraadTelling.cls.xml (.../VoorraadTelling.cls.xml) (revision 73742) @@ -780,16 +780,22 @@ #dim sc As %Status = $$$OK #dim IsActiefDocBaseV7 As %Boolean = ..DocBaseV7Helper.IsActiefDocBaseV7() - Set TempDummyTask = ##class(Sys.FOP.Task).%New() - Set TempDummyTask.KeyWords = ";VTELLING;FileDoc;" ; TempDummyTask is een work-around om de bepaling van "IsActiefDocBaseV7" op één plaats te houden, nl. bij DocBaseV7Helper. Eenmaal overgeschakeld mag de dummy opgekuist worden. - Set IsActiefDocBaseV7 = ..DocBaseV7Helper.IsTijdelijkActiefDocBaseV7("", TempDummyTask) - + If $$$Not(IsActiefDocBaseV7) { + // TempDummyTask is een work-around om de bepaling van "IsActiefDocBaseV7" op één plaats te houden, nl. bij DocBaseV7Helper. Eenmaal overgeschakeld mag de dummy opgekuist worden. + Set TempDummyTask = ##class(Sys.FOP.Task).%New() + Set TempDummyTask.KeyWords = ";VTELLING;FileDoc;" + Set IsActiefDocBaseV7 = ..DocBaseV7Helper.IsTijdelijkActiefDocBaseV7("", TempDummyTask) + } + If IsActiefDocBaseV7 { Set sc = ..PrintOneViaDfs(pxDoc,Printer) } Else { Set sc = ..PrintOneViaWatchFolder(pxDoc,Printer) - } + } + + Kill %WVActivateDocBaseV7 + Quit sc ]]>