OPGELET: Deze klasse is non procedureblock en moet dit ook blijven!!! %RegisteredObject 0 Interne_Configurator 1 1 APPS.VKP.Maatwerk.impl.ConfiguratorParameters 1 1 APPS.VKP.Maatwerk.impl.ConfiguratorParameters 1 Parameters:APPS.VKP.Maatwerk.impl.AdminSessieParameters 1 DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%Integer APPS.VKP.Maatwerk.impl.BesteldeProducten 3) Set Puntjes = "" Do DISPONLY^vhTXTPOP("Invoeren van product met configurator "_Puntjes_$Justify("",3-$Length(Puntjes)),"Bezig met ...",1) If (Key '= 45) // Karakter '-' { Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(DocumentType,DocumentID) } Else { Set IsGeannuleerd = 1 Set BesteldeProducten = ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%New(DocumentType,DocumentID) } } Do REFRESH^vhTERMINA(1,24) Quit BesteldeProducten ]]> 1 DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%Integer APPS.VKP.Maatwerk.impl.AdminSessieParameters