1 %RegisteredObject 0 1 Toepassing:%String="",Printer:%String=0 TECH.Print.Printer is onbestaand") Quit:'$D(^TECH("PRINT",Toepassing,0)) $$$ERROR($$$GeneralError,"Toepassing <"_Toepassing_"> default printer implementatie is onbestaand") If '$D(^TECH("PRINT",Toepassing,Printer)) Set Printer = 0 // indien geen specifieke implementatie voor printer default implementatie nemen Set PrinterClassname = $G(^TECH("PRINT",Toepassing,Printer)) Set FullPrinterClassname = "TECH.Print.impl."_PrinterClassname Quit:'##class(%Library.CompiledClass).%ExistsId(FullPrinterClassname) $$$ERROR($$$GeneralError,"Klasse "_FullPrinterClassname_" is onbestaand") Merge Settings = ^TECH("PRINT",Toepassing,Printer,PrinterClassname) Set objPrinter = $zobjClassmethod(FullPrinterClassname,"%New",Toepassing , .Settings) Quit objPrinter ]]>